[Home] [Help]
1: package body PSP_EFFORT_REPORTS_PKG as
2: /* $Header: PSPERREB.pls 115.6 2002/11/18 12:44:18 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_EFFORT_REPORT_ID in NUMBER,
18: X_BUSINESS_GROUP_ID in NUMBER,
19: X_SET_OF_BOOKS_ID in NUMBER,
20: X_MODE in VARCHAR2 default 'R'
21: ) is
22: cursor C is select ROWID from PSP_EFFORT_REPORTS
23: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
24: and VERSION_NUM = X_VERSION_NUM;
25: X_LAST_UPDATE_DATE DATE;
26: X_LAST_UPDATED_BY NUMBER;
42: else
43: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
44: app_exception.raise_exception;
45: end if;
46: insert into PSP_EFFORT_REPORTS (
47: EFFORT_REPORT_ID,
48: VERSION_NUM,
49: PERSON_ID,
50: EFFECTIVE_START_DATE,
125: REPORT_CREATION_DATE,
126: STATUS_CODE,
127: TEMPLATE_ID,
128: PREV_EFFORT_REPORT_ID
129: from PSP_EFFORT_REPORTS
130: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
131: and VERSION_NUM = X_VERSION_NUM
132: for update of EFFORT_REPORT_ID nowait;
133: tlinfo c1%rowtype;
217: else
218: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
219: app_exception.raise_exception;
220: end if;
221: update PSP_EFFORT_REPORTS set
222: PERSON_ID = X_PERSON_ID,
223: EFFECTIVE_START_DATE = X_EFFECTIVE_START_DATE,
224: EFFECTIVE_END_DATE = X_EFFECTIVE_END_DATE,
225: VERSION_CREATION_DATE = X_VERSION_CREATION_DATE,
262: X_BUSINESS_GROUP_ID in NUMBER,
263: X_SET_OF_BOOKS_ID in NUMBER,
264: X_MODE in VARCHAR2 default 'R'
265: ) is
266: cursor c1 is select rowid from PSP_EFFORT_REPORTS
267: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
268: and VERSION_NUM = X_VERSION_NUM
269: ;
270: dummy c1%rowtype;
317: X_EFFORT_REPORT_ID in NUMBER,
318: X_VERSION_NUM in NUMBER
319: ) is
320: begin
321: delete from PSP_EFFORT_REPORTS
322: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
323: and VERSION_NUM = X_VERSION_NUM;
324: ---if (sql%notfound) then
325: ---raise no_data_found;
325: ---raise no_data_found;
326: ---end if;
327: end DELETE_ROW;
328:
329: end PSP_EFFORT_REPORTS_PKG;