[Home] [Help]
1: package body PSP_REP_ORG_DLS_PKG as
2: /* $Header: PSPREDLB.pls 115.6 2002/11/18 11:59:20 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ORG_DLS_LINE_ID in NUMBER,
13: X_SCHEDULE_END_DATE in DATE,
14: X_ORIGINAL_SCH_CODE in VARCHAR2,
15: X_MODE in VARCHAR2 default 'R'
16: ) is
17: cursor C is select ROWID from PSP_REP_ORG_DLS
18: where ORG_DLS_LINE_ID = X_ORG_DLS_LINE_ID;
19: X_LAST_UPDATE_DATE DATE;
20: X_LAST_UPDATED_BY NUMBER;
21: X_LAST_UPDATE_LOGIN NUMBER;
36: else
37: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
38: app_exception.raise_exception;
39: end if;
40: insert into PSP_REP_ORG_DLS (
41: ORG_DLS_BATCH_ID,
42: ORG_DLS_LINE_ID,
43: ORGANIZATION_ID,
44: ASSIGNMENT_ID,
102: SCHEDULE_LINE_ID,
103: SCHEDULE_BEGIN_DATE,
104: SCHEDULE_END_DATE,
105: ORIGINAL_SCH_CODE
106: from PSP_REP_ORG_DLS
107: where ORG_DLS_LINE_ID = X_ORG_DLS_LINE_ID
108: for update of ORG_DLS_LINE_ID nowait;
109: tlinfo c1%rowtype;
110:
174: else
175: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
176: app_exception.raise_exception;
177: end if;
178: update PSP_REP_ORG_DLS set
179: ORG_DLS_BATCH_ID = X_ORG_DLS_BATCH_ID,
180: ORGANIZATION_ID = X_ORGANIZATION_ID,
181: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
182: PERSON_ID = X_PERSON_ID,
208: X_SCHEDULE_END_DATE in DATE,
209: X_ORIGINAL_SCH_CODE in VARCHAR2,
210: X_MODE in VARCHAR2 default 'R'
211: ) is
212: cursor c1 is select rowid from PSP_REP_ORG_DLS
213: where ORG_DLS_LINE_ID = X_ORG_DLS_LINE_ID
214: ;
215: dummy c1%rowtype;
216: begin
251: procedure DELETE_ROW (
252: X_ORG_DLS_LINE_ID in NUMBER
253: ) is
254: begin
255: delete from PSP_REP_ORG_DLS
256: where ORG_DLS_LINE_ID = X_ORG_DLS_LINE_ID;
257: if (sql%notfound) then
258: raise no_data_found;
259: end if;
258: raise no_data_found;
259: end if;
260: end DELETE_ROW;
261:
262: end PSP_REP_ORG_DLS_PKG;