[Home] [Help]
PACKAGE BODY: APPS.FA_FAS440_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS440_XMLP_PKG AS
2 /* $Header: FAS440B.pls 120.0.12010000.1 2008/07/28 13:14:31 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2) return varchar2 is
4 begin
5 DECLARE
6 l_report_name VARCHAR2(80);
7 l_conc_program_id NUMBER;
8 BEGIN
9 --Added during DT Fix
10 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
11 --End of DT Fix
12 RP_Company_Name := Company_Name;
13 SELECT cr.concurrent_program_id
14 INTO l_conc_program_id
15 FROM FND_CONCURRENT_REQUESTS cr
16 WHERE cr.program_application_id = 140
17 AND cr.request_id = P_CONC_REQUEST_ID;
18 SELECT cp.user_concurrent_program_name
19 INTO l_report_name
20 FROM FND_CONCURRENT_PROGRAMS_VL cp
21 WHERE
22 cp.concurrent_program_id= l_conc_program_id
23 and cp.application_id = 140;
24 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
25 RP_Report_Name := l_report_name;
26 RETURN(l_report_name);
27 EXCEPTION
28 WHEN OTHERS THEN
29 RP_Report_Name := ':Asset Retirements Report:';
30 RETURN('REPORT TITLE');
31 END;
32 RETURN NULL; end;
33 function BeforeReport return boolean is
34 begin
35 /*SRW.USER_EXIT('FND SRWINIT');*/null;
36 IF upper(p_mrcsobtype) = 'R'
37 THEN
38 fnd_client_info.set_currency_context(p_ca_set_of_books_id);
39 END IF;
40 return (TRUE);
41 end;
42 function AfterReport return boolean is
43 begin
44 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
45 return (TRUE);
46 end;
47 function Period1_PCFormula return Number is
48 begin
49 DECLARE
50 l_period_POD DATE;
51 l_period_PCD DATE;
52 l_period_PC NUMBER(15);
53 l_period_FY NUMBER(15);
54 BEGIN
55 IF upper(p_mrcsobtype) = 'R'
56 THEN
57 SELECT period_counter,
58 period_open_date,
59 nvl(period_close_date, sysdate),
60 fiscal_year
61 INTO l_period_PC,
62 l_period_POD,
63 l_period_PCD,
64 l_period_FY
65 FROM FA_DEPRN_PERIODS_MRC_V
66 WHERE book_type_code = P_BOOK
67 AND period_name = P_PERIOD1;
68 ELSE
69 SELECT period_counter,
70 period_open_date,
71 nvl(period_close_date, sysdate),
72 fiscal_year
73 INTO l_period_PC,
74 l_period_POD,
75 l_period_PCD,
76 l_period_FY
77 FROM FA_DEPRN_PERIODS
78 WHERE book_type_code = P_BOOK
79 AND period_name = P_PERIOD1;
80 END IF;
81 Period1_POD := l_period_POD;
82 Period1_PCD := l_period_PCD;
83 Period1_FY := l_period_FY;
84 return(l_period_PC);
85 END;
86 RETURN NULL; end;
87 function Period2_PCFormula return Number is
88 begin
89 DECLARE
90 l_period_POD DATE;
91 l_period_PCD DATE;
92 l_period_PC NUMBER(15);
93 l_period_FY NUMBER(15);
94 BEGIN
95 IF upper(p_mrcsobtype) = 'R'
96 THEN
97 SELECT period_counter,
98 period_open_date,
99 nvl(period_close_date, sysdate),
100 fiscal_year
101 INTO l_period_PC,
102 l_period_POD,
103 l_period_PCD,
104 l_period_FY
105 FROM FA_DEPRN_PERIODS_MRC_V
106 WHERE book_type_code = P_BOOK
107 AND period_name = P_PERIOD2;
108 ELSE
109 SELECT period_counter,
110 period_open_date,
111 nvl(period_close_date, sysdate),
112 fiscal_year
113 INTO l_period_PC,
114 l_period_POD,
115 l_period_PCD,
116 l_period_FY
117 FROM FA_DEPRN_PERIODS
118 WHERE book_type_code = P_BOOK
119 AND period_name = P_PERIOD2;
120 END IF;
121 Period2_POD := l_period_POD;
122 Period2_PCD := l_period_PCD;
123 Period2_FY := l_period_FY;
124 return(l_period_PC);
125 END;
126 RETURN NULL; end;
127 function gain_lossformula(nbv in number, proceeds in number, removal in number, reval_rsv_ret in number) return number is
128 begin
129 return (-nbv + proceeds - removal + reval_rsv_ret);
130 end;
131 function AfterPForm return boolean is
132 begin
133 IF p_ca_set_of_books_id <> -1999
134 THEN
135 BEGIN
136 select mrc_sob_type_code, currency_code
137 into p_mrcsobtype, lp_currency_code
138 from gl_sets_of_books
139 where set_of_books_id = p_ca_set_of_books_id;
140 EXCEPTION
141 WHEN OTHERS THEN
142 p_mrcsobtype := 'P';
143 END;
144 ELSE
145 p_mrcsobtype := 'P';
146 END IF;
147 IF upper(p_mrcsobtype) = 'R'
148 THEN
149 lp_fa_book_controls := 'FA_BOOK_CONTROLS_MRC_V';
150 lp_fa_books := 'FA_BOOKS_MRC_V';
151 lp_fa_adjustments := 'FA_ADJUSTMENTS_MRC_V';
152 lp_fa_retirements := 'FA_RETIREMENTS_MRC_V';
153 ELSE
154 lp_fa_book_controls := 'FA_BOOK_CONTROLS';
155 lp_fa_books := 'FA_BOOKS';
156 lp_fa_adjustments := 'FA_ADJUSTMENTS';
157 lp_fa_retirements := 'FA_RETIREMENTS';
158 END IF;
159 return (TRUE);
160 end;
161 --Functions to refer Oracle report placeholders--
162 Function ACCT_BAL_APROMPT_p return varchar2 is
163 Begin
164 return ACCT_BAL_APROMPT;
165 END;
166 Function ACCT_CC_APROMPT_p return varchar2 is
167 Begin
168 return ACCT_CC_APROMPT;
169 END;
170 Function CAT_MAJ_RPROMPT_p return varchar2 is
171 Begin
172 return CAT_MAJ_RPROMPT;
173 END;
174 Function Period1_POD_p return date is
175 Begin
176 return Period1_POD;
177 END;
178 Function Period1_PCD_p return date is
179 Begin
180 return Period1_PCD;
181 END;
182 Function Period1_FY_p return number is
183 Begin
184 return Period1_FY;
185 END;
186 Function Period2_POD_p return date is
187 Begin
188 return Period2_POD;
189 END;
190 Function Period2_PCD_p return date is
191 Begin
192 return Period2_PCD;
193 END;
194 Function Period2_FY_p return number is
195 Begin
196 return Period2_FY;
197 END;
198 Function RP_COMPANY_NAME_p return varchar2 is
199 Begin
200 return RP_COMPANY_NAME;
201 END;
202 Function RP_REPORT_NAME_p return varchar2 is
203 Begin
204 return RP_REPORT_NAME;
205 END;
206 Function PERIOD_FROM_p return varchar2 is
207 Begin
208 return PERIOD_FROM;
209 END;
210 Function PERIOD_TO_p return varchar2 is
211 Begin
212 return PERIOD_TO;
213 END;
214 END FA_FAS440_XMLP_PKG ;
215