PACKAGE BODY: APPS.PER_PERRPGEN_XMLP_PKG

Source

1 PACKAGE BODY PER_PERRPGEN_XMLP_PKG AS
2 /* $Header: PERGENRPB.pls 120.1 2007/12/06 11:26:14 amakrish noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6 
7 begin
8 
9 
10 --hr_standard.event('BEFORE REPORT');
11 
12  c_business_group_name :=
13    hr_reports.get_business_group(p_business_group_id);
14 
15 end;
16 
17 
18 declare
19 cursor c1 is
20 select line_content from per_generic_report_output
21 where line_type = 'H';
22 
23 cursor c2 is
24 select line_content from per_generic_report_output
25 where line_type = 'F';
26 
27 cursor c3 is
28 select line_content from per_generic_report_output
29 where line_type = 'T';
30 
31 begin
32 per_generic_report_pkg.generate_report
33                       ( P_Report_Name,
34 		        P_PARAM_1,
35 			P_PARAM_2,
36 			P_PARAM_3,
37 			P_PARAM_4,
38 			P_PARAM_5,
39 			P_PARAM_6,
40 			P_PARAM_7,
41 			P_PARAM_8,
42 			P_PARAM_9,
43 			P_PARAM_10,
44 			P_PARAM_11,
45 			P_PARAM_12);
46 commit;
47 open c1;
48 fetch c1 into P_Header;
49 if c1%notfound then
50 
51 P_Header := '';
52 end if;
53 close c1;
54 open c2;
55 fetch c2 into P_footer;
56 if c2%notfound then
57 P_Footer := '';
58 end if;
59 close c2;
60 open c3;
61 fetch c3 into P_Title;
62 if c3%notfound then
63 P_Title := '';
64 end if;
65 close c3;
66 end;  return (TRUE);
67 end;
68 
69 function BeforePForm return boolean is
70 begin
71 
72 
73 
74   return (TRUE);
75 end;
76 
77 function AfterReport return boolean is
78 begin
79 
80 --hr_standard.event('AFTER REPORT');
81 
82   return (TRUE);
83 end;
84 
85 --Functions to refer Oracle report placeholders--
86 
87  Function C_BUSINESS_GROUP_NAME_p return varchar2 is
88 	Begin
89 	 return C_BUSINESS_GROUP_NAME;
90 	 END;
91  Function C_REPORT_SUBTITLE_p return varchar2 is
92 	Begin
93 	 return C_REPORT_SUBTITLE;
94 	 END;
95 END PER_PERRPGEN_XMLP_PKG ;