PACKAGE BODY: APPS.PAY_PAYRPDTR_XMLP_PKG

Source

1 PACKAGE BODY PAY_PAYRPDTR_XMLP_PKG AS
2 /* $Header: PAYRPDTRB.pls 120.0 2008/01/11 07:07:13 srikrish noship $ */
3 
4 function BeforeReport return boolean is
5   l_trace_value varchar2(10);
6 begin
7 
8  --hr_standard.event('BEFORE REPORT');
9 
10  insert into fnd_sessions (session_id,
11                           effective_date)
12  select userenv('sessionid'),
13               trunc(sysdate)
14  from sys.dual
15  where not exists
16       (select 1
17        from   fnd_sessions fs
18        where  fs.session_id = userenv('sessionid'));
19 BEGIN
20 	SELECT parameter_value
21 	INTO l_trace_value
22 	FROM pay_action_parameters
23 	WHERE parameter_name = 'TRACE';
24 
25 	IF l_trace_value = 'Y' THEN
26 		/*srw.do_sql('ALTER SESSION SET SQL_TRACE TRUE');*/null;
27 
28 	END IF;
29 
30 	EXCEPTION
31 		WHEN NO_DATA_FOUND THEN
32 			null;
33 END;
34   return (TRUE);
35 end;
36 
37 function AfterReport return boolean is
38 begin
39   --hr_standard.event('AFTER REPORT');
40   return (TRUE);
41 end;
42 
43 function cf_count_short_nameformula(CS_COUNT_SHORT_NAME in number) return number is
44 begin
45   CP_COUNT_SHORT_NAME := CS_COUNT_SHORT_NAME;
46    RETURN 1;
47 
48 end;
49 
50 function CF_STATUSFormula return Char is
51 begin
52 declare
53 v_meaning VARCHAR2(80);
54 begin
55 select meaning
56 into v_meaning
57 from hr_lookups
58 where lookup_type = 'TRIGGER_STATUS'
59 and lookup_code = P_status;
60 
61 CP_STATUS := v_meaning;
62 
63 return CP_STATUS;
64 end;
65 end;
66 
67 function CF_ENABLED_FLAGFormula return Char is
68 begin
69 declare
70 v_meaning VARCHAR2(80);
71 begin
72 select meaning
73 into v_meaning
74 from hr_lookups
75 where lookup_type = 'YES_NO'
76 and lookup_code = P_enabled_flag;
77 
78 CP_ENABLED_FLAG := v_meaning;
79 
80 return CP_ENABLED_FLAG;
81 end;
82 end;
83 
84 --Functions to refer Oracle report placeholders--
85 
86  Function CP_COUNT_SHORT_NAME_p return number is
87 	Begin
88 	 return CP_COUNT_SHORT_NAME;
89 	 END;
90  Function CP_STATUS_p return varchar2 is
91 	Begin
92 	 return CP_STATUS;
93 	 END;
94  Function CP_ENABLED_FLAG_p return varchar2 is
95 	Begin
96 	 return CP_ENABLED_FLAG;
97 	 END;
98 END PAY_PAYRPDTR_XMLP_PKG ;