1: package body HR_NAVIGATION_NODE_USAGES_PKG as
2: /* $Header: hrnvnlct.pkb 120.1 2011/04/28 11:50:43 sidsaxen ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_NAV_NODE_USAGE_ID in NUMBER,
6: X_WORKFLOW_ID in NUMBER,
7: X_NAV_NODE_ID in NUMBER,
8: X_TOP_NODE in VARCHAR2
9: ) is
10: cursor C is select ROWID from HR_NAVIGATION_NODE_USAGES
11: where NAV_NODE_USAGE_ID = X_NAV_NODE_USAGE_ID
12: ;
13: begin
14:
18: --
19:
20: BEGIN
21: PER_RIC_PKG.chk_integrity (
22: p_entity_name => 'HR_NAVIGATION_NODE_USAGES',
23: p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
24: PER_RIC_PKG.ref_info_rec('HR_WORKFLOWS', PER_RIC_PKG.column_info_tbl(
25: PER_RIC_PKG.col_info_rec('WORKFLOW_ID',NULL,X_WORKFLOW_ID,NULL))),
26: PER_RIC_PKG.ref_info_rec('HR_NAVIGATION_NODES', PER_RIC_PKG.column_info_tbl(
31: END;
32: --
33: -- Code Ends Here.
34: --
35: insert into HR_NAVIGATION_NODE_USAGES (
36: NAV_NODE_USAGE_ID,
37: WORKFLOW_ID,
38: NAV_NODE_ID,
39: TOP_NODE
62: cursor c1 is select
63: WORKFLOW_ID,
64: NAV_NODE_ID,
65: TOP_NODE
66: from HR_NAVIGATION_NODE_USAGES
67: where NAV_NODE_USAGE_ID = X_NAV_NODE_USAGE_ID
68: for update of NAV_NODE_USAGE_ID nowait;
69: begin
70: for tlinfo in c1 loop
87: X_NAV_NODE_ID in NUMBER,
88: X_TOP_NODE in VARCHAR2
89: ) is
90: begin
91: update HR_NAVIGATION_NODE_USAGES set
92: WORKFLOW_ID = X_WORKFLOW_ID,
93: NAV_NODE_ID = X_NAV_NODE_ID,
94: TOP_NODE = X_TOP_NODE
95: where NAV_NODE_USAGE_ID = X_NAV_NODE_USAGE_ID;
110: --
111:
112: BEGIN
113: PER_RIC_PKG.chk_integrity (
114: p_entity_name => 'HR_NAVIGATION_NODE_USAGES',
115: p_ref_entity => 'HR_NAVIGATION_PATHS',
116: p_ref_column_info => PER_RIC_PKG.column_info_tbl(
117: PER_RIC_PKG.col_info_rec('FROM_NAV_NODE_USAGE_ID',NULL,X_NAV_NODE_USAGE_ID,NULL) ,
118: PER_RIC_PKG.col_info_rec('TO_NAV_NODE_USAGE_ID',NULL,X_NAV_NODE_USAGE_ID,NULL)
122: END;
123: --
124: -- Code Ends Here.
125: --
126: delete from HR_NAVIGATION_NODE_USAGES
127: where NAV_NODE_USAGE_ID = X_NAV_NODE_USAGE_ID;
128:
129: if (sql%notfound) then
130: raise no_data_found;
165:
166: begin
167: select NAV_NODE_USAGE_ID
168: into X_NAV_NODE_USAGE_ID
169: from HR_NAVIGATION_NODE_USAGES
170: where WORKFLOW_ID = X_WORKFLOW_ID
171: and NAV_NODE_ID = X_NAV_NODE_ID
172: and TOP_NODE = X_TOP_NODE;
173: exception
171: and NAV_NODE_ID = X_NAV_NODE_ID
172: and TOP_NODE = X_TOP_NODE;
173: exception
174: when no_data_found then
175: select HR_NAVIGATION_NODE_USAGES_S.NEXTVAL
176: into X_NAV_NODE_USAGE_ID
177: from dual;
178: --
179: -- Fix for bug 3274423 starts here.
208: end if;
209:
210: end LOAD_ROW;
211:
212: end HR_NAVIGATION_NODE_USAGES_PKG;