PACKAGE BODY: APPS.FA_FAS930_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS930_XMLP_PKG AS
2 /* $Header: FAS930B.pls 120.0.12010000.1 2008/07/28 13:16:06 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2, CURRENCY_CODE 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   RP_CURRENCY_CODE := CURRENCY_CODE;
11   SELECT cr.concurrent_program_id
12   INTO l_conc_program_id
13   FROM FND_CONCURRENT_REQUESTS cr
14   WHERE cr.program_application_id = 140
15   AND   cr.request_id = P_CONC_REQUEST_ID;
16   SELECT cp.user_concurrent_program_name
17   INTO   l_report_name
18   FROM    FND_CONCURRENT_PROGRAMS_VL cp
19   WHERE
20       cp.concurrent_program_id= l_conc_program_id
21   and cp.application_id = 140;
22  l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
23   RP_Report_Name := l_report_name;
24   RETURN(l_report_name);
25 EXCEPTION
26   WHEN OTHERS THEN
27     RP_Report_Name := ':Leased Assets Report:';
28     RETURN(RP_REPORT_NAME);
29 END;
30 RETURN NULL; end;
31 function BeforeReport return boolean is
32 begin
33  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
34 /*SRW.USER_EXIT('FND SRWINIT');*/null;
35   return (TRUE);
36 end;
37 function AfterReport return boolean is
38 begin
39 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
40   return (TRUE);
41 end;
42 --Functions to refer Oracle report placeholders--
43  Function ACCT_BAL_APROMPT_p return varchar2 is
44 	Begin
45 	 return ACCT_BAL_APROMPT;
46 	 END;
47  Function ACCT_CC_APROMPT_p return varchar2 is
48 	Begin
49 	 return ACCT_CC_APROMPT;
50 	 END;
51  Function CAT_MAJ_RPROMPT_p return varchar2 is
52 	Begin
53 	 return CAT_MAJ_RPROMPT;
54 	 END;
55  Function RP_COMPANY_NAME_p return varchar2 is
56 	Begin
57 	 return RP_COMPANY_NAME;
58 	 END;
59  Function RP_REPORT_NAME_p return varchar2 is
60 	Begin
61 	 return RP_REPORT_NAME;
62 	 END;
63 	 --modified
64  Function RP_BAL_LPROMPT_p(ACCT_BAL_LPROMPT varchar2)return varchar2 is
65 	Begin
66 	RP_BAL_LPROMPT:= ACCT_BAL_LPROMPT;
67 	 return RP_BAL_LPROMPT;
68 	 END;
69  Function RP_CAT_LPROMPT_p return varchar2 is
70 	Begin
71 	 return RP_CAT_LPROMPT;
72 	 END;
73  Function RP_CURRENCY_CODE_p return varchar2 is
74 	Begin
75 	 return RP_CURRENCY_CODE;
76 	 END;
77 END FA_FAS930_XMLP_PKG ;
78