DBA Data[Home] [Help]

PACKAGE BODY: APPS.PAY_PAYGBPAY_XMLP_PKG

Source


1 PACKAGE BODY PAY_PAYGBPAY_XMLP_PKG AS
2 /* $Header: PAYGBPAYB.pls 120.3 2008/03/21 07:23:31 vjaganat noship $ */
3   FUNCTION BEFORE_REPORT_TRIGGER RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8       CP_BUSINESS_GROUP_NAME := RTRIM(SUBSTRB(HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID)
9                                              ,1
10                                              ,240));
11       CP_EARLIEST_PAYMENT := FND_DATE.CANONICAL_TO_DATE(P_PAYMENT_START_DATE);
12       CP_LATEST_PAYMENT := FND_DATE.CANONICAL_TO_DATE(P_PAYMENT_END_DATE);
13     END;
14     BEGIN
15       IF P_CONSOLIDATION_SET_ID IS NULL THEN
16         P_CONSOLIDATION_SET_LINE := '/* No Consolidation Set Condition */';
17       ELSE
18         P_CONSOLIDATION_SET_LINE := 'and ppa.consolidation_set_id =' || (TO_CHAR(P_CONSOLIDATION_SET_ID));
19       END IF;
20       SELECT
21         LEGISLATION_CODE
22       INTO P_LEGISLATION_CODE
23       FROM
24         PER_BUSINESS_GROUPS
25       WHERE BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID;
26       SELECT
27         DISTINCT
28         PAYROLL_NAME
29       INTO CP_PAYROLL_NAME
30       FROM
31         PAY_PAYROLLS_F
32       WHERE PAYROLL_ID = P_PAYROLL_ID;
33       IF P_CONSOLIDATION_SET_ID IS NOT NULL THEN
34         SELECT
35           CONSOLIDATION_SET_NAME
36         INTO CP_CONSOLIDATION_SET_NAME
37         FROM
38           PAY_CONSOLIDATION_SETS
39         WHERE CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
40       ELSE
41         CP_CONSOLIDATION_SET_NAME := NULL;
42       END IF;
43     END;
44     RETURN (TRUE);
45   END BEFORE_REPORT_TRIGGER;
46 
47   FUNCTION CF_CALCULATE_RUNNING_TOTALFORM(CS_RUNNING_TOTAL_AMOUNT_PAID IN NUMBER) RETURN NUMBER IS
48   BEGIN
49     CP_RUNNING_TOTAL_AMOUNT_PAID := CP_RUNNING_TOTAL_AMOUNT_PAID + CS_RUNNING_TOTAL_AMOUNT_PAID;
50     RETURN (0);
51   END CF_CALCULATE_RUNNING_TOTALFORM;
52 
53   FUNCTION CF_RUNNING_TOTAL_NUMBER_PAIDFO(TOTAL_ASSIGNMENTS_PAID IN NUMBER) RETURN NUMBER IS
54   BEGIN
55     CP_RUNNING_TOTAL_NUMBER_PAID := CP_RUNNING_TOTAL_NUMBER_PAID + TOTAL_ASSIGNMENTS_PAID;
56     RETURN (0);
57   END CF_RUNNING_TOTAL_NUMBER_PAIDFO;
58 
59   FUNCTION AFTERREPORT RETURN BOOLEAN IS
60   BEGIN
61     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
62     RETURN (TRUE);
63   END AFTERREPORT;
64 
65   FUNCTION CP_RUNNING_TOTAL_NUMBER_PAID_P RETURN NUMBER IS
66   BEGIN
67     RETURN CP_RUNNING_TOTAL_NUMBER_PAID;
68   END CP_RUNNING_TOTAL_NUMBER_PAID_P;
69 
70   FUNCTION CP_RUNNING_TOTAL_AMOUNT_PAID_P RETURN NUMBER IS
71   BEGIN
72     RETURN CP_RUNNING_TOTAL_AMOUNT_PAID;
73   END CP_RUNNING_TOTAL_AMOUNT_PAID_P;
74 
75   FUNCTION CP_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
76   BEGIN
77     RETURN CP_BUSINESS_GROUP_NAME;
78   END CP_BUSINESS_GROUP_NAME_P;
79 
80   FUNCTION CP_PAYROLL_NAME_P RETURN VARCHAR2 IS
81   BEGIN
82     RETURN CP_PAYROLL_NAME;
83   END CP_PAYROLL_NAME_P;
84 
85   FUNCTION CP_CONSOLIDATION_SET_LINE_P RETURN VARCHAR2 IS
86   BEGIN
87     RETURN CP_CONSOLIDATION_SET_LINE;
88   END CP_CONSOLIDATION_SET_LINE_P;
89 
90   FUNCTION CP_CONSOLIDATION_SET_NAME_P RETURN VARCHAR2 IS
91   BEGIN
92     RETURN CP_CONSOLIDATION_SET_NAME;
93   END CP_CONSOLIDATION_SET_NAME_P;
94 
95   FUNCTION CP_EARLIEST_PAYMENT_P RETURN VARCHAR2 IS
96   BEGIN
97     RETURN CP_EARLIEST_PAYMENT;
98   END CP_EARLIEST_PAYMENT_P;
99 
100   FUNCTION CP_LATEST_PAYMENT_P RETURN VARCHAR2 IS
101   BEGIN
102     RETURN CP_LATEST_PAYMENT;
103   END CP_LATEST_PAYMENT_P;
104 
105 END PAY_PAYGBPAY_XMLP_PKG;
106