PACKAGE BODY: APPS.FA_FASPARAS_XMLP_PKG

Source

1 PACKAGE BODY FA_FASPARAS_XMLP_PKG AS
2 /* $Header: FASPARASB.pls 120.0.12010000.1 2008/07/28 13:17:11 appldev ship $ */
3 
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
7 
8 DECLARE
9   l_report_name VARCHAR2(80);
10 BEGIN
11   RP_Company_Name := Company_Name;
12   SELECT cp.user_concurrent_program_name
13   INTO   l_report_name
14   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
15          FND_CONCURRENT_REQUESTS cr
16   WHERE  cr.request_id = P_CONC_REQUEST_ID
17   AND    cp.application_id = cr.program_application_id
18   AND    cp.concurrent_program_id=cr.concurrent_program_id;
19 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
20   RP_Report_Name := l_report_name;
21   RETURN(l_report_name);
22 
23 EXCEPTION
24   WHEN OTHERS THEN
25     RP_Report_Name := ':PARENT ASSET REPORT:';
26     RETURN(RP_REPORT_NAME);
27 END;
28 RETURN NULL; end;
29 
30 function BeforeReport return boolean is
31 begin
32 
33 /*SRW.USER_EXIT('FND SRWINIT');*/null;
34   return (TRUE);
35 end;
36 
37 function AfterReport return boolean is
38 begin
39 
40 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
41   return (TRUE);
42 end;
43 
44 --Functions to refer Oracle report placeholders--
45 
46  Function RP_COMPANY_NAME_p return varchar2 is
47 	Begin
48 	 return RP_COMPANY_NAME;
49 	 END;
50  Function RP_REPORT_NAME_p return varchar2 is
51 	Begin
52 	 return RP_REPORT_NAME;
53 	 END;
54 END FA_FASPARAS_XMLP_PKG ;
55