1: package body PSP_SCHEDULE_HIERARCHY_PKG as
2: -- $Header: PSPLSHIB.pls 115.7 2002/11/18 12:17:32 lveerubh ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_SCHEDULE_HIERARCHY_ID in NUMBER,
10: X_MODE in VARCHAR2 default 'R',
11: X_BUSINESS_GROUP_ID in NUMBER,
12: X_SET_OF_BOOKS_ID in NUMBER
13: ) is
14: cursor C is select ROWID from PSP_SCHEDULE_HIERARCHY
15: where SCHEDULE_HIERARCHY_ID = X_SCHEDULE_HIERARCHY_ID
16: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
17: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
18: X_LAST_UPDATE_DATE DATE;
35: else
36: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
37: app_exception.raise_exception;
38: end if;
39: insert into PSP_SCHEDULE_HIERARCHY (
40: SCHEDULE_HIERARCHY_ID,
41: ASSIGNMENT_ID,
42: SCHEDULING_TYPES_CODE,
43: ELEMENT_GROUP_ID,
87: ASSIGNMENT_ID,
88: SCHEDULING_TYPES_CODE,
89: ELEMENT_GROUP_ID,
90: ELEMENT_TYPE_ID
91: from PSP_SCHEDULE_HIERARCHY
92: where SCHEDULE_HIERARCHY_ID = X_SCHEDULE_HIERARCHY_ID
93: for update of SCHEDULE_HIERARCHY_ID nowait;
94: tlinfo c1%rowtype;
95:
153: else
154: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
155: app_exception.raise_exception;
156: end if;
157: update PSP_SCHEDULE_HIERARCHY set
158: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
159: SCHEDULING_TYPES_CODE = X_SCHEDULING_TYPES_CODE,
160: ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID,
161: ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID,
181: X_MODE in VARCHAR2 default 'R',
182: X_BUSINESS_GROUP_ID in NUMBER,
183: X_SET_OF_BOOKS_ID in NUMBER
184: ) is
185: cursor c1 is select rowid from PSP_SCHEDULE_HIERARCHY
186: where SCHEDULE_HIERARCHY_ID = X_SCHEDULE_HIERARCHY_ID
187: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
188: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
189: ;
223: X_BUSINESS_GROUP_ID in NUMBER,
224: X_SET_OF_BOOKS_ID in NUMBER
225: ) is
226: begin
227: delete from PSP_SCHEDULE_HIERARCHY
228: where SCHEDULE_HIERARCHY_ID = X_SCHEDULE_HIERARCHY_ID
229: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
230: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
231: if (sql%notfound) then
232: raise no_data_found;
233: end if;
234: end DELETE_ROW;
235:
236: end PSP_SCHEDULE_HIERARCHY_PKG;