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