PACKAGE BODY: APPS.FA_FASLSCAL_XMLP_PKG

Source

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