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