[Home] [Help]
1: package body PSP_SUB_LINE_REASONS_PKG as
2: /* $Header: PSPPITRB.pls 115.5 2002/11/18 11:02:42 ddubey ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_PAYROLL_SUB_LINE_ID in NUMBER,
6: X_REASON_CODE in VARCHAR2,
7: X_PARENT_LINE_ID in NUMBER,
8: X_MODE in VARCHAR2 default 'R'
9: ) is
10: cursor C is select ROWID from PSP_SUB_LINE_REASONS
11: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
12: and REASON_CODE = X_REASON_CODE;
13: X_LAST_UPDATE_DATE DATE;
14: X_LAST_UPDATED_BY NUMBER;
30: else
31: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
32: app_exception.raise_exception;
33: end if;
34: insert into PSP_SUB_LINE_REASONS (
35: PAYROLL_SUB_LINE_ID,
36: REASON_CODE,
37: PARENT_LINE_ID,
38: CREATION_DATE,
67: X_PARENT_LINE_ID in NUMBER
68: ) is
69: cursor c1 is select
70: PARENT_LINE_ID
71: from PSP_SUB_LINE_REASONS
72: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
73: and REASON_CODE = X_REASON_CODE
74: for update of PAYROLL_SUB_LINE_ID nowait;
75: tlinfo c1%rowtype;
121: else
122: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
123: app_exception.raise_exception;
124: end if;
125: update PSP_SUB_LINE_REASONS set
126: PARENT_LINE_ID = X_PARENT_LINE_ID,
127: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
128: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
129: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
141: X_REASON_CODE in VARCHAR2,
142: X_PARENT_LINE_ID in NUMBER,
143: X_MODE in VARCHAR2 default 'R'
144: ) is
145: cursor c1 is select rowid from PSP_SUB_LINE_REASONS
146: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
147: and REASON_CODE = X_REASON_CODE
148: ;
149: dummy c1%rowtype;
172: X_PAYROLL_SUB_LINE_ID in NUMBER,
173: X_REASON_CODE in VARCHAR2
174: ) is
175: begin
176: delete from PSP_SUB_LINE_REASONS
177: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
178: and REASON_CODE = X_REASON_CODE;
179: if (sql%notfound) then
180: raise no_data_found;
180: raise no_data_found;
181: end if;
182: end DELETE_ROW;
183:
184: end PSP_SUB_LINE_REASONS_PKG;