[Home] [Help]
1: package body PSP_SCHEDULES_PKG as
2: --$Header: PSPLSTHB.pls 115.6 2002/11/18 12:10:51 lveerubh ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ASSIGNMENT_ID in NUMBER,
24: X_MODE in VARCHAR2 default 'R',
25: X_BUSINESS_GROUP_ID in NUMBER,
26: X_SET_OF_BOOKS_ID in NUMBER
27: ) is
28: cursor C is select ROWID from PSP_SCHEDULES
29: where ASSIGNMENT_ID = X_ASSIGNMENT_ID
30: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
31: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
32: X_LAST_UPDATE_DATE DATE;
49: else
50: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
51: app_exception.raise_exception;
52: end if;
53: insert into PSP_SCHEDULES (
54: ASSIGNMENT_ID,
55: PERSON_ID,
56: FTE,
57: ATTRIBUTE_CATEGORY,
159: ATTRIBUTE14,
160: ATTRIBUTE15,
161: BUSINESS_GROUP_ID,
162: SET_OF_BOOKS_ID
163: from PSP_SCHEDULES
164: where ASSIGNMENT_ID = X_ASSIGNMENT_ID
165: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
166: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
167: for update of ASSIGNMENT_ID nowait;
283: else
284: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
285: app_exception.raise_exception;
286: end if;
287: update PSP_SCHEDULES set
288: PERSON_ID = X_PERSON_ID,
289: FTE = X_FTE,
290: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
291: ATTRIBUTE1 = X_ATTRIBUTE1,
339: X_MODE in VARCHAR2 default 'R',
340: X_BUSINESS_GROUP_ID in NUMBER,
341: X_SET_OF_BOOKS_ID in NUMBER
342: ) is
343: cursor c1 is select rowid from PSP_SCHEDULES
344: where ASSIGNMENT_ID = X_ASSIGNMENT_ID
345: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
346: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
347: ;
410: X_BUSINESS_GROUP_ID in NUMBER,
411: X_SET_OF_BOOKS_ID in NUMBER
412: ) is
413: begin
414: delete from PSP_SCHEDULES
415: where ASSIGNMENT_ID = X_ASSIGNMENT_ID
416: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
417: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
418: if (sql%notfound) then
419: raise no_data_found;
420: end if;
421: end DELETE_ROW;
422:
423: end PSP_SCHEDULES_PKG;