[Home] [Help]
1: package body PSP_PAYROLL_SUB_LINES_PKG as
2: /* $Header: PSPPITSB.pls 120.0 2005/06/02 16:01:30 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_PAYROLL_SUB_LINE_ID in NUMBER,
35: X_ATTRIBUTE9 IN VARCHAR2,
36: X_ATTRIBUTE10 IN VARCHAR2,
37: X_MODE in VARCHAR2 default 'R'
38: ) is
39: cursor C is select ROWID from PSP_PAYROLL_SUB_LINES
40: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID;
41: X_LAST_UPDATE_DATE DATE;
42: X_LAST_UPDATED_BY NUMBER;
43: X_LAST_UPDATE_LOGIN NUMBER;
58: else
59: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
60: app_exception.raise_exception;
61: end if;
62: insert into PSP_PAYROLL_SUB_LINES (
63: PAYROLL_SUB_LINE_ID,
64: PAYROLL_LINE_ID,
65: SUB_LINE_START_DATE,
66: SUB_LINE_END_DATE,
212: ATTRIBUTE7,
213: ATTRIBUTE8,
214: ATTRIBUTE9,
215: ATTRIBUTE10
216: from PSP_PAYROLL_SUB_LINES
217: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
218: for update of PAYROLL_SUB_LINE_ID nowait;
219: tlinfo c1%rowtype;
220:
374: else
375: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
376: app_exception.raise_exception;
377: end if;
378: update PSP_PAYROLL_SUB_LINES set
379: PAYROLL_LINE_ID = X_PAYROLL_LINE_ID,
380: SUB_LINE_START_DATE = X_SUB_LINE_START_DATE,
381: SUB_LINE_END_DATE = X_SUB_LINE_END_DATE,
382: REASON_CODE = X_REASON_CODE,
452: X_ATTRIBUTE9 IN VARCHAR2,
453: X_ATTRIBUTE10 IN VARCHAR2,
454: X_MODE in VARCHAR2 default 'R'
455: ) is
456: cursor c1 is select rowid from PSP_PAYROLL_SUB_LINES
457: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID
458: ;
459: dummy c1%rowtype;
460: begin
539: procedure DELETE_ROW (
540: X_PAYROLL_SUB_LINE_ID in NUMBER
541: ) is
542: begin
543: delete from PSP_PAYROLL_SUB_LINES
544: where PAYROLL_SUB_LINE_ID = X_PAYROLL_SUB_LINE_ID;
545: if (sql%notfound) then
546: raise no_data_found;
547: end if;
546: raise no_data_found;
547: end if;
548: end DELETE_ROW;
549:
550: end PSP_PAYROLL_SUB_LINES_PKG;