PACKAGE BODY: APPS.FA_FAS780_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS780_XMLP_PKG AS
2 /* $Header: FAS780B.pls 120.0.12010000.1 2008/07/28 13:15:34 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   l_conc_program_id NUMBER;
44 BEGIN
45   RP_Company_Name := Company_Name;
46   SELECT cr.concurrent_program_id
47   INTO l_conc_program_id
48   FROM FND_CONCURRENT_REQUESTS cr
49   WHERE cr.program_application_id = 140
50   AND   cr.request_id = P_CONC_REQUEST_ID;
51   SELECT cp.user_concurrent_program_name
52   INTO   l_report_name
53   FROM    FND_CONCURRENT_PROGRAMS_VL cp
54   WHERE
55       cp.concurrent_program_id= l_conc_program_id
56   and cp.application_id = 140;
57  l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
58   RP_Report_Name := l_report_name;
59   RETURN(l_report_name);
60 EXCEPTION
61   WHEN OTHERS THEN
62     RP_Report_Name := ':Assets By Category Report:';
63     RETURN(RP_Report_Name);
64 END;
65 RETURN NULL; end;
66 function BeforeReport return boolean is
67 begin
68  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
69 /*SRW.USER_EXIT('FND SRWINIT');*/null;
70   return (TRUE);
71 end;
72 function AfterReport return boolean is
73 begin
74 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
75   return (TRUE);
76 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 ACCT_BAL_APROMPT_p return varchar2 is
83 	Begin
84 	 return ACCT_BAL_APROMPT;
85 	 END;
86  Function Currency_Code_p return varchar2 is
87 	Begin
88 	 return Currency_Code;
89 	 END;
90  Function Book_Class_p return varchar2 is
91 	Begin
92 	 return Book_Class;
93 	 END;
94  Function Distribution_Source_Book_p return varchar2 is
95 	Begin
96 	 return Distribution_Source_Book;
97 	 END;
98  Function RP_COMPANY_NAME_p return varchar2 is
99 	Begin
100 	 return RP_COMPANY_NAME;
101 	 END;
102  Function RP_REPORT_NAME_p return varchar2 is
103 	Begin
104 	 return RP_REPORT_NAME;
105 	 END;
106 	 --modified
107  Function RP_ACCT_BAL_LPROMPT_p(acct_bal_lprompt varchar2) return varchar2 is
108 	Begin
109 	rp_acct_bal_lprompt := acct_bal_lprompt;
110 	 return RP_ACCT_BAL_LPROMPT;
111 	 END;
112 END FA_FAS780_XMLP_PKG ;
113