PACKAGE BODY: APPS.FA_FASEXPRP_XMLP_PKG

Source

1 PACKAGE BODY FA_FASEXPRP_XMLP_PKG AS
2 /* $Header: FASEXPRPB.pls 120.0.12010000.1 2008/07/28 13:16:38 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   RP_Company_Name := Company_Name;
13 
14   SELECT cr.concurrent_program_id
15   INTO l_conc_program_id
16   FROM FND_CONCURRENT_REQUESTS cr
17   WHERE cr.program_application_id = 140
18   AND   cr.request_id = P_CONC_REQUEST_ID;
19 
20   SELECT cp.user_concurrent_program_name
21   INTO   l_report_name
22   FROM    FND_CONCURRENT_PROGRAMS_VL cp
23   WHERE
24       cp.concurrent_program_id= l_conc_program_id
25   and cp.application_id = 140;
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 := ':Expensed Property Report:';
33     RETURN(RP_REPORT_NAME);
34 END;
35 RETURN NULL; end;
36 
37 function BeforeReport return boolean is
38 begin
39 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
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 --Functions to refer Oracle report placeholders--
52 
53  Function ACCT_BAL_APROMPT_p return varchar2 is
54 	Begin
55 	 return ACCT_BAL_APROMPT;
56 	 END;
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  Function RP_BAL_LPROMPT_p return varchar2 is
66 	Begin
67 	 return RP_BAL_LPROMPT;
68 	 END;
69 END FA_FASEXPRP_XMLP_PKG ;
70