PACKAGE BODY: APPS.HXT_HXT970A_XMLP_PKG

Source

1 PACKAGE BODY HXT_HXT970A_XMLP_PKG AS
2 /* $Header: HXT970AB.pls 120.0 2007/12/03 11:53:17 amakrish noship $ */
3   FUNCTION CF_PERIODFORMULA RETURN VARCHAR2 IS
4     PAYROLL VARCHAR2(240);
5     START_D DATE;
6     END_D DATE;
7   BEGIN
8     SELECT
9       PAYROLL_NAME || '   ' || TO_CHAR(PTP.START_DATE
10              ,'YYYY/MM/DD') || '  -  ' || TO_CHAR(PTP.END_DATE
11              ,'YYYY/MM/DD')
12     INTO
13       PAYROLL
14     FROM
15       PER_TIME_PERIODS PTP,
16       PAY_PAYROLLS_F PAY
17     WHERE PTP.TIME_PERIOD_ID = P_TIME_PERIOD_ID
18       AND ( sysdate between PAY.EFFECTIVE_START_DATE
19       AND PAY.EFFECTIVE_END_DATE )
20       AND ( PTP.PAYROLL_ID = PAY.PAYROLL_ID );
21     RETURN (PAYROLL || '   ' || TO_CHAR(START_D
22                   ,'YYYY/MM/DD') || '   ' || TO_CHAR(END_D
23                   ,'YYYY/MM/DD'));
24   END CF_PERIODFORMULA;
25 
26   FUNCTION GET_TIME_PERIODVALIDTRIGGER RETURN BOOLEAN IS
27   BEGIN
28     RETURN (TRUE);
29   END GET_TIME_PERIODVALIDTRIGGER;
30 
31   FUNCTION CF_STATUS1FORMULA(TIMECARD_ID IN NUMBER) RETURN VARCHAR2 IS
32     L_RETURN_CHAR VARCHAR2(1) := NULL;
33     L_ERROR_MSG VARCHAR2(240) := NULL;
34     CURSOR READ_ERRS IS
35       SELECT
36         ERRS.ERROR_MSG
37       FROM
38         HXT_ERRORS_X ERRS
39       WHERE ERRS.TIM_ID = TIMECARD_ID;
40   BEGIN
41     OPEN READ_ERRS;
42     IF READ_ERRS%ISOPEN THEN
43       FETCH READ_ERRS
44        INTO
45          L_ERROR_MSG;
46     END IF;
47     IF READ_ERRS%FOUND THEN
48       L_RETURN_CHAR := 'E';
49     ELSE
50       L_RETURN_CHAR := ' ';
51     END IF;
52     IF READ_ERRS%ISOPEN THEN
53       CLOSE READ_ERRS;
54     END IF;
55     RETURN L_RETURN_CHAR;
56   END CF_STATUS1FORMULA;
57 
58   FUNCTION CF_STATUS2FORMULA(TIMECARD_ID2 IN NUMBER) RETURN VARCHAR2 IS
59     L_RETURN_CHAR VARCHAR2(1) := NULL;
60     L_ERROR_MSG VARCHAR2(240) := NULL;
61     CURSOR READ_ERRS IS
62       SELECT
63         ERRS.ERROR_MSG
64       FROM
65         HXT_ERRORS_X ERRS
66       WHERE ERRS.TIM_ID = TIMECARD_ID2;
67   BEGIN
68     OPEN READ_ERRS;
69     IF READ_ERRS%ISOPEN THEN
70       FETCH READ_ERRS
71        INTO
72          L_ERROR_MSG;
73     END IF;
74     IF READ_ERRS%FOUND THEN
75       L_RETURN_CHAR := 'E';
76     ELSE
77       L_RETURN_CHAR := ' ';
78     END IF;
79     IF READ_ERRS%ISOPEN THEN
80       CLOSE READ_ERRS;
81     END IF;
82     RETURN L_RETURN_CHAR;
83   END CF_STATUS2FORMULA;
84 
85   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
86   BEGIN
87     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
88     RETURN (TRUE);
89   END BEFOREREPORT;
90 
91   FUNCTION AFTERREPORT RETURN BOOLEAN IS
92   BEGIN
93     RETURN (TRUE);
94   END AFTERREPORT;
95 
96 END HXT_HXT970A_XMLP_PKG;