PACKAGE BODY: APPS.FA_FAS720_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS720_XMLP_PKG AS
2 /* $Header: FAS720B.pls 120.0.12010000.1 2008/07/28 13:15:17 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   RP_Company_Name := Company_Name;
10   SELECT cr.concurrent_program_id
11   INTO l_conc_program_id
12   FROM FND_CONCURRENT_REQUESTS cr
13   WHERE cr.program_application_id = 140
14   AND   cr.request_id = P_CONC_REQUEST_ID;
15   SELECT cp.user_concurrent_program_name
16   INTO   l_report_name
17   FROM    FND_CONCURRENT_PROGRAMS_VL cp
18   WHERE
19       cp.concurrent_program_id= l_conc_program_id
20   and cp.application_id = 140;
21 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
22   RP_Report_Name := l_report_name;
23   RETURN(l_report_name);
24 EXCEPTION
25   WHEN OTHERS THEN
26     RP_Report_Name := ':Asset Tag Listing:';
27     RETURN(RP_Report_Name);
28 END;
29 RETURN NULL; end;
30 function BeforeReport return boolean is
31 begin
32  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
33 /*SRW.USER_EXIT('FND SRWINIT');*/null;
34   return (TRUE);
35 end;
36 function AfterReport return boolean is
37 begin
38 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
39   return (TRUE);
40 end;
41 --Functions to refer Oracle report placeholders--
42  Function CAT_MAJ_RPROMPT_p return varchar2 is
43 	Begin
44 	 return CAT_MAJ_RPROMPT;
45 	 END;
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_FAS720_XMLP_PKG ;
55