[Home] [Help]
1: package body HR_NAV_UNIT_GLOBAL_USAGES_PKG as
2: /* $Header: hrnvulct.pkb 115.4 2004/01/08 01:28:45 adudekul noship $ */
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: insert into HR_NAV_UNIT_GLOBAL_USAGES (
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: insert into HR_NAV_UNIT_GLOBAL_USAGES (
16: GLOBAL_USAGE_ID,
17: NAV_UNIT_ID,
18: GLOBAL_NAME,
19: IN_OR_OUT,
46: NAV_UNIT_ID,
47: GLOBAL_NAME,
48: IN_OR_OUT,
49: MANDATORY_FLAG
50: from HR_NAV_UNIT_GLOBAL_USAGES
51: where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID
52: for update of GLOBAL_USAGE_ID nowait;
53: begin
54: for tlinfo in c1 loop
73: X_IN_OR_OUT in VARCHAR2,
74: X_MANDATORY_FLAG in VARCHAR2
75: ) is
76: begin
77: update HR_NAV_UNIT_GLOBAL_USAGES set
78: NAV_UNIT_ID = X_NAV_UNIT_ID,
79: GLOBAL_NAME = X_GLOBAL_NAME,
80: IN_OR_OUT = X_IN_OR_OUT,
81: MANDATORY_FLAG = X_MANDATORY_FLAG
89: procedure DELETE_ROW (
90: X_GLOBAL_USAGE_ID in NUMBER
91: ) is
92: begin
93: delete from HR_NAV_UNIT_GLOBAL_USAGES
94: where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID;
95:
96: if (sql%notfound) then
97: raise no_data_found;
124:
125: begin
126: select GLOBAL_USAGE_ID, MANDATORY_FLAG
127: into X_GLOBAL_USAGE_ID, Y_MANDATORY_FLAG
128: from HR_NAV_UNIT_GLOBAL_USAGES
129: where GLOBAL_NAME = X_GLOBAL_NAME
130: and IN_OR_OUT = X_IN_OR_OUT
131: and NAV_UNIT_ID = X_NAV_UNIT_ID;
132:
146: END IF;
147:
148: exception
149: when no_data_found then
150: select HR_NAV_UNIT_GLOBAL_USAGES_S.NEXTVAL
151: into X_GLOBAL_USAGE_ID
152: from DUAL;
153:
154: INSERT_ROW(
167: end if;
168:
169: end LOAD_ROW;
170:
171: end HR_NAV_UNIT_GLOBAL_USAGES_PKG;