PACKAGE BODY: APPS.FA_FAS740_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS740_XMLP_PKG AS
2 /* $Header: FAS740B.pls 120.0.12010000.1 2008/07/28 13:15:22 appldev 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   l_dist_source_book VARCHAR2(15);
11 BEGIN
12   SELECT bc.book_type_code,
13 	 distribution_source_book,
14          bc.accounting_flex_structure,
15          sob.currency_code,
16          cur.precision
17   INTO   l_book,
18 	 l_dist_source_book,
19          l_accounting_flex_Structure,
20          l_currency_code,
21          l_precision
22   FROM   FA_BOOK_CONTROLS bc,
23          GL_SETS_OF_BOOKS sob,
24          FND_CURRENCIES cur
25   WHERE  bc.book_type_code = P_BOOK
26   AND    sob.set_of_books_id = bc.set_of_books_id
27   AND    sob.currency_code    = cur.currency_code;
28   Accounting_Flex_Structure:=l_accounting_flex_structure;
29   Currency_Code := l_currency_code;
30   P_Min_Precision := l_precision;
31   dist_source_book := l_dist_source_book;
32   return(l_book);
33 END;
34 RETURN NULL; end;
35 function report_nameformula(Company_Name in varchar2) return varchar2 is
36 begin
37 DECLARE
38   l_report_name VARCHAR2(80);
39   l_conc_program_id NUMBER;
40 BEGIN
41 --Added during DT Fix
42 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
43 --End of DT Fix
44   RP_Company_Name := Company_Name;
45   SELECT cr.concurrent_program_id
46   INTO l_conc_program_id
47   FROM FND_CONCURRENT_REQUESTS cr
48   WHERE cr.program_application_id = 140
49   AND   cr.request_id = P_CONC_REQUEST_ID;
50   SELECT cp.user_concurrent_program_name
51   INTO   l_report_name
52   FROM    FND_CONCURRENT_PROGRAMS_VL cp
53   WHERE
54       cp.concurrent_program_id= l_conc_program_id
55   and cp.application_id = 140;
56   l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
57   RP_Report_Name := l_report_name;
58   Period_From := P_PERIOD1;
59   Period_To := P_PERIOD2;
60   RETURN(l_report_name);
61 EXCEPTION
62   WHEN OTHERS THEN
63     RP_Report_Name := 'Asset Reclassification Report';
64     Period_From := P_PERIOD1;
65     Period_To :=  P_PERIOD2;
66     RETURN('Asset Reclassification Report');
67 END;
68 RETURN NULL; end;
69 function BeforeReport return boolean is
70 begin
71 /*SRW.USER_EXIT('FND SRWINIT');*/null;
72   return (TRUE);
73 end;
74 function AfterReport return boolean is
75 begin
76 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
77   return (TRUE);
78 end;
79 --Functions to refer Oracle report placeholders--
80  Function Accounting_Flex_Structure_p return number is
81 	Begin
82 	 return Accounting_Flex_Structure;
83 	 END;
84  Function Currency_Code_p return varchar2 is
85 	Begin
86 	 return Currency_Code;
87 	 END;
88  Function DIST_SOURCE_BOOK_p return varchar2 is
89 	Begin
90 	 return DIST_SOURCE_BOOK;
91 	 END;
92  Function RP_COMPANY_NAME_p return varchar2 is
93 	Begin
94 	 return RP_COMPANY_NAME;
95 	 END;
96  Function RP_REPORT_NAME_p return varchar2 is
97 	Begin
98 	 return RP_REPORT_NAME;
99 	 END;
100  Function PERIOD_FROM_p return varchar2 is
101 	Begin
102 	 return PERIOD_FROM;
103 	 END;
104  Function PERIOD_TO_p return varchar2 is
105 	Begin
106 	 return PERIOD_TO;
107 	 END;
108 END FA_FAS740_XMLP_PKG ;
109