24: from fnd_responsibility_vl
25: where responsibility_key = P_RESPONSIBILITY_KEY;
26: CURSOR C1 (c1_p_appl_id number, c1_p_resp_id number) IS
27: select 1
28: from PER_INFO_TYPE_SECURITY t
29: where t.application_id = c1_p_appl_id
30: and t.responsibility_id = c1_p_resp_id
31: and t.info_type_table_name = P_INFO_TYPE_TABLE_NAME
32: and t.information_type = P_INFORMATION_TYPE
74: select responsibility_id
75: from fnd_responsibility_vl
76: where responsibility_key = X_RESPONSIBILITY_KEY;
77: cursor C_SEC_ID is
78: select per_info_type_security_s.nextval
79: from sys.dual;
80: cursor C is select ROWID from PER_INFO_TYPE_SECURITY
81: where application_id = l_appl_id
82: and responsibility_id = l_resp_id
76: where responsibility_key = X_RESPONSIBILITY_KEY;
77: cursor C_SEC_ID is
78: select per_info_type_security_s.nextval
79: from sys.dual;
80: cursor C is select ROWID from PER_INFO_TYPE_SECURITY
81: where application_id = l_appl_id
82: and responsibility_id = l_resp_id
83: and info_type_table_name = X_INFO_TYPE_TABLE_NAME
84: and INFORMATION_TYPE = X_INFORMATION_TYPE
92: close C_RESP;
93: open C_SEC_ID;
94: fetch C_SEC_ID into l_sec_id;
95: close C_SEC_ID;
96: insert into PER_INFO_TYPE_SECURITY (
97: PER_INFO_TYPE_SECURITY_ID,
98: APPLICATION_ID,
99: RESPONSIBILITY_ID,
100: INFO_TYPE_TABLE_NAME,
93: open C_SEC_ID;
94: fetch C_SEC_ID into l_sec_id;
95: close C_SEC_ID;
96: insert into PER_INFO_TYPE_SECURITY (
97: PER_INFO_TYPE_SECURITY_ID,
98: APPLICATION_ID,
99: RESPONSIBILITY_ID,
100: INFO_TYPE_TABLE_NAME,
101: INFORMATION_TYPE,
148: where responsibility_key = X_RESPONSIBILITY_KEY;
149: cursor c (c_p_appl_id number, c_p_resp_id number) is select
150: INFORMATION_TYPE,
151: OBJECT_VERSION_NUMBER
152: from PER_INFO_TYPE_SECURITY
153: where APPLICATION_ID = c_p_appl_id
154: and RESPONSIBILITY_ID = c_p_resp_id
155: and INFO_TYPE_TABLE_NAME = X_INFO_TYPE_TABLE_NAME
156: and INFORMATION_TYPE = X_INFORMATION_TYPE
212: close C_APPL;
213: open C_RESP;
214: fetch C_RESP into l_resp_id;
215: close C_RESP;
216: update PER_INFO_TYPE_SECURITY set
217: INFORMATION_TYPE = X_INFORMATION_TYPE_NEW,
218: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
219: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
220: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
253: open C_RESP;
254: fetch C_RESP into l_resp_id;
255: close C_RESP;
256:
257: delete from PER_INFO_TYPE_SECURITY
258: where APPLICATION_ID = l_appl_id
259: and RESPONSIBILITY_ID = l_resp_id
260: and INFO_TYPE_TABLE_NAME = X_INFO_TYPE_TABLE_NAME
261: and INFORMATION_TYPE = X_INFORMATION_TYPE;
331: is
332: begin
333: null;
334: /*
335: UPDATE per_info_type_security
336: SET description = X_DESCRIPTION
337: ,last_update_date = SYSDATE
338: ,last_updated_by = DECODE(X_OWNER,'SEED',1,0)
339: ,last_update_login = 0