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:
1133:
1134: BEGIN
1135:
1136: IF PG_DEBUG in ('Y', 'C') THEN
1137: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering payment processing...');
1138: END IF;
1139:
1140:
1141:
1188:
1189:
1190:
1191: IF PG_DEBUG in ('Y', 'C') THEN
1192: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1193: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1194: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1195:
1196: END IF;
1189:
1190:
1191: IF PG_DEBUG in ('Y', 'C') THEN
1192: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1193: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1194: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1195:
1196: END IF;
1197:
1190:
1191: IF PG_DEBUG in ('Y', 'C') THEN
1192: FND_FILE.PUT_LINE(FND_FILE.LOG, 'check and then call Auth');
1193: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1194: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1195:
1196: END IF;
1197:
1198: IF l_trxn_entity_id IS NOT NULL THEN
1239:
1240: end if;
1241:
1242: IF l_auth_flag <> 'Y' then
1243: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1244:
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1242: IF l_auth_flag <> 'Y' then
1243: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1244:
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1243: FND_FILE.PUT_LINE(FND_FILE.LOG,'auth needs to called');
1244:
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1244:
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get auth for pmt_trxn_extn_id ');
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1247: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_id ' || to_char(l_payee_rec.org_id) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payee_rec.org_type ' || to_char( l_payee_rec.org_type) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1249: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Payment_Function ' || to_char( l_payer_rec.Payment_Function) );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.Party_Id ' || to_char( l_payer_rec.Party_Id) );
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_id ' || to_char(l_payer_rec.org_id) );
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1259:
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_payer_rec.org_type ' || to_char( l_payer_rec.org_type) );
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1259:
1260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1253: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Cust_Account_Id ' || to_char(l_payer_rec.Cust_Account_Id) );
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1259:
1260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1261: END IF;
1254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_payer_rec.Account_Site_Id ' || to_char(l_payer_rec.Account_Site_Id) );
1255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_trxn_entity_id ' || to_char(l_trxn_entity_id ) );
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1259:
1260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1261: END IF;
1262:
1256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.value: ' || to_char(l_amount_rec.value) );
1257: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_amount_rec.currency_code: ' || l_amount_rec.currency_code );
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_auth_attribs_rec.RiskEval_Enable_Flag: ' || l_auth_attribs_rec.RiskEval_Enable_Flag);
1259:
1260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calling get_auth for pmt_trxn_extn_id ');
1261: END IF;
1262:
1263:
1264: IBY_FNDCPT_TRXN_PUB.Create_Authorization(
1279:
1280: x_msg_count := l_msg_count;
1281: x_msg_data := l_msg_data;
1282:
1283: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1284: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1285:
1286: FOR i IN 1..l_msg_count LOOP
1287: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1280: x_msg_count := l_msg_count;
1281: x_msg_data := l_msg_data;
1282:
1283: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1284: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1285:
1286: FOR i IN 1..l_msg_count LOOP
1287: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1288: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1283: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_return_status :<' || l_return_status || '>');
1284: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg_count :<' || l_msg_count || '>');
1285:
1286: FOR i IN 1..l_msg_count LOOP
1287: FND_FILE.PUT_LINE(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1288: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1289: END LOOP;
1290:
1291: IF PG_DEBUG in ('Y', 'C') THEN
1288: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1289: END LOOP;
1290:
1291: IF PG_DEBUG in ('Y', 'C') THEN
1292: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1289: END LOOP;
1290:
1291: IF PG_DEBUG in ('Y', 'C') THEN
1292: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1290:
1291: IF PG_DEBUG in ('Y', 'C') THEN
1292: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1291: IF PG_DEBUG in ('Y', 'C') THEN
1292: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1292: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------');
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Code: ' || l_response_rec.Result_Code);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_Category: ' || l_response_rec.Result_Category);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1302: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_response_rec.Result_message : ' || l_response_rec.Result_message );
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1302: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1303:
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Id: ' || l_authresult_rec.Auth_Id);
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1302: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1303:
1304: END IF;
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Date: ' || l_authresult_rec.Auth_Date);
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1302: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1303:
1304: END IF;
1305:
1298: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Auth_Code: ' || l_authresult_rec.Auth_Code);
1299: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.AVS_Code: ' || l_authresult_rec.AVS_Code);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Code: ' || l_authresult_rec.PaymentSys_Code);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.PaymentSys_Msg: ' || l_authresult_rec.PaymentSys_Msg);
1302: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_authresult_rec.Risk_Result: ' || l_authresult_rec.Risk_Result);
1303:
1304: END IF;
1305:
1306: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1310: set approval_code = l_authresult_rec.Auth_code ||'AR'||to_char(l_authresult_rec.Auth_Id)
1311: where customer_trx_id = br_rem_info.customer_trx_id ;
1312:
1313: IF PG_DEBUG in ('Y', 'C') THEN
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'TRX updated with auth_id and auth code ');
1315: END IF;
1316:
1317: END IF;
1318:
1318:
1319:
1320: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1321:
1322: FND_FILE.PUT_LINE(FND_FILE.LOG,'in AR AUTH FAILED.');
1323: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
1324: FND_MSG_PUB.Add;
1325:
1326: IF l_response_rec.Result_Code is NOT NULL THEN
1328: ---Raise the PAYMENT error code concatenated with the message
1329:
1330: l_iby_msg_data := substrb( l_response_rec.Result_Code || ': '|| l_response_rec.Result_Message , 1, 240);
1331:
1332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_iby_msg_data: ' || l_iby_msg_data);
1333: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1334: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
1335:
1336: FND_MSG_PUB.Add;
1373:
1374: l_program_application_id := arp_standard.application_id ;
1375:
1376:
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1380: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1381: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1375:
1376:
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1380: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1381: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1382: END IF;
1383:
1376:
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1380: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1381: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1382: END IF;
1383:
1384: IBY_FNDCPT_TRXN_PUB.Create_Settlements(
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CALL THE SETTLEMENT API');
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: fnd_file.put_line(FND_FILE.LOG, 'Calling bulk settlement');
1380: fnd_file.put_line(FND_FILE.LOG, ' p_calling_app_request_code ' || to_char( p_batch_id ) );
1381: fnd_file.put_line(FND_FILE.LOG, 'p_order_view_name ' || 'ARBR_FUNDS_CAPTURE_ORDERS_V' );
1382: END IF;
1383:
1384: IBY_FNDCPT_TRXN_PUB.Create_Settlements(
1385: p_api_version => 1.0,
1392: x_msg_data => ls_msg_data,
1393: x_responses => ls_response_rec_tab );
1394:
1395:
1396: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1397: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1398:
1399: FOR i IN 1..ls_msg_count LOOP
1400: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1393: x_responses => ls_response_rec_tab );
1394:
1395:
1396: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1397: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1398:
1399: FOR i IN 1..ls_msg_count LOOP
1400: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1401: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1396: fnd_file.put_line(FND_FILE.LOG,'x_return_status :<' || ls_return_status || '>');
1397: fnd_file.put_line(FND_FILE.LOG,'x_msg_count :<' || ls_msg_count || '>');
1398:
1399: FOR i IN 1..ls_msg_count LOOP
1400: fnd_file.put_line(FND_FILE.LOG,'x_msg #' || TO_CHAR(i) || ' = <' ||
1401: SUBSTR(fnd_msg_pub.get(p_msg_index => i,p_encoded => FND_API.G_FALSE),1,150) || '>');
1402: END LOOP;
1403:
1404: IF PG_DEBUG in ('Y' , 'C') THEN
1404: IF PG_DEBUG in ('Y' , 'C') THEN
1405:
1406: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1407:
1408: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1405:
1406: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1407:
1408: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1413: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1406: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1407:
1408: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1413: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1414:
1407:
1408: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1413: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1414:
1415: END LOOP;
1408: fnd_file.put_line(FND_FILE.LOG, '--------- START -----------------');
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1413: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1414:
1415: END LOOP;
1416:
1409: fnd_file.put_line(FND_FILE.LOG, 'ls_response_rec.Trxn_Extension_Id : ' || ls_response_rec_tab(i).Trxn_extension_id);
1410: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_code : ' || ls_response_rec_tab(i).Result.Result_code);
1411: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Category : ' || ls_response_rec_tab(i).Result.Result_Category);
1412: fnd_file.put_line (FND_FILE.LOG, 'ls_response_rec.Result.Result_Message : ' || ls_response_rec_tab(i).Result.Result_Message);
1413: fnd_file.put_line(FND_FILE.LOG, '--------- END -----------------');
1414:
1415: END LOOP;
1416:
1417: END IF;
1418: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1419:
1420: FOR i IN ls_response_rec_tab.FIRST..ls_response_rec_tab.LAST LOOP
1421:
1422: fnd_file.put_line(FND_FILE.LOG,'the value of ls_response_rec.Trxn_Extension_Id = ' || (ls_response_rec_tab(i).Trxn_Extension_Id ));
1423: END LOOP;
1424:
1425: END IF;
1426:
1430:
1431:
1432: IF ls_response_rec_tab(i).Result.Result_code in ( 'SETTLEMENT_SUCCESS','SETTLEMENT_PENDING') THEN
1433:
1434: fnd_file.put_line(FND_FILE.LOG,'SETTLEMENT SUCCESS FOR Trxn_Extension_Id = '
1435: || (ls_response_rec_tab(i).Trxn_Extension_Id ));
1436:
1437:
1438: ELSE
1444:
1445: ls_iby_msg_data := substrb( ls_response_rec_tab(i).Result.Result_Code || ': '||
1446: ls_response_rec_tab(i).Result.Result_Message , 1, 240);
1447:
1448: fnd_file.put_line(FND_FILE.LOG, 'ls_iby_msg_data: ' || ls_iby_msg_data);
1449: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1450: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
1451:
1452: FND_MSG_PUB.Add;