1: package body PSP_ENC_PAYROLLS_PKG AS
2: --$Header: PSPENPYB.pls 115.8 2002/11/19 11:51:08 ddubey ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ENC_PAYROLL_ID in NUMBER,
24: X_ATTRIBUTE14 in VARCHAR2,
25: X_ATTRIBUTE15 in VARCHAR2,
26: X_MODE in VARCHAR2 default 'R'
27: ) is
28: cursor C is select ROWID from PSP_ENC_PAYROLLS
29: where ENC_PAYROLL_ID = X_ENC_PAYROLL_ID;
30: X_LAST_UPDATE_DATE DATE;
31: X_LAST_UPDATED_BY NUMBER;
32: X_LAST_UPDATE_LOGIN NUMBER;
47: else
48: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
49: app_exception.raise_exception;
50: end if;
51: insert into PSP_ENC_PAYROLLS (
52: ENC_PAYROLL_ID,
53: BUSINESS_GROUP_ID,
54: SET_OF_BOOKS_ID,
55: PAYROLL_ID,
157: ATTRIBUTE12,
158: ATTRIBUTE13,
159: ATTRIBUTE14,
160: ATTRIBUTE15
161: from PSP_ENC_PAYROLLS
162: where ENC_PAYROLL_ID = X_ENC_PAYROLL_ID
163: for update of ENC_PAYROLL_ID nowait;
164: tlinfo c1%rowtype;
165:
279: else
280: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
281: app_exception.raise_exception;
282: end if;
283: update PSP_ENC_PAYROLLS set
284: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
285: SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
286: PAYROLL_ID = X_PAYROLL_ID,
287: INC_EXC_FLAG = X_INC_EXC_FLAG,
335: X_ATTRIBUTE14 in VARCHAR2,
336: X_ATTRIBUTE15 in VARCHAR2,
337: X_MODE in VARCHAR2 default 'R'
338: ) is
339: cursor c1 is select rowid from PSP_ENC_PAYROLLS
340: where ENC_PAYROLL_ID = X_ENC_PAYROLL_ID
341: ;
342: dummy c1%rowtype;
343: begin
400: procedure DELETE_ROW (
401: X_ENC_PAYROLL_ID in NUMBER
402: ) is
403: begin
404: delete from PSP_ENC_PAYROLLS
405: where ENC_PAYROLL_ID = X_ENC_PAYROLL_ID;
406: if (sql%notfound) then
407: raise no_data_found;
408: end if;
407: raise no_data_found;
408: end if;
409: end DELETE_ROW;
410:
411: end PSP_ENC_PAYROLLS_PKG;