1 PACKAGE BODY AR_ARXREV_XMLP_PKG AS
2 /* $Header: ARXREVB.pls 120.0 2007/12/27 14:04:57 abraghun noship $ */
3 function BeforeReport return boolean is
4 begin
5 /*SRW.USER_EXIT('FND SRWINIT');*/null;
6 rp_sum_for := ARP_STANDARD.FND_MESSAGE(
7 'AR_REPORTS_SUM_FOR');
8 rp_none := ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
9 return (TRUE);
10 end;
11 function AfterReport return boolean is
12 begin
13 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
14 return (TRUE);
15 end;
16 function report_nameformula(Company_Name in varchar2) return varchar2 is
17 begin
18 DECLARE
19 l_report_name VARCHAR2(80);
20 l_date_low VARCHAR2 (11);
21 l_date_high VARCHAR2 (11);
22 BEGIN
23 if p_rev_gl_start_date is NULL then
24 l_date_low := ' ';
25 else
26 l_date_low := p_rev_gl_start_date ;
27 end if ;
28 if p_rev_gl_end_date is NULL then
29 l_date_high := ' ';
30 else
31 l_date_high := p_rev_gl_end_date;
32 end if ;
33 rp_date_range := ARP_STANDARD.FND_MESSAGE('AR_REPORTS_GL_DATE_FROM_TO',
34 'FROM_DATE', l_date_low,
35 'TO_DATE',l_date_high);
36 RP_Company_Name := Company_Name;
37 SELECT substr(cp.user_concurrent_program_name,1,80)
38 INTO l_report_name
39 FROM FND_CONCURRENT_PROGRAMS_VL cp,
40 FND_CONCURRENT_REQUESTS cr
41 WHERE cr.request_id = P_CONC_REQUEST_ID
42 AND cp.application_id = cr.program_application_id
43 AND cp.concurrent_program_id = cr.concurrent_program_id;
44 l_report_name:= substr(l_report_name,1,instr(l_report_name,' (XML)'));
45 RP_Report_Name := l_report_name;
46 RETURN(l_report_name);
47 EXCEPTION
48 WHEN NO_DATA_FOUND
49 THEN RP_REPORT_NAME := NULL;
50 RETURN(NULL);
51 END;
52 RETURN NULL; end;
53 function AfterPForm return boolean is
54 begin
55 DECLARE
56 l_order_by VARCHAR2 (100);
57 BEGIN
58 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
59 P_REV_GL_START_DATE1 := to_char(P_REV_GL_START_DATE,'dd-mon-yy');
60 P_REV_GL_END_DATE1 := to_char(P_REV_GL_START_DATE,'dd-mon-yy');
61 if p_bank_account_low is NOT NULL then
62 lp_bank_account_low := ' and bank.bank_account_name >= :p_bank_account_low' ;
63 end if ;
64 if p_bank_account_high is NOT NULL then
65 lp_bank_account_high := ' and bank.bank_account_name <= :p_bank_account_high' ;
66 end if ;
67 if p_curr_low is NOT NULL then
68 lp_curr_low := 'and cr.currency_code >= :p_curr_low ' ;
69 end if ;
70 if p_curr_high is NOT NULL then
71 lp_curr_high := 'and cr.currency_code <= :p_curr_high ' ;
72 end if ;
73 if p_rev_gl_start_date is NOT NULL then
74 lp_rev_gl_start_date := 'and crh2.gl_date >= :p_rev_gl_start_date';
75 lp_rev_gl_start_date_dm := 'and ps.gl_date >= :p_rev_gl_start_date';
76 end if ;
77 if p_rev_gl_end_date is NOT NULL then
78 lp_rev_gl_end_date := 'and crh2.gl_date <= :p_rev_gl_end_date';
79 lp_rev_gl_end_date_dm := 'and ps.gl_date <= :p_rev_gl_end_date';
80 end if ;
81 if p_cust_low is NOT NULL then
82 lp_customer_low := 'and cust.ACCOUNT_NUMBER >= :p_cust_low';
83 end if;
84 if p_cust_high is NOT NULL then
85 lp_customer_high := 'and cust.ACCOUNT_NUMBER <= :p_cust_high';
86 end if;
87 if p_reason is NOT NULL then
88 lp_reason := 'and cr.reversal_reason_code = :p_reason';
89 end if;
90 END ; return (TRUE);
91 end;
92 function c_calc_amountformula(r_type in varchar2, amount in number, functional_amount in number, reversal_category in varchar2) return number is
93 begin
94 BEGIN
95 /*srw.reference (r_type);*/null;
96 /*srw.reference (reversal_category);*/null;
97 /*srw.reference (amount);*/null;
98 /*srw.reference (functional_amount);*/null;
99 c_stop_amt := 0 ;
100 c_rev_amt := 0 ;
101 c_nsf_amt := 0 ;
102 c_misc_amt := 0 ;
103 c_cash_amt := 0 ;
104 c_stop_amt_func := 0 ;
105 c_rev_amt_func := 0 ;
106 c_nsf_amt_func := 0 ;
107 c_misc_amt_func := 0 ;
108 c_cash_amt_func := 0 ;
109 if r_type = 'Misc' then
110 c_misc_amt := amount ;
111 c_misc_amt_func := functional_amount ;
112 elsif r_type = 'Cash' then
113 c_cash_amt := amount ;
114 c_cash_amt_func := functional_amount ;
115 end if ;
116 if reversal_category = 'NSF' then
117 c_nsf_amt := amount ;
118 c_nsf_amt_func := functional_amount ;
119 elsif reversal_category = 'REV' then
120 c_rev_amt := amount ;
121 c_rev_amt_func := functional_amount ;
122 elsif reversal_category = 'STOP' then
123 c_stop_amt := amount ;
124 c_stop_amt_func := functional_amount ;
125 elsif reversal_category = 'CCRREV' then
126 c_stop_amt := amount ;
127 c_stop_amt_func := functional_amount ;
128 end if ;
129 return (0);
130 END ;
131 RETURN NULL; end;
132 function c_summary_label_bankformula(bank_name in varchar2) return varchar2 is
133 begin
134 RP_DATA_FOUND := 'YES';
135 /*srw.reference (bank_name);*/null;
136 return (rp_sum_for || ' ' || bank_name);
137 end;
138 function c_dm_calc_amountformula(rev_type in varchar2, Amount_B in number, functional_Amount_B in number, Reversal_category_B in varchar2) return number is
139 begin
140 BEGIN
141 /*srw.reference (rev_type);*/null;
142 /*srw.reference (Reversal_category_B);*/null;
143 /*srw.reference (Amount_B);*/null;
144 /*srw.reference (functional_Amount_B);*/null;
145 c_stop_dm_amt := 0 ;
146 c_rev_dm_amt := 0 ;
147 c_nsf_dm_amt := 0 ;
148 c_misc_dm_amt := 0 ;
149 c_cash_dm_amt := 0 ;
150 c_stop_dm_amt_func := 0 ;
151 c_rev_dm_amt_func := 0 ;
152 c_nsf_dm_amt_func := 0 ;
153 c_misc_dm_amt_func := 0 ;
154 c_cash_dm_amt_func := 0 ;
155 if rev_type = 'Misc' then
156 c_misc_dm_amt := Amount_B ;
157 c_misc_dm_amt_func := functional_Amount_B ;
158 elsif rev_type = 'Cash' then
159 c_cash_dm_amt := Amount_B ;
160 c_cash_dm_amt_func := functional_Amount_B ;
161 end if ;
162 if Reversal_category_B = 'NSF' then
163 c_nsf_dm_amt := Amount_B ;
164 c_nsf_dm_amt_func := functional_Amount_B ;
165 elsif Reversal_category_B = 'REV' then
166 c_rev_dm_amt := Amount_B ;
167 c_rev_dm_amt_func := functional_Amount_B ;
168 elsif Reversal_category_B = 'STOP' then
169 c_stop_dm_amt := Amount_B ;
170 c_stop_dm_amt_func := functional_Amount_B ;
171 end if ;
172 return (0);
173 END ;
174 RETURN NULL; end;
175 function c_summary_label_bank_dmformula(Bank_name_b in varchar2) return varchar2 is
176 begin
177 RP_DATA_FOUND_DM := 'YES';
178 /*srw.reference (Bank_name_b);*/null;
179 return (rp_sum_for || ' ' || Bank_name_b);
180 end;
181 function c_qcd_summary_label_custformul(QCD_DUMMY_NAME in varchar2) return varchar2 is
182 begin
183 RP_CUST_DATA_FOUND_DM := 'YES';
184 /*srw.reference (QCD_DUMMY_NAME);*/null;
185 return (rp_sum_for || ' ' || QCD_DUMMY_NAME);
186 end;
187 function c_qcr_summary_label_custformul(QCR_DUMMY_NAME in varchar2) return varchar2 is
188 begin
189 /*srw.reference (QCR_DUMMY_NAME);*/null;
190 RP_CUST_DATA_FOUND := 'YES';
191 return(rp_sum_for || ' ' || QCR_DUMMY_NAME);
192 end;
193 --Functions to refer Oracle report placeholders--
194 Function c_cash_amt_func_p return number is
195 Begin
196 return c_cash_amt_func;
197 END;
198 Function c_cash_amt_p return number is
199 Begin
200 return c_cash_amt;
201 END;
202 Function c_misc_amt_func_p return number is
203 Begin
204 return c_misc_amt_func;
205 END;
206 Function c_misc_amt_p return number is
207 Begin
208 return c_misc_amt;
209 END;
210 Function c_nsf_amt_func_p return number is
211 Begin
212 return c_nsf_amt_func;
213 END;
214 Function c_nsf_amt_p return number is
215 Begin
216 return c_nsf_amt;
217 END;
218 Function c_rev_amt_func_p return number is
219 Begin
220 return c_rev_amt_func;
221 END;
222 Function c_rev_amt_p return number is
223 Begin
224 return c_rev_amt;
225 END;
226 Function c_stop_amt_func_p return number is
227 Begin
228 return c_stop_amt_func;
229 END;
230 Function c_stop_amt_p return number is
231 Begin
232 return c_stop_amt;
233 END;
234 Function c_cash_dm_amt_func_p return number is
235 Begin
236 return c_cash_dm_amt_func;
237 END;
238 Function c_misc_dm_amt_func_p return number is
239 Begin
240 return c_misc_dm_amt_func;
241 END;
242 Function c_nsf_dm_amt_func_p return number is
243 Begin
244 return c_nsf_dm_amt_func;
245 END;
246 Function c_rev_dm_amt_func_p return number is
247 Begin
248 return c_rev_dm_amt_func;
249 END;
250 Function c_stop_dm_amt_func_p return number is
251 Begin
252 return c_stop_dm_amt_func;
253 END;
254 Function c_cash_dm_amt_p return number is
255 Begin
256 return c_cash_dm_amt;
257 END;
258 Function c_misc_dm_amt_p return number is
259 Begin
260 return c_misc_dm_amt;
261 END;
262 Function c_nsf_dm_amt_p return number is
263 Begin
264 return c_nsf_dm_amt;
265 END;
266 Function c_rev_dm_amt_p return number is
267 Begin
268 return c_rev_dm_amt;
269 END;
270 Function c_stop_dm_amt_p return number is
271 Begin
272 return c_stop_dm_amt;
273 END;
274 Function RP_COMPANY_NAME_p return varchar2 is
275 Begin
276 return RP_COMPANY_NAME;
277 END;
278 Function RP_REPORT_NAME_p return varchar2 is
279 Begin
280 return RP_REPORT_NAME;
281 END;
282 Function RP_DATA_FOUND_p return varchar2 is
283 Begin
284 return RP_DATA_FOUND;
285 END;
286 Function RP_DATE_RANGE_p return varchar2 is
287 Begin
288 return RP_DATE_RANGE;
289 END;
290 Function RP_SUB_TITLE_p return varchar2 is
291 Begin
292 return RP_SUB_TITLE;
293 END;
294 Function RP_DATA_FOUND_DM_p return varchar2 is
295 Begin
296 return RP_DATA_FOUND_DM;
297 END;
298 Function RP_CUST_DATA_FOUND_p return varchar2 is
299 Begin
300 return RP_CUST_DATA_FOUND;
301 END;
302 Function RP_CUST_DATA_FOUND_DM_p return varchar2 is
303 Begin
304 return RP_CUST_DATA_FOUND_DM;
305 END;
306 Function RPD_FUNC_AMT_p return varchar2 is
307 Begin
308 return RPD_FUNC_AMT;
309 END;
310 Function RPD_CASH_AMT_FUNC_p return varchar2 is
311 Begin
312 return RPD_CASH_AMT_FUNC;
313 END;
314 Function RPD_MISC_AMT_FUNC_p return varchar2 is
315 Begin
316 return RPD_MISC_AMT_FUNC;
317 END;
318 Function RPD_NSF_AMT_FUNC_p return varchar2 is
319 Begin
320 return RPD_NSF_AMT_FUNC;
321 END;
322 Function RPD_REV_AMT_FUNC_p return varchar2 is
323 Begin
324 return RPD_REV_AMT_FUNC;
325 END;
326 Function RPD_STOP_AMT_FUNC_p return varchar2 is
327 Begin
328 return RPD_STOP_AMT_FUNC;
329 END;
330 Function RPD_FUNC_DM_AMT_p return varchar2 is
331 Begin
332 return RPD_FUNC_DM_AMT;
333 END;
334 Function RPD_CASH_DM_AMT_FUNC_p return varchar2 is
335 Begin
336 return RPD_CASH_DM_AMT_FUNC;
337 END;
338 Function RPD_MISC_DM_AMT_FUNC_p return varchar2 is
339 Begin
340 return RPD_MISC_DM_AMT_FUNC;
341 END;
342 Function RPD_NSF_DM_AMT_FUNC_p return varchar2 is
343 Begin
344 return RPD_NSF_DM_AMT_FUNC;
345 END;
346 Function RPD_REV_DM_AMT_FUNC_p return varchar2 is
347 Begin
348 return RPD_REV_DM_AMT_FUNC;
349 END;
350 Function RPD_STOP_DM_AMT_FUNC_p return varchar2 is
351 Begin
352 return RPD_STOP_DM_AMT_FUNC;
353 END;
354 Function RPD_CUST_FUNC_p return varchar2 is
355 Begin
356 return RPD_CUST_FUNC;
357 END;
358 Function RPD_DM_CUST_FUNC_p return varchar2 is
359 Begin
360 return RPD_DM_CUST_FUNC;
361 END;
362 Function rp_none_p return varchar2 is
363 Begin
364 return rp_none;
365 END;
366 Function rp_sum_for_p return varchar2 is
367 Begin
368 return rp_sum_for;
369 END;
370 END AR_ARXREV_XMLP_PKG ;
371