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. 为什么JSP会比Beetl慢

    转自:http://my.oschina.net/xiandafu/blog/475740 JSP是预编译成class的,然后模板渲染里比Beetl慢很多,文章从JSP静态文本处理不足,以及JSTL实 ...

  2. Erlang Web 监控工具

    转自http://www.cnblogs.com/me-sa/archive/2012/04/17/erlang-web-monitor.html  Erlang已经提供了一系列工具查看运行时状态查看 ...

  3. phpcms模块开发中的小问题及解决方法

    1.模块菜单中文名出错 在编写安装模块时候可能需要更改extention.inc.php中定义中文名称,由于反复安装或者通过phpcms的扩展->菜单管理 修改菜单名会导致中文名失败.解决办法很 ...

  4. 关于hibernate4.3版本之后org.hibernate.service.ServiceRegistryBuilder被弃用

    之前一直都是使用hibernate4.2.21的我,有一天突然没有使用本地的jar包而是让IDEA自动下载最新版本的hibernate5.2.2之后,发现有几个经常使用的方法报错了. -这真是让我惊了 ...

  5. segment_object_model_3d

    * *********************************************************************** * This example program sho ...

  6. 为什么nginx error_page遇到后端错误时不跳转？

    nginx不得不说的参数之 proxy_intercept_errors与fastcgi_intercept_errors 为什么我的error_page 配置没有生效,没有正常跳转?我也遇到过这个问 ...

  7. chrome36可以使用自定义元素的回调了

    <!DOCTYPE html> <html> <head> <title>ms-attr-*</title> <meta charse ...

  8. MyBatis 延迟加载 加载时机

  9. SSD

    https://blog.csdn.net/WZZ18191171661/article/details/79444217 论文题目:SSD: Single Shot MultiBox Detecto ...

  10. UNITY_INITIALIZE_OUTPUT宏

    UNITY_INITIALIZE_OUTPUT宏 UNITY_INITIALIZE_OUTPUT(type,name) –此宏用于将给定类型的名称变量初始化为零.在使用旧版标准所写的Shader时,经 ...