1: package body HR_NAV_UNIT_GLOBAL_USAGES_PKG as
2: /* $Header: hrnvulct.pkb 120.1 2011/04/28 11:49:02 sidsaxen ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_GLOBAL_USAGE_ID in NUMBER,
7: X_GLOBAL_NAME in VARCHAR2,
8: X_IN_OR_OUT in VARCHAR2,
9: X_MANDATORY_FLAG in VARCHAR2
10: ) is
11: cursor C is select ROWID from HR_NAV_UNIT_GLOBAL_USAGES
12: where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID
13: ;
14: begin
15:
19: --
20:
21: BEGIN
22: PER_RIC_PKG.chk_integrity (
23: p_entity_name => 'HR_NAV_UNIT_GLOBAL_USAGES',
24: p_ref_entity => 'HR_NAVIGATION_UNITS',
25: p_ref_column_name => 'NAV_UNIT_ID',
26: p_ref_col_value_number => X_NAV_UNIT_ID,
27: p_ref_col_value_varchar => NULL,
31: END;
32: --
33: -- Code Ends Here.
34: --
35: insert into HR_NAV_UNIT_GLOBAL_USAGES (
36: GLOBAL_USAGE_ID,
37: NAV_UNIT_ID,
38: GLOBAL_NAME,
39: IN_OR_OUT,
66: NAV_UNIT_ID,
67: GLOBAL_NAME,
68: IN_OR_OUT,
69: MANDATORY_FLAG
70: from HR_NAV_UNIT_GLOBAL_USAGES
71: where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID
72: for update of GLOBAL_USAGE_ID nowait;
73: begin
74: for tlinfo in c1 loop
93: X_IN_OR_OUT in VARCHAR2,
94: X_MANDATORY_FLAG in VARCHAR2
95: ) is
96: begin
97: update HR_NAV_UNIT_GLOBAL_USAGES set
98: NAV_UNIT_ID = X_NAV_UNIT_ID,
99: GLOBAL_NAME = X_GLOBAL_NAME,
100: IN_OR_OUT = X_IN_OR_OUT,
101: MANDATORY_FLAG = X_MANDATORY_FLAG
116: --
117:
118: BEGIN
119: PER_RIC_PKG.chk_integrity (
120: p_entity_name => 'HR_NAV_UNIT_GLOBAL_USAGES',
121: p_ref_entity => 'HR_NAVIGATION_CONTEXT_RULES',
122: p_ref_column_name => 'GLOBAL_USAGE_ID',
123: p_ref_col_value_number => X_GLOBAL_USAGE_ID,
124: p_ref_col_value_varchar => NULL,
128: END;
129: --
130: -- Code Ends Here.
131: --
132: delete from HR_NAV_UNIT_GLOBAL_USAGES
133: where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID;
134:
135: if (sql%notfound) then
136: raise no_data_found;
163:
164: begin
165: select GLOBAL_USAGE_ID, MANDATORY_FLAG
166: into X_GLOBAL_USAGE_ID, Y_MANDATORY_FLAG
167: from HR_NAV_UNIT_GLOBAL_USAGES
168: where GLOBAL_NAME = X_GLOBAL_NAME
169: and IN_OR_OUT = X_IN_OR_OUT
170: and NAV_UNIT_ID = X_NAV_UNIT_ID;
171:
185: END IF;
186:
187: exception
188: when no_data_found then
189: select HR_NAV_UNIT_GLOBAL_USAGES_S.NEXTVAL
190: into X_GLOBAL_USAGE_ID
191: from DUAL;
192:
193: INSERT_ROW(
206: end if;
207:
208: end LOAD_ROW;
209:
210: end HR_NAV_UNIT_GLOBAL_USAGES_PKG;