1 PACKAGE BODY PAY_PAYRPFAR_XMLP_PKG AS
2 /* $Header: PAYRPFARB.pls 120.1 2008/01/11 10:11:25 srikrish noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_TRACE_VALUE VARCHAR2(10);
5 BEGIN
6 --HR_STANDARD.EVENT('BEFORE REPORT');
7 INSERT INTO FND_SESSIONS
8 (SESSION_ID
9 ,EFFECTIVE_DATE)
10 SELECT
11 USERENV('sessionid'),
12 TRUNC(SYSDATE)
13 FROM
14 SYS.DUAL
15 WHERE not exists (
16 SELECT
17 1
18 FROM
19 FND_SESSIONS FS
20 WHERE FS.SESSION_ID = USERENV('sessionid') );
21 BEGIN
22 SELECT
23 PARAMETER_VALUE
24 INTO
25 L_TRACE_VALUE
26 FROM
27 PAY_ACTION_PARAMETERS
28 WHERE PARAMETER_NAME = 'TRACE';
29 IF L_TRACE_VALUE = 'Y' THEN
30 EXECUTE IMMEDIATE
31 'ALTER SESSION SET SQL_TRACE TRUE';
32 END IF;
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 NULL;
36 END;
37 RETURN (TRUE);
38 END BEFOREREPORT;
39
40 FUNCTION AFTERREPORT RETURN BOOLEAN IS
41 BEGIN
42 --HR_STANDARD.EVENT('AFTER REPORT');
43 RETURN (TRUE);
44 END AFTERREPORT;
45
46 FUNCTION CF_COUNT_SHORT_NAMEFORMULA(CS_COUNT_SHORT_NAME IN NUMBER) RETURN NUMBER IS
47 BEGIN
48 CP_COUNT_SHORT_NAME := CS_COUNT_SHORT_NAME;
49 RETURN 1;
50 END CF_COUNT_SHORT_NAMEFORMULA;
51
52 FUNCTION CF_STATUSFORMULA RETURN CHAR IS
53 BEGIN
54 DECLARE
55 V_MEANING VARCHAR2(80);
56 BEGIN
57 SELECT
58 MEANING
59 INTO
60 V_MEANING
61 FROM
62 HR_LOOKUPS
63 WHERE LOOKUP_TYPE = 'TRIGGER_STATUS'
64 AND LOOKUP_CODE = P_STATUS;
65 CP_STATUS := V_MEANING;
66 RETURN CP_STATUS;
67 END;
68 END CF_STATUSFORMULA;
69
70 FUNCTION CF_ENABLED_FLAGFORMULA RETURN CHAR IS
71 BEGIN
72 DECLARE
73 V_MEANING VARCHAR2(80);
74 BEGIN
75 SELECT
76 MEANING
77 INTO
78 V_MEANING
79 FROM
80 HR_LOOKUPS
81 WHERE LOOKUP_TYPE = 'YES_NO'
82 AND LOOKUP_CODE = P_ENABLED_FLAG;
83 CP_ENABLED_FLAG := V_MEANING;
84 RETURN CP_ENABLED_FLAG;
85 END;
86 END CF_ENABLED_FLAGFORMULA;
87
88 FUNCTION CP_COUNT_SHORT_NAME_P RETURN NUMBER IS
89 BEGIN
90 RETURN CP_COUNT_SHORT_NAME;
91 END CP_COUNT_SHORT_NAME_P;
92
93 FUNCTION CP_ENABLED_FLAG_P RETURN VARCHAR2 IS
94 BEGIN
95 RETURN CP_ENABLED_FLAG;
96 END CP_ENABLED_FLAG_P;
97
98 FUNCTION CP_STATUS_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN CP_STATUS;
101 END CP_STATUS_P;
102
103
104
105 END PAY_PAYRPFAR_XMLP_PKG;