Oracle EBS 11i Add Responsibility to User by the Responsibility reference of Other User.

Warning: R12 version must be fixed columns sort to insert successfully.

 

 

DECLARE

   --input parameters

   l_reference_user_name             VARCHAR2 (50) := 'HKIT_KPWONG';

   l_add_resp_user_name              VARCHAR2 (50) := 'SZIT_QWR';

   l_resp_name                       VARCHAR2 (300) := 'Application Developer';

   -----------------------------------------------------------

 

   l_user_orig_system_id             NUMBER := -999999;

   l_role_name                       VARCHAR2 (300) := NULL;

   l_add_resp_user_exists            NUMBER := 0;

   l_insert_role_record             NUMBER := 0;

   l_insert_role_assign_record   NUMBER := 0;

BEGIN

   --get responsibility role name

   SELECT COUNT (1)

     INTO l_add_resp_user_exists

     FROM (SELECT u.user_id user_id

                , (SELECT responsibility_name

                     FROM fnd_responsibility_tl

                    WHERE     responsibility_id = wur.role_orig_system_id

                          AND application_id = fa.application_id

                          AND language = 'US')

                     app_responsibility_name

                , wur.role_name

                , wur.user_orig_system_id

                , wur.role_orig_system_id responsibility_id

                , fa.application_id responsibility_application_id

                , fsg.security_group_id security_group_id

                , fnd_date.canonical_to_date ('1000/01/01') start_date

                , TO_DATE (NULL) end_date

                , TO_CHAR (NULL) description

                , TO_NUMBER (NULL) created_by

                , TO_DATE (NULL) creation_date

                , TO_NUMBER (NULL) last_updated_by

                , TO_DATE (NULL) last_update_date

                , TO_NUMBER (NULL) last_update_login

             FROM fnd_user u

                , wf_user_role_assignments_v wura

                , wf_user_roles wur

                , fnd_application fa

                , fnd_security_groups fsg

            WHERE     wura.user_name = u.user_name

                  AND wur.role_orig_system = 'FND_RESP'

                  AND wur.partition_id = 2

                  AND wura.role_name = wur.role_name

                  AND wura.user_name = wur.user_name

                  AND fa.application_short_name = /* Val between 1 st and 2 nd separator */

                         REPLACE (SUBSTR (wura.role_name

                                        ,   INSTR (wura.role_name

                                                 , '|'

                                                 , 1

                                                 , 1)

                                          + 1

                                        , (  INSTR (wura.role_name

                                                  , '|'

                                                  , 1

                                                  , 2)

                                           - INSTR (wura.role_name

                                                  , '|'

                                                  , 1

                                                  , 1)

                                           - 1))

                                , '%col'

                                , ':')

                  AND fsg.security_group_key =  /* Val after 3 rd separator */

                         REPLACE (SUBSTR (wura.role_name

                                        ,   INSTR (wura.role_name

                                                 , '|'

                                                 , 1

                                                 , 3)

                                          + 1)

                                , '%col'

                                , ':')

                  AND u.user_name = l_add_resp_user_name) resp

    WHERE 1 = 1 AND resp.app_responsibility_name = l_resp_name;

 

 

   IF (l_add_resp_user_exists > 0)

   THEN

      DBMS_OUTPUT.put_line (

            'Failed !!! Add Responsebility Name: '

         || l_resp_name

         || ' to User: '

         || l_add_resp_user_name

         || ' by reference User: '

         || l_reference_user_name);

      DBMS_OUTPUT.put_line (

         'The Responsibility exists at Added User: ' || l_add_resp_user_name);

      RETURN;

   END IF;

 

 

 

   --get responsibility role name

   SELECT resp.role_name

     INTO l_role_name

     FROM (SELECT u.user_id user_id

                , (SELECT responsibility_name

                     FROM fnd_responsibility_tl

                    WHERE     responsibility_id = wur.role_orig_system_id

                          AND application_id = fa.application_id

                          AND language = 'US')

                     app_responsibility_name

                , wur.role_name

                , wur.user_orig_system_id

                , wur.role_orig_system_id responsibility_id

                , fa.application_id responsibility_application_id

                , fsg.security_group_id security_group_id

                , fnd_date.canonical_to_date ('1000/01/01') start_date

                , TO_DATE (NULL) end_date

                , TO_CHAR (NULL) description

                , TO_NUMBER (NULL) created_by

                , TO_DATE (NULL) creation_date

                , TO_NUMBER (NULL) last_updated_by

                , TO_DATE (NULL) last_update_date

                , TO_NUMBER (NULL) last_update_login

             FROM fnd_user u

                , wf_user_role_assignments_v wura

                , wf_user_roles wur

                , fnd_application fa

                , fnd_security_groups fsg

            WHERE     wura.user_name = u.user_name

                  AND wur.role_orig_system = 'FND_RESP'

                  AND wur.partition_id = 2

                  AND wura.role_name = wur.role_name

                  AND wura.user_name = wur.user_name

                  AND fa.application_short_name = /* Val between 1 st and 2 nd separator */

                         REPLACE (SUBSTR (wura.role_name

                                        ,   INSTR (wura.role_name

                                                 , '|'

                                                 , 1

                                                 , 1)

                                          + 1

                                        , (  INSTR (wura.role_name

                                                  , '|'

                                                  , 1

                                                  , 2)

                                           - INSTR (wura.role_name

                                                  , '|'

                                                  , 1

                                                  , 1)

                                           - 1))

                                , '%col'

                                , ':')

                  AND fsg.security_group_key =  /* Val after 3 rd separator */

                         REPLACE (SUBSTR (wura.role_name

                                        ,   INSTR (wura.role_name

                                                 , '|'

                                                 , 1

                                                 , 3)

                                          + 1)

                                , '%col'

                                , ':')

                  AND u.user_name = l_reference_user_name) resp

    WHERE 1 = 1 AND resp.app_responsibility_name = l_resp_name;

 

 

   IF (l_role_name IS NULL)

   THEN

      DBMS_OUTPUT.put_line (

            'Failed !!! Add Responsebility Name: '

         || l_resp_name

         || ' to User: '

         || l_add_resp_user_name

         || ' by reference User: '

         || l_reference_user_name);

      DBMS_OUTPUT.put_line (

            'The reference User have not the Responsibility: '

         || l_resp_name

         || '. Please input correct data!');

      RETURN;

   END IF;

 

 

   --get user orig system id

   SELECT DISTINCT wur.user_orig_system_id

     INTO l_user_orig_system_id

     FROM wf_user_roles wur

    WHERE 1 = 1 AND wur.user_name = l_add_resp_user_name;

 

 

   IF (l_user_orig_system_id = -999999)

   THEN

      DBMS_OUTPUT.put_line (

            'Failed !!! Add Responsebility Name: '

         || l_resp_name

         || ' to User: '

         || l_add_resp_user_name

         || ' by reference User: '

         || l_reference_user_name);

      DBMS_OUTPUT.put_line ('No found User Orig System ID.');

      RETURN;

   END IF;

 

 

   INSERT INTO wf_local_user_roles

      SELECT l_add_resp_user_name

           , wur.role_name

           , wur.user_orig_system

           , l_user_orig_system_id

           , wur.role_orig_system

           , wur.role_orig_system_id

           , wur.start_date

           , wur.expiration_date

           , wur.security_group_id

           , wur.partition_id

           , wur.owner_tag

           , wur.created_by

           , wur.creation_date

           , wur.last_updated_by

           , wur.last_update_date

           , wur.last_update_login

           , wur.assignment_type

           , wur.parent_orig_system

           , wur.parent_orig_system_id

           , wur.user_start_date

           , wur.role_start_date

           , wur.user_end_date

           , wur.role_end_date

           , wur.effective_start_date

           , wur.effective_end_date

           , wur.assignment_reason

        FROM wf_local_user_roles wur

       WHERE     1 = 1

             AND wur.user_name = l_reference_user_name

             AND wur.role_name = l_role_name;

 

 

   l_insert_role_record := SQL%ROWCOUNT;

 

   IF (l_insert_role_record = 0)

   THEN

      DBMS_OUTPUT.put_line (

            'Failed !!! Add Responsebility Name: '

         || l_resp_name

         || ' to User: '

         || l_add_resp_user_name

         || ' by reference User: '

         || l_reference_user_name);

      DBMS_OUTPUT.put_line ('No data into Role table.');

      RETURN;

   END IF;

 

 

   INSERT INTO wf_user_role_assignments

      SELECT l_add_resp_user_name

           , wura.role_name

           , wura.relationship_id

           , wura.assigning_role

           , wura.start_date

           , wura.end_date

           , wura.created_by

           , wura.creation_date

           , wura.last_updated_by

           , wura.last_update_date

           , wura.last_update_login

           , wura.user_start_date

           , wura.role_start_date

           , wura.assigning_role_start_date

           , wura.user_end_date

           , wura.role_end_date

           , wura.assigning_role_end_date

           , wura.partition_id

           , wura.effective_start_date

           , wura.effective_end_date

           , wura.user_orig_system

           , l_user_orig_system_id

           , wura.role_orig_system

           , wura.role_orig_system_id

           , wura.parent_orig_system

           , wura.parent_orig_system_id

           , wura.owner_tag

           , wura.assignment_reason

        FROM wf_user_role_assignments wura

       WHERE     1 = 1

             AND wura.user_name = l_reference_user_name

             AND wura.role_name = l_role_name;

 

 

   l_insert_role_assign_record := SQL%ROWCOUNT;

 

 

   IF (l_insert_role_record <> l_insert_role_assign_record)

   THEN

      DBMS_OUTPUT.put_line (

            'Failed !!! Add Responsebility Name: '

         || l_resp_name

         || ' to User: '

         || l_add_resp_user_name

         || ' by reference User: '

         || l_reference_user_name);

 

      ROLLBACK;

      COMMIT;

   END IF;

 

   DBMS_OUTPUT.put_line (

         'Successfully !!! Add Responsebility Name: '

      || l_resp_name

      || ' to User: '

      || l_add_resp_user_name

      || ' by reference User: '

      || l_reference_user_name);

 

   COMMIT;

END;

 

http://www.cnblogs.com/quanweiru/archive/2013/05/21/3090818.html

Oracle EBS Add Responsibility to User by the Responsibility reference of Other User.的更多相关文章

  1. Oracle EBS Standard Package Function Add User & Resp

    Oracle EBS Standard Package Function Add User & Resp. fnd_user_pkg.CreateUser; fnd_user_pkg.AddR ...

  2. Oracle EBS R12经验谈（二）

    作者: jianping.ni    时间: 2009-2-13 12:52     标题: Oracle EBS R12经验谈(二) OAF页面:银行帐户开户人LOV值列表无值    在输入 应付超 ...

  3. Oracle EBS应用笔记整理 (转自IT++ flyingkite）

    ***************************************************** Author: Flyingkite Blog:   http://space.itpub. ...

  4. Oracle EBS R12 (12.1.3) Installation Linux(64 bit)

    Oracle EBS R12 (12.1.3) Installation Linux(64 bit) Contents Objective. 3 1 Download & Unzip. 3 D ...

  5. [转]oracle EBS 基础100问

    from:http://www.cnblogs.com/xiaoL/p/3593691.html  http://f.dataguru.cn/thread-51057-1-1.html 1001 OR ...

  6. Oracle EBS Concurrent Request:Gather Schema Statistics[Z]

    Oracle EBS 的Concurrent Request"Gather Schema Statistics"是一个和性能相关的Concurrent Program,它会对表,列 ...

  7. Oracle EBS R12多组织（多OU）访问架构

    Oracle EBS R12多组织访问架构 多组织架构实现了经营单位(OU)的数据安全性,在底层数据表中有一列ORG_ID来记录数据所属的经营单一,所有多OU的基表都是以"_ALL" ...

  8. Using Integrated SOA Gateway in Oracle EBS

    FROM:http://blog.csdn.net/pan_tian/article/details/10159935 Oracle EBS如何与第三方系统相集成?比如这样的需求,X系统知道物料编码, ...

  9. Oracle EBS 12.2.6 on VirtualBox

    Back in May, Oracle announced the general availability of Oracle VM Virtual Appliance for E-Business ...

随机推荐

  1. Map和Bean的相互转换

    Map和Bean的相互转换 BeanUtils位于org.apache.commons.beanutils.BeanUtils下面,其方法populate的作用解释如下: 完整方法: BeanUtil ...

  2. HDU-5222 Exploration(拓扑排序)

    一.题目链接 http://acm.hdu.edu.cn/showproblem.php?pid=5222 二.题意 给一个无向边+有向边的混合图,其中每条边只能使用一次,问图中是否存在环. 三.思路 ...

  3. 机器学习中的python常用函数

    glob模块 说明: 1.glob是python自己带的一个文件操作相关模块,用它可以查找符合自己目的的文件,就类似于Windows下的文件搜索, 支持通配符操作 *.?.[] 这三个通配符,*代表0 ...

  4. EMF与GEF

    基于Eclipse的编程架构 类似的场景大家基本都见过: JBPM--流程插件 Mule---ESB插件

  5. django-admin添加权限

    后台manage页面: 可以通过用户直接添加权限,如果需要添加多个权限,则可以通过组,先将多个权限添加个组(总经理,秘书),在个用户添加这个组(总经理,秘书).  代码实现: 实际就是添加多对多的关系 ...

  6. Node爬虫之——使用async.mapLimit控制请求并发

    一般我们在写爬虫的时候,很多网站会因为你并发请求数太多当做是在恶意请求,封掉你的IP,为了防止这种情况的发生,我们一般会在代码里控制并发请求数,Node里面一般借助async模块来实现. 1. asy ...

  7. android处理Back键Home键和Menu键事件(转)

    @Override public boolean onKeyDown(int keyCode, KeyEvent event) { if(keyCode == KeyEvent.KEYCODE_BAC ...

  8. CentOS上安装 jdk

    先下载最新的jdk版本 文件名:jdk-8u5-linux-x64.rpm 将文件通过winscp上传到/usr/local目录中 rpm -ivh jdk-8u5-linux-x64.rpm 系统会 ...

  9. Windows10系统下安装python2和python3双版本

    Windows10系统下安装Python3的步骤已经演示过(详见:https://www.cnblogs.com/schut/p/8399195.html),此处不再赘述Python的下载,主要介绍在 ...

  10. java开发操作系统内核：由实模式进入保护模式之32位寻址