1 PACKAGE BODY PAY_PAYRPVPR_XMLP_PKG AS
2 /* $Header: PAYRPVPRB.pls 120.0 2008/01/11 07:08:56 srikrish noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 IF ORDER_OPTIONAL is null THEN
6 ORDER_OPTIONAL:=' ';
7 END IF;
8 IF WHERE_OPTIONAL is null THEN
9 WHERE_OPTIONAL:=' ';
10 END IF;
11
12 RETURN (TRUE);
13 END AFTERPFORM;
14
15 FUNCTION C_PAYMENT_TYPEFORMULA(PAYMENT_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
16 L_PAYMENT_TYPE VARCHAR2(240);
17 BEGIN
18 RETURN (PAYMENT_TYPE);
19 END C_PAYMENT_TYPEFORMULA;
20
21 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
22 CURSOR C_TRACE IS
23 SELECT
24 'x'
25 FROM
26 PAY_ACTION_PARAMETERS
27 WHERE PARAMETER_NAME = 'TRACE'
28 AND PARAMETER_VALUE = 'Y';
29 LV_DUMMY VARCHAR2(1);
30 BEGIN
31 --HR_STANDARD.EVENT('BEFORE REPORT');
32 OPEN C_TRACE;
33 FETCH C_TRACE
34 INTO
35 LV_DUMMY;
36 IF C_TRACE%FOUND THEN
37 EXECUTE IMMEDIATE
38 'alter session set sql_trace=true';
39 END IF;
40 CLOSE C_TRACE;
41 SELECT
42 sysdate
43 INTO
44 C_SESSION_DATE
45 FROM
46 SYS.DUAL;
47 SELECT
48 LEGISLATION_CODE
49 INTO
50 P_UK_US
51 FROM
52 PER_BUSINESS_GROUPS
53 WHERE BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID;
54 C_BUSINESS_GROUP_NAME := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
55 IF P_UK_US = 'US' THEN
56 ORDER_OPTIONAL := ORDER_OPTIONAL || ' ,GRE_name ';
57 P_PAYMENT_TYPE := SUBSTRB(HR_GENERAL.DECODE_LOOKUP('PAY_METHOD_PAYMENT_TYPE'
58 ,'CHECK')
59 ,1
60 ,8);
61 ELSE
62 P_PAYMENT_TYPE := SUBSTRB(HR_GENERAL.DECODE_LOOKUP('PAY_METHOD_PAYMENT_TYPE'
63 ,'CHEQUE')
64 ,1
65 ,8);
66 END IF;
67 IF P_PAYROLL_ID IS NOT NULL THEN
68 WHERE_OPTIONAL := WHERE_OPTIONAL || ' and ppa3.payroll_id = ' || TO_CHAR(P_PAYROLL_ID) || ' ';
69 END IF;
70 IF P_CONSOLIDATION_SET_ID IS NOT NULL THEN
71 WHERE_OPTIONAL := WHERE_OPTIONAL || ' and ppa1.consolidation_set_id = ' || TO_CHAR(P_CONSOLIDATION_SET_ID) || ' ';
72 END IF;
73 IF P_TAX_UNIT_ID IS NOT NULL THEN
74 WHERE_OPTIONAL := WHERE_OPTIONAL || ' and paa2.tax_unit_id = ' || TO_CHAR(P_TAX_UNIT_ID) || ' ';
75 END IF;
76 IF P_CONSOLIDATION_SET_ID IS NOT NULL THEN
77 SELECT
78 PCS.CONSOLIDATION_SET_NAME
79 INTO
80 C_CONSOLIDATION_SET_NAME
81 FROM
82 PAY_CONSOLIDATION_SETS PCS
83 WHERE PCS.CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
84 END IF;
85 IF P_PAYROLL_ID IS NOT NULL THEN
86 C_PAYROLL_NAME := HR_REPORTS.GET_PAYROLL_NAME(C_SESSION_DATE
87 ,P_PAYROLL_ID);
88 END IF;
89 IF P_TAX_UNIT_ID IS NOT NULL THEN
90 SELECT
91 NAME
92 INTO
93 C_GRE_NAME
94 FROM
95 HR_TAX_UNITS_V
96 WHERE TAX_UNIT_ID = P_TAX_UNIT_ID;
97 END IF;
98 RETURN (TRUE);
99 END BEFOREREPORT;
100
101 FUNCTION AFTERREPORT RETURN BOOLEAN IS
102 BEGIN
103 --HR_STANDARD.EVENT('AFTER REPORT');
104 RETURN (TRUE);
105 END AFTERREPORT;
106
107 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
108 BEGIN
109 RETURN C_BUSINESS_GROUP_NAME;
110 END C_BUSINESS_GROUP_NAME_P;
111
112 FUNCTION C_PAYROLL_NAME_P RETURN VARCHAR2 IS
113 BEGIN
114 RETURN C_PAYROLL_NAME;
115 END C_PAYROLL_NAME_P;
116
117 FUNCTION C_CONSOLIDATION_SET_NAME_P RETURN VARCHAR2 IS
118 BEGIN
119 RETURN C_CONSOLIDATION_SET_NAME;
120 END C_CONSOLIDATION_SET_NAME_P;
121
122 FUNCTION C_GRE_NAME_P RETURN VARCHAR2 IS
123 BEGIN
124 RETURN C_GRE_NAME;
125 END C_GRE_NAME_P;
126
127 FUNCTION C_SESSION_DATE_P RETURN DATE IS
128 BEGIN
129 RETURN C_SESSION_DATE;
130 END C_SESSION_DATE_P;
131
132 FUNCTION P_UK_USFormula RETURN VARCHAR2 IS
133 BEGIN
134 RETURN upper(P_UK_US);
135 END P_UK_USFormula;
136
137 END PAY_PAYRPVPR_XMLP_PKG;