[Home] [Help]
1: package body PSP_PAYROLL_LINES_PKG as
2: /* $Header: PSPPILNB.pls 120.4 2007/01/26 06:52:52 spchakra noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_PAYROLL_LINE_ID in NUMBER,
28: X_OR_AWARD_ID IN NUMBER DEFAULT NULL,
29: X_OR_EXPENDITURE_ORG_ID IN NUMBER DEFAULT NULL,
30: X_OR_EXPENDITURE_TYPE IN VARCHAR2 DEFAULT NULL
31: ) is
32: cursor C is select ROWID from PSP_PAYROLL_LINES
33: where PAYROLL_LINE_ID = X_PAYROLL_LINE_ID;
34: X_LAST_UPDATE_DATE DATE;
35: X_LAST_UPDATED_BY NUMBER;
36: X_LAST_UPDATE_LOGIN NUMBER;
51: else
52: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
53: app_exception.raise_exception;
54: end if;
55: insert into PSP_PAYROLL_LINES (
56: PAYROLL_LINE_ID,
57: PAYROLL_CONTROL_ID,
58: SET_OF_BOOKS_ID,
59: ASSIGNMENT_ID,
163: COST_ALLOCATION_KEYFLEX_ID,
164: GL_CODE_COMBINATION_ID,
165: BALANCE_AMOUNT,
166: DR_CR_FLAG
167: from PSP_PAYROLL_LINES
168: where PAYROLL_LINE_ID = X_PAYROLL_LINE_ID
169: for update of PAYROLL_LINE_ID nowait;
170: tlinfo c1%rowtype;
171:
263: else
264: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
265: app_exception.raise_exception;
266: end if;
267: update PSP_PAYROLL_LINES set
268: PAYROLL_CONTROL_ID = X_PAYROLL_CONTROL_ID,
269: SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
270: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
271: PERSON_ID = X_PERSON_ID,
313: X_BALANCE_AMOUNT in NUMBER,
314: X_DR_CR_FLAG in VARCHAR2,
315: X_MODE in VARCHAR2 default 'R'
316: ) is
317: cursor c1 is select rowid from PSP_PAYROLL_LINES
318: where PAYROLL_LINE_ID = X_PAYROLL_LINE_ID
319: ;
320: dummy c1%rowtype;
321: begin
372: procedure DELETE_ROW (
373: X_PAYROLL_LINE_ID in NUMBER
374: ) is
375: begin
376: delete from PSP_PAYROLL_LINES
377: where PAYROLL_LINE_ID = X_PAYROLL_LINE_ID;
378: if (sql%notfound) then
379: raise no_data_found;
380: end if;
379: raise no_data_found;
380: end if;
381: end DELETE_ROW;
382:
383: end PSP_PAYROLL_LINES_PKG;