PACKAGE BODY: APPS.PER_PERCACEI_XMLP_PKG

Source

1 PACKAGE BODY PER_PERCACEI_XMLP_PKG AS
2 /* $Header: PERCACEIB.pls 120.0 2007/12/28 06:52:58 srikrish noship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4   BEGIN
5     P_SORT_COUNT := 0;
6     COL1 := 'null';
7     COL2 := 'null';
8     P_SORT_TAG := '';
9     IF P_SORT1 IS NULL THEN
10       COL1 := '3';
11       COL2 := '2';
12     ELSE
13       IF P_SORT1 = 'Social Insurance Number' THEN
14         COL1 := '2';
15         P_SORT_COUNT := 1;
16       ELSIF P_SORT1 = 'Employee ID' THEN
17         COL1 := '4';
18         P_SORT_COUNT := 1;
19       ELSIF P_SORT1 = 'Hire Date' THEN
20         COL1 := '3';
21         P_SORT_COUNT := 1;
22       END IF;
23       IF P_SORT2 = 'Social Insurance Number' THEN
24         COL2 := '2';
25         P_SORT_COUNT := 2;
26       ELSIF P_SORT2 = 'Employee ID' THEN
27         COL2 := '4';
28         P_SORT_COUNT := 2;
29       ELSIF P_SORT2 = 'Hire Date' THEN
30         COL2 := '3';
31         P_SORT_COUNT := 2;
32       END IF;
33     END IF;
34     IF P_SORT_COUNT = 0 THEN
35       P_SORT_TAG := COL1 || ', ' || COL2;
36     ELSE
37       IF P_SORT_COUNT = 1 THEN
38         P_SORT_TAG := COL1;
39       ELSE
40         IF P_SORT_COUNT = 2 THEN
41           P_SORT_TAG := COL1 || ', ' || COL2;
42         END IF;
43       END IF;
44     END IF;
45     BEGIN
46       INSERT INTO FND_SESSIONS
47         (SESSION_ID
48         ,EFFECTIVE_DATE)
49         SELECT
50           USERENV('sessionid'),
51           P_ENDING_HIRED_DATE
52         FROM
53           SYS.DUAL
54         WHERE not exists (
55           SELECT
56             1
57           FROM
58             FND_SESSIONS FS
59           WHERE FS.SESSION_ID = USERENV('sessionid')
60             AND FS.EFFECTIVE_DATE = P_ENDING_HIRED_DATE );
61       COMMIT;
62     END;
63     RETURN (TRUE);
64   END AFTERPFORM;
65 
66   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
67   BEGIN
68     --HR_STANDARD.EVENT('BEFORE REPORT');
69     CP_REPORT_TITLE := 'REPORT ON HIRINGS';
70     IF P_CONSOLIDATION_SET_ID IS NOT NULL THEN
71       SELECT
72         CONSOLIDATION_SET_NAME
73       INTO
74         CP_CONSOLIDATION
75       FROM
76         PAY_CONSOLIDATION_SETS
77       WHERE CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
78     END IF;
79     IF P_PAYROLL_ID IS NOT NULL THEN
80       SELECT
81         PAYROLL_NAME
82       INTO
83         CP_PAYROLL_NAME
84       FROM
85         PAY_PAYROLLS_F
86       WHERE PAYROLL_ID = P_PAYROLL_ID;
87     END IF;
88     IF P_TAX_UNIT_ID IS NOT NULL THEN
89       SELECT
90         LTRIM(RTRIM(SUBSTR(NAME
91                           ,1
92                           ,50)))
93       INTO
94         CP_GRE
95       FROM
96         HR_TAX_UNITS_V
97       WHERE TAX_UNIT_ID = P_TAX_UNIT_ID;
98     END IF;
99     RETURN (TRUE);
100   END BEFOREREPORT;
101 
102   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
103   BEGIN
104     RETURN (TRUE);
105   END BEFOREPFORM;
106 
107   FUNCTION AFTERREPORT RETURN BOOLEAN IS
108   BEGIN
109    -- HR_STANDARD.EVENT('AFTER REPORT');
110     RETURN (TRUE);
111   END AFTERREPORT;
112 
113   FUNCTION CP_REPORT_TITLE_P RETURN VARCHAR2 IS
114   BEGIN
115     RETURN CP_REPORT_TITLE;
116   END CP_REPORT_TITLE_P;
117 
118   FUNCTION CP_CONSOLIDATION_P RETURN VARCHAR2 IS
119   BEGIN
120     RETURN CP_CONSOLIDATION;
121   END CP_CONSOLIDATION_P;
122 
123   FUNCTION CP_PAYROLL_NAME_P RETURN VARCHAR2 IS
124   BEGIN
125     RETURN CP_PAYROLL_NAME;
126   END CP_PAYROLL_NAME_P;
127 
128   FUNCTION CP_GRE_P RETURN VARCHAR2 IS
129   BEGIN
130     RETURN CP_GRE;
131   END CP_GRE_P;
132 
133 END PER_PERCACEI_XMLP_PKG;