[Home] [Help]
PACKAGE BODY: APPS.FA_FASCASR_XMLP_PKG
Source
1 PACKAGE BODY FA_FASCASR_XMLP_PKG AS
2 /* $Header: FASCASRB.pls 120.0.12010000.1 2008/07/28 13:16:26 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 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 Precision := l_precision;
28 return(l_book);
29 END;
30 RETURN NULL; end;
31 function Period1Formula return VARCHAR2 is
32 begin
33 DECLARE
34 l_period_name VARCHAR2(15);
35 l_period_POD DATE;
36 BEGIN
37 SELECT period_name,
38 period_open_date
39 INTO l_period_name,
40 l_period_POD
41 FROM FA_DEPRN_PERIODS
42 WHERE book_type_code = P_BOOK
43 AND period_name = P_PERIOD1;
44 Period1_POD := l_period_POD;
45 return(l_period_name);
46 END;
47 RETURN NULL; end;
48 function Report_NameFormula return VARCHAR2 is
49 begin
50 DECLARE
51 l_report_name VARCHAR2(80);
52 l_conc_program_id NUMBER;
53 BEGIN
54 SELECT cr.concurrent_program_id
55 INTO l_conc_program_id
56 FROM FND_CONCURRENT_REQUESTS cr
57 WHERE cr.program_application_id = 140
58 AND cr.request_id = P_CONC_REQUEST_ID;
59 SELECT cp.user_concurrent_program_name
60 INTO l_report_name
61 FROM FND_CONCURRENT_PROGRAMS_VL cp
62 WHERE
63 cp.concurrent_program_id= l_conc_program_id
64 and cp.application_id = 140;
65 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
66 RP_Report_Name := l_report_name;
67 RETURN(l_report_name);
68 EXCEPTION
69 WHEN OTHERS THEN
70 RP_Report_Name := ':Cost Adjustments by Source Report:';
71 RETURN(RP_Report_Name);
72 END;
73 RETURN NULL; end;
74 function Period2Formula return VARCHAR2 is
75 begin
76 DECLARE
77 l_period_name VARCHAR2(15);
78 l_period_PCD DATE;
79 BEGIN
80 SELECT period_name,
81 nvl(period_close_date, sysdate)
82 INTO l_period_name,
83 l_period_PCD
84 FROM FA_DEPRN_PERIODS
85 WHERE book_type_code = P_BOOK
86 AND period_name = P_PERIOD2;
87 Period2_PCD := l_period_PCD;
88 return(l_period_name);
89 END;
90 RETURN NULL; end;
91 function BeforeReport return boolean is
92 begin
93 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
94 /*SRW.USER_EXIT('FND SRWINIT');*/null;
95 return (TRUE);
96 end;
97 function AfterReport return boolean is
98 begin
99 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
100 return (TRUE);
101 end;
102 function out_of_balanceformula(ASSET_ADJ in number, INVOICE_ADJ in number, IS_INV_TRANS in varchar2) return varchar2 is
103 begin
104 IF ((round(ASSET_ADJ - INVOICE_ADJ, P_MIN_PRECISION) <> 0)
105 AND (IS_INV_TRANS = 'YES'))
106 THEN RETURN ('*'); ELSE RETURN(' ');
107 END IF;
108 RETURN NULL; end;
109 --Functions to refer Oracle report placeholders--
110 Function Accounting_Flex_Structure_p return number is
111 Begin
112 return Accounting_Flex_Structure;
113 END;
114 Function Currency_Code_p return varchar2 is
115 Begin
116 return Currency_Code;
117 END;
118 Function Period1_POD_p return date is
119 Begin
120 return Period1_POD;
121 END;
122 Function Period2_PCD_p return date is
123 Begin
124 return Period2_PCD;
125 END;
126 Function PRECISION_p return number is
127 Begin
128 return PRECISION;
129 END;
130 Function RP_REPORT_NAME_p return varchar2 is
131 Begin
132 return RP_REPORT_NAME;
133 END;
134 END FA_FASCASR_XMLP_PKG ;
135