1 PACKAGE BODY PAY_PYAULLAL_XMLP_PKG AS
2 /* $Header: PYAULLALB.pls 120.0 2007/12/13 12:14:26 amakrish noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 CURSOR C_CURRENCY IS
5 SELECT
6 CURRENCY_CODE,
7 PRECISION
8 FROM
9 FND_CURRENCIES
10 WHERE ISSUING_TERRITORY_CODE in (
11 SELECT
12 I.ORG_INFORMATION9
13 FROM
14 HR_ORGANIZATION_INFORMATION I
15 WHERE I.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
16 AND I.ORG_INFORMATION_CONTEXT = 'Business Group Information' );
17 L_CURRENCY C_CURRENCY%ROWTYPE;
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 OPEN C_CURRENCY;
21 FETCH C_CURRENCY
22 INTO
23 L_CURRENCY;
24 IF C_CURRENCY%FOUND THEN
25 CP_CURRENCY_CODE := '(' || L_CURRENCY.CURRENCY_CODE || ')';
26 CP_CURRENCY_FORMAT := FND_CURRENCY.GET_FORMAT_MASK(L_CURRENCY.CURRENCY_CODE
27 ,20);
28 CP_PRECISION := L_CURRENCY.PRECISION;
29 END IF;
30 CLOSE C_CURRENCY;
31 RETURN (TRUE);
32 END BEFOREREPORT;
33
34 FUNCTION AFTERREPORT RETURN BOOLEAN IS
35 BEGIN
36 RETURN (TRUE);
37 END AFTERREPORT;
38
39 FUNCTION CF_TOTAL_VALUEFORMULA(ENTITLEMENT_VALUE IN NUMBER
40 ,ACCRUAL_VALUE IN NUMBER) RETURN NUMBER IS
41 BEGIN
42 RETURN NVL(ENTITLEMENT_VALUE
43 ,0) + NVL(ACCRUAL_VALUE
44 ,0);
45 END CF_TOTAL_VALUEFORMULA;
46
47 FUNCTION CF_BUSINESS_GROUP_IDFORMULA RETURN VARCHAR2 IS
48 V_BUSINESS_GROUP HR_ALL_ORGANIZATION_UNITS.NAME%TYPE;
49 BEGIN
50 V_BUSINESS_GROUP := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
51 RETURN V_BUSINESS_GROUP;
52 END CF_BUSINESS_GROUP_IDFORMULA;
53
54 FUNCTION CF_PAYROLL_ACTIONFORMULA RETURN VARCHAR2 IS
55 CURSOR C_PAYROLL_ACTION_DESC IS
56 SELECT
57 TO_CHAR(EFFECTIVE_DATE
58 ,'DD-MON-YYYY') || ' (' || TO_CHAR(PAYROLL_ACTION_ID) || ')' PAYROLL_ACTION_DESC
59 FROM
60 PAY_PAYROLL_ACTIONS
61 WHERE PAYROLL_ACTION_ID = P_PAYROLL_ACTION_ID;
62 L_PAYROLL_ACTION_DESC VARCHAR2(60);
63 BEGIN
64 OPEN C_PAYROLL_ACTION_DESC;
65 FETCH C_PAYROLL_ACTION_DESC
66 INTO
67 L_PAYROLL_ACTION_DESC;
68 CLOSE C_PAYROLL_ACTION_DESC;
69 RETURN L_PAYROLL_ACTION_DESC;
70 END CF_PAYROLL_ACTIONFORMULA;
71
72 FUNCTION CF_PAYROLLFORMULA RETURN VARCHAR2 IS
73 L_PAYROLL PAY_PAYROLLS_F.PAYROLL_NAME%TYPE;
74 CURSOR C_PAYROLL IS
75 SELECT
76 PAYROLL_NAME
77 FROM
78 PAY_PAYROLLS_F
79 WHERE PAYROLL_ID = P_PAYROLL;
80 BEGIN
81 OPEN C_PAYROLL;
82 FETCH C_PAYROLL
83 INTO
84 L_PAYROLL;
85 CLOSE C_PAYROLL;
86 RETURN L_PAYROLL;
87 END CF_PAYROLLFORMULA;
88
89 FUNCTION CF_COST_CENTREFORMULA RETURN VARCHAR2 IS
90 L_COST_CENTRE PAY_COST_ALLOCATION_KEYFLEX.CONCATENATED_SEGMENTS%TYPE;
91 CURSOR C_COST_CENTRE IS
92 SELECT
93 CONCATENATED_SEGMENTS
94 FROM
95 PAY_COST_ALLOCATION_KEYFLEX
96 WHERE COST_ALLOCATION_KEYFLEX_ID = P_COST_ALLOCATION_KEYFLEX_ID;
97 BEGIN
98 OPEN C_COST_CENTRE;
99 FETCH C_COST_CENTRE
100 INTO
101 L_COST_CENTRE;
102 CLOSE C_COST_CENTRE;
103 RETURN L_COST_CENTRE;
104 END CF_COST_CENTREFORMULA;
105
106 FUNCTION CP_CURRENCY_FORMAT_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN CP_CURRENCY_FORMAT;
109 END CP_CURRENCY_FORMAT_P;
110
111 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN CP_CURRENCY_CODE;
114 END CP_CURRENCY_CODE_P;
115
116 FUNCTION CP_PRECISION_P RETURN NUMBER IS
117 BEGIN
118 RETURN CP_PRECISION;
119 END CP_PRECISION_P;
120
121 END PAY_PYAULLAL_XMLP_PKG;