PACKAGE BODY: APPS.PER_PERHKCEL_XMLP_PKG

Source

1 PACKAGE BODY PER_PERHKCEL_XMLP_PKG AS
2 /* $Header: PERHKCELB.pls 120.0 2007/12/13 07:21:48 amakrish noship $ */
3   USER_EXIT_FAILURE EXCEPTION;
4 
5   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
6     L_PARAM_DISPLAY_1 HR_HK_LEGAL_EMPLOYER_V.NAME%TYPE;
7     L_TEMP VARCHAR2(60);
8   BEGIN
9   --  HR_STANDARD.EVENT('BEFORE REPORT');
10     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11     IF P_LEGAL_EMPLOYER IS NOT NULL THEN
12       L_TEMP := TO_CHAR(TO_NUMBER(P_LEGAL_EMPLOYER));
13       CP_WHERE_CLAUSE := 'and hscf.segment1 = to_char(' || L_TEMP || ' )';
14       BEGIN
15         SELECT
16           LE.NAME
17         INTO
18           L_PARAM_DISPLAY_1
19         FROM
20           HR_HK_LEGAL_EMPLOYER_V LE
21         WHERE GRE_ID = P_LEGAL_EMPLOYER;
22         CP_LE_DISP_PARAM := L_PARAM_DISPLAY_1;
23       EXCEPTION
24         WHEN NO_DATA_FOUND THEN
25           NULL;
26       END;
27     ELSE
28       CP_LE_DISP_PARAM := '%';
29     END IF;
30   P_EFFECTIVE_DATE_1  :=   P_EFFECTIVE_DATE;
31 
32     RETURN (TRUE);
33   EXCEPTION
34     WHEN USER_EXIT_FAILURE THEN
35       BEGIN
36         RAISE_APPLICATION_ERROR(-20101
37                                ,NULL);
38       END;
39   END BEFOREREPORT;
40 
41   FUNCTION AFTERREPORT RETURN BOOLEAN IS
42   BEGIN
43   --  HR_STANDARD.EVENT('AFTER REPORT');
44     RETURN (TRUE);
45   END AFTERREPORT;
46 
47   FUNCTION CP_WHERE_CLAUSE_P RETURN VARCHAR2 IS
48   BEGIN
49     RETURN CP_WHERE_CLAUSE;
50   END CP_WHERE_CLAUSE_P;
51 
52   FUNCTION CP_LE_DISP_PARAM_P RETURN VARCHAR2 IS
53   BEGIN
54     RETURN CP_LE_DISP_PARAM;
55   END CP_LE_DISP_PARAM_P;
56 
57 END PER_PERHKCEL_XMLP_PKG;