PACKAGE BODY: APPS.FA_FAS829_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS829_XMLP_PKG AS
2 /* $Header: FAS829B.pls 120.0.12010000.1 2008/07/28 13:15:50 appldev ship $ */
3 function BookFormula return VARCHAR2 is
4 begin
5 DECLARE
6   l_book       VARCHAR2(15);
7   l_currency_code VARCHAR2(15);
8   l_precision NUMBER(15);
9 BEGIN
10   SELECT bc.book_type_code,
11          sob.currency_code,
12          cur.precision
13   INTO   l_book,
14          l_currency_code,
15          l_precision
16   FROM   FA_BOOK_CONTROLS bc,
17          GL_SETS_OF_BOOKS sob,
18          FND_CURRENCIES cur
19   WHERE  bc.book_type_code = P_BOOK
20   AND    sob.set_of_books_id = bc.set_of_books_id
21   AND    sob.currency_code    = cur.currency_code;
22   Currency_Code := l_currency_code;
23   P_Min_Precision := l_precision;
24   return(l_book);
25 END;
26 RETURN NULL; end;
27 function report_nameformula(Company_Name in varchar2) return varchar2 is
28 begin
29 DECLARE
30   l_report_name VARCHAR2(80);
31 BEGIN
32 --Added during DT Fixes
33 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
34 --End of DT Fixes
35   RP_Company_Name := Company_Name;
36   SELECT cp.user_concurrent_program_name
37   INTO   l_report_name
38   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
39          FND_CONCURRENT_REQUESTS cr
40   WHERE  cr.request_id = P_CONC_REQUEST_ID
41   AND    cp.application_id = cr.program_application_id
42   AND    cp.concurrent_program_id=cr.concurrent_program_id;
43   l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
44   RP_Report_Name := l_report_name;
45   RETURN(l_report_name);
46 EXCEPTION
47   WHEN OTHERS THEN
48     RP_Report_Name := 'Mass Additions Delete Report';
49     RETURN('REPORT TITLE');
50 END;
51 RETURN NULL; end;
52 function BeforeReport return boolean is
53 begin
54 /*SRW.USER_EXIT('FND SRWINIT');*/null;
55   return (TRUE);
56 end;
57 function AfterReport return boolean is
58 begin
59 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
60   return (TRUE);
61 end;
62 --Functions to refer Oracle report placeholders--
63  Function Currency_Code_p return varchar2 is
64 	Begin
65 	 return Currency_Code;
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  Function RP_DATA_FOUND_p return varchar2 is
76 	Begin
77 	 return RP_DATA_FOUND;
78 	 END;
79 --Added during DT Fixes
80 function D_COSTFormula return VARCHAR2 is
81 begin
82         RP_DATA_FOUND := 'YES';
83         return 'YES';
84 end;
85 --End of DT Fixes
86 END FA_FAS829_XMLP_PKG ;
87