PACKAGE BODY: APPS.FA_FASNDPRP_XMLP_PKG

Source

1 PACKAGE BODY FA_FASNDPRP_XMLP_PKG AS
2 /* $Header: FASNDPRPB.pls 120.0.12010000.1 2008/07/28 13:17:09 appldev ship $ */
3 
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
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 
27  l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
28 
29   RP_Report_Name := l_report_name;
30   RETURN(l_report_name);
31 
32 EXCEPTION
33   WHEN OTHERS THEN
34     RP_Report_Name := ':Non-Depreciating Property Report:';
35     RETURN(RP_REPORT_NAME);
36 END;
37 RETURN NULL; end;
38 
39 function BeforeReport return boolean is
40 begin
41 
42 /*SRW.USER_EXIT('FND SRWINIT');*/null;
43   return (TRUE);
44 end;
45 
46 function AfterReport return boolean is
47 begin
48 
49 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
50   return (TRUE);
51 end;
52 
53 --Functions to refer Oracle report placeholders--
54 
55  Function ACCT_BAL_APROMPT_p return varchar2 is
56 	Begin
57 	 return ACCT_BAL_APROMPT;
58 	 END;
59  Function ACCT_CC_APROMPT_p return varchar2 is
60 	Begin
61 	 return ACCT_CC_APROMPT;
62 	 END;
63  Function CAT_MAJ_RPROMPT_p return varchar2 is
64 	Begin
65 	 return CAT_MAJ_RPROMPT;
66 	 END;
67  Function RP_COMPANY_NAME_p return varchar2 is
68 	Begin
69 	 return RP_COMPANY_NAME;
70 	 END;
71  Function RP_REPORT_NAME_p return varchar2 is
72 	Begin
73 	 return RP_REPORT_NAME;
74 	 END;
75 	 --modified
76  Function RP_BAL_LPROMPT_p(ACCT_BAL_LPROMPT varchar2) return varchar2 is
77 	Begin
78 RP_BAL_LPROMPT:=ACCT_BAL_LPROMPT;
79 	 return RP_BAL_LPROMPT;
80 	 END;
81 END FA_FASNDPRP_XMLP_PKG ;
82