[Home] [Help]
164: from ar_system_parameters;
165:
166: process_status := 'STARTED AUTO_CREATE_REMIT_PROGRAM';
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(+)');
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
165:
166: process_status := 'STARTED AUTO_CREATE_REMIT_PROGRAM';
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(+)');
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
166: process_status := 'STARTED AUTO_CREATE_REMIT_PROGRAM';
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(+)');
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(+)');
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(+)');
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
176: FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch ID ' || p_batch_id);
169: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTIONS ----------------');
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
176: FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch ID ' || p_batch_id);
177:
170: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_flag ' || p_create_flag);
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
176: FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch ID ' || p_batch_id);
177:
178: --------------------------------------------------------------
171: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_flag ' || p_approve_flag);
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
176: FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch ID ' || p_batch_id);
177:
178: --------------------------------------------------------------
179: -- Convert parameters passed to the appropriate datatype ---
172: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_flag ' || p_format_flag);
173: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_flag ' || p_print_flag);
174: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_flag ' || p_print_bills_flag);
175: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_flag ' || p_cancel_flag);
176: FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch ID ' || p_batch_id);
177:
178: --------------------------------------------------------------
179: -- Convert parameters passed to the appropriate datatype ---
180: --------------------------------------------------------------
262: IF p_print_bills_flag = 'Y' and instr(process_status,'EXCEPTION') = 0 THEN
263: ARP_PROGRAM_BR_REMIT.print_bills_remit_pvt(l_batch_id);
264: END IF;
265:
266: FND_FILE.PUT_LINE(FND_FILE.LOG,'auto_create_remit_program(-)');
267:
268: process_status := 'COMPLETED AUTO_CREATE_REMIT_PROGRAM';
269:
270: EXCEPTION
268: process_status := 'COMPLETED AUTO_CREATE_REMIT_PROGRAM';
269:
270: EXCEPTION
271: WHEN OTHERS THEN
272: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.auto_create_remit_program');
273: RAISE;
274:
275: END auto_create_remit_program;
276:
342: BEGIN
343:
344: process_status := 'STARTED CREATE_REMIT_PVT';
345:
346: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_remit_pvt (+)');
347:
348: SAVEPOINT create_remit_PVT;
349:
350: -- lock and fetch of the batch row
437: l_batch_rec.control_amount := l_control_amount;
438: l_batch_rec.batch_applied_status := 'COMPLETED_CREATION';
439: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
440:
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CREATE --------------');
442: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_control_count);
444: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_control_amount);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
438: l_batch_rec.batch_applied_status := 'COMPLETED_CREATION';
439: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
440:
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CREATE --------------');
442: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_control_count);
444: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_control_amount);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
446:
439: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
440:
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CREATE --------------');
442: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_control_count);
444: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_control_amount);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
446:
447: COMMIT;
440:
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CREATE --------------');
442: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_control_count);
444: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_control_amount);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
446:
447: COMMIT;
448:
441: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CREATE --------------');
442: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
443: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_control_count);
444: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_control_amount);
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
446:
447: COMMIT;
448:
449: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_remit_pvt (-)');
445: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------');
446:
447: COMMIT;
448:
449: FND_FILE.PUT_LINE(FND_FILE.LOG,'create_remit_pvt (-)');
450:
451: process_status := 'COMPLETED CREATE_REMIT_PVT';
452:
453: EXCEPTION
454: WHEN OTHERS THEN
455:
456: process_status := 'EXCEPTION CREATE_REMIT_PVT';
457:
458: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.create_remit_pvt - ROLLBACK');
459: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
460: ROLLBACK TO create_remit_PVT;
461: RAISE;
462:
455:
456: process_status := 'EXCEPTION CREATE_REMIT_PVT';
457:
458: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.create_remit_pvt - ROLLBACK');
459: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
460: ROLLBACK TO create_remit_PVT;
461: RAISE;
462:
463: END create_remit_pvt;
497: BEGIN
498:
499: process_status := 'STARTED CANCEL_REMIT_PVT';
500:
501: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_remit_pvt (+)');
502:
503: SAVEPOINT cancel_remit_PVT;
504:
505: -- lock and fetch of the batch row
517: -- the batch row is updated in the procedure ARP_BR_REMIT_BATCHES.cancel_remit
518: -- with the status set to 'CL', the control count and the control amount set to zero
519: -- and the batch applied status set to 'completed_cancellation'
520:
521: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CANCEL ---------------');
522: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
523: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
524:
525: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_remit_pvt (-)');
518: -- with the status set to 'CL', the control count and the control amount set to zero
519: -- and the batch applied status set to 'completed_cancellation'
520:
521: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CANCEL ---------------');
522: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
523: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
524:
525: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_remit_pvt (-)');
526:
519: -- and the batch applied status set to 'completed_cancellation'
520:
521: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CANCEL ---------------');
522: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
523: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
524:
525: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_remit_pvt (-)');
526:
527: process_status := 'COMPLETED CANCEL_REMIT_PVT';
521: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION CANCEL ---------------');
522: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
523: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
524:
525: FND_FILE.PUT_LINE(FND_FILE.LOG,'cancel_remit_pvt (-)');
526:
527: process_status := 'COMPLETED CANCEL_REMIT_PVT';
528:
529: EXCEPTION
530: WHEN OTHERS THEN
531:
532: process_status := 'EXCEPTION CANCEL_REMIT_PVT';
533:
534: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.cancel_remit_pvt - ROLLBACK');
535: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
536: ROLLBACK TO cancel_remit_PVT;
537:
538: END cancel_remit_pvt;
531:
532: process_status := 'EXCEPTION CANCEL_REMIT_PVT';
533:
534: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.cancel_remit_pvt - ROLLBACK');
535: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
536: ROLLBACK TO cancel_remit_PVT;
537:
538: END cancel_remit_pvt;
539:
581: BEGIN
582:
583: process_status := 'STARTED APPROVE_REMIT_PVT';
584:
585: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_remit_pvt (+)');
586:
587: SAVEPOINT approve_remit_PVT;
588:
589: -- lock and fetch of the batch row
613: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
614:
615: commit;
616:
617: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION APPROVE --------------');
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
614:
615: commit;
616:
617: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION APPROVE --------------');
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
622:
615: commit;
616:
617: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION APPROVE --------------');
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
622:
623: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_remit_pvt (-)');
616:
617: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION APPROVE --------------');
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
622:
623: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_remit_pvt (-)');
624:
617: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION APPROVE --------------');
618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number :'||l_batch_rec.name);
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
622:
623: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_remit_pvt (-)');
624:
625: process_status := 'COMPLETED APPROVE_REMIT_PVT';
619: FND_FILE.PUT_LINE(FND_FILE.LOG,'Count :'||l_batch_rec.control_count);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,'Amount :'||l_batch_rec.control_amount);
621: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
622:
623: FND_FILE.PUT_LINE(FND_FILE.LOG,'approve_remit_pvt (-)');
624:
625: process_status := 'COMPLETED APPROVE_REMIT_PVT';
626:
627: EXCEPTION
628: WHEN OTHERS THEN
629:
630: process_status := 'EXCEPTION APPROVE_REMIT_PVT';
631:
632: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.approve_remit_pvt - ROLLBACK');
633: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
634: ROLLBACK TO approve_remit_PVT;
635:
636: IF cur_br%ISOPEN THEN
629:
630: process_status := 'EXCEPTION APPROVE_REMIT_PVT';
631:
632: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.approve_remit_pvt - ROLLBACK');
633: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
634: ROLLBACK TO approve_remit_PVT;
635:
636: IF cur_br%ISOPEN THEN
637: CLOSE cur_br;
682: BEGIN
683:
684: process_status := 'STARTED FORMAT_REMIT_PVT';
685:
686: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_remit_pvt (+)');
687:
688: SAVEPOINT format_remit_PVT;
689:
690: -- lock and fetch of the batch row
704: FND_MESSAGE.set_name('AR','AR_BR_CANNOT_FORMAT_REMIT');
705: APP_EXCEPTION.raise_exception;
706: END IF;
707:
708: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION FORMAT ---------------');
709: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
710:
711: ----------------------------------------------------------------------
712: -- Submit the transmission program as a concurrent request
705: APP_EXCEPTION.raise_exception;
706: END IF;
707:
708: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------- ACTION FORMAT ---------------');
709: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
710:
711: ----------------------------------------------------------------------
712: -- Submit the transmission program as a concurrent request
713: ----------------------------------------------------------------------
750: FND_MESSAGE.set_name('AR','AR_BR_BATCH_SUBMIT_FAILED');
751: FND_MESSAGE.set_token('PROCEDURE','ARP_PROGRAM_BR_REMIT.format_remit_pvt');
752: APP_EXCEPTION.raise_exception;
753: ELSE
754: FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Request -'||format_program||'. Request ID ='||to_char(l_request_id));
755: END IF;
756:
757: -- update the batch row with the control count and the control amount
758: l_batch_rec.batch_applied_status := 'COMPLETED_FORMAT';
759: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
760:
761: commit;
762:
763: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
764:
765: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_remit_pvt (-)');
766:
767: process_status := 'COMPLETED FORMAT_REMIT_PVT';
761: commit;
762:
763: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
764:
765: FND_FILE.PUT_LINE(FND_FILE.LOG,'format_remit_pvt (-)');
766:
767: process_status := 'COMPLETED FORMAT_REMIT_PVT';
768:
769: EXCEPTION
770: WHEN OTHERS THEN
771:
772: process_status := 'EXCEPTION FORMAT_REMIT_PVT';
773:
774: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.format_remit_pvt - ROLLBACK');
775: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
776: ROLLBACK TO format_remit_PVT;
777:
778:
771:
772: process_status := 'EXCEPTION FORMAT_REMIT_PVT';
773:
774: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.format_remit_pvt - ROLLBACK');
775: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
776: ROLLBACK TO format_remit_PVT;
777:
778:
779: END format_remit_pvt;
825: Where program_id = l_batch_rec.auto_print_program_id;
826:
827: BEGIN
828:
829: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_remit_pvt (+)');
830:
831: SAVEPOINT print_remit_PVT;
832:
833: -- lock and fetch of the batch row
872: print_program := 'ARBRRMBM';
873: END IF;
874: CLOSE prt_program;
875:
876: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Report ------------');
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
873: END IF;
874: CLOSE prt_program;
875:
876: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Report ------------');
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
874: CLOSE prt_program;
875:
876: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Report ------------');
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
875:
876: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Report ------------');
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
876: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Report ------------');
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
877: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
878: FND_FILE.PUT_LINE(FND_FILE.LOG,'Report '||print_program||' parameters');
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
879: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
880: FND_FILE.PUT_LINE(FND_FILE.LOG,'SORT BY '||l_sort_by);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
881: FND_FILE.PUT_LINE(FND_FILE.LOG,'status '||l_batch_rec.batch_applied_status);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
882: FND_FILE.PUT_LINE(FND_FILE.LOG,'SUM OR DET '||l_sum_or_det);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
890: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT ACCOUNT USE '||l_batch_rec.remit_bank_acct_use_id);
883: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH DATE '||fnd_date.date_to_canonical(l_batch_rec.batch_date));
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
890: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT ACCOUNT USE '||l_batch_rec.remit_bank_acct_use_id);
891:
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEPOSIT '||l_batch_rec.bank_deposit_number);
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
890: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT ACCOUNT USE '||l_batch_rec.remit_bank_acct_use_id);
891:
892:
885: FND_FILE.PUT_LINE(FND_FILE.LOG,'NAME '||l_batch_rec.name);
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
890: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT ACCOUNT USE '||l_batch_rec.remit_bank_acct_use_id);
891:
892:
893: -- SSA - R12 : set org id prior to calling submit_request
886: FND_FILE.PUT_LINE(FND_FILE.LOG,'INCLUDE '||l_include_formatted);
887: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT METHOD '||l_batch_rec.remit_method_code);
888: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BANK '||l_remit_bank);
889: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT BRANCH '||l_remit_bank_branch);
890: FND_FILE.PUT_LINE(FND_FILE.LOG,'REMIT ACCOUNT USE '||l_batch_rec.remit_bank_acct_use_id);
891:
892:
893: -- SSA - R12 : set org id prior to calling submit_request
894: FND_REQUEST.set_org_id(g_org_id);
932: FND_MESSAGE.set_name('AR','AR_BR_BATCH_SUBMIT_FAILED');
933: FND_MESSAGE.set_token('PROCEDURE','ARP_PROGRAM_BR_REMIT.print_remit_pvt');
934: APP_EXCEPTION.raise_exception;
935: ELSE
936: FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Request - '||print_program||'. Request ID ='||to_char(l_request_id));
937: END IF;
938:
939: commit;
940:
937: END IF;
938:
939: commit;
940:
941: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
942:
943: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_remit_pvt (-)');
944:
945: EXCEPTION
939: commit;
940:
941: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
942:
943: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_remit_pvt (-)');
944:
945: EXCEPTION
946: WHEN OTHERS THEN
947:
944:
945: EXCEPTION
946: WHEN OTHERS THEN
947:
948: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.print_remit_pvt - ROLLBACK');
949: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
950: ROLLBACK TO print_remit_PVT;
951:
952: END print_remit_pvt;
945: EXCEPTION
946: WHEN OTHERS THEN
947:
948: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.print_remit_pvt - ROLLBACK');
949: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
950: ROLLBACK TO print_remit_PVT;
951:
952: END print_remit_pvt;
953:
985: l_format VARCHAR2(30) := 'REMIT BATCH';
986:
987: BEGIN
988:
989: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_remit_pvt (+)');
990:
991: SAVEPOINT print_bills_remit_PVT;
992:
993: -- lock and fetch of the batch row
993: -- lock and fetch of the batch row
994: l_batch_rec.batch_id := p_batch_id;
995: ARP_CR_BATCHES_PKG.lock_fetch_p(l_batch_rec);
996:
997: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Bills -------------');
998: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
999: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
1000: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID '||p_batch_id);
1001: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
994: l_batch_rec.batch_id := p_batch_id;
995: ARP_CR_BATCHES_PKG.lock_fetch_p(l_batch_rec);
996:
997: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Bills -------------');
998: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
999: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
1000: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID '||p_batch_id);
1001: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
1002:
995: ARP_CR_BATCHES_PKG.lock_fetch_p(l_batch_rec);
996:
997: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Bills -------------');
998: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
999: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
1000: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID '||p_batch_id);
1001: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
1002:
1003: -- SSA - R12 : set org id prior to calling submit_request
996:
997: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Bills -------------');
998: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
999: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
1000: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID '||p_batch_id);
1001: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
1002:
1003: -- SSA - R12 : set org id prior to calling submit_request
1004: FND_REQUEST.set_org_id(g_org_id);
997: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------- ACTION Print Bills -------------');
998: FND_FILE.PUT_LINE(FND_FILE.LOG,'BR Remittance number : ' || l_batch_rec.name);
999: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
1000: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID '||p_batch_id);
1001: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID '||arp_global.set_of_books_id);
1002:
1003: -- SSA - R12 : set org id prior to calling submit_request
1004: FND_REQUEST.set_org_id(g_org_id);
1005:
1018: FND_MESSAGE.set_name('AR','AR_BR_BATCH_SUBMIT_FAILED');
1019: FND_MESSAGE.set_token('PROCEDURE','ARP_PROGRAM_BR_REMIT.print_bills_remit_pvt');
1020: APP_EXCEPTION.raise_exception;
1021: ELSE
1022: FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Request - ARBRFMTW. Request ID ='||to_char(l_request_id));
1023: END IF;
1024:
1025: commit;
1026:
1023: END IF;
1024:
1025: commit;
1026:
1027: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
1028:
1029: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_remit_pvt (-)');
1030:
1031: EXCEPTION
1025: commit;
1026:
1027: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------');
1028:
1029: FND_FILE.PUT_LINE(FND_FILE.LOG,'print_bills_remit_pvt (-)');
1030:
1031: EXCEPTION
1032: WHEN OTHERS THEN
1033:
1030:
1031: EXCEPTION
1032: WHEN OTHERS THEN
1033:
1034: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.print_bills_remit_pvt - ROLLBACK');
1035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1036: ROLLBACK TO print_bills_remit_PVT;
1037:
1038: END print_bills_remit_pvt;
1031: EXCEPTION
1032: WHEN OTHERS THEN
1033:
1034: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_BR_REMIT.print_bills_remit_pvt - ROLLBACK');
1035: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1036: ROLLBACK TO print_bills_remit_PVT;
1037:
1038: END print_bills_remit_pvt;
1039:
1143:
1144: BEGIN
1145:
1146: IF PG_DEBUG in ('Y', 'C') THEN
1147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering payment processing...');
1148: END IF;
1149:
1150:
1151:
1205:
1206:
1207:
1208: IF PG_DEBUG in ('Y', 'C') THEN
1209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1211: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1212:
1213: END IF;
1206:
1207:
1208: IF PG_DEBUG in ('Y', 'C') THEN
1209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1211: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1212:
1213: END IF;
1214:
1207:
1208: IF PG_DEBUG in ('Y', 'C') THEN
1209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1210: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1211: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1212:
1213: END IF;
1214:
1215: IF l_trxn_entity_id IS NOT NULL THEN
1256:
1257: end if;
1258:
1259: IF l_auth_flag <> 'Y' then
1260: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1261:
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1259: IF l_auth_flag <> 'Y' then
1260: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1261:
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1260: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1261:
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1261:
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1266: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.Int_Bank_Country_Code ' || to_char(l_payee_rec.Int_Bank_Country_Code) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1267: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1268: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1269: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1277:
1270: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1277:
1278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1277:
1278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1279: END IF;
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1277:
1278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1279: END IF;
1280:
1274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1277:
1278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1279: END IF;
1280:
1281:
1282: IBY_FNDCPT_TRXN_PUB.Create_Authorization(
1297:
1298: x_msg_count := l_msg_count;
1299: x_msg_data := l_msg_data;
1300:
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1303:
1304: FOR i IN 1..l_msg_count LOOP
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1298: x_msg_count := l_msg_count;
1299: x_msg_data := l_msg_data;
1300:
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1303:
1304: FOR i IN 1..l_msg_count LOOP
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1306: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1303:
1304: FOR i IN 1..l_msg_count LOOP
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1306: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1307: END LOOP;
1308:
1309: IF PG_DEBUG in ('Y', 'C') THEN
1306: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1307: END LOOP;
1308:
1309: IF PG_DEBUG in ('Y', 'C') THEN
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1307: END LOOP;
1308:
1309: IF PG_DEBUG in ('Y', 'C') THEN
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1308:
1309: IF PG_DEBUG in ('Y', 'C') THEN
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1309: IF PG_DEBUG in ('Y', 'C') THEN
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1320: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1320: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1321:
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1320: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1321:
1322: END IF;
1315: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1320: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1321:
1322: END IF;
1323:
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1319: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1320: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1321:
1322: END IF;
1323:
1324: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1328: set approval_code = l_authresult_rec.Auth_code ||'AR'||to_char(l_authresult_rec.Auth_Id)
1329: where customer_trx_id = br_rem_info.customer_trx_id ;
1330:
1331: IF PG_DEBUG in ('Y', 'C') THEN
1332: FND_FILE.PUT_LINE(FND_FILE.LOG,'TRX updated with auth_id and auth code ');
1333: END IF;
1334:
1335: END IF;
1336:
1336:
1337:
1338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1339:
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'in AR AUTH FAILED.');
1341: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
1342: FND_MSG_PUB.Add;
1343:
1344: IF l_response_rec.Result_Code is NOT NULL THEN
1346: ---Raise the PAYMENT error code concatenated with the message
1347:
1348: l_iby_msg_data := substrb( l_response_rec.Result_Code || ': '|| l_response_rec.Result_Message , 1, 240);
1349:
1350: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_iby_msg_data: ' || l_iby_msg_data);
1351: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1352: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
1353:
1354: FND_MSG_PUB.Add;
1391:
1392: l_program_application_id := arp_standard.application_id ;
1393:
1394:
1395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1396: IF PG_DEBUG in ('Y', 'C') THEN
1397: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1398: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1399: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1393:
1394:
1395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1396: IF PG_DEBUG in ('Y', 'C') THEN
1397: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1398: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1399: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1400: END IF;
1401:
1394:
1395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1396: IF PG_DEBUG in ('Y', 'C') THEN
1397: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1398: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1399: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1400: END IF;
1401:
1402: IBY_FNDCPT_TRXN_PUB.Create_Settlements(
1395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1396: IF PG_DEBUG in ('Y', 'C') THEN
1397: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1398: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1399: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1400: END IF;
1401:
1402: IBY_FNDCPT_TRXN_PUB.Create_Settlements(
1403: p_api_version => 1.0,
1410: x_msg_data => ls_msg_data,
1411: x_responses => ls_response_rec_tab );
1412:
1413:
1414: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1415: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1416:
1417: FOR i IN 1..ls_msg_count LOOP
1418: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1411: x_responses => ls_response_rec_tab );
1412:
1413:
1414: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1415: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1416:
1417: FOR i IN 1..ls_msg_count LOOP
1418: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1419: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1414: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1415: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1416:
1417: FOR i IN 1..ls_msg_count LOOP
1418: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1419: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1420: END LOOP;
1421:
1422: IF PG_DEBUG in ('Y' , 'C') THEN
1422: IF PG_DEBUG in ('Y' , 'C') THEN
1423:
1424: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1425:
1426: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1423:
1424: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1425:
1426: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1431: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1424: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1425:
1426: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1431: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1432:
1425:
1426: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1431: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1432:
1433: END LOOP;
1426: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1431: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1432:
1433: END LOOP;
1434:
1427: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1428: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1429: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1430: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1431: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1432:
1433: END LOOP;
1434:
1435: END IF;
1436: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1437:
1438: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1439:
1440: fnd_file.put_line(FND_FILE.LOG,'the value of ls_response_rec.Trxn_Extension_Id = ' || (ls_response_rec_tab(i).Trxn_Extension_Id ));
1441: END LOOP;
1442:
1443: END IF;
1444:
1448:
1449:
1450: IF ls_response_rec_tab(i).Result.Result_code in ( 'SETTLEMENT_SUCCESS','SETTLEMENT_PENDING') THEN
1451:
1452: fnd_file.put_line(FND_FILE.LOG,'SETTLEMENT SUCCESS FOR Trxn_Extension_Id = '
1453: || (ls_response_rec_tab(i).Trxn_Extension_Id ));
1454:
1455:
1456: ELSE
1462:
1463: ls_iby_msg_data := substrb( ls_response_rec_tab(i).Result.Result_Code || ': '||
1464: ls_response_rec_tab(i).Result.Result_Message , 1, 240);
1465:
1466: fnd_file.put_line(FND_FILE.LOG, 'ls_iby_msg_data: ' || ls_iby_msg_data);
1467: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1468: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
1469:
1470: FND_MSG_PUB.Add;