[Home] [Help]
1: package body PSP_PAYROLL_INTERFACE_PKG as
2: /* $Header: PSPPIN2B.pls 115.9 2003/07/30 14:50:23 tbalacha ship $ */
3: -- This file has been checked out NOCOPY and checked in to ensure that the CTRL M
4: -- problem that causes file formatting to get garbled up does not exist
5: procedure INSERT_ROW (
47: X_BUSINESS_GROUP_ID in NUMBER,
48: X_SET_OF_BOOKS_ID in NUMBER,
49: X_CURRENCY_CODE in VARCHAR2
50: ) is
51: cursor C is select ROWID from PSP_PAYROLL_INTERFACE
52: where PAYROLL_INTERFACE_ID = X_PAYROLL_INTERFACE_ID
53: and BATCH_NAME = X_BATCH_NAME;
54: X_LAST_UPDATE_DATE DATE;
55: X_LAST_UPDATED_BY NUMBER;
71: else
72: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
73: app_exception.raise_exception;
74: end if;
75: insert into PSP_PAYROLL_INTERFACE (
76: PAYROLL_INTERFACE_ID,
77: PAYROLL_ID,
78: PAYROLL_PERIOD_ID,
79: PERSON_ID,
263: ATTRIBUTE15,
264: BUSINESS_GROUP_ID ,
265: SET_OF_BOOKS_ID
266:
267: from PSP_PAYROLL_INTERFACE
268: where PAYROLL_INTERFACE_ID = X_PAYROLL_INTERFACE_ID
269: and BATCH_NAME = X_BATCH_NAME
270: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
271: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID
434: else
435: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
436: app_exception.raise_exception;
437: end if;
438: update PSP_PAYROLL_INTERFACE set
439: PAYROLL_ID = X_PAYROLL_ID,
440: PAYROLL_PERIOD_ID = X_PAYROLL_PERIOD_ID,
441: PERSON_ID = X_PERSON_ID,
442: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
534: X_BUSINESS_GROUP_ID in NUMBER,
535: X_SET_OF_BOOKS_ID in NUMBER,
536: X_CURRENCY_CODE in VARCHAR2
537: ) is
538: cursor c1 is select rowid from PSP_PAYROLL_INTERFACE
539: where PAYROLL_INTERFACE_ID = X_PAYROLL_INTERFACE_ID
540: and BATCH_NAME = X_BATCH_NAME
541: ;
542: dummy c1%rowtype;
647: X_BUSINESS_GROUP_ID in NUMBER,
648: X_SET_OF_BOOKS_ID in NUMBER
649: ) is
650: begin
651: delete from PSP_PAYROLL_INTERFACE
652: where PAYROLL_INTERFACE_ID = X_PAYROLL_INTERFACE_ID
653: and BATCH_NAME = X_BATCH_NAME;
654: if (sql%notfound) then
655: raise no_data_found;
655: raise no_data_found;
656: end if;
657: end DELETE_ROW;
658:
659: end PSP_PAYROLL_INTERFACE_PKG;