PACKAGE BODY: APPS.PAY_REVERSE_PAYROLL_PKG

Source

1 PACKAGE BODY PAY_REVERSE_PAYROLL_PKG  AS
2 /* $Header: pypra03t.pkb 115.0 99/07/17 06:26:09 porting ship $ */
3  P_PAYROLL_ACTION_ID NUMBER;
4  L_TIME_PERIOD_ID    NUMBER;
5  L_DATE_EARNED       DATE;
6 
7  PROCEDURE INSERT_ROW(P_ACTION_TYPE                    VARCHAR2,
8 		      P_BUSINESS_GROUP_ID              NUMBER,
9                       P_CONSOLIDATION_SET_ID           NUMBER,
10 	              P_PAYROLL_ID		       NUMBER,
11 		      P_ACTION_POPULATION_STATUS       VARCHAR2,
12 		      P_ACTION_STATUS                  VARCHAR2,
13 	              P_EFFECTIVE_DATE                 DATE,
14 		      P_ASSIGNMENT_ACTION_ID           NUMBER) IS
15    CURSOR C1 IS
16     SELECT PAY_PAYROLL_ACTIONS_S.NEXTVAL,
17 	   PTP.TIME_PERIOD_ID,
18            PAC.DATE_EARNED
19     FROM   PER_TIME_PERIODS PTP,
20            PAY_ASSIGNMENT_ACTIONS PAA,
21            PAY_PAYROLL_ACTIONS PAC
22     WHERE  PTP.PAYROLL_ID = P_PAYROLL_ID
23     AND    P_EFFECTIVE_DATE BETWEEN
24 	   PTP.START_DATE AND PTP.END_DATE
25     AND    PAA.ASSIGNMENT_ACTION_ID = P_ASSIGNMENT_ACTION_ID
26     AND    PAA.PAYROLL_ACTION_ID = PAC.PAYROLL_ACTION_ID;
27 
28 BEGIN
29 
30    OPEN C1;
31     FETCH C1 INTO P_PAYROLL_ACTION_ID, L_TIME_PERIOD_ID, L_DATE_EARNED;
32    CLOSE C1;
33 
34 INSERT INTO PAY_PAYROLL_ACTIONS(PAYROLL_ACTION_ID, ACTION_TYPE,
35 		                BUSINESS_GROUP_ID, CONSOLIDATION_SET_ID,
36 				PAYROLL_ID, ACTION_POPULATION_STATUS,
37 				ACTION_STATUS,EFFECTIVE_DATE, DATE_EARNED,
38 				TIME_PERIOD_ID,
39 				OBJECT_VERSION_NUMBER)
40 
41 			VALUES (P_PAYROLL_ACTION_ID, P_ACTION_TYPE,
42 			        P_BUSINESS_GROUP_ID, P_CONSOLIDATION_SET_ID,
43 				P_PAYROLL_ID, P_ACTION_POPULATION_STATUS,
44 				P_ACTION_STATUS, P_EFFECTIVE_DATE,
45 				L_DATE_EARNED,
46                                 L_TIME_PERIOD_ID, 1);
47 
48 
49      /* now call database package do the reversal */
50 
51     hrassact.reversal(P_PAYROLL_ACTION_ID,P_ASSIGNMENT_ACTION_ID);
52 
53 
54  END INSERT_ROW;
55 
56 END PAY_REVERSE_PAYROLL_PKG;