PACKAGE BODY: APPS.FA_FASLSPRC_XMLP_PKG

Source

1 PACKAGE BODY FA_FASLSPRC_XMLP_PKG AS
2 /* $Header: FASLSPRCB.pls 120.0.12010000.1 2008/07/28 13:16:53 appldev ship $ */
3 
4 function report_nameformula(Company_Name in varchar2, START_DATE in date, END_DATE in date) return varchar2 is
5 begin
6 
7 DECLARE
8   l_report_name VARCHAR2(80);
9 BEGIN
10 --Added during DT Fix
11 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
12 --End of DT Fix
13   RP_Company_Name := Company_Name;
14 
15   RP_START_DATE := START_DATE;
16   RP_END_DATE := END_DATE;
17 
18   SELECT cp.user_concurrent_program_name
19   INTO   l_report_name
20   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
21          FND_CONCURRENT_REQUESTS cr
22   WHERE  cr.request_id = P_CONC_REQUEST_ID
23   AND    cp.application_id = cr.program_application_id
24   AND    cp.concurrent_program_id=cr.concurrent_program_id;
25 
26   l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
27   RP_Report_Name := l_report_name;
28   RETURN(l_report_name);
29 
30 EXCEPTION
31   WHEN OTHERS THEN
32     RP_Report_Name := 'REPORT TITLE';
33     RETURN('REPORT TITLE');
34 END;
35 RETURN NULL; end;
36 
37 function BeforeReport return boolean is
38 begin
39 
40 /*SRW.USER_EXIT('FND SRWINIT');*/null;
41   return (TRUE);
42 end;
43 
44 function AfterReport return boolean is
45 begin
46 
47 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
48   return (TRUE);
49 end;
50 
51 function G_PRO_CONVGroupFilter return boolean is
52 begin
53 
54 RP_DATA_FOUND := 'YES';  return (TRUE);
55 end;
56 
57 function G_PRO_DATESGroupFilter return boolean is
58 begin
59 
60 RP_DATA_FOUND := 'YES';  return (TRUE);
61 end;
62 
63 --Functions to refer Oracle report placeholders--
64 
65  Function RP_COMPANY_NAME_p return varchar2 is
66 	Begin
67 	 return RP_COMPANY_NAME;
68 	 END;
69  Function RP_REPORT_NAME_p return varchar2 is
70 	Begin
71 	 return RP_REPORT_NAME;
72 	 END;
73  Function RP_START_DATE_p return date is
74 	Begin
75 	 return RP_START_DATE;
76 	 END;
77  Function RP_END_DATE_p return date is
78 	Begin
79 	 return RP_END_DATE;
80 	 END;
81  Function RP_DATA_FOUND_p return varchar2 is
82 	Begin
83 	 return RP_DATA_FOUND;
84 	 END;
85 END FA_FASLSPRC_XMLP_PKG ;
86