PACKAGE BODY: APPS.PAY_REVERSE_PAYROLL_PKG

Source

1 PACKAGE BODY PAY_REVERSE_PAYROLL_PKG  AS
2 /* $Header: pypra03t.pkb 120.0 2010/06/23 15:13:44 phattarg noship $ */
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.TIME_PERIOD_ID,
19            PAC.DATE_EARNED
20     FROM   -- PER_TIME_PERIODS PTP,
21            PAY_ASSIGNMENT_ACTIONS PAA,
22            PAY_PAYROLL_ACTIONS PAC
23     WHERE  -- PTP.PAYROLL_ID = P_PAYROLL_ID
24     -- AND    P_EFFECTIVE_DATE BETWEEN
25 	--        PTP.START_DATE AND PTP.END_DATE
26     -- AND
27     PAA.ASSIGNMENT_ACTION_ID = P_ASSIGNMENT_ACTION_ID
28     AND    PAA.PAYROLL_ACTION_ID = PAC.PAYROLL_ACTION_ID;
29 
30 BEGIN
31 
32    OPEN C1;
33     FETCH C1 INTO P_PAYROLL_ACTION_ID, L_TIME_PERIOD_ID, L_DATE_EARNED;
34    CLOSE C1;
35 
36 INSERT INTO PAY_PAYROLL_ACTIONS(PAYROLL_ACTION_ID, ACTION_TYPE,
37 		                BUSINESS_GROUP_ID, CONSOLIDATION_SET_ID,
38 				PAYROLL_ID, ACTION_POPULATION_STATUS,
39 				ACTION_STATUS,EFFECTIVE_DATE, DATE_EARNED,
40 				TIME_PERIOD_ID,
41 				OBJECT_VERSION_NUMBER)
42 
43 			VALUES (P_PAYROLL_ACTION_ID, P_ACTION_TYPE,
44 			        P_BUSINESS_GROUP_ID, P_CONSOLIDATION_SET_ID,
45 				P_PAYROLL_ID, P_ACTION_POPULATION_STATUS,
46 				P_ACTION_STATUS, P_EFFECTIVE_DATE,
47 				L_DATE_EARNED,
48                                 L_TIME_PERIOD_ID, 1);
49 
50 
51      /* now call database package do the reversal */
52 
53     hrassact.reversal(P_PAYROLL_ACTION_ID,P_ASSIGNMENT_ACTION_ID);
54 
55 
56  END INSERT_ROW;
57 
58 /*This procedure is called from the executable PYREVPAY within the 'Cancel Check' flow*/
59 
60  PROCEDURE INSERT_ROW(p_errmsg            OUT NOCOPY VARCHAR2,
61             p_errcode           OUT NOCOPY NUMBER,
62             P_ACTION_TYPE                    VARCHAR2,
63 			P_BUSINESS_GROUP_ID              NUMBER,
64             P_CONSOLIDATION_SET_ID           NUMBER,
65 			P_PAYROLL_ID			 NUMBER,
66 	        P_ACTION_POPULATION_STATUS       VARCHAR2,
67 			P_ACTION_STATUS                  VARCHAR2,
68 			P_EFFECTIVE_DATE                 varchar2,
69 			P_ASSIGNMENT_ACTION_ID           NUMBER)
70 IS
71 BEGIN
72 
73 PAY_REVERSE_PAYROLL_PKG.INSERT_ROW(
74             P_ACTION_TYPE                    ,
75 			P_BUSINESS_GROUP_ID             ,
76             P_CONSOLIDATION_SET_ID          ,
77 			P_PAYROLL_ID			 ,
78 		    P_ACTION_POPULATION_STATUS       ,
79 			P_ACTION_STATUS                 ,
80 			TRUNC(FND_DATE.canonical_to_date(P_EFFECTIVE_DATE))                ,
81 			P_ASSIGNMENT_ACTION_ID         );
82 
83 END INSERT_ROW;
84 END PAY_REVERSE_PAYROLL_PKG;