[Home] [Help]
1: package body PSP_PAYROLL_SOURCES_PKG as
2: /* $Header: PSPSUSRB.pls 115.6 2002/11/18 09:01:46 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_SOURCE_TYPE in VARCHAR2,
22: X_ATTRIBUTE14 in VARCHAR2,
23: X_ATTRIBUTE15 in VARCHAR2,
24: X_MODE in VARCHAR2 default 'R'
25: ) is
26: cursor C is select ROWID from PSP_PAYROLL_SOURCES
27: where SOURCE_TYPE = X_SOURCE_TYPE
28: and SOURCE_CODE = X_SOURCE_CODE;
29: X_LAST_UPDATE_DATE DATE;
30: X_LAST_UPDATED_BY NUMBER;
46: else
47: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
48: app_exception.raise_exception;
49: end if;
50: insert into PSP_PAYROLL_SOURCES (
51: SOURCE_TYPE,
52: SOURCE_CODE,
53: DESCRIPTION,
54: ATTRIBUTE_CATEGORY,
147: ATTRIBUTE12,
148: ATTRIBUTE13,
149: ATTRIBUTE14,
150: ATTRIBUTE15
151: from PSP_PAYROLL_SOURCES
152: where SOURCE_TYPE = X_SOURCE_TYPE
153: and SOURCE_CODE = X_SOURCE_CODE
154: for update of SOURCE_TYPE nowait;
155: tlinfo c1%rowtype;
267: else
268: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
269: app_exception.raise_exception;
270: end if;
271: update PSP_PAYROLL_SOURCES set
272: DESCRIPTION = X_DESCRIPTION,
273: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
274: ATTRIBUTE1 = X_ATTRIBUTE1,
275: ATTRIBUTE2 = X_ATTRIBUTE2,
319: X_ATTRIBUTE14 in VARCHAR2,
320: X_ATTRIBUTE15 in VARCHAR2,
321: X_MODE in VARCHAR2 default 'R'
322: ) is
323: cursor c1 is select rowid from PSP_PAYROLL_SOURCES
324: where SOURCE_TYPE = X_SOURCE_TYPE
325: and SOURCE_CODE = X_SOURCE_CODE
326: ;
327: dummy c1%rowtype;
382: X_SOURCE_TYPE in VARCHAR2,
383: X_SOURCE_CODE in VARCHAR2
384: ) is
385: begin
386: delete from PSP_PAYROLL_SOURCES
387: where SOURCE_TYPE = X_SOURCE_TYPE
388: and SOURCE_CODE = X_SOURCE_CODE;
389: if (sql%notfound) then
390: raise no_data_found;
390: raise no_data_found;
391: end if;
392: end DELETE_ROW;
393:
394: end PSP_PAYROLL_SOURCES_PKG;