[Home] [Help]
1: package body PSP_PAYROLL_CONTROLS_PKG AS
2: /* $Header: PSPPIPCB.pls 120.3 2006/09/01 21:09:52 vdharmap noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_PAYROLL_CONTROL_ID in NUMBER,
33: X_CURRENCY_CODE in VARCHAR2,
34: X_EXCHANGE_RATE_TYPE in VARCHAR2,
35: X_PARENT_PAYROLL_CONTROL_ID in NUMBER default null
36: ) is
37: cursor C is select ROWID from PSP_PAYROLL_CONTROLS
38: where PAYROLL_CONTROL_ID = X_PAYROLL_CONTROL_ID;
39: X_LAST_UPDATE_DATE DATE;
40: X_LAST_UPDATED_BY NUMBER;
41: X_LAST_UPDATE_LOGIN NUMBER;
56: else
57: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
58: app_exception.raise_exception;
59: end if;
60: insert into PSP_PAYROLL_CONTROLS (
61: SUBLINES_DR_AMOUNT,
62: SUBLINES_CR_AMOUNT,
63: DIST_DR_AMOUNT,
64: DIST_CR_AMOUNT,
200: GMS_PHASE,
201: ADJ_SUM_BATCH_NAME,
202: CURRENCY_CODE,
203: EXCHANGE_RATE_TYPE
204: from PSP_PAYROLL_CONTROLS
205: where PAYROLL_CONTROL_ID = X_PAYROLL_CONTROL_ID
206: for update of PAYROLL_CONTROL_ID nowait;
207: tlinfo c1%rowtype;
208:
328: else
329: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
330: app_exception.raise_exception;
331: end if;
332: update PSP_PAYROLL_CONTROLS set
333: SUBLINES_DR_AMOUNT = X_SUBLINES_DR_AMOUNT,
334: SUBLINES_CR_AMOUNT = X_SUBLINES_CR_AMOUNT,
335: DIST_DR_AMOUNT = X_DIST_DR_AMOUNT,
336: DIST_CR_AMOUNT = X_DIST_CR_AMOUNT,
400: X_ADJ_SUM_BATCH_NAME in VARCHAR2,
401: X_CURRENCY_CODE in VARCHAR2,
402: X_EXCHANGE_RATE_TYPE in VARCHAR2
403: ) is
404: cursor c1 is select rowid from PSP_PAYROLL_CONTROLS
405: where PAYROLL_CONTROL_ID = X_PAYROLL_CONTROL_ID
406: ;
407: dummy c1%rowtype;
408: begin
481: procedure DELETE_ROW (
482: X_PAYROLL_CONTROL_ID in NUMBER
483: ) is
484: begin
485: delete from PSP_PAYROLL_CONTROLS
486: where PAYROLL_CONTROL_ID = X_PAYROLL_CONTROL_ID;
487: if (sql%notfound) then
488: raise no_data_found;
489: end if;
488: raise no_data_found;
489: end if;
490: end DELETE_ROW;
491:
492: end PSP_PAYROLL_CONTROLS_PKG;