[Home] [Help]
1: package body PSP_ENC_END_DATES_PKG AS
2: /* $Header: PSPENEDB.pls 115.8 2002/11/19 11:36:22 ddubey ship $ */
3:
4: /* Introduced x_prev_enc_end_date as a part of Enh. bug 2259310 */
5: procedure INSERT_ROW (
31: X_ATTRIBUTE15 in VARCHAR2,
32: X_MODE in VARCHAR2 default 'R',
33: X_PREV_ENC_END_DATE IN DATE DEFAULT NULL
34: ) is
35: cursor C is select ROWID from PSP_ENC_END_DATES
36: where ENC_END_DATE_ID = X_ENC_END_DATE_ID;
37: X_LAST_UPDATE_DATE DATE;
38: X_LAST_UPDATED_BY NUMBER;
39: X_LAST_UPDATE_LOGIN NUMBER;
54: else
55: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
56: app_exception.raise_exception;
57: end if;
58: insert into PSP_ENC_END_DATES (
59: ENC_END_DATE_ID,
60: BUSINESS_GROUP_ID,
61: SET_OF_BOOKS_ID,
62: ORGANIZATION_ID,
182: ATTRIBUTE12,
183: ATTRIBUTE13,
184: ATTRIBUTE14,
185: ATTRIBUTE15
186: from PSP_ENC_END_DATES
187: where ENC_END_DATE_ID = X_ENC_END_DATE_ID
188: for update of ENC_END_DATE_ID nowait;
189: tlinfo c1%rowtype;
190:
316: else
317: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
318: app_exception.raise_exception;
319: end if;
320: update PSP_ENC_END_DATES set
321: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
322: SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
323: ORGANIZATION_ID = X_ORGANIZATION_ID,
324: PERIOD_END_DATE = X_PERIOD_END_DATE,
382: X_ATTRIBUTE15 in VARCHAR2,
383: X_MODE in VARCHAR2 default 'R',
384: X_PREV_ENC_END_DATE IN DATE DEFAULT NULL
385: ) is
386: cursor c1 is select rowid from PSP_ENC_END_DATES
387: where ENC_END_DATE_ID = X_ENC_END_DATE_ID
388: ;
389: dummy c1%rowtype;
390: begin
461: procedure DELETE_ROW (
462: X_ENC_END_DATE_ID in NUMBER
463: ) is
464: begin
465: delete from PSP_ENC_END_DATES
466: where ENC_END_DATE_ID = X_ENC_END_DATE_ID;
467: if (sql%notfound) then
468: raise no_data_found;
469: end if;
468: raise no_data_found;
469: end if;
470: end DELETE_ROW;
471:
472: end PSP_ENC_END_DATES_PKG;