PACKAGE BODY: APPS.FA_FASPRX_XMLP_PKG

Source

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