PACKAGE BODY: APPS.FA_FAS833_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS833_XMLP_PKG AS
2 /* $Header: FAS833B.pls 120.1 2009/07/19 09:13:17 glchen ship $ */
3 function BookFormula return VARCHAR2 is
4 begin
5 DECLARE
6   l_book       VARCHAR2(15);
7   l_accounting_flex_structure NUMBER(15);
8   l_currency_code VARCHAR2(15);
9   l_precision NUMBER(15);
10 BEGIN
11   SELECT bc.book_type_code,
12          bc.accounting_flex_structure,
13          sob.currency_code,
14          cur.precision
15   INTO   l_book,
16          l_accounting_flex_Structure,
17          l_currency_code,
18          l_precision
19   FROM   FA_BOOK_CONTROLS bc,
20          GL_SETS_OF_BOOKS sob,
21          FND_CURRENCIES cur
22   WHERE  bc.book_type_code = P_BOOK
23   AND    sob.set_of_books_id = bc.set_of_books_id
24   AND    sob.currency_code    = cur.currency_code;
25   Accounting_Flex_Structure:=l_accounting_flex_structure;
26   Currency_Code := l_currency_code;
27   P_Min_Precision := l_precision;
28   return(l_book);
29 END;
30 RETURN NULL; end;
31 function report_nameformula(Company_Name in varchar2) return varchar2 is
32 begin
33 DECLARE
34   l_report_name VARCHAR2(80);
35 BEGIN
36 --Added during DT Fixes
37 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
38 --End of DT Fixes
39   RP_Company_Name := Company_Name;
40   SELECT cp.user_concurrent_program_name
41   INTO   l_report_name
42   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
43          FND_CONCURRENT_REQUESTS cr
44   WHERE  cr.request_id = P_CONC_REQUEST_ID
45   AND    cp.application_id = cr.program_application_id
46   AND    cp.concurrent_program_id=cr.concurrent_program_id;
47  l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
48   RP_Report_Name := l_report_name;
49   RETURN(l_report_name);
50 EXCEPTION
51   WHEN OTHERS THEN
52     RP_Report_Name := 'UNPOSTED MASS ADDITIONS REPORT';
53     RETURN('UNPOSTED MASS ADDITIONS REPORT');
54 END;
55 RETURN NULL; end;
56 function BeforeReport return boolean is
57 begin
58 /*SRW.USER_EXIT('FND SRWINIT');*/null;
59   return (TRUE);
60 end;
61 function AfterReport return boolean is
62 begin
63 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
64   return (TRUE);
65 end;
66 function d_statusformula(STATUS in varchar2) return varchar2 is
67 begin
68 BEGIN
69    IF STATUS = '  A'
70       THEN
71           RETURN(NULL);
72       ELSE
73           RETURN(STATUS);
74    END IF;
75 END;
76 RETURN NULL; end;
77 --Functions to refer Oracle report placeholders--
78  Function Accounting_Flex_Structure_p return number is
79 	Begin
80 	 return Accounting_Flex_Structure;
81 	 END;
82  Function Currency_Code_p return varchar2 is
83 	Begin
84 	 return Currency_Code;
85 	 END;
86  Function RP_COMPANY_NAME_p return varchar2 is
87 	Begin
88 	 return RP_COMPANY_NAME;
89 	 END;
90  Function RP_REPORT_NAME_p return varchar2 is
91 	Begin
92 	 return RP_REPORT_NAME;
93 	 END;
94  Function RP_DATA_FOUND_p return varchar2 is
95 	Begin
96 	 return RP_DATA_FOUND;
97 	 END;
98 --Added during DT Fixes
99 function D_COSTFormula return VARCHAR2 is
100 begin
101         RP_DATA_FOUND := 'YES';
102         return 'YES';
103 end;
104 --End of DT Fixes
105 END FA_FAS833_XMLP_PKG ;
106