[Home] [Help]
PACKAGE BODY: APPS.ARRX_C_RC
Source
1 PACKAGE BODY ARRX_C_RC as
2 /* $Header: ARRXCRCB.pls 120.10.12010000.1 2008/07/24 16:53:21 appldev ship $ */
3
4 -------------------
5 -- Receipt Register
6 -------------------
7 PROCEDURE RECEIPT_REGISTER (
8 errbuf out NOCOPY varchar2,
9 retcode out NOCOPY varchar2,
10 argument1 in varchar2, -- reporting_level
11 argument2 in varchar2, -- reporting_entity_id
12 argument3 in varchar2, -- set_of_books_id
13 argument4 in varchar2, -- coaid
14 argument5 in varchar2, -- company_segment_low
15 argument6 in varchar2, -- company_segment_high
16 argument7 in varchar2, -- gl_date_low
17 argument8 in varchar2, -- gl_date_high
18 argument9 in varchar2, -- currency_code
19 argument10 in varchar2, -- batch_name_low
20 argument11 in varchar2, -- batch_name_high
21 argument12 in varchar2, -- customer_name_low
22 argument13 in varchar2, -- customer_name_high
23 argument14 in varchar2, -- deposit_date_low
24 argument15 in varchar2, -- deposit_date_high
25 argument16 in varchar2, -- receipt_status_low
26 argument17 in varchar2, -- receipt_status_high
27 argument18 in varchar2, -- receipt_number_low
28 argument19 in varchar2, -- receipt_number_high
29 argument20 in varchar2, -- receipt_date_low
30 argument21 in varchar2, -- receipt_date_high
31 argument22 in varchar2, -- bank_account_name
32 argument23 in varchar2, -- payment_method
33 argument24 in varchar2, -- confirmed_flag
34 argument25 in varchar2, -- doc_sequence_name
35 argument26 in varchar2, -- doc_sequence_number_from
36 argument27 in varchar2, -- doc_sequence_number_to
37 argument28 in varchar2 default 'N', -- debug flag
38 argument29 in varchar2 default 'N', -- sql trace
39 argument30 in varchar2 default null,
40 argument31 in varchar2 default null,
41 argument32 in varchar2 default null,
42 argument33 in varchar2 default null,
43 argument34 in varchar2 default null,
44 argument35 in varchar2 default null,
45 argument36 in varchar2 default null,
46 argument37 in varchar2 default null,
47 argument38 in varchar2 default null,
48 argument39 in varchar2 default null,
49 argument40 in varchar2 default null,
50 argument41 in varchar2 default null,
51 argument42 in varchar2 default null,
52 argument43 in varchar2 default null,
53 argument44 in varchar2 default null,
54 argument45 in varchar2 default null,
55 argument46 in varchar2 default null,
56 argument47 in varchar2 default null,
57 argument48 in varchar2 default null,
58 argument49 in varchar2 default null,
59 argument50 in varchar2 default null,
60 argument51 in varchar2 default null,
61 argument52 in varchar2 default null,
62 argument53 in varchar2 default null,
63 argument54 in varchar2 default null,
64 argument55 in varchar2 default null,
65 argument56 in varchar2 default null,
66 argument57 in varchar2 default null,
67 argument58 in varchar2 default null,
68 argument59 in varchar2 default null,
69 argument60 in varchar2 default null,
70 argument61 in varchar2 default null,
71 argument62 in varchar2 default null,
72 argument63 in varchar2 default null,
73 argument64 in varchar2 default null,
74 argument65 in varchar2 default null,
75 argument66 in varchar2 default null,
76 argument67 in varchar2 default null,
77 argument68 in varchar2 default null,
78 argument69 in varchar2 default null,
79 argument70 in varchar2 default null,
80 argument71 in varchar2 default null,
81 argument72 in varchar2 default null,
82 argument73 in varchar2 default null,
83 argument74 in varchar2 default null,
84 argument75 in varchar2 default null,
85 argument76 in varchar2 default null,
86 argument77 in varchar2 default null,
87 argument78 in varchar2 default null,
88 argument79 in varchar2 default null,
89 argument80 in varchar2 default null,
90 argument81 in varchar2 default null,
91 argument82 in varchar2 default null,
92 argument83 in varchar2 default null,
93 argument84 in varchar2 default null,
94 argument85 in varchar2 default null,
95 argument86 in varchar2 default null,
96 argument87 in varchar2 default null,
97 argument88 in varchar2 default null,
98 argument89 in varchar2 default null,
99 argument90 in varchar2 default null,
100 argument91 in varchar2 default null,
101 argument92 in varchar2 default null,
102 argument93 in varchar2 default null,
103 argument94 in varchar2 default null,
104 argument95 in varchar2 default null,
105 argument96 in varchar2 default null,
106 argument97 in varchar2 default null,
107 argument98 in varchar2 default null,
108 argument99 in varchar2 default null,
109 argument100 in varchar2 default null)
110 is
111 l_request_id number;
112 l_reporting_level VARCHAR2(50);
113 l_reporting_entity_id NUMBER;
114 l_sob_id NUMBER;
115 l_coa_id NUMBER;
116 l_co_seg_low VARCHAR2(25);
117 l_co_seg_high VARCHAR2(25);
118 l_batch_name_low varchar2(20);
119 l_batch_name_high varchar2(20);
120 l_customer_name_low varchar2(240);
121 l_customer_name_high varchar2(240);
122 l_deposit_date_low date;
123 l_deposit_date_high date;
124 l_receipt_status_low varchar2(30);
125 l_receipt_status_high varchar2(30);
126 l_receipt_number_low varchar2(30);
127 l_receipt_number_high varchar2(30);
128 l_invoice_number_low varchar2(30) := NULL; --Bug 1579930
129 l_invoice_number_high varchar2(30) := NULL; --Bug 1579930
130 l_receipt_date_low date;
131 l_receipt_date_high date;
132 l_gl_date_low date;
133 l_gl_date_high date;
134 l_currency_code varchar2(15);
135 l_bank_account_name varchar2(80);
136 l_payment_method varchar2(30);
137 l_confirmed_flag varchar2(1);
138 l_doc_sequence_name varchar2(30);
139 l_doc_sequence_number_from number;
140 l_doc_sequence_number_to number;
141
142
143 begin
144 --
145 -- SQL Trace switches and debug flags are optional
146 -- but highly recommended.
147 --ATG mandate remove sql trace code from files
148 -- if upper(substrb(argument29, 1, 1)) = 'Y' then
149 -- fa_rx_util_pkg.enable_trace;
150 -- end if;
151
152 if upper(substrb(argument28, 1, 1)) = 'Y' then
153 fa_rx_util_pkg.enable_debug;
154 end if;
155
156 fa_rx_util_pkg.debug('RECEIPT_REGISTER called with parameters
157 Reporting Level : '||argument1||'
158 Reporting Entity ID : '||argument2||'
159 Set of Books ID : '||argument3||'
160 Chart of Accounts ID : '||argument4||'
161 Company Segment Low : '||argument5||'
162 Company Segment High : '||argument6||'
163 GL Date From : '||argument7||'
164 GL Date To : '||argument8||'
165 Entered Currency : '||argument9||'
166 Batch Name Low : '||argument10||'
167 Batch Name High : '||argument11||'
168 Customer Name Low : '||argument12||'
169 Customer Name High : '||argument13||'
170 Deposit Date Low : '||argument14||'
171 Deposit Date High : '||argument15||'
172 Receipt Status Low : '||argument16||'
173 Receipt Status High : '||argument17||'
174 Receipt Number Low : '||argument18||'
175 Receipt Number High : '||argument19||'
176 Receipt Date Low : '||argument20||'
177 Receipt Date High : '||argument21);
178 --
179 -- Assign parameters doing any necessary mappings
180 -- e.g. date/number conversion
181 l_request_id := fnd_global.conc_request_id;
182 l_reporting_level := argument1;
183 l_reporting_entity_id := argument2;
184 l_sob_id := argument3;
185 l_coa_id := argument4;
186 l_co_seg_low := argument5;
187 l_co_seg_high := argument6;
188 l_gl_date_low := FND_DATE.CANONICAL_TO_DATE(argument7);
189 l_gl_date_high := FND_DATE.CANONICAL_TO_DATE(argument8);
190 l_currency_code := argument9;
191 l_batch_name_low := argument10;
192 l_batch_name_high := argument11;
193 l_customer_name_low := argument12;
194 l_customer_name_high := argument13;
195 l_deposit_date_low := FND_DATE.CANONICAL_TO_DATE(argument14);
196 l_deposit_date_high := FND_DATE.CANONICAL_TO_DATE(argument15);
197 l_receipt_status_low := argument16;
198 l_receipt_status_high := argument17;
199 l_receipt_number_low := argument18;
200 l_receipt_number_high := argument19;
201 l_receipt_date_low := FND_DATE.CANONICAL_TO_DATE(argument20);
202 l_receipt_date_high := FND_DATE.CANONICAL_TO_DATE(argument21);
203 l_bank_account_name := argument22;
204 l_payment_method := argument23;
205 l_confirmed_flag := argument24;
206 l_doc_sequence_name := argument25;
207 l_doc_sequence_number_from := argument26;
208 l_doc_sequence_number_to := argument27;
209 --
210 -- Run report
211 arrx_rc.arrc_rep (
212 l_reporting_level,
213 l_reporting_entity_id,
214 l_sob_id,
215 l_coa_id,
216 l_co_seg_low,
217 l_co_seg_high,
218 l_gl_date_low,
219 l_gl_date_high,
220 l_currency_code,
221 l_batch_name_low,
222 l_batch_name_high,
223 l_customer_name_low,
224 l_customer_name_high,
225 l_deposit_date_low,
226 l_deposit_date_high,
227 l_receipt_status_low,
228 l_receipt_status_high,
229 l_receipt_number_low,
230 l_receipt_number_high,
231 l_invoice_number_low, --Bug 1579930
232 l_invoice_number_high, --Bug 1579930
233 l_receipt_date_low,
234 l_receipt_date_high,
235 l_bank_account_name,
236 l_payment_method,
237 l_confirmed_flag,
238 l_doc_sequence_name,
239 l_doc_sequence_number_from,
240 l_doc_sequence_number_to,
241 l_request_id,
242 retcode,
243 errbuf);
244
245 commit;
246 EXCEPTION
247 WHEN OTHERS THEN
248 fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
249 fa_rx_util_pkg.debug(sqlcode);
250 fa_rx_util_pkg.debug(sqlerrm);
251 retcode := 2;
252 END RECEIPT_REGISTER;
253
254 ----------------------------
255 -- Actual Receipts Register
256 ----------------------------
257 PROCEDURE ACTUAL_RECEIPT(
258 errbuf out NOCOPY varchar2,
259 retcode out NOCOPY varchar2,
260 argument1 in varchar2, -- reporting_level
261 argument2 in varchar2, -- reporting_entity_id
262 argument3 in varchar2, -- set_of_books_id
263 argument4 in varchar2, -- coaid
264 argument5 in varchar2, -- batch_name_low
265 argument6 in varchar2, -- batch_name_high
266 argument7 in varchar2, -- customer_name_low
267 argument8 in varchar2, -- customer_name_high
268 argument9 in varchar2, -- deposit_date_low
269 argument10 in varchar2, -- deposit_date_high
270 argument11 in varchar2, -- receipt_status_low
271 argument12 in varchar2, -- receipt_status_high
272 argument13 in varchar2, -- receipt_number_low
273 argument14 in varchar2, -- receipt_number_high
274 argument15 in varchar2, -- receipt_date_low
275 argument16 in varchar2, -- receipt_date_high
276 argument17 in varchar2, -- gl_date_low
277 argument18 in varchar2, -- gl_date_high
278 argument19 in varchar2, -- currency_code
279 argument20 in varchar2, -- bank_account_name
280 argument21 in varchar2, -- payment_method
281 argument22 in varchar2, -- confirmed_flag
282 argument23 in varchar2 default 'N', -- debug flag
283 argument24 in varchar2 default 'N', -- sql trace
284 argument25 in varchar2 default null,
285 argument26 in varchar2 default null,
286 argument27 in varchar2 default null,
287 argument28 in varchar2 default null,
288 argument29 in varchar2 default null,
289 argument30 in varchar2 default null,
290 argument31 in varchar2 default null,
291 argument32 in varchar2 default null,
292 argument33 in varchar2 default null,
293 argument34 in varchar2 default null,
294 argument35 in varchar2 default null,
295 argument36 in varchar2 default null,
296 argument37 in varchar2 default null,
297 argument38 in varchar2 default null,
298 argument39 in varchar2 default null,
299 argument40 in varchar2 default null,
300 argument41 in varchar2 default null,
301 argument42 in varchar2 default null,
302 argument43 in varchar2 default null,
303 argument44 in varchar2 default null,
304 argument45 in varchar2 default null,
305 argument46 in varchar2 default null,
306 argument47 in varchar2 default null,
307 argument48 in varchar2 default null,
308 argument49 in varchar2 default null,
309 argument50 in varchar2 default null,
310 argument51 in varchar2 default null,
311 argument52 in varchar2 default null,
312 argument53 in varchar2 default null,
313 argument54 in varchar2 default null,
314 argument55 in varchar2 default null,
315 argument56 in varchar2 default null,
316 argument57 in varchar2 default null,
317 argument58 in varchar2 default null,
318 argument59 in varchar2 default null,
319 argument60 in varchar2 default null,
320 argument61 in varchar2 default null,
321 argument62 in varchar2 default null,
322 argument63 in varchar2 default null,
323 argument64 in varchar2 default null,
324 argument65 in varchar2 default null,
325 argument66 in varchar2 default null,
326 argument67 in varchar2 default null,
327 argument68 in varchar2 default null,
328 argument69 in varchar2 default null,
329 argument70 in varchar2 default null,
330 argument71 in varchar2 default null,
331 argument72 in varchar2 default null,
332 argument73 in varchar2 default null,
333 argument74 in varchar2 default null,
334 argument75 in varchar2 default null,
335 argument76 in varchar2 default null,
336 argument77 in varchar2 default null,
337 argument78 in varchar2 default null,
338 argument79 in varchar2 default null,
339 argument80 in varchar2 default null,
340 argument81 in varchar2 default null,
341 argument82 in varchar2 default null,
342 argument83 in varchar2 default null,
343 argument84 in varchar2 default null,
344 argument85 in varchar2 default null,
345 argument86 in varchar2 default null,
346 argument87 in varchar2 default null,
347 argument88 in varchar2 default null,
351 argument92 in varchar2 default null,
348 argument89 in varchar2 default null,
349 argument90 in varchar2 default null,
350 argument91 in varchar2 default null,
352 argument93 in varchar2 default null,
353 argument94 in varchar2 default null,
354 argument95 in varchar2 default null,
355 argument96 in varchar2 default null,
356 argument97 in varchar2 default null,
357 argument98 in varchar2 default null,
358 argument99 in varchar2 default null,
359 argument100 in varchar2 default null)
360 is
361 l_request_id number;
362 l_reporting_level VARCHAR2(50);
363 l_reporting_entity_id NUMBER;
364 l_sob_id NUMBER;
365 l_coa_id NUMBER;
366 l_batch_name_low varchar2(20);
367 l_batch_name_high varchar2(20);
368 l_customer_name_low varchar2(240);
369 l_customer_name_high varchar2(240);
370 l_deposit_date_low date;
371 l_deposit_date_high date;
372 l_receipt_status_low varchar2(30);
373 l_receipt_status_high varchar2(30);
374 l_receipt_number_low varchar2(30);
375 l_receipt_number_high varchar2(30);
376 l_receipt_date_low date;
377 l_receipt_date_high date;
378 l_gl_date_low date;
379 l_gl_date_high date;
380 l_currency_code varchar2(15);
381 l_bank_account_name varchar2(80);
382 l_payment_method varchar2(30);
383 l_confirmed_flag varchar2(1);
384
385 begin
386 --
387 -- SQL Trace switches and debug flags are optional
388 -- but highly recommended.
389 --ATG mandate remove sql trace code from files
390 -- if upper(substrb(argument20, 1, 1)) = 'Y' then
391 -- fa_rx_util_pkg.enable_trace;
392 -- end if;
393
394 if upper(substrb(argument23, 1, 1)) = 'Y' then
395 fa_rx_util_pkg.enable_debug;
396 end if;
397
398 --
399 -- Assign parameters doing any necessary mappings
400 -- e.g. date/number conversion
401 l_request_id := fnd_global.conc_request_id;
402 l_reporting_level := argument1;
403 l_reporting_entity_id := argument2;
404 l_sob_id := argument3;
405 l_coa_id := argument4;
406 l_batch_name_low := argument5;
407 l_batch_name_high := argument6;
408 l_customer_name_low := argument7;
409 l_customer_name_high := argument8;
410 l_deposit_date_low := FND_DATE.CANONICAL_TO_DATE(argument9);
411 l_deposit_date_high := FND_DATE.CANONICAL_TO_DATE(argument10);
412 l_receipt_status_low := argument11;
413 l_receipt_status_high := argument12;
414 l_receipt_number_low := argument13;
415 l_receipt_number_high := argument14;
416 l_receipt_date_low := FND_DATE.CANONICAL_TO_DATE(argument15);
417 l_receipt_date_high := FND_DATE.CANONICAL_TO_DATE(argument16);
418 l_gl_date_low := FND_DATE.CANONICAL_TO_DATE(argument17);
419 l_gl_date_high := FND_DATE.CANONICAL_TO_DATE(argument18);
420 l_currency_code := argument19;
421 l_bank_account_name := argument20;
422 l_payment_method := argument21;
423 l_confirmed_flag := argument22;
424 --
425 -- Run report
426 arrx_rc.arrc_rep_actual (
427 l_reporting_level,
428 l_reporting_entity_id,
429 l_sob_id,
430 l_coa_id,
431 l_batch_name_low,
432 l_batch_name_high,
433 l_customer_name_low,
434 l_customer_name_high,
435 l_deposit_date_low,
436 l_deposit_date_high,
437 l_receipt_status_low,
438 l_receipt_status_high,
439 l_receipt_number_low,
440 l_receipt_number_high,
441 l_receipt_date_low,
442 l_receipt_date_high,
443 l_gl_date_low,
444 l_gl_date_high,
445 l_currency_code,
446 l_bank_account_name,
447 l_payment_method,
448 l_confirmed_flag,
449 l_request_id,
450 retcode,
451 errbuf);
452
453 commit;
454 EXCEPTION
455 WHEN OTHERS THEN
456 fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
457 fa_rx_util_pkg.debug(sqlcode);
458 fa_rx_util_pkg.debug(sqlerrm);
459 retcode := 2;
460 END ACTUAL_RECEIPT;
461
462 -----------------------------
463 -- Applied Receipts Register
464 -----------------------------
465 PROCEDURE AR_APPL_REC_REGISTER (
466 errbuf out NOCOPY varchar2,
467 retcode out NOCOPY varchar2,
468 argument1 in varchar2, -- reporting_level
469 argument2 in varchar2, -- reporting_entity_id
470 argument3 in varchar2, -- set_of_books_id
471 argument4 in varchar2, -- coaid
472 argument5 in varchar2, -- company_segment_low
473 argument6 in varchar2, -- company_segment_high
474 argument7 in varchar2, -- gl_date_low
478 argument11 in varchar2, -- batch_name_high
475 argument8 in varchar2, -- gl_date_high
476 argument9 in varchar2, -- currency_code
477 argument10 in varchar2, -- batch_name_low
479 argument12 in varchar2, -- customer_name_low
480 argument13 in varchar2, -- customer_name_high
481 argument14 in varchar2, -- customer number low
482 argument15 in varchar2, -- customer number high
483 argument16 in varchar2, -- apply date low
484 argument17 in varchar2, -- apply date high
485 argument18 in varchar2, -- receipt_number_low
486 argument19 in varchar2, -- receipt_number_high
487 argument20 in varchar2, -- invoice number low
488 argument21 in varchar2, -- invoice number high
489 argument22 in varchar2, -- invoice type low
490 argument23 in varchar2, -- invoice type high
491 argument24 in varchar2 default 'N', -- debug flag
492 argument25 in varchar2 default 'N', -- sql trace
493 argument26 in varchar2 default null,
494 argument27 in varchar2 default null,
495 argument28 in varchar2 default null,
496 argument29 in varchar2 default null,
497 argument30 in varchar2 default null,
498 argument31 in varchar2 default null,
499 argument32 in varchar2 default null,
500 argument33 in varchar2 default null,
501 argument34 in varchar2 default null,
502 argument35 in varchar2 default null,
503 argument36 in varchar2 default null,
504 argument37 in varchar2 default null,
505 argument38 in varchar2 default null,
506 argument39 in varchar2 default null,
507 argument40 in varchar2 default null,
508 argument41 in varchar2 default null,
509 argument42 in varchar2 default null,
510 argument43 in varchar2 default null,
511 argument44 in varchar2 default null,
512 argument45 in varchar2 default null,
513 argument46 in varchar2 default null,
514 argument47 in varchar2 default null,
515 argument48 in varchar2 default null,
516 argument49 in varchar2 default null,
517 argument50 in varchar2 default null,
518 argument51 in varchar2 default null,
519 argument52 in varchar2 default null,
520 argument53 in varchar2 default null,
521 argument54 in varchar2 default null,
522 argument55 in varchar2 default null,
523 argument56 in varchar2 default null,
524 argument57 in varchar2 default null,
525 argument58 in varchar2 default null,
526 argument59 in varchar2 default null,
527 argument60 in varchar2 default null,
528 argument61 in varchar2 default null,
529 argument62 in varchar2 default null,
530 argument63 in varchar2 default null,
531 argument64 in varchar2 default null,
532 argument65 in varchar2 default null,
533 argument66 in varchar2 default null,
534 argument67 in varchar2 default null,
535 argument68 in varchar2 default null,
536 argument69 in varchar2 default null,
537 argument70 in varchar2 default null,
538 argument71 in varchar2 default null,
539 argument72 in varchar2 default null,
540 argument73 in varchar2 default null,
541 argument74 in varchar2 default null,
542 argument75 in varchar2 default null,
543 argument76 in varchar2 default null,
544 argument77 in varchar2 default null,
545 argument78 in varchar2 default null,
546 argument79 in varchar2 default null,
547 argument80 in varchar2 default null,
548 argument81 in varchar2 default null,
549 argument82 in varchar2 default null,
550 argument83 in varchar2 default null,
551 argument84 in varchar2 default null,
552 argument85 in varchar2 default null,
553 argument86 in varchar2 default null,
554 argument87 in varchar2 default null,
555 argument88 in varchar2 default null,
556 argument89 in varchar2 default null,
557 argument90 in varchar2 default null,
558 argument91 in varchar2 default null,
559 argument92 in varchar2 default null,
560 argument93 in varchar2 default null,
561 argument94 in varchar2 default null,
562 argument95 in varchar2 default null,
563 argument96 in varchar2 default null,
567 argument100 in varchar2 default null)
564 argument97 in varchar2 default null,
565 argument98 in varchar2 default null,
566 argument99 in varchar2 default null,
568
569
570 is
571
572 l_request_id number;
573 l_reporting_level VARCHAR2(50);
574 l_reporting_entity_id NUMBER;
575 l_set_of_books_id number;
576 l_coa_id NUMBER;
577 l_co_seg_low VARCHAR2(25);
578 l_co_seg_high VARCHAR2(25);
579 l_gl_date_low date;
580 l_gl_date_high date;
581 l_currency_code varchar2(15);
582 l_batch_name_low varchar2(20);
583 l_batch_name_high varchar2(20);
584 l_customer_name_low varchar2(240);
585 l_customer_name_high varchar2(240);
586 l_customer_number_low varchar2(30);
587 l_customer_number_high varchar2(30);
588 l_apply_date_low date;
589 l_apply_date_high date;
590 l_receipt_number_low varchar2(30);
591 l_receipt_number_high varchar2(30);
592 l_invoice_number_low varchar2(30);
593 l_invoice_number_high varchar2(30);
594 l_invoice_type_low varchar2(30);
595 l_invoice_type_high varchar2(30);
596 l_profile_rsob_id NUMBER;
597 l_client_info_rsob_id NUMBER;
598 l_sob_type varchar2(1);
599
600 begin
601
602 l_profile_rsob_id := NULL;
603 l_client_info_rsob_id := NULL;
604 l_sob_type := 'P';
605
606 IF upper(argument24) LIKE 'Y%' then
607 fa_rx_util_pkg.enable_debug;
608 END IF;
609
610 --ATG mandate remove sql trace from code
611 --IF Upper(argument22) LIKE 'Y%' then
612 -- fa_rx_util_pkg.enable_trace;
613
614 --END IF;
615
616 --
617 -- Assign parameters doing any necessary mappings
618 -- e.g. date/number conversion
619
620 l_request_id := fnd_global.conc_request_id;
621 l_reporting_level := argument1;
622 l_reporting_entity_id := argument2;
623 l_set_of_books_id := argument3;
624 l_coa_id := argument4;
625 l_co_seg_low := argument5;
626 l_co_seg_high := argument6;
627 l_gl_date_low := FND_DATE.CANONICAL_TO_DATE(argument7);
628 l_gl_date_high := FND_DATE.CANONICAL_TO_DATE(argument8);
629 l_currency_code := argument9;
630 l_batch_name_low := argument10;
631 l_batch_name_high := argument11;
632 l_customer_name_low := argument12;
633 l_customer_name_high := argument13;
634 l_customer_number_low := argument14;
635 l_customer_number_high := argument15;
636 l_apply_date_low := FND_DATE.CANONICAL_TO_DATE(argument16);
637 l_apply_date_high := FND_DATE.CANONICAL_TO_DATE(argument17);
638 l_receipt_number_low := argument18;
639 l_receipt_number_high := argument19;
640 l_invoice_number_low := argument20;
641 l_invoice_number_high := argument21;
642 l_invoice_type_low := argument22;
643 l_invoice_type_high := argument23;
644
645 /*
646 * Bug 2498344 - MRC Reporting project
647 * Fetch book type for the sob_id passed. IF it is run for
648 * reporting book, set the reporting sob context.
649
650
651 BEGIN
652 select mrc_sob_type_code
653 into l_sob_type
654 from gl_sets_of_books
655 where set_of_books_id = l_set_of_books_id;
656 EXCEPTION
657 WHEN OTHERS THEN
658 l_sob_type := 'P';
659 END;
660
661 IF l_sob_type = 'R'
662 THEN
663 fnd_client_info.set_currency_context(l_set_of_books_id);
664 END IF;
665 */
666
667 if l_reporting_level= 1000 then
668 l_set_of_books_id := l_reporting_entity_id;
669 elsif l_reporting_level = 3000 then
670 select set_of_books_id into l_set_of_books_id
671 from ar_system_parameters_all
672 where org_id = l_reporting_entity_id;
673 end if;
674
675 l_sob_type:='P';
676
677 --
678 -- Run report
679 arrx_rc.arar_rep (
680 l_reporting_level,
681 l_reporting_entity_id,
682 l_set_of_books_id,
683 l_coa_id,
684 l_co_seg_low,
685 l_co_seg_high,
686 l_gl_date_low,
687 l_gl_date_high,
688 l_currency_code,
689 l_batch_name_low,
690 l_batch_name_high,
691 l_customer_name_low,
692 l_customer_name_high,
693 l_customer_number_low,
694 l_customer_number_high,
695 l_apply_date_low,
696 l_apply_date_high,
697 l_receipt_number_low,
698 l_receipt_number_high,
699 l_invoice_number_low,
700 l_invoice_number_high,
701 l_invoice_type_low,
702 l_invoice_type_high,
703 l_request_id,
704 retcode,
705 errbuf);
706
707 commit;
708 EXCEPTION
709 WHEN OTHERS THEN
710 fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
711 fa_rx_util_pkg.debug(sqlcode);
712 fa_rx_util_pkg.debug(sqlerrm);
713 retcode := 2;
714 END AR_APPL_REC_REGISTER;
718 ---------------------------------------
715
716 ---------------------------------------
717 -- Miscellaneous Receipts Register
719 PROCEDURE AR_MISC_TRX_REGISTER (
720 errbuf out NOCOPY varchar2,
721 retcode out NOCOPY varchar2,
722 argument1 in varchar2, -- reporting_level
723 argument2 in varchar2, -- reporting_entity_id
724 argument3 in varchar2, -- set_of_books_id
725 argument4 in varchar2, -- coaid
726 argument5 in varchar2, -- company_segment_low
727 argument6 in varchar2, -- company_segment_high
728 argument7 in varchar2, -- gl_date_low
729 argument8 in varchar2, -- gl_date_high
730 argument9 in varchar2, -- currency_code
731 argument10 in varchar2, -- batch_name_low
732 argument11 in varchar2, -- batch_name_high
733 argument12 in varchar2, -- deposit_date_low
734 argument13 in varchar2, -- deposit_date_high
735 argument14 in varchar2, -- receipt_number_low
736 argument15 in varchar2, -- receipt_number_high
737 argument16 in varchar2, -- doc_sequence_name
738 argument17 in varchar2, -- doc_sequence_number_from
739 argument18 in varchar2, -- doc_sequence_number_to
740 argument19 in varchar2 default 'N', -- debug flag
741 argument20 in varchar2 default 'N', -- sql trace
742 argument21 in varchar2 default null,
743 argument22 in varchar2 default null,
744 argument23 in varchar2 default null,
745 argument24 in varchar2 default null,
746 argument25 in varchar2 default null,
747 argument26 in varchar2 default null,
748 argument27 in varchar2 default null,
749 argument28 in varchar2 default null,
750 argument29 in varchar2 default null,
751 argument30 in varchar2 default null,
752 argument31 in varchar2 default null,
753 argument32 in varchar2 default null,
754 argument33 in varchar2 default null,
755 argument34 in varchar2 default null,
756 argument35 in varchar2 default null,
757 argument36 in varchar2 default null,
758 argument37 in varchar2 default null,
759 argument38 in varchar2 default null,
760 argument39 in varchar2 default null,
761 argument40 in varchar2 default null,
762 argument41 in varchar2 default null,
763 argument42 in varchar2 default null,
764 argument43 in varchar2 default null,
765 argument44 in varchar2 default null,
766 argument45 in varchar2 default null,
767 argument46 in varchar2 default null,
768 argument47 in varchar2 default null,
769 argument48 in varchar2 default null,
770 argument49 in varchar2 default null,
771 argument50 in varchar2 default null,
772 argument51 in varchar2 default null,
773 argument52 in varchar2 default null,
774 argument53 in varchar2 default null,
775 argument54 in varchar2 default null,
776 argument55 in varchar2 default null,
777 argument56 in varchar2 default null,
778 argument57 in varchar2 default null,
779 argument58 in varchar2 default null,
780 argument59 in varchar2 default null,
781 argument60 in varchar2 default null,
782 argument61 in varchar2 default null,
783 argument62 in varchar2 default null,
784 argument63 in varchar2 default null,
785 argument64 in varchar2 default null,
786 argument65 in varchar2 default null,
787 argument66 in varchar2 default null,
788 argument67 in varchar2 default null,
789 argument68 in varchar2 default null,
790 argument69 in varchar2 default null,
791 argument70 in varchar2 default null,
792 argument71 in varchar2 default null,
793 argument72 in varchar2 default null,
794 argument73 in varchar2 default null,
795 argument74 in varchar2 default null,
796 argument75 in varchar2 default null,
797 argument76 in varchar2 default null,
798 argument77 in varchar2 default null,
799 argument78 in varchar2 default null,
800 argument79 in varchar2 default null,
801 argument80 in varchar2 default null,
802 argument81 in varchar2 default null,
803 argument82 in varchar2 default null,
804 argument83 in varchar2 default null,
808 argument87 in varchar2 default null,
805 argument84 in varchar2 default null,
806 argument85 in varchar2 default null,
807 argument86 in varchar2 default null,
809 argument88 in varchar2 default null,
810 argument89 in varchar2 default null,
811 argument90 in varchar2 default null,
812 argument91 in varchar2 default null,
813 argument92 in varchar2 default null,
814 argument93 in varchar2 default null,
815 argument94 in varchar2 default null,
816 argument95 in varchar2 default null,
817 argument96 in varchar2 default null,
818 argument97 in varchar2 default null,
819 argument98 in varchar2 default null,
820 argument99 in varchar2 default null,
821 argument100 in varchar2 default null)
822 is
823
824 l_request_id number;
825 l_reporting_level VARCHAR2(50);
826 l_reporting_entity_id NUMBER;
827 l_set_of_books_id number;
828 l_coa_id NUMBER;
829 l_co_seg_low VARCHAR2(25);
830 l_co_seg_high VARCHAR2(25);
831 l_gl_date_low date;
832 l_gl_date_high date;
833 l_currency_code varchar2(15);
834 l_batch_name_low varchar2(20);
835 l_batch_name_high varchar2(20);
836 l_deposit_date_low date;
837 l_deposit_date_high date;
838 l_receipt_number_low varchar2(30);
839 l_receipt_number_high varchar2(30);
840 l_doc_sequence_name varchar2(30);
841 l_doc_sequence_number_from number(15);
842 l_doc_sequence_number_to number(15);
843
844 begin
845
846
847 -- SQL Trace switches and debug flags are optional
848 -- but highly recommended.
849 --ATG mandate remove sql trace logic from files
850 -- if upper(substrb(argument13, 1, 1)) = 'Y' then
851 -- fa_rx_util_pkg.enable_trace;
852 -- end if;
853
854 if upper(substrb(argument19, 1, 1)) = 'Y' then
855 fa_rx_util_pkg.enable_debug;
856 end if;
857
858 fa_rx_util_pkg.debug('AR_MISC_TRX_REGISTER called with parameters
859 Reporting Level : '||argument1||'
860 Reporting Entity ID : '||argument2||'
861 Set of Books ID : '||argument3||'
862 Chart of Accounts ID : '||argument4||'
863 Company Segment Low : '||argument5||'
864 Company Segment High : '||argument6||'
865 GL Date From : '||argument7||'
866 GL Date To : '||argument8||'
867 Entered Currency : '||argument9||'
868 Batch Name Low : '||argument10||'
869 Batch Name High : '||argument11||'
870 Deposit Date Low : '||argument12||'
871 Deposit Date High : '||argument13||'
872 Receipt Number Low : '||argument14||'
873 Receipt Number High : '||argument15);
874 --
875 -- Assign parameters doing any necessary mappings
876 -- e.g. date/number conversion
877 l_request_id := fnd_global.conc_request_id;
878 l_reporting_level := argument1;
879 l_reporting_entity_id := argument2;
880 l_set_of_books_id := argument3;
881 l_coa_id := argument4;
882 l_co_seg_low := argument5;
883 l_co_seg_high := argument6;
884 l_gl_date_low := FND_DATE.CANONICAL_TO_DATE(argument7);
885 l_gl_date_high := FND_DATE.CANONICAL_TO_DATE(argument8);
886 l_currency_code := argument9;
887 l_batch_name_low := argument10;
888 l_batch_name_high := argument11;
889 l_deposit_date_low := FND_DATE.CANONICAL_TO_DATE(argument12);
890 l_deposit_date_high := FND_DATE.CANONICAL_TO_DATE(argument13);
891 l_receipt_number_low := argument14;
892 l_receipt_number_high := argument15;
893 l_doc_sequence_name := argument17;
894 l_doc_sequence_number_from := argument17;
895 l_doc_sequence_number_to := argument18;
896
897
898 --
899 -- Run report
900 arrx_rc.armtr_rep (
901 l_reporting_level,
902 l_reporting_entity_id,
903 l_set_of_books_id,
904 l_coa_id,
905 l_co_seg_low,
906 l_co_seg_high,
907 l_gl_date_low,
908 l_gl_date_high,
909 l_currency_code,
910 l_batch_name_low,
911 l_batch_name_high,
912 l_deposit_date_low,
913 l_deposit_date_high,
914 l_receipt_number_low,
915 l_receipt_number_high,
916 l_doc_sequence_name,
917 l_doc_sequence_number_from,
918 l_doc_sequence_number_to,
919 l_request_id,
920 retcode,
921 errbuf);
922
923 commit;
924 EXCEPTION
925 WHEN OTHERS THEN
926 fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
927 fa_rx_util_pkg.debug(sqlcode);
928 fa_rx_util_pkg.debug(sqlerrm);
929 retcode := 2;
930
931 END AR_MISC_TRX_REGISTER;
932
933
934
935
936
937
938
939 END ARRX_C_RC;