PACKAGE BODY: APPS.FA_FAS956_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS956_XMLP_PKG AS
2 /* $Header: FAS956B.pls 120.0.12010000.1 2008/07/28 13:16:11 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 := ':Budget Report:';
30     RETURN(RP_REPORT_NAME);
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 ACCT_BAL_APROMPT_p return varchar2 is
45 	Begin
46 	 return ACCT_BAL_APROMPT;
47 	 END;
48  Function ACCT_CC_APROMPT_p return varchar2 is
49 	Begin
50 	 return ACCT_CC_APROMPT;
51 	 END;
52  Function CAT_MAJ_RPROMPT_p return varchar2 is
53 	Begin
54 	 return CAT_MAJ_RPROMPT;
55 	 END;
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_FAS956_XMLP_PKG ;
65