287: BEGIN
288:
289: IF FND_GLOBAL.CONC_REQUEST_ID is not null THEN
290:
291: fnd_file.put_line(FND_FILE.LOG,p_message);
292:
293: END IF;
294:
295: IF PG_DEBUG in ('Y', 'C') THEN
404: l_batch_id RA_BATCHES.batch_id%TYPE;
405:
406: BEGIN
407:
408: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.auto_create_br_program (+)');
409:
410: --------------------------------------------------------------
411: -- Date Conversions
412: --------------------------------------------------------------
515: IF (g_num_br_failed > 0)
516: THEN
517: IF errorinv.EXISTS(g_ctr-1)
518: THEN
519: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
521:
522: FND_MESSAGE.SET_NAME('AR','AR_BR_INVALID_TRX_WARNING');
523: l_error_mesg := FND_MESSAGE.GET;
516: THEN
517: IF errorinv.EXISTS(g_ctr-1)
518: THEN
519: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
521:
522: FND_MESSAGE.SET_NAME('AR','AR_BR_INVALID_TRX_WARNING');
523: l_error_mesg := FND_MESSAGE.GET;
524: FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_mesg);
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
521:
522: FND_MESSAGE.SET_NAME('AR','AR_BR_INVALID_TRX_WARNING');
523: l_error_mesg := FND_MESSAGE.GET;
524: FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_mesg);
525:
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
522: FND_MESSAGE.SET_NAME('AR','AR_BR_INVALID_TRX_WARNING');
523: l_error_mesg := FND_MESSAGE.GET;
524: FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_mesg);
525:
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
523: l_error_mesg := FND_MESSAGE.GET;
524: FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_mesg);
525:
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
531:
524: FND_FILE.PUT_LINE(FND_FILE.LOG, l_error_mesg);
525:
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
531:
532: FND_FILE.PUT_LINE(FND_FILE.LOG,'Transaction Number'||rpad(' ',8)||'Payment
525:
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
531:
532: FND_FILE.PUT_LINE(FND_FILE.LOG,'Transaction Number'||rpad(' ',8)||'Payment
533: Schedule Id'||rpad(' ',7)||'Customer Trx Id'||rpad(' ',11));
526: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
531:
532: FND_FILE.PUT_LINE(FND_FILE.LOG,'Transaction Number'||rpad(' ',8)||'Payment
533: Schedule Id'||rpad(' ',7)||'Customer Trx Id'||rpad(' ',11));
534:
528: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
529: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
530: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
531:
532: FND_FILE.PUT_LINE(FND_FILE.LOG,'Transaction Number'||rpad(' ',8)||'Payment
533: Schedule Id'||rpad(' ',7)||'Customer Trx Id'||rpad(' ',11));
534:
535: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------'||rpad(' ',8)||'-------------------'||rpad(' ',7)||'---------------'||rpad(' ',11));
536:
531:
532: FND_FILE.PUT_LINE(FND_FILE.LOG,'Transaction Number'||rpad(' ',8)||'Payment
533: Schedule Id'||rpad(' ',7)||'Customer Trx Id'||rpad(' ',11));
534:
535: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------'||rpad(' ',8)||'-------------------'||rpad(' ',7)||'---------------'||rpad(' ',11));
536:
537: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
538:
539: FOR l_ctr IN errorinv.FIRST .. errorinv.LAST LOOP
533: Schedule Id'||rpad(' ',7)||'Customer Trx Id'||rpad(' ',11));
534:
535: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------'||rpad(' ',8)||'-------------------'||rpad(' ',7)||'---------------'||rpad(' ',11));
536:
537: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
538:
539: FOR l_ctr IN errorinv.FIRST .. errorinv.LAST LOOP
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || rpad(errorinv(l_ctr).trx_number,26)|| rpad(errorinv(l_ctr).payment_schedule_id,26) || rpad(errorinv(l_ctr).customer_trx_id,26));
541: END LOOP;
536:
537: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
538:
539: FOR l_ctr IN errorinv.FIRST .. errorinv.LAST LOOP
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || rpad(errorinv(l_ctr).trx_number,26)|| rpad(errorinv(l_ctr).payment_schedule_id,26) || rpad(errorinv(l_ctr).customer_trx_id,26));
541: END LOOP;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
543:
544: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
538:
539: FOR l_ctr IN errorinv.FIRST .. errorinv.LAST LOOP
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || rpad(errorinv(l_ctr).trx_number,26)|| rpad(errorinv(l_ctr).payment_schedule_id,26) || rpad(errorinv(l_ctr).customer_trx_id,26));
541: END LOOP;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
543:
544: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
545: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || rpad(errorinv(l_ctr).trx_number,26)|| rpad(errorinv(l_ctr).payment_schedule_id,26) || rpad(errorinv(l_ctr).customer_trx_id,26));
541: END LOOP;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
543:
544: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
545: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
547:
548: END IF;
541: END LOOP;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
543:
544: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
545: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
547:
548: END IF;
549: END IF ;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
543:
544: FND_FILE.PUT_LINE(FND_FILE.LOG,'*******************************************************************');
545: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
547:
548: END IF;
549: END IF ;
550:
552: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
553:
554: COMMIT;
555:
556: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.auto_create_br_program (-)');
557:
558: EXCEPTION
559: WHEN OTHERS THEN
560: --Temporary table Drop
558: EXCEPTION
559: WHEN OTHERS THEN
560: --Temporary table Drop
561: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
562: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.auto_create_br_program');
563: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
564: RAISE;
565:
566: END auto_create_br_program;
559: WHEN OTHERS THEN
560: --Temporary table Drop
561: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
562: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.auto_create_br_program');
563: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
564: RAISE;
565:
566: END auto_create_br_program;
567:
608: l_request_id NUMBER;
609:
610: BEGIN
611:
612: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (+)');
613:
614: -- Temporary table Creation
615: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
616:
651: print_BR_pvt(p_batch_id,1,l_request_id);
652: END IF;
653: END IF;
654:
655: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (-)');
656:
657: EXCEPTION
658: WHEN OTHERS THEN
659: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window');
655: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (-)');
656:
657: EXCEPTION
658: WHEN OTHERS THEN
659: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window');
660: RAISE;
661:
662: END from_automatic_batch_window;
663:
729: l_request_id NUMBER;
730:
731: BEGIN
732:
733: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (+)');
734:
735: -- Temporary table Creation
736: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
737:
817: print_BR_pvt(l_batch_id,2,l_request_id);
818: END IF;
819: END IF;
820:
821: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (-)');
822:
823: EXCEPTION
824: WHEN OTHERS THEN
825: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_conc_request_window');
821: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (-)');
822:
823: EXCEPTION
824: WHEN OTHERS THEN
825: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_conc_request_window');
826: RAISE;
827:
828: END from_conc_request_window;
829:
900: l_name RA_BATCHES.name%TYPE;
901:
902: BEGIN
903:
904: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (+)');
905:
906: -- The Issue date will be inherited from the Batch date
907: l_issue_date := p_batch_date;
908:
980: l_selection_criteria_id,
981: l_batch_id,
982: l_name);
983:
984: FND_FILE.PUT_LINE(FND_FILE.LOG,'Insert the BR Creation Batch name:'||l_name);
985:
986: p_selection_criteria_id := l_selection_criteria_id;
987: p_batch_id := l_batch_id;
988:
987: p_batch_id := l_batch_id;
988:
989: COMMIT;
990:
991: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (-)');
992:
993: EXCEPTION
994: WHEN OTHERS THEN
995: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.create_batch_header');
991: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (-)');
992:
993: EXCEPTION
994: WHEN OTHERS THEN
995: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.create_batch_header');
996: RAISE;
997:
998: END create_batch_header;
999:
1031:
1032:
1033: BEGIN
1034:
1035: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (+)');
1036:
1037: -- fetch the batch
1038: arp_tbat_pkg.lock_fetch_p(l_batch_rec,p_batch_id);
1039:
1101: l_selection_criteria_id);
1102:
1103: COMMIT;
1104:
1105: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (-)');
1106:
1107: EXCEPTION
1108: WHEN OTHERS THEN
1109: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.update_batch_status');
1105: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (-)');
1106:
1107: EXCEPTION
1108: WHEN OTHERS THEN
1109: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.update_batch_status');
1110: RAISE;
1111:
1112: END update_batch_status;
1113:
1296:
1297: BEGIN
1298:
1299: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1300: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1297: BEGIN
1298:
1299: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1300: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1298:
1299: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1300: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1299: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1300: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1300: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1301: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1302: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1303: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1304: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1305: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1306: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
1307: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
1315: END IF;
1308: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
1315: END IF;
1316:
1309: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
1315: END IF;
1316:
1317: --------------------------------------------------------------------------
1310: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
1311: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
1313: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
1314: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
1315: END IF;
1316:
1317: --------------------------------------------------------------------------
1318: ---- FIRST LOOP
1336: l_customer_bank_account_id := -999;
1337: EXIT WHEN c_receipt_method%NOTFOUND;
1338:
1339: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1337: EXIT WHEN c_receipt_method%NOTFOUND;
1338:
1339: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1338:
1339: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1339: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1340: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1341: FND_FILE.PUT_LINE(FND_FILE.LOG,'Receipt Method Details');
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1342: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_method_id :'||l_receipt_method_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1343: FND_FILE.PUT_LINE(FND_FILE.LOG,'receipt_creation_rule_code:'||l_receipt_creation_rule_code);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,'customer_bank_account_id :'||l_customer_bank_account_id);
1344: FND_FILE.PUT_LINE(FND_FILE.LOG,'lead days :'||l_lead_days);
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,'customer_bank_account_id :'||l_customer_bank_account_id);
1352: END IF;
1345: FND_FILE.PUT_LINE(FND_FILE.LOG,'maturity_date_rule_code :'||l_maturity_date_rule_code);
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,'customer_bank_account_id :'||l_customer_bank_account_id);
1352: END IF;
1353:
1346: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_min_acctd_amount :'||l_br_min_acctd_amount);
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,'customer_bank_account_id :'||l_customer_bank_account_id);
1352: END IF;
1353:
1354: -- Setup of the next cursor according to the handled receipt method
1347: FND_FILE.PUT_LINE(FND_FILE.LOG,'br_max_acctd_amount :'||l_br_max_acctd_amount);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG,'invoice_currency_code :'||l_invoice_currency_code);
1349: FND_FILE.PUT_LINE(FND_FILE.LOG,'exchange_rate :'||l_exchange_rate);
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,'legal_entity_id :'||l_le_id);
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,'customer_bank_account_id :'||l_customer_bank_account_id);
1352: END IF;
1353:
1354: -- Setup of the next cursor according to the handled receipt method
1355: -- Bug 3922691 : pass additional parameters to construct_suffixe_select,
1398: ' ORDER BY ps.customer_id ';
1399:
1400: if l_print1 AND (p_call <> 3 OR PG_DEBUG in ('Y', 'C')) THEN
1401: l_print1 := FALSE;
1402: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG,'This select will get all distinct customer_ids');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG,l_trx_select_statement);
1405: end if;
1406:
1399:
1400: if l_print1 AND (p_call <> 3 OR PG_DEBUG in ('Y', 'C')) THEN
1401: l_print1 := FALSE;
1402: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG,'This select will get all distinct customer_ids');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG,l_trx_select_statement);
1405: end if;
1406:
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1400: if l_print1 AND (p_call <> 3 OR PG_DEBUG in ('Y', 'C')) THEN
1401: l_print1 := FALSE;
1402: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1403: FND_FILE.PUT_LINE(FND_FILE.LOG,'This select will get all distinct customer_ids');
1404: FND_FILE.PUT_LINE(FND_FILE.LOG,l_trx_select_statement);
1405: end if;
1406:
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1404: FND_FILE.PUT_LINE(FND_FILE.LOG,l_trx_select_statement);
1405: end if;
1406:
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1405: end if;
1406:
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1406:
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1407: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1415: fnd_file.put_line(fnd_file.log,'l_trx_st:'||l_trx_select_statement);
1408: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1415: fnd_file.put_line(fnd_file.log,'l_trx_st:'||l_trx_select_statement);
1416:
1409: FND_FILE.PUT_LINE(FND_FILE.LOG,'Opening c_customer with the following parameters :');
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1415: fnd_file.put_line(fnd_file.log,'l_trx_st:'||l_trx_select_statement);
1416:
1417: END IF;
1410: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_receipt_method_id : ' || to_char(l_receipt_method_id));
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1415: fnd_file.put_line(fnd_file.log,'l_trx_st:'||l_trx_select_statement);
1416:
1417: END IF;
1418:
1411: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_invoice_currency_code : ' || l_invoice_currency_code);
1412: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_exchange_rate : ' || to_char(l_exchange_rate));
1413: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_customer_bank_account_id : ' || to_char(l_customer_bank_account_id));
1414: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_le_id : ' || to_char(l_le_id));
1415: fnd_file.put_line(fnd_file.log,'l_trx_st:'||l_trx_select_statement);
1416:
1417: END IF;
1418:
1419: OPEN c_customer FOR l_trx_select_statement
1445:
1446: EXIT WHEN c_customer%NOTFOUND;
1447:
1448: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1449: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------------------');
1450: FND_FILE.PUT_LINE(FND_FILE.LOG,'...Processing c_customer, customer_id :'||l_customer_id);
1451: END IF;
1452:
1453: -- 4109513 : Now that we have customer_id, rebuild l_trx_select_statement
1446: EXIT WHEN c_customer%NOTFOUND;
1447:
1448: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1449: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------------------------------------');
1450: FND_FILE.PUT_LINE(FND_FILE.LOG,'...Processing c_customer, customer_id :'||l_customer_id);
1451: END IF;
1452:
1453: -- 4109513 : Now that we have customer_id, rebuild l_trx_select_statement
1454: -- to make it more selective on ps.customer_id
1517:
1518: -- bug 3888842
1519: if l_print AND (p_call <> 3 OR PG_DEBUG in ('Y', 'C')) THEN
1520: l_print := FALSE;
1521: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1522: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_trx_select_statement = ' || l_trx_select_statement);
1523: end if;
1524:
1525: -- process receipt method id Banks
1518: -- bug 3888842
1519: if l_print AND (p_call <> 3 OR PG_DEBUG in ('Y', 'C')) THEN
1520: l_print := FALSE;
1521: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------') ;
1522: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_trx_select_statement = ' || l_trx_select_statement);
1523: end if;
1524:
1525: -- process receipt method id Banks
1526: OPEN c_rm_bank(l_receipt_method_id,l_customer_id);
1531:
1532: EXIT WHEN c_rm_bank%NOTFOUND;
1533:
1534: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1535: FND_FILE.PUT_LINE(FND_FILE.LOG,'......Processing c_rm_bank, customer_id : ' ||
1536: to_char(l_customer_id) || ' ' ||
1537: ' bank_account : ' || to_char(l_customer_bank_account_id2));
1538: END IF;
1539:
1591: EXIT WHEN c_grouping%NOTFOUND;
1592:
1593: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1594: IF (l_receipt_creation_rule_code = 'PER_CUSTOMER') THEN
1595: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_id :'||l_customer_id2);
1596: ELSIF (l_receipt_creation_rule_code = 'PER_CUSTOMER_DUE_DATE') THEN
1597: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_id :'||
1598: l_customer_id2||' due date :'||l_due_date);
1599: ELSIF (l_receipt_creation_rule_code = 'PER_SITE') THEN
1593: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1594: IF (l_receipt_creation_rule_code = 'PER_CUSTOMER') THEN
1595: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_id :'||l_customer_id2);
1596: ELSIF (l_receipt_creation_rule_code = 'PER_CUSTOMER_DUE_DATE') THEN
1597: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_id :'||
1598: l_customer_id2||' due date :'||l_due_date);
1599: ELSIF (l_receipt_creation_rule_code = 'PER_SITE') THEN
1600: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id);
1601: ELSIF (l_receipt_creation_rule_code = 'PER_SITE_DUE_DATE') THEN
1596: ELSIF (l_receipt_creation_rule_code = 'PER_CUSTOMER_DUE_DATE') THEN
1597: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_id :'||
1598: l_customer_id2||' due date :'||l_due_date);
1599: ELSIF (l_receipt_creation_rule_code = 'PER_SITE') THEN
1600: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id);
1601: ELSIF (l_receipt_creation_rule_code = 'PER_SITE_DUE_DATE') THEN
1602: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id||
1603: ' due date :'||l_due_date);
1604: ELSIF (l_receipt_creation_rule_code = 'PER_INVOICE') THEN
1598: l_customer_id2||' due date :'||l_due_date);
1599: ELSIF (l_receipt_creation_rule_code = 'PER_SITE') THEN
1600: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id);
1601: ELSIF (l_receipt_creation_rule_code = 'PER_SITE_DUE_DATE') THEN
1602: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id||
1603: ' due date :'||l_due_date);
1604: ELSIF (l_receipt_creation_rule_code = 'PER_INVOICE') THEN
1605: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_trx_id :'||l_customer_trx_id);
1606: ELSE
1601: ELSIF (l_receipt_creation_rule_code = 'PER_SITE_DUE_DATE') THEN
1602: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, site_use_id :'||l_site_use_id||
1603: ' due date :'||l_due_date);
1604: ELSIF (l_receipt_creation_rule_code = 'PER_INVOICE') THEN
1605: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_trx_id :'||l_customer_trx_id);
1606: ELSE
1607: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, payment_schedule_id :'||
1608: l_payment_schedule_id);
1609: END IF;
1603: ' due date :'||l_due_date);
1604: ELSIF (l_receipt_creation_rule_code = 'PER_INVOICE') THEN
1605: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, customer_trx_id :'||l_customer_trx_id);
1606: ELSE
1607: FND_FILE.PUT_LINE(FND_FILE.LOG,'.........Processing c_grouping, payment_schedule_id :'||
1608: l_payment_schedule_id);
1609: END IF;
1610: END IF;
1611:
1679: after printing messages in the log file.*/
1680:
1681: EXCEPTION
1682: WHEN OTHERS THEN
1683: FND_FILE.PUT_LINE(FND_FILE.LOG,'Creation error for this BR ');
1684: g_num_br_failed := g_num_br_failed + 1;
1685:
1686: BEGIN
1687:
1706: CLOSE c2;
1707:
1708: EXCEPTION
1709: WHEN OTHERS THEN
1710: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception : While Inserting into the table errorinv');
1711: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1712: END ;
1713:
1714: END ;
1707:
1708: EXCEPTION
1709: WHEN OTHERS THEN
1710: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception : While Inserting into the table errorinv');
1711: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
1712: END ;
1713:
1714: END ;
1715:
1725: END LOOP;
1726: CLOSE c_receipt_method;
1727:
1728:
1729: FND_FILE.PUT_LINE(FND_FILE.LOG,'The process has generated '||g_num_br_created||' Bills receivable');
1730: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (-)');
1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1726: CLOSE c_receipt_method;
1727:
1728:
1729: FND_FILE.PUT_LINE(FND_FILE.LOG,'The process has generated '||g_num_br_created||' Bills receivable');
1730: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (-)');
1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR');
1730: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (-)');
1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR');
1735:
1736: IF c_grouping%ISOPEN THEN
1737: CLOSE c_grouping;
1738: END IF;
1770: l_trx_select_statement VARCHAR2(4000) := NULL;
1771:
1772: BEGIN
1773:
1774: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'construct_hz (+)');
1775:
1776: /*
1777: Bug 1710187 :
1778:
1820:
1821:
1822: p_suffix_hz := l_trx_select_statement;
1823:
1824: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'construct_hz (-)');
1825:
1826: EXCEPTION
1827: WHEN OTHERS THEN
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_hz');
1824: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'construct_hz (-)');
1825:
1826: EXCEPTION
1827: WHEN OTHERS THEN
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_hz');
1829: RAISE;
1830: END;
1831:
1832:
1885: l_trx_select_statement VARCHAR2(4000) := NULL;
1886:
1887: BEGIN
1888:
1889: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (+)');
1890:
1891: /* modified for tca uptake */
1892:
1893: /* Bug 1744783 : for transactions with multiple payment schedule records,
2063: END IF;
2064:
2065: p_suffixe_select_statement := l_trx_select_statement;
2066:
2067: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (-)');
2068:
2069: EXCEPTION
2070: WHEN OTHERS THEN
2071: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_suffixe_select');
2067: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (-)');
2068:
2069: EXCEPTION
2070: WHEN OTHERS THEN
2071: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_suffixe_select');
2072: RAISE;
2073:
2074: END construct_suffixe_select;
2075:
2148: l_org_id AR_PAYMENT_SCHEDULES.org_id%TYPE;
2149:
2150: BEGIN
2151:
2152: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (+)');
2153:
2154: l_delete_statement := 'DELETE FROM '|| g_tmp_table_imm;
2155: execute immediate l_delete_statement;
2156:
2154: l_delete_statement := 'DELETE FROM '|| g_tmp_table_imm;
2155: execute immediate l_delete_statement;
2156:
2157: IF p_receipt_creation_rule_code = 'PER_INVOICE' THEN
2158: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'grouping rule PER INVOICE -> no DM/CM Immediate');
2159: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2160: RETURN;
2161: END IF;
2162:
2155: execute immediate l_delete_statement;
2156:
2157: IF p_receipt_creation_rule_code = 'PER_INVOICE' THEN
2158: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'grouping rule PER INVOICE -> no DM/CM Immediate');
2159: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2160: RETURN;
2161: END IF;
2162:
2163: -- If a Credit/Debit Note has been created with a payment term of immediate,
2205: ps.customer_id,ps.customer_site_use_id,ps.trx_number,ps.due_date,
2206: ps.amount_due_remaining, ps.org_id '||l_trx_select_statement;
2207:
2208: /*
2209: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3IMM');
2210: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2206: ps.amount_due_remaining, ps.org_id '||l_trx_select_statement;
2207:
2208: /*
2209: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3IMM');
2210: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2207:
2208: /*
2209: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3IMM');
2210: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2209: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3IMM');
2210: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2210: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2211: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2212:
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2213: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2214: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2215: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2216: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2217: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2218: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2219: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2221: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2229: */
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2229: */
2230:
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2229: */
2230:
2231: OPEN c_trx FOR l_trx_select_statement
2224: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2225: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2226: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2227: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2229: */
2230:
2231: OPEN c_trx FOR l_trx_select_statement
2232: using p_due_date_low,
2284: l_due_date,
2285: l_amount_due_remaining,
2286: l_org_id;
2287: /*
2288: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_DM_and_CM_IMM:'||l_payment_schedule_id||' '||
2289: l_customer_trx_id||' '||l_trx_number|| ' '||l_customer_site_use_id||' '||
2290: l_due_date||' '||l_amount_due_remaining);
2291: */
2292:
2306: execute immediate l_delete_statement;
2307:
2308: END IF;
2309:
2310: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2311:
2312: EXCEPTION
2313: WHEN OTHERS THEN
2314: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM');
2310: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2311:
2312: EXCEPTION
2313: WHEN OTHERS THEN
2314: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM');
2315:
2316: IF c_trx%ISOPEN THEN
2317: CLOSE c_trx;
2318: END IF;
2394: l_org_id AR_PAYMENT_SCHEDULES.org_id%TYPE;
2395:
2396: BEGIN
2397:
2398: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (+)');
2399:
2400: l_delete_statement := 'DELETE FROM '|| g_tmp_table_nimm;
2401: execute immediate l_delete_statement;
2402:
2459: ps.customer_id,ps.customer_site_use_id,ps.trx_number,ps.due_date,
2460: ps.amount_due_remaining, ps.org_id '||l_trx_select_statement;
2461:
2462: /*
2463: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3');
2464: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2460: ps.amount_due_remaining, ps.org_id '||l_trx_select_statement;
2461:
2462: /*
2463: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3');
2464: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2461:
2462: /*
2463: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3');
2464: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2463: FND_FILE.PUT_LINE(FND_FILE.LOG,'DEBUG TOOL 3');
2464: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2464: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2465: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_nimm: l_trx_select_statement = ' || l_trx_select_statement);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2466:
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2467: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2468: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2469: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_low = ' || p_trx_date_low);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2470: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_date_high = ' || p_trx_date_high);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2471: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_type_id = ' || p_trx_type_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2472: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_low = ' || p_trx_number_low);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2473: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_trx_number_high = ' || p_trx_number_high);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2474: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_class = ' || p_cust_class);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2475: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_cust_category = ' || p_cust_category);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2476: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_id = ' || p_customer_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2484: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_trx_id = ' || p_customer_trx_id);
2477: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_site_use_id = ' || p_site_use_id);
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2484: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_trx_id = ' || p_customer_trx_id);
2485: */
2478: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_method_id = ' || p_receipt_method_id);
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2484: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_trx_id = ' || p_customer_trx_id);
2485: */
2486:
2479: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_batch_id = ' || p_batch_id);
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2484: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_trx_id = ' || p_customer_trx_id);
2485: */
2486:
2487: OPEN c_trx FOR l_trx_select_statement
2480: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_invoice_currency_code = ' || p_invoice_currency_code);
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_exchange_rate = ' || p_exchange_rate);
2482: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_bank_account_id = ' || p_customer_bank_account_id);
2483: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_payment_schedule_id = ' || p_payment_schedule_id);
2484: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_customer_trx_id = ' || p_customer_trx_id);
2485: */
2486:
2487: OPEN c_trx FOR l_trx_select_statement
2488: using p_due_date_low,
2540: l_due_date,
2541: l_amount_due_remaining,
2542: l_org_id;
2543: /*
2544: FND_FILE.PUT_LINE(FND_FILE.LOG,'select_trx_NIMM:'||l_payment_schedule_id||' '||l_customer_trx_id||' '||l_trx_number||
2545: ' '||l_customer_site_use_id||' '||l_due_date||' '||l_amount_due_remaining);
2546: */
2547:
2548: END LOOP;
2547:
2548: END LOOP;
2549: CLOSE c_trx;
2550:
2551: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (-)');
2552:
2553: EXCEPTION
2554: WHEN OTHERS THEN
2555: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_NIMM');
2551: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (-)');
2552:
2553: EXCEPTION
2554: WHEN OTHERS THEN
2555: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_NIMM');
2556:
2557: IF c_trx%ISOPEN THEN
2558: CLOSE c_trx;
2559: END IF;
2772: execute immediate l_sum_nimm_statement INTO l_tot_nimm;
2773: execute immediate l_sum_imm_statement INTO l_tot_imm;
2774: l_br_amount:= NVL(l_tot_nimm,0) + NVL(l_tot_imm,0);
2775:
2776: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_br_amount = ' || to_char(l_br_amount));
2777: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_creation_rule_code = ' || p_receipt_creation_rule_code);
2778:
2779: IF (p_receipt_creation_rule_code <> 'PER_INVOICE') THEN
2780:
2773: execute immediate l_sum_imm_statement INTO l_tot_imm;
2774: l_br_amount:= NVL(l_tot_nimm,0) + NVL(l_tot_imm,0);
2775:
2776: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'l_br_amount = ' || to_char(l_br_amount));
2777: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'p_receipt_creation_rule_code = ' || p_receipt_creation_rule_code);
2778:
2779: IF (p_receipt_creation_rule_code <> 'PER_INVOICE') THEN
2780:
2781:
2825: ' payment_schedule_id = :c_psid';
2826: EXECUTE IMMEDIATE l_update_statement USING c_psid;
2827: l_br_amount := l_br_amount - c_adr;
2828:
2829: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'excluding psid = ' || to_char(c_psid) ||
2830: -- ' amount = ' || to_char(c_adr) || ' l_br_amount now = ' || to_char(l_br_amount));
2831: END IF;
2832: */
2833: IF l_br_amount > p_br_max_acctd_amount THEN
2839: ' payment_schedule_id = :c_psid';
2840: EXECUTE IMMEDIATE l_update_statement USING c_psid;
2841: l_br_amount := l_br_amount - c_adr;
2842:
2843: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'excluding psid = ' || to_char(c_psid) ||
2844: -- ' amount = ' || to_char(c_adr) || ' l_br_amount now = ' || to_char(l_br_amount));
2845:
2846: END IF;
2847: END IF;
3828:
3829: g_num_br_created := g_num_br_created + 1;
3830:
3831: IF (p_call <> 3) THEN
3832: FND_FILE.PUT_LINE(FND_FILE.LOG,'the bill receivable '||l_bill_number||
3833: ' is created (amount='||l_br_amount||')');
3834:
3835: ELSIF (p_call = 3) THEN
3836: /* Action PRINT BR if the program is run from the transaction workbench and
4120: l_lead_days);
4121:
4122:
4123: EXCEPTION WHEN OTHERS THEN
4124: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION OTHERS: ARP_PROGRAM_GENERATE_BR.AR_BR_INSERT_INTO_REPORT_TABLE ');
4125: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4126: IF c_get_receipt_method%ISOPEN THEN
4127: CLOSE c_get_receipt_method;
4128: END IF;
4121:
4122:
4123: EXCEPTION WHEN OTHERS THEN
4124: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION OTHERS: ARP_PROGRAM_GENERATE_BR.AR_BR_INSERT_INTO_REPORT_TABLE ');
4125: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4126: IF c_get_receipt_method%ISOPEN THEN
4127: CLOSE c_get_receipt_method;
4128: END IF;
4129:
4188: l_user_schema VARCHAR2(30) := USER;
4189:
4190: BEGIN
4191:
4192: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (+)');
4193:
4194: LOOP
4195:
4196:
4201: table_name_imm := l_prefixe_imm ||l_suffixe||to_char((compteur-1)*10);
4202: table_name_aimm := l_prefixe_aimm ||l_suffixe||to_char((compteur-1)*10);
4203:
4204: /*
4205: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_nimm = ' || table_name_nimm);
4206: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_imm = ' || table_name_imm);
4207: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_aimm = ' || table_name_aimm);
4208: */
4209:
4202: table_name_aimm := l_prefixe_aimm ||l_suffixe||to_char((compteur-1)*10);
4203:
4204: /*
4205: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_nimm = ' || table_name_nimm);
4206: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_imm = ' || table_name_imm);
4207: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_aimm = ' || table_name_aimm);
4208: */
4209:
4210: /* Bug 3441913/3432134 - suffix dba_ views with owner */
4203:
4204: /*
4205: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_nimm = ' || table_name_nimm);
4206: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_imm = ' || table_name_imm);
4207: FND_FILE.PUT_LINE(FND_FILE.LOG,'table_name_aimm = ' || table_name_aimm);
4208: */
4209:
4210: /* Bug 3441913/3432134 - suffix dba_ views with owner */
4211: /* Added owner predicate which ensure that comply with GSCC Standard - File.Sql.47 */
4272: amount_assigned NUMBER,
4273: exclude_flag VARCHAR2(1),
4274: org_id NUMBER(15))';
4275:
4276: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Creation of the temporary table '||table_name_nimm);
4277: execute immediate query_create;
4278:
4279: query_create := 'CREATE INDEX ' || 'ARBR_IND_NIMM' || l_suffixe || to_char((compteur-1)*10) || ' ON '
4280: || table_name_nimm || ' (customer_trx_id,amount_due_remaining)';
4297: amount_assigned NUMBER,
4298: exclude_flag VARCHAR2(1),
4299: org_id NUMBER(15))';
4300:
4301: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Creation of the temporary table '||table_name_imm);
4302: execute immediate query_create;
4303:
4304: query_create := 'CREATE INDEX ' || 'ARBR_IND_IMM' || l_suffixe || to_char((compteur-1)*10) || ' ON ' ||
4305: table_name_imm || ' (customer_trx_id,amount_due_remaining)';
4313:
4314: query_create := 'CREATE TABLE '|| table_name_aimm ||
4315: ' (payment_schedule_id NUMBER(15))';
4316:
4317: FND_FILE.PUT_LINE(FND_FILE.LOG,'Creation of the temporary table '||table_name_aimm);
4318: execute immediate query_create;
4319:
4320: query_create := 'CREATE INDEX ' || 'ARBR_IND_AIMM' || l_suffixe || to_char((compteur-1)*10) || ' ON ' ||
4321: table_name_aimm || ' (payment_schedule_id)';
4327: END IF;
4328:
4329: END LOOP;
4330:
4331: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (-)');
4332:
4333: EXCEPTION
4334: WHEN OTHERS THEN
4335: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table');
4331: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (-)');
4332:
4333: EXCEPTION
4334: WHEN OTHERS THEN
4335: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table');
4336: RAISE;
4337:
4338: END arbr_cr_tmp_table;
4339:
4369:
4370:
4371: BEGIN
4372:
4373: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (+)');
4374:
4375: ----------------------------------------------------------------------------------------
4376: -- Drop of the temporary table for Transactions with a payment term of non immediate
4377: ----------------------------------------------------------------------------------------
4394: END;
4395:
4396:
4397: IF (nb_obj > 0) THEN
4398: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Drop of the temporary table '||g_tmp_table_nimm);
4399: query_drop := 'DROP table '||g_tmp_table_nimm;
4400: execute immediate query_drop;
4401: END IF;
4402:
4421:
4422: END;
4423:
4424: IF (nb_obj > 0) THEN
4425: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Drop of the temporary table '||g_tmp_table_imm);
4426: query_drop := 'DROP table '||g_tmp_table_imm;
4427: execute immediate query_drop;
4428: END IF;
4429:
4444:
4445: END;
4446:
4447: IF (nb_obj > 0) THEN
4448: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'Drop of the temporary table '||g_tmp_table_aimm);
4449: query_drop := 'DROP table '||g_tmp_table_aimm;
4450: execute immediate query_drop;
4451: END IF;
4452:
4450: execute immediate query_drop;
4451: END IF;
4452:
4453:
4454: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (-)');
4455:
4456: EXCEPTION
4457: WHEN OTHERS THEN
4458: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.drop_tmp_table');
4454: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (-)');
4455:
4456: EXCEPTION
4457: WHEN OTHERS THEN
4458: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.drop_tmp_table');
4459: RAISE;
4460:
4461: END drop_tmp_table;
4462:
4494: l_meaning VARCHAR2(30);
4495:
4496: BEGIN
4497:
4498: --FND_FILE.PUT_LINE(FND_FILE.LOG,'run_report_pvt (+)');
4499:
4500: SAVEPOINT run_report_SVP;
4501:
4502: -- parameter p_batch_id mustn't be NULL
4514: FROM AR_LOOKUPS
4515: WHERE LOOKUP_TYPE = 'ARBRATBR_REPORT_TYPE'
4516: AND LOOKUP_CODE = 'D';
4517:
4518: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------- Automatic Transactions Batch Report Parameters ---------------');
4519:
4520: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID :'||p_batch_id);
4521: FND_FILE.PUT_LINE(FND_FILE.LOG,'VERSION :'||l_meaning);
4522: FND_FILE.PUT_LINE(FND_FILE.LOG,'API Request ID :'||arp_global.request_id);
4516: AND LOOKUP_CODE = 'D';
4517:
4518: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------- Automatic Transactions Batch Report Parameters ---------------');
4519:
4520: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID :'||p_batch_id);
4521: FND_FILE.PUT_LINE(FND_FILE.LOG,'VERSION :'||l_meaning);
4522: FND_FILE.PUT_LINE(FND_FILE.LOG,'API Request ID :'||arp_global.request_id);
4523:
4524: -- SSA - R12 : set org id prior to calling submit_request
4517:
4518: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------- Automatic Transactions Batch Report Parameters ---------------');
4519:
4520: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID :'||p_batch_id);
4521: FND_FILE.PUT_LINE(FND_FILE.LOG,'VERSION :'||l_meaning);
4522: FND_FILE.PUT_LINE(FND_FILE.LOG,'API Request ID :'||arp_global.request_id);
4523:
4524: -- SSA - R12 : set org id prior to calling submit_request
4525: FND_REQUEST.set_org_id(g_org_id);
4518: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------- Automatic Transactions Batch Report Parameters ---------------');
4519:
4520: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH ID :'||p_batch_id);
4521: FND_FILE.PUT_LINE(FND_FILE.LOG,'VERSION :'||l_meaning);
4522: FND_FILE.PUT_LINE(FND_FILE.LOG,'API Request ID :'||arp_global.request_id);
4523:
4524: -- SSA - R12 : set org id prior to calling submit_request
4525: FND_REQUEST.set_org_id(g_org_id);
4526: l_request_id := FND_REQUEST.submit_request('AR'
4536: FND_MESSAGE.set_name('AR','AR_BR_BATCH_SUBMIT_FAILED');
4537: FND_MESSAGE.set_token('PROCEDURE','ARP_PROGRAM_BR_REMIT.run_report_pvt');
4538: APP_EXCEPTION.raise_exception;
4539: ELSE
4540: FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Request : '||to_char(l_request_id));
4541: END IF;
4542:
4543: commit;
4544:
4541: END IF;
4542:
4543: commit;
4544:
4545: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------------------------------------------------------------------------');
4546:
4547: --FND_FILE.PUT_LINE(FND_FILE.LOG,'run_report_pvt (-)');
4548:
4549: EXCEPTION
4543: commit;
4544:
4545: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------------------------------------------------------------------------');
4546:
4547: --FND_FILE.PUT_LINE(FND_FILE.LOG,'run_report_pvt (-)');
4548:
4549: EXCEPTION
4550: WHEN OTHERS THEN
4551: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.run_report_pvt - ROLLBACK');
4547: --FND_FILE.PUT_LINE(FND_FILE.LOG,'run_report_pvt (-)');
4548:
4549: EXCEPTION
4550: WHEN OTHERS THEN
4551: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.run_report_pvt - ROLLBACK');
4552: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4553: ROLLBACK TO run_report_SVP;
4554:
4555: END run_report_pvt;
4548:
4549: EXCEPTION
4550: WHEN OTHERS THEN
4551: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.run_report_pvt - ROLLBACK');
4552: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4553: ROLLBACK TO run_report_SVP;
4554:
4555: END run_report_pvt;
4556:
4589: l_format VARCHAR2(30);
4590:
4591: BEGIN
4592:
4593: --FND_FILE.PUT_LINE(FND_FILE.LOG,'print_BR_pvt (+)');
4594:
4595: SAVEPOINT print_BR_SVP;
4596:
4597: -- parameter p_object_id mustn't be NULL
4612: l_format := 'IND';
4613: END IF;
4614:
4615:
4616: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------- ACTION Print Bills -----------------------------');
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
4618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH OR TRX ID :'||p_object_id);
4619: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID :'||arp_global.set_of_books_id);
4620:
4613: END IF;
4614:
4615:
4616: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------- ACTION Print Bills -----------------------------');
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
4618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH OR TRX ID :'||p_object_id);
4619: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID :'||arp_global.set_of_books_id);
4620:
4621: -- SSA - R12 : set org id prior to calling submit_request
4614:
4615:
4616: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------- ACTION Print Bills -----------------------------');
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
4618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH OR TRX ID :'||p_object_id);
4619: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID :'||arp_global.set_of_books_id);
4620:
4621: -- SSA - R12 : set org id prior to calling submit_request
4622: FND_REQUEST.set_org_id(g_org_id);
4615:
4616: FND_FILE.PUT_LINE(FND_FILE.LOG,'--------------------------- ACTION Print Bills -----------------------------');
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'Program ARBRFMTW parameters');
4618: FND_FILE.PUT_LINE(FND_FILE.LOG,'BATCH OR TRX ID :'||p_object_id);
4619: FND_FILE.PUT_LINE(FND_FILE.LOG,'SOB ID :'||arp_global.set_of_books_id);
4620:
4621: -- SSA - R12 : set org id prior to calling submit_request
4622: FND_REQUEST.set_org_id(g_org_id);
4623: l_request_id := FND_REQUEST.submit_request('AR'
4635: FND_MESSAGE.set_name('AR','AR_BR_BATCH_SUBMIT_FAILED');
4636: FND_MESSAGE.set_token('PROCEDURE','ARP_PROGRAM_BR_REMIT.print_BR_pvt');
4637: APP_EXCEPTION.raise_exception;
4638: ELSE
4639: FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Request : '||to_char(l_request_id));
4640: END IF;
4641:
4642: p_request_id := l_request_id;
4643:
4642: p_request_id := l_request_id;
4643:
4644: --commit;
4645:
4646: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------------------------------------------------------------------------');
4647:
4648: --FND_FILE.PUT_LINE(FND_FILE.LOG,'print_BR_pvt (-)');
4649:
4650: EXCEPTION
4644: --commit;
4645:
4646: FND_FILE.PUT_LINE(FND_FILE.LOG,'----------------------------------------------------------------------------');
4647:
4648: --FND_FILE.PUT_LINE(FND_FILE.LOG,'print_BR_pvt (-)');
4649:
4650: EXCEPTION
4651: WHEN OTHERS THEN
4652: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.print_BR_pvt - ROLLBACK');
4648: --FND_FILE.PUT_LINE(FND_FILE.LOG,'print_BR_pvt (-)');
4649:
4650: EXCEPTION
4651: WHEN OTHERS THEN
4652: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.print_BR_pvt - ROLLBACK');
4653: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4654: ROLLBACK TO print_BR_SVP;
4655:
4656: END print_BR_pvt;
4649:
4650: EXCEPTION
4651: WHEN OTHERS THEN
4652: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.print_BR_pvt - ROLLBACK');
4653: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4654: ROLLBACK TO print_BR_SVP;
4655:
4656: END print_BR_pvt;
4657: