PACKAGE BODY: APPS.FA_FAS530_XMLP_PKG

Source

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