PACKAGE BODY: APPS.SSP_SSPRPWKS_XMLP_PKG

Source

1 PACKAGE BODY SSP_SSPRPWKS_XMLP_PKG AS
2 /* $Header: SSPRPWKSB.pls 120.1 2007/12/24 14:08:01 amakrish noship $ */
3 
4 --Added during DT Fix
5 
6 procedure Fetch_Payroll_name is
7 
8 cursor payroll_name_cursor is
9 
10     select PAYROLL_NAME
11     from pay_payrolls_x
12     where PAYROLL_ID = P_PAYROLL;
13 
14 
15 begin
16     open payroll_name_cursor;
17     fetch payroll_name_cursor into C_PAYROLL_NAME;
18     close payroll_name_cursor;
19 end Fetch_Payroll_name;
20 
21 procedure Fetch_Business_group_name is
22 begin
23 
24     c_business_group_name :=
25      hr_reports.get_business_group(p_business_group_id);
26 end Fetch_Business_group_name;
27 
28 --End of DT Fix
29 
30 function BeforeReport return boolean is
31 begin
32 
33 begin
34 
35  /*srw.user_exit('FND SRWINIT');*/null;
36 
37 /*
38 Below lines commented during DT Fixes
39  ssprpelr.Fetch_Business_group_name;
40 ssprpelr.Fetch_Payroll_name;
41 
42 End of commenting */
43 
44 --Added below lines during DT Fix
45 Fetch_Business_group_name;
46 Fetch_Payroll_name;
47 --End of DT Fix
48 
49 if P_PAYROLL is not null then
50    L_PAYROLL_ID := 'and O_pas.PAYROLL_ID + 0 = '||to_char(P_PAYROLL);
51 else
52    L_PAYROLL_ID :=null;
53 end if;
54 fnd_date.initialize('YYYY/MM/DD',null);
55 
56 --Added below lines during DT Fix
57 if L_PAYROLL_ID is null then
58 L_PAYROLL_ID := ' ';
59 end if;
60 --End of DT Fix
61 
62 LP_SESSION_DATE:=P_SESSION_DATE;
63 end;  return (TRUE);
64 end;
65 
66 function AfterReport return boolean is
67 begin
68   /*srw.user_exit('FND SRWEXIT') ;*/null;
69    return (TRUE);
70 end;
71 
72 --Functions to refer Oracle report placeholders--
73 
74  Function C_BUSINESS_GROUP_NAME_p return varchar2 is
75 	Begin
76 	 return C_BUSINESS_GROUP_NAME;
77 	 END;
78  Function C_REPORT_SUBTITLE_p return varchar2 is
79 	Begin
80 	 return C_REPORT_SUBTITLE;
81 	 END;
82  Function C_PAYROLL_NAME_p return varchar2 is
83 	Begin
84 	 return C_PAYROLL_NAME;
85 	 END;
86 END SSP_SSPRPWKS_XMLP_PKG ;