Oracle EBS Add Responsibility to User by the Responsibility reference of Other User.
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.的更多相关文章
- Oracle EBS Standard Package Function Add User & Resp
Oracle EBS Standard Package Function Add User & Resp. fnd_user_pkg.CreateUser; fnd_user_pkg.AddR ...
- Oracle EBS R12经验谈(二)
作者: jianping.ni 时间: 2009-2-13 12:52 标题: Oracle EBS R12经验谈(二) OAF页面:银行帐户开户人LOV值列表无值 在输入 应付超 ...
- Oracle EBS应用笔记整理 (转自IT++ flyingkite)
***************************************************** Author: Flyingkite Blog: http://space.itpub. ...
- 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 ...
- [转]oracle EBS 基础100问
from:http://www.cnblogs.com/xiaoL/p/3593691.html http://f.dataguru.cn/thread-51057-1-1.html 1001 OR ...
- Oracle EBS Concurrent Request:Gather Schema Statistics[Z]
Oracle EBS 的Concurrent Request"Gather Schema Statistics"是一个和性能相关的Concurrent Program,它会对表,列 ...
- Oracle EBS R12多组织(多OU)访问架构
Oracle EBS R12多组织访问架构 多组织架构实现了经营单位(OU)的数据安全性,在底层数据表中有一列ORG_ID来记录数据所属的经营单一,所有多OU的基表都是以"_ALL" ...
- Using Integrated SOA Gateway in Oracle EBS
FROM:http://blog.csdn.net/pan_tian/article/details/10159935 Oracle EBS如何与第三方系统相集成?比如这样的需求,X系统知道物料编码, ...
- Oracle EBS 12.2.6 on VirtualBox
Back in May, Oracle announced the general availability of Oracle VM Virtual Appliance for E-Business ...
随机推荐
- 汇编_指令_XCHG
交换指令XCHG是两个寄存器,寄存器和内存变量之间内容的交换指令,两个操作数的数据类型要相同,可以是一个字节,也可以是一个字,也可以是双字 .其指令格式如下: XCHG Reg/Mem, Mem/Re ...
- 二.jQuery源码解析之构建jQuery之构建函数jQuery的7种用法
一:$(selectorStr[,限制范围]),接受一个选择器(符合jQuery规范的字符串),返回一个jQuery对象; 二:$(htmlStr[,文档对象]),$(html[,json对象])传入 ...
- C++ - 常用的标准库函数
写在前面 C++是一门博大精深的语言,也是最难学的一门编程语言,每一位励志学好C++的程序员都需要从基本功开始,稳扎稳打. 自从1998年C++ standard定案以后,C++程序库便有了大幅扩 ...
- 适应移动端 iPhone & Android 微信页面的一些css属性
1.-webkit-tap-highlight-color -webkit-tap-highlight-color:rgba(0,0,0,0);//透明度设置为0,去掉点击链接和文本框对象时默认的灰色 ...
- Protocol入门
参考:http://haoxiang.org/2011/08/ios-delegate-and-protocol/ 介绍: Protocol在iOS中就是协议,简单的理解就是一组函数的集合,这个集合中 ...
- python 阿里云短信群发推送
本篇文章是使用Python的Web框架Django提供发送短信接口供前端调用,Python版本2.7 阿里云入驻.申请短信服务.创建应用和模板等步骤请参考:阿里云短信服务入门 1.下载sdk 阿里云短 ...
- ModuleNotFoundError: No module named '_sqlite3'
ModuleNotFoundError: No module named '_sqlite3' 解决: 1,首先安装 sqlite-devel yum install sqlite-devel 2,重 ...
- 27.OGNL与ValueStack(VS)-获取Stack Context中的信息
转自:https://wenku.baidu.com/view/84fa86ae360cba1aa911da02.html 我们知道,除了可以从值栈中获取信息,还可以从Stack Context中获取 ...
- 初步认识session
TestSession01.java protected void doPost(HttpServletRequest request, HttpServletResponse response) t ...
- 网页中给超链接添加"是否确认"的方法
最近在做数据库, 需要给一个"删除"链接增加是否确认的弹出框, 在网上查到了两种方法: 1, 先看看最麻烦的一种 <html xmlns="http://www.w ...