1: package body PSP_ENC_LINES_PKG AS
2: /* $Header: PSPENLTB.pls 115.10 2002/11/19 11:45:24 ddubey ship $ */
3:
4: /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
5: procedure INSERT_ROW (
37: X_STATUS_CODE in VARCHAR2,
38: X_ENC_START_DATE in DATE DEFAULT NULL,
39: X_ENC_END_DATE in DATE DEFAULT NULL
40: ) is
41: cursor C is select ROWID from PSP_ENC_LINES
42: where ENC_LINE_ID = X_ENC_LINE_ID;
43: X_LAST_UPDATE_DATE DATE;
44: X_LAST_UPDATED_BY NUMBER;
45: X_LAST_UPDATE_LOGIN NUMBER;
60: else
61: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
62: app_exception.raise_exception;
63: end if;
64: insert into PSP_ENC_LINES (
65: ENC_LINE_ID,
66: BUSINESS_GROUP_ID,
67: ENC_ELEMENT_TYPE_ID,
68: ENCUMBRANCE_DATE,
205: SET_OF_BOOKS_ID,
206: DEFAULT_REASON_CODE,
207: SUSPENSE_REASON_CODE,
208: ENC_CONTROL_ID
209: from PSP_ENC_LINES
210: where ENC_LINE_ID = X_ENC_LINE_ID
211: for update of ENC_LINE_ID nowait;
212: tlinfo c1%rowtype;
213:
342: else
343: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
344: app_exception.raise_exception;
345: end if;
346: update PSP_ENC_LINES set
347: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
348: ENC_ELEMENT_TYPE_ID = X_ENC_ELEMENT_TYPE_ID,
349: ENCUMBRANCE_DATE = X_ENCUMBRANCE_DATE,
350: DR_CR_FLAG = X_DR_CR_FLAG,
417: X_STATUS_CODE in VARCHAR2,
418: X_ENC_START_DATE in DATE DEFAULT NULL,
419: X_ENC_END_DATE in DATE DEFAULT NULL
420: ) is
421: cursor c1 is select rowid from PSP_ENC_LINES
422: where ENC_LINE_ID = X_ENC_LINE_ID
423: ;
424: dummy c1%rowtype;
425: begin
506: procedure DELETE_ROW (
507: X_ENC_LINE_ID in NUMBER
508: ) is
509: begin
510: delete from PSP_ENC_LINES
511: where ENC_LINE_ID = X_ENC_LINE_ID;
512: if (sql%notfound) then
513: raise no_data_found;
514: end if;
613: X_LAST_UPDATED_BY);
614:
615: END;
616:
617: end PSP_ENC_LINES_PKG;