PACKAGE BODY: APPS.FA_FASCEILG_XMLP_PKG

Source

1 PACKAGE BODY FA_FASCEILG_XMLP_PKG AS
2 /* $Header: FASCEILGB.pls 120.0.12010000.1 2008/07/28 13:16:31 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2) return varchar2 is
4 begin
5 DECLARE
6   l_report_name VARCHAR2(80);
7 BEGIN
8   RP_Company_Name := Company_Name;
9   SELECT cp.user_concurrent_program_name
10   INTO   l_report_name
11   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
12          FND_CONCURRENT_REQUESTS cr
13   WHERE  cr.request_id = P_CONC_REQUEST_ID
14   AND    cp.application_id = cr.program_application_id
15   AND    cp.concurrent_program_id=cr.concurrent_program_id;
16 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
17   RP_Report_Name := l_report_name;
18   RETURN(l_report_name);
19 EXCEPTION
20   WHEN OTHERS THEN
21     RP_Report_Name := ':Ceiling Listing:';
22     RETURN(RP_Report_Name);
23 END;
24 RETURN NULL; end;
25 function BeforeReport return boolean is
26 begin
27  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
28 /*SRW.USER_EXIT('FND SRWINIT');*/null;
29 Return (true);
30 end;
31 function AfterReport return boolean is
32 begin
33 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
34   return (TRUE);
35 end;
36 function ceiling_typeformula(Raw_Ceiling_Type in varchar2) return varchar2 is
37 begin
38 /*srw.reference(Raw_Ceiling_Type);*/null;
39 if (Raw_Ceiling_Type = 'DEPRN EXPENSE CEILING') then
40   /*srw.user_exit('FND MESSAGE_NAME NAME="FA_CEILTYPE_EXPENSE"');*/null;
41 Ceiling_Type:='FA_CEILTYPE_EXPENSE';
42 elsif (Raw_Ceiling_Type = 'ITC CEILING') then
43   /*srw.user_exit('FND MESSAGE_NAME NAME="FA_CEILTYPE_ITC"');*/null;
44 Ceiling_Type:='FA_CEILTYPE_ITC';
45 elsif (Raw_Ceiling_Type = 'RECOVERABLE COST CEILING') then
46   /*srw.user_exit('FND MESSAGE_NAME NAME="FA_CEILTYPE_RECOVERABLE_COST"');*/null;
47 Ceiling_Type:='FA_CEILTYPE_RECOVERABLE_COST';
48 end if;
49 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":Ceiling_Type"');*/null;
50 return(Ceiling_Type);
51 end;
52 --Functions to refer Oracle report placeholders--
53  Function RP_COMPANY_NAME_p return varchar2 is
54 	Begin
55 	 return RP_COMPANY_NAME;
56 	 END;
57  Function RP_REPORT_NAME_p return varchar2 is
58 	Begin
59 	 return RP_REPORT_NAME;
60 	 END;
61 END FA_FASCEILG_XMLP_PKG ;
62