[Home] [Help]
1: package body HR_NAVIGATION_NODES_PKG as
2: /* $Header: hrdwnlct.pkb 120.0 2005/05/30 23:56:41 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_NAV_NODE_ID in NUMBER,
6: X_NAV_UNIT_ID in NUMBER,
7: X_NAME in VARCHAR2,
8: X_CUSTOMIZED_RESTRICTION_ID in NUMBER
9: ) is
10: cursor C is select ROWID from HR_NAVIGATION_NODES
11: where NAV_NODE_ID = X_NAV_NODE_ID
12: ;
13: begin
14: insert into HR_NAVIGATION_NODES (
10: cursor C is select ROWID from HR_NAVIGATION_NODES
11: where NAV_NODE_ID = X_NAV_NODE_ID
12: ;
13: begin
14: insert into HR_NAVIGATION_NODES (
15: NAV_NODE_ID,
16: NAV_UNIT_ID,
17: NAME,
18: CUSTOMIZED_RESTRICTION_ID
41: cursor c1 is select
42: NAV_UNIT_ID,
43: CUSTOMIZED_RESTRICTION_ID,
44: NAME
45: from HR_NAVIGATION_NODES
46: where NAV_NODE_ID = X_NAV_NODE_ID
47: for update of NAV_NODE_ID nowait;
48: begin
49: for tlinfo in c1 loop
67: X_NAME in VARCHAR2,
68: X_CUSTOMIZED_RESTRICTION_ID in NUMBER
69: ) is
70: begin
71: update HR_NAVIGATION_NODES set
72: NAV_UNIT_ID = X_NAV_UNIT_ID,
73: NAME = X_NAME,
74: CUSTOMIZED_RESTRICTION_ID = X_CUSTOMIZED_RESTRICTION_ID
75: where NAV_NODE_ID = X_NAV_NODE_ID;
82: procedure DELETE_ROW (
83: X_NAV_NODE_ID in NUMBER
84: ) is
85: begin
86: delete from HR_NAVIGATION_NODES
87: where NAV_NODE_ID = X_NAV_NODE_ID;
88:
89: if (sql%notfound) then
90: raise no_data_found;
169:
170: begin
171: select NAV_NODE_ID, NAV_UNIT_ID, NAME, CUSTOMIZED_RESTRICTION_ID
172: into X_NAV_NODE_ID, Y_NAV_UNIT_ID, Y_NODE_NAME, Y_CUSTOMIZED_RESTRICTION_ID
173: from HR_NAVIGATION_NODES
174: where NAME = X_NODE_NAME;
175: --
176: -- Fix for bug 3274423 starts here.
177: -- Before updating the record, compare the database row with the row in ldt file.
193: );
194: END IF;
195: exception
196: when no_data_found then
197: select HR_NAVIGATION_NODES_S.NEXTVAL
198: into X_NAV_NODE_ID
199: from DUAL;
200:
201: INSERT_ROW(
215: end if;
216:
217: end LOAD_ROW;
218:
219: end HR_NAVIGATION_NODES_PKG;