33: Begin
34: --***********************************************************
35: -- Log concurrent program Output
36: --***********************************************************
37: fnd_file.put_line(FND_FILE.OUTPUT, '');
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
34: --***********************************************************
35: -- Log concurrent program Output
36: --***********************************************************
37: fnd_file.put_line(FND_FILE.OUTPUT, '');
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
42: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads: X_Num_Workers: '|| X_Num_Workers);
35: -- Log concurrent program Output
36: --***********************************************************
37: fnd_file.put_line(FND_FILE.OUTPUT, '');
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
42: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads: X_Num_Workers: '|| X_Num_Workers);
43:
36: --***********************************************************
37: fnd_file.put_line(FND_FILE.OUTPUT, '');
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
42: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads: X_Num_Workers: '|| X_Num_Workers);
43:
44: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
37: fnd_file.put_line(FND_FILE.OUTPUT, '');
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
42: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads: X_Num_Workers: '|| X_Num_Workers);
43:
44: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
45:
38: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program Manager');
39: fnd_file.put_line(FND_FILE.OUTPUT, '');
40: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
41: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size: X_batch_size: '|| X_batch_size);
42: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads: X_Num_Workers: '|| X_Num_Workers);
43:
44: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
45:
46: IF aso_debug_pub.g_debug_flag = 'Y' THEN
227: Begin
228: --***********************************************************
229: -- Log concurrent program Output
230: --***********************************************************
231: fnd_file.put_line(FND_FILE.OUTPUT, 'Modified Program');
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
228: --***********************************************************
229: -- Log concurrent program Output
230: --***********************************************************
231: fnd_file.put_line(FND_FILE.OUTPUT, 'Modified Program');
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
236: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads : '|| X_Num_Workers);
229: -- Log concurrent program Output
230: --***********************************************************
231: fnd_file.put_line(FND_FILE.OUTPUT, 'Modified Program');
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
236: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads : '|| X_Num_Workers);
237:
230: --***********************************************************
231: fnd_file.put_line(FND_FILE.OUTPUT, 'Modified Program');
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
236: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads : '|| X_Num_Workers);
237:
238: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
231: fnd_file.put_line(FND_FILE.OUTPUT, 'Modified Program');
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
236: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads : '|| X_Num_Workers);
237:
238: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
239:
232: fnd_file.put_line(FND_FILE.OUTPUT, 'Migrate ASO Credit Card Payment Data to Oracle Payment - Concurrent Program');
233: fnd_file.put_line(FND_FILE.OUTPUT, '');
234: fnd_file.put_line(FND_FILE.OUTPUT, 'Concurrent Program Parameters');
235: fnd_file.put_line(FND_FILE.OUTPUT, 'Batch Size : '|| X_batch_size);
236: fnd_file.put_line(FND_FILE.OUTPUT, 'Number of Threads : '|| X_Num_Workers);
237:
238: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
239:
240: IF aso_debug_pub.g_debug_flag = 'Y' THEN
327:
328: CLOSE encrypted_credit_card_cur;
329:
330: aso_debug_pub.add('Before for loop payment_id_tab.count: '|| payment_id_tab.count );
331: fnd_file.put_line(FND_FILE.OUTPUT, 'Before for loop payment_id_tab.count: '|| payment_id_tab.count );
332:
333: IF payment_id_tab.count > 0 THEN
334:
335: FOR i in payment_id_tab.first..payment_id_tab.last LOOP
367:
368:
369: BEGIN -- begin1
370:
371: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_CREDITCARD');
372:
373: -- create new credit cards with single use only
374: FORALL i IN payment_id_tab.first..payment_id_tab.last SAVE EXCEPTIONS
375:
425: cc_number_length_tab(i),
426: masked_cc_number_tab(i),
427: 1
428: );
429: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_CREDITCARD');
430:
431: EXCEPTION
432:
433: WHEN OTHERS THEN
434: l_error_flag := 'Y';
435:
436: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
437:
438: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
439: ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
440:
441: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_CREDITCARD for Payment ID ' || payment_id_tab(j));
442: END LOOP;
437:
438: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
439: ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
440:
441: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_CREDITCARD for Payment ID ' || payment_id_tab(j));
442: END LOOP;
443:
444: END; --end begin1
445:
445:
446:
447: -- Now insert into the instrument use table
448: BEGIN -- begin2
449: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_PMT_INSTR_USES_ALL ');
450:
451: FORALL i IN payment_id_tab.first .. payment_id_tab.last SAVE EXCEPTIONS
452:
453: INSERT INTO IBY_PMT_INSTR_USES_ALL( INSTRUMENT_PAYMENT_USE_ID,
494: and acct_site_use_id is null
495: and rownum = 1;
496:
497:
498: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_PMT_INSTR_USES_ALL ');
499:
500: EXCEPTION
501:
502: WHEN OTHERS THEN
503: l_error_flag := 'Y';
504:
505: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
506:
507: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
508:
509: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
510: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
511: END LOOP;
505: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
506:
507: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
508:
509: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
510: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
511: END LOOP;
512:
513: END; --end2
506:
507: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
508:
509: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
510: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
511: END LOOP;
512:
513: END; --end2
514:
515: -- insert the transactions into IBY transaction extension table
516:
517: BEGIN --begin3
518:
519: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_FNDCPT_TX_EXTENSIONS');
520:
521: FORALL i IN payment_id_tab.first .. payment_id_tab.last SAVE EXCEPTIONS
522:
523: INSERT INTO IBY_FNDCPT_TX_EXTENSIONS( TRXN_EXTENSION_ID,
557: 'Y',
558: 679
559: );
560:
561: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_FNDCPT_TX_EXTENSIONS');
562:
563: EXCEPTION
564:
565: WHEN OTHERS THEN
566: l_error_flag := 'Y';
567:
568: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
569:
570: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
571:
572: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for trxn_ref_number1_tab(j): ' || trxn_ref_number1_tab(j));
573: END LOOP;
574:
568: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
569:
570: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
571:
572: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for trxn_ref_number1_tab(j): ' || trxn_ref_number1_tab(j));
573: END LOOP;
574:
575: END; --end3
576:
577: END IF; -- END IF FOR THE payment_id_tab.count
578:
579: ELSE ---l_encryption_enabled is false
580:
581: fnd_file.put_line(FND_FILE.OUTPUT, 'l_encryption_enabled is false');
582:
583:
584: OPEN unencrypted_credit_card_cur(l_start_rowid, l_end_rowid);
585: -- Fetch the transactions
607:
608: CLOSE unencrypted_credit_card_cur;
609:
610: aso_debug_pub.add('Before for loop payment_id_tab.count: '|| payment_id_tab.count );
611: fnd_file.put_line(FND_FILE.OUTPUT, 'Before for loop payment_id_tab.count: '|| payment_id_tab.count );
612:
613: IF payment_id_tab.count > 0 THEN
614:
615: FOR i in payment_id_tab.first..payment_id_tab.last LOOP
643:
644: BEGIN --begin4
645: -- create new credit cards with single use only
646:
647: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_CREDITCARD');
648:
649: FORALL i IN payment_id_tab.first..payment_id_tab.last SAVE EXCEPTIONS
650:
651: INSERT INTO IBY_CREDITCARD( CARD_OWNER_ID,
703: masked_cc_number_tab(i),
704: 1
705: );
706:
707: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_CREDITCARD');
708:
709: EXCEPTION
710:
711: WHEN OTHERS THEN
712: l_error_flag := 'Y';
713:
714: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
715:
716: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
717: ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
718:
719: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_CREDITCARD for Payment ID ' || payment_id_tab(j));
720: END LOOP;
715:
716: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX ||
717: ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
718:
719: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_CREDITCARD for Payment ID ' || payment_id_tab(j));
720: END LOOP;
721:
722: END; --end4
723:
724:
725: -- Now insert into the instrument use table
726: BEGIN --begin5
727:
728: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_PMT_INSTR_USES_ALL');
729:
730: FORALL i IN payment_id_tab.first .. payment_id_tab.last SAVE EXCEPTIONS
731:
732: INSERT INTO IBY_PMT_INSTR_USES_ALL( INSTRUMENT_PAYMENT_USE_ID,
772: and cust_account_id is null
773: and acct_site_use_id is null
774: and rownum = 1;
775:
776: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_PMT_INSTR_USES_ALL');
777:
778: EXCEPTION
779:
780: WHEN OTHERS THEN
781: l_error_flag := 'Y';
782:
783: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
784:
785: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
786:
787: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
788: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
789: END LOOP;
783: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
784:
785: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
786:
787: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
788: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
789: END LOOP;
790:
791: END; --end5
784:
785: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
786:
787: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Payment Id: ' || payment_id_tab(j));
788: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for Instrument Assignment Id: ' || instr_assignment_id_tab(j));
789: END LOOP;
790:
791: END; --end5
792:
794: -- insert the transactions into IBY transaction extension table
795:
796: BEGIN -- begin6
797:
798: fnd_file.put_line(FND_FILE.OUTPUT, 'Before insering into table IBY_FNDCPT_TX_EXTENSIONS');
799:
800: FORALL i IN payment_id_tab.first .. payment_id_tab.last SAVE EXCEPTIONS
801:
802: INSERT INTO IBY_FNDCPT_TX_EXTENSIONS( TRXN_EXTENSION_ID,
836: 'Y',
837: 679
838: );
839:
840: fnd_file.put_line(FND_FILE.OUTPUT, 'After insering into table IBY_FNDCPT_TX_EXTENSIONS');
841:
842: EXCEPTION
843:
844: WHEN OTHERS THEN
845: l_error_flag := 'Y';
846:
847: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
848:
849: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
850:
851: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for trxn_ref_number1_tab(j): ' || trxn_ref_number1_tab(j));
852: END LOOP;
853:
847: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
848:
849: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
850:
851: fnd_file.put_line(FND_FILE.OUTPUT, 'Insert failing at IBY_PMT_INSTR_USES_ALL for trxn_ref_number1_tab(j): ' || trxn_ref_number1_tab(j));
852: END LOOP;
853:
854: END; --end6
855: END IF; -- for payment table count
862: BEGIN -- begin7
863:
864: IF (l_error_flag = 'N' and payment_id_tab.count > 0 ) THEN
865:
866: fnd_file.put_line(FND_FILE.OUTPUT, 'Before updating the aso_payments table');
867:
868: FORALL i IN payment_id_tab.first..payment_id_tab.last SAVE EXCEPTIONS
869:
870: UPDATE aso_payments a
876: a.CREDIT_CARD_HOLDER_NAME = NULL,
877: a.PAYMENT_REF_NUMBER = NULL
878: WHERE a.payment_id = payment_id_tab(i);
879:
880: fnd_file.put_line(FND_FILE.OUTPUT, 'After updating the aso_payments table');
881:
882: ELSE
883: IF payment_id_tab.count = 0 THEN
884: fnd_file.put_line(FND_FILE.OUTPUT,'No payment tbl records to update');
880: fnd_file.put_line(FND_FILE.OUTPUT, 'After updating the aso_payments table');
881:
882: ELSE
883: IF payment_id_tab.count = 0 THEN
884: fnd_file.put_line(FND_FILE.OUTPUT,'No payment tbl records to update');
885: elsif l_error_flag = 'Y' then
886: fnd_file.put_line(FND_FILE.OUTPUT,'Did not update aso_payments table because of errors');
887: end if;
888: END IF;
882: ELSE
883: IF payment_id_tab.count = 0 THEN
884: fnd_file.put_line(FND_FILE.OUTPUT,'No payment tbl records to update');
885: elsif l_error_flag = 'Y' then
886: fnd_file.put_line(FND_FILE.OUTPUT,'Did not update aso_payments table because of errors');
887: end if;
888: END IF;
889:
890:
893: WHEN OTHERS THEN
894:
895: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
896:
897: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
898:
899: fnd_file.put_line(FND_FILE.OUTPUT, 'Update failing at asopayments for payment_id_tab(j): ' || payment_id_tab(j));
900: END LOOP;
901:
895: FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
896:
897: fnd_file.put_line(FND_FILE.OUTPUT, 'Error occurred during iteration ' || SQL%BULK_EXCEPTIONS(j).ERROR_INDEX || ' Oracle error is ' || SQL%BULK_EXCEPTIONS(j).ERROR_CODE );
898:
899: fnd_file.put_line(FND_FILE.OUTPUT, 'Update failing at asopayments for payment_id_tab(j): ' || payment_id_tab(j));
900: END LOOP;
901:
902: --l_rows_processed := SQL%ROWCOUNT;
903:
909: ad_parallel_updates_pkg.processed_rowid_range(l_rows_processed,l_end_rowid);
910:
911: IF (l_error_flag = 'N') THEN
912: COMMIT;
913: fnd_file.put_line(FND_FILE.OUTPUT, '*** Commiting the changes ****** ');
914: END IF;
915: --
916: -- get new range of rowids
917: --
935:
936: EXCEPTION
937: WHEN OTHERS THEN
938: aso_debug_pub.add('Inside Exception',1,'Y' );
939: fnd_file.put_line(FND_FILE.OUTPUT, 'Inside the outermost exception block');
940: X_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
941: raise;
942: End Migrate_Credit_Card_Data_Wkr;
943: