PACKAGE BODY: APPS.FA_FAS828_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS828_XMLP_PKG AS
2 /* $Header: FAS828B.pls 120.0.12010000.1 2008/07/28 13:15:48 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 --Added during DT Fix
9 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
10 --End of DT Fix
11   RP_Company_Name := Company_Name;
12   SELECT cp.user_concurrent_program_name
13   INTO   l_report_name
14   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
15          FND_CONCURRENT_REQUESTS cr
16   WHERE  cr.request_id = P_CONC_REQUEST_ID
17   AND    cp.application_id = cr.program_application_id
18   AND    cp.concurrent_program_id=cr.concurrent_program_id;
19   RP_Report_Name := l_report_name;
20   RP_REPORT_NAME := substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
21   RETURN(l_report_name);
22 EXCEPTION
23   WHEN OTHERS THEN
24     RP_Report_Name := 'DELETE MASS ADDITIONS PREVIEW REPORT';
25     RETURN('DELETE MASS ADDITIONS PREVIEW REPORT');
26 END;
27 RETURN NULL; end;
28 function BeforeReport return boolean is
29 begin
30 /*SRW.USER_EXIT('FND SRWINIT');*/null;
31   return (TRUE);
32 end;
33 function AfterReport return boolean is
34 begin
35 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
36   return (TRUE);
37 end;
38 function currency_codeformula(BOOK in varchar2) return varchar2 is
39 begin
40 DECLARE
41   l_currency_code VARCHAR2(15);
42   l_precision NUMBER(15);
43 BEGIN
44 /*srw.message(1,BOOK);*/null;
45   SELECT sob.currency_code,
46          cur.precision
47   INTO   l_currency_code,
48          l_precision
49   FROM   FA_BOOK_CONTROLS bc,
50 	 GL_SETS_OF_BOOKS sob,
51          FND_CURRENCIES cur
52   WHERE  bc.book_type_code = BOOK
53   AND    sob.set_of_books_id = bc.set_of_books_id
54   AND    sob.currency_code    = cur.currency_code;
55   P_Min_Precision := l_precision;
56   return(l_currency_code);
57 END;
58 RETURN NULL; end;
59 --Added the below function during DT Fix
60  Function D_COSTFormula(FEEDER_SYSTEM in varchar2) return varchar2 is
61         Begin
62          RP_FEEDER_SYSTEM := FEEDER_SYSTEM;
63 	 return null;
64         END;
65 --End of DT Fix
66 --Functions to refer Oracle report placeholders--
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  Function RP_FEEDER_SYSTEM_p return varchar2 is
76 	Begin
77 	 return RP_FEEDER_SYSTEM;
78 	 END;
79 END FA_FAS828_XMLP_PKG ;
80