[Home] [Help]
PACKAGE BODY: APPS.FA_FASRTDBR_XMLP_PKG
Source
1 PACKAGE BODY FA_FASRTDBR_XMLP_PKG AS
2 /* $Header: FASRTDBRB.pls 120.1 2009/07/19 08:48:25 glchen ship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(80);
9 l_conc_program_id NUMBER;
10 BEGIN
11 --Added during DT Fix
12 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
13 --End of DT Fix
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 RP_Report_Name := l_report_name;
31 RETURN(l_report_name);
32
33 EXCEPTION
34 WHEN OTHERS THEN
35 RP_Report_Name := ':Bonus Depreciation Rule Listing:';
36 RETURN(RP_REPORT_NAME);
37 END;
38 RETURN NULL; end;
39
40 function BeforeReport return boolean is
41 begin
42
43 /*SRW.USER_EXIT('FND SRWINIT');*/null;
44 return (TRUE);
45 end;
46
47 function AfterReport return boolean is
48 begin
49
50 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
51 return (TRUE);
52 end;
53
54 --Functions to refer Oracle report placeholders--
55
56 Function RP_COMPANY_NAME_p return varchar2 is
57 Begin
58 return RP_COMPANY_NAME;
59 END;
60 Function RP_REPORT_NAME_p return varchar2 is
61 Begin
62 return RP_REPORT_NAME;
63 END;
64 END FA_FASRTDBR_XMLP_PKG ;
65