501: 'OKL_AM_SUCCESS_RECY'
502: );
503: --'Successfully Recycled Contracts';
504: -- Log --
505: fnd_file.put_line (fnd_file.LOG, '');
506: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
507: fnd_file.put_line (fnd_file.LOG, '');
508: fnd_file.put_line (fnd_file.LOG,
509: l_type
502: );
503: --'Successfully Recycled Contracts';
504: -- Log --
505: fnd_file.put_line (fnd_file.LOG, '');
506: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
507: fnd_file.put_line (fnd_file.LOG, '');
508: fnd_file.put_line (fnd_file.LOG,
509: l_type
510: || RPAD (' ', 40 - LENGTH (l_type), ' ')
503: --'Successfully Recycled Contracts';
504: -- Log --
505: fnd_file.put_line (fnd_file.LOG, '');
506: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
507: fnd_file.put_line (fnd_file.LOG, '');
508: fnd_file.put_line (fnd_file.LOG,
509: l_type
510: || RPAD (' ', 40 - LENGTH (l_type), ' ')
511: || l_expired_k
504: -- Log --
505: fnd_file.put_line (fnd_file.LOG, '');
506: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
507: fnd_file.put_line (fnd_file.LOG, '');
508: fnd_file.put_line (fnd_file.LOG,
509: l_type
510: || RPAD (' ', 40 - LENGTH (l_type), ' ')
511: || l_expired_k
512: || RPAD (' ', 35 - LENGTH (l_expired_k), ' ')
512: || RPAD (' ', 35 - LENGTH (l_expired_k), ' ')
513: || l_recy_k
514: || RPAD (' ', 35 - LENGTH (l_recy_k), ' ')
515: );
516: fnd_file.put_line (fnd_file.LOG, RPAD ('-', 128, '-'));
517: fnd_file.put_line (fnd_file.LOG,
518: l_k_term_succ
519: || RPAD (' ', 40 - LENGTH (l_k_term_succ), ' ')
520: || l_success_exp
513: || l_recy_k
514: || RPAD (' ', 35 - LENGTH (l_recy_k), ' ')
515: );
516: fnd_file.put_line (fnd_file.LOG, RPAD ('-', 128, '-'));
517: fnd_file.put_line (fnd_file.LOG,
518: l_k_term_succ
519: || RPAD (' ', 40 - LENGTH (l_k_term_succ), ' ')
520: || l_success_exp
521: || RPAD (' ', 35 - LENGTH (l_success_exp), ' ')
521: || RPAD (' ', 35 - LENGTH (l_success_exp), ' ')
522: || l_success_recy
523: || RPAD (' ', 35 - LENGTH (l_success_recy), ' ')
524: );
525: fnd_file.put_line (fnd_file.LOG,
526: l_k_not_term
527: || RPAD (' ', 40 - LENGTH (l_k_not_term), ' ')
528: || l_error_exp
529: || RPAD (' ', 35 - LENGTH (l_error_exp), ' ')
529: || RPAD (' ', 35 - LENGTH (l_error_exp), ' ')
530: || l_error_recy
531: || RPAD (' ', 35 - LENGTH (l_error_recy), ' ')
532: );
533: fnd_file.put_line (fnd_file.LOG, '');
534: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
535: -- Output --
536: fnd_file.put_line (fnd_file.output,
537: RPAD (' ', 128 / 2 - LENGTH (l_orcl_logo) / 2,
530: || l_error_recy
531: || RPAD (' ', 35 - LENGTH (l_error_recy), ' ')
532: );
533: fnd_file.put_line (fnd_file.LOG, '');
534: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
535: -- Output --
536: fnd_file.put_line (fnd_file.output,
537: RPAD (' ', 128 / 2 - LENGTH (l_orcl_logo) / 2,
538: ' ')
532: );
533: fnd_file.put_line (fnd_file.LOG, '');
534: fnd_file.put_line (fnd_file.LOG, RPAD ('=', 128, '='));
535: -- Output --
536: fnd_file.put_line (fnd_file.output,
537: RPAD (' ', 128 / 2 - LENGTH (l_orcl_logo) / 2,
538: ' ')
539: || l_orcl_logo
540: );
537: RPAD (' ', 128 / 2 - LENGTH (l_orcl_logo) / 2,
538: ' ')
539: || l_orcl_logo
540: );
541: fnd_file.put_line (fnd_file.output,
542: RPAD (' ',
543: 128 / 2 - LENGTH (l_term_heading) / 2,
544: ' '
545: )
544: ' '
545: )
546: || l_term_heading
547: );
548: fnd_file.put_line (fnd_file.output,
549: RPAD (' ',
550: 128 / 2 - LENGTH (l_term_heading) / 2,
551: ' '
552: )
551: ' '
552: )
553: || RPAD ('-', LENGTH (l_term_heading), '-')
554: );
555: fnd_file.put_line (fnd_file.output, '');
556: fnd_file.put_line (fnd_file.output,
557: l_set_of_books
558: || ': '
559: || RPAD (SUBSTR (l_set_of_books_name, 1, 60), 60,
552: )
553: || RPAD ('-', LENGTH (l_term_heading), '-')
554: );
555: fnd_file.put_line (fnd_file.output, '');
556: fnd_file.put_line (fnd_file.output,
557: l_set_of_books
558: || ': '
559: || RPAD (SUBSTR (l_set_of_books_name, 1, 60), 60,
560: ' ')
565: 1,
566: 27
567: )
568: );
569: fnd_file.put_line (fnd_file.output,
570: l_oper_unit || ':' || SUBSTR (l_org_name, 1, 30)
571: );
572: fnd_file.put_line (fnd_file.output, '');
573: fnd_file.put_line (fnd_file.output, '');
568: );
569: fnd_file.put_line (fnd_file.output,
570: l_oper_unit || ':' || SUBSTR (l_org_name, 1, 30)
571: );
572: fnd_file.put_line (fnd_file.output, '');
573: fnd_file.put_line (fnd_file.output, '');
574: fnd_file.put_line (fnd_file.output,
575: l_type
576: || RPAD (' ', 40 - LENGTH (l_type), ' ')
569: fnd_file.put_line (fnd_file.output,
570: l_oper_unit || ':' || SUBSTR (l_org_name, 1, 30)
571: );
572: fnd_file.put_line (fnd_file.output, '');
573: fnd_file.put_line (fnd_file.output, '');
574: fnd_file.put_line (fnd_file.output,
575: l_type
576: || RPAD (' ', 40 - LENGTH (l_type), ' ')
577: || l_expired_k
570: l_oper_unit || ':' || SUBSTR (l_org_name, 1, 30)
571: );
572: fnd_file.put_line (fnd_file.output, '');
573: fnd_file.put_line (fnd_file.output, '');
574: fnd_file.put_line (fnd_file.output,
575: l_type
576: || RPAD (' ', 40 - LENGTH (l_type), ' ')
577: || l_expired_k
578: || RPAD (' ', 35 - LENGTH (l_expired_k), ' ')
578: || RPAD (' ', 35 - LENGTH (l_expired_k), ' ')
579: || l_recy_k
580: || RPAD (' ', 35 - LENGTH (l_recy_k), ' ')
581: );
582: fnd_file.put_line (fnd_file.output, RPAD ('-', 128, '-'));
583: fnd_file.put_line (fnd_file.output,
584: l_k_term_succ
585: || RPAD (' ', 40 - LENGTH (l_k_term_succ), ' ')
586: || l_success_exp
579: || l_recy_k
580: || RPAD (' ', 35 - LENGTH (l_recy_k), ' ')
581: );
582: fnd_file.put_line (fnd_file.output, RPAD ('-', 128, '-'));
583: fnd_file.put_line (fnd_file.output,
584: l_k_term_succ
585: || RPAD (' ', 40 - LENGTH (l_k_term_succ), ' ')
586: || l_success_exp
587: || RPAD (' ', 35 - LENGTH (l_success_exp), ' ')
587: || RPAD (' ', 35 - LENGTH (l_success_exp), ' ')
588: || l_success_recy
589: || RPAD (' ', 35 - LENGTH (l_success_recy), ' ')
590: );
591: fnd_file.put_line (fnd_file.output,
592: l_k_not_term
593: || RPAD (' ', 40 - LENGTH (l_k_not_term), ' ')
594: || l_error_exp
595: || RPAD (' ', 35 - LENGTH (l_error_exp), ' ')
595: || RPAD (' ', 35 - LENGTH (l_error_exp), ' ')
596: || l_error_recy
597: || RPAD (' ', 35 - LENGTH (l_error_recy), ' ')
598: );
599: fnd_file.put_line (fnd_file.output, '');
600: fnd_file.put_line (fnd_file.output, RPAD ('=', 128, '='));
601: fnd_file.put_line (fnd_file.output, '');
602:
603: IF p_source IS NULL THEN -- rmunjulu 4016497
596: || l_error_recy
597: || RPAD (' ', 35 - LENGTH (l_error_recy), ' ')
598: );
599: fnd_file.put_line (fnd_file.output, '');
600: fnd_file.put_line (fnd_file.output, RPAD ('=', 128, '='));
601: fnd_file.put_line (fnd_file.output, '');
602:
603: IF p_source IS NULL THEN -- rmunjulu 4016497
604: -- errored expired contracts
597: || RPAD (' ', 35 - LENGTH (l_error_recy), ' ')
598: );
599: fnd_file.put_line (fnd_file.output, '');
600: fnd_file.put_line (fnd_file.output, RPAD ('=', 128, '='));
601: fnd_file.put_line (fnd_file.output, '');
602:
603: IF p_source IS NULL THEN -- rmunjulu 4016497
604: -- errored expired contracts
605: IF l_error_exp > 0 THEN
602:
603: IF p_source IS NULL THEN -- rmunjulu 4016497
604: -- errored expired contracts
605: IF l_error_exp > 0 THEN
606: fnd_file.put_line (fnd_file.output, '');
607: fnd_file.put_line (fnd_file.output, l_exp_k_err);
608: fnd_file.put_line (fnd_file.output,
609: RPAD ('-', LENGTH (l_exp_k_err), '-')
610: );
603: IF p_source IS NULL THEN -- rmunjulu 4016497
604: -- errored expired contracts
605: IF l_error_exp > 0 THEN
606: fnd_file.put_line (fnd_file.output, '');
607: fnd_file.put_line (fnd_file.output, l_exp_k_err);
608: fnd_file.put_line (fnd_file.output,
609: RPAD ('-', LENGTH (l_exp_k_err), '-')
610: );
611: fnd_file.put_line (fnd_file.output, '');
604: -- errored expired contracts
605: IF l_error_exp > 0 THEN
606: fnd_file.put_line (fnd_file.output, '');
607: fnd_file.put_line (fnd_file.output, l_exp_k_err);
608: fnd_file.put_line (fnd_file.output,
609: RPAD ('-', LENGTH (l_exp_k_err), '-')
610: );
611: fnd_file.put_line (fnd_file.output, '');
612: l_printed := 'N';
607: fnd_file.put_line (fnd_file.output, l_exp_k_err);
608: fnd_file.put_line (fnd_file.output,
609: RPAD ('-', LENGTH (l_exp_k_err), '-')
610: );
611: fnd_file.put_line (fnd_file.output, '');
612: l_printed := 'N';
613:
614: -- Display the contract details
615: FOR i IN
616: error_exp_message_table.FIRST .. error_exp_message_table.LAST
617: LOOP
618: -- Print Header only once
619: IF l_printed = 'N' THEN
620: fnd_file.put_line (fnd_file.output,
621: l_serial
622: || RPAD (' ', 15 - LENGTH (l_serial),
623: ' ')
624: || l_k_num
636: || l_status
637: || RPAD (' ', 15 - LENGTH (l_status),
638: ' ')
639: );
640: fnd_file.put_line (fnd_file.output,
641: RPAD ('-', LENGTH (l_serial), '-')
642: || RPAD (' ', 15 - LENGTH (l_serial),
643: ' ')
644: || RPAD ('-', LENGTH (l_k_num), '-')
659: );
660: END IF;
661:
662: l_printed := 'Y';
663: fnd_file.put_line
664: (fnd_file.output,
665: i
666: || RPAD (' ', 15 - LENGTH (i), ' ')
667: || error_exp_message_table (i).contract_number
660: END IF;
661:
662: l_printed := 'Y';
663: fnd_file.put_line
664: (fnd_file.output,
665: i
666: || RPAD (' ', 15 - LENGTH (i), ' ')
667: || error_exp_message_table (i).contract_number
668: || RPAD
690: ' '
691: )
692: );
693:
694: --FND_FILE.put_line(FND_FILE.output,'');
695:
696: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
697:
698: -- Get the messages in the log
692: );
693:
694: --FND_FILE.put_line(FND_FILE.output,'');
695:
696: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
697:
698: -- Get the messages in the log
699: --FOR j IN error_exp_message_table(i).msg_tbl.FIRST..error_exp_message_table(i).msg_tbl.LAST LOOP
700: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_exp_message_table(i).msg_tbl(j).msg);
696: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
697:
698: -- Get the messages in the log
699: --FOR j IN error_exp_message_table(i).msg_tbl.FIRST..error_exp_message_table(i).msg_tbl.LAST LOOP
700: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_exp_message_table(i).msg_tbl(j).msg);
701: --END LOOP;
702:
703: --FND_FILE.put_line(FND_FILE.output,'');
704: IF NVL (g_prin_bal_zero, 'N') = 'Y' THEN
699: --FOR j IN error_exp_message_table(i).msg_tbl.FIRST..error_exp_message_table(i).msg_tbl.LAST LOOP
700: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_exp_message_table(i).msg_tbl(j).msg);
701: --END LOOP;
702:
703: --FND_FILE.put_line(FND_FILE.output,'');
704: IF NVL (g_prin_bal_zero, 'N') = 'Y' THEN
705: fnd_file.put_line (fnd_file.output, '');
706: fnd_file.put_line (fnd_file.output,
707: RPAD (' ', 5, ' ') || l_messages || ' :'
701: --END LOOP;
702:
703: --FND_FILE.put_line(FND_FILE.output,'');
704: IF NVL (g_prin_bal_zero, 'N') = 'Y' THEN
705: fnd_file.put_line (fnd_file.output, '');
706: fnd_file.put_line (fnd_file.output,
707: RPAD (' ', 5, ' ') || l_messages || ' :'
708: );
709: fnd_file.put
702:
703: --FND_FILE.put_line(FND_FILE.output,'');
704: IF NVL (g_prin_bal_zero, 'N') = 'Y' THEN
705: fnd_file.put_line (fnd_file.output, '');
706: fnd_file.put_line (fnd_file.output,
707: RPAD (' ', 5, ' ') || l_messages || ' :'
708: );
709: fnd_file.put
710: (fnd_file.output,
705: fnd_file.put_line (fnd_file.output, '');
706: fnd_file.put_line (fnd_file.output,
707: RPAD (' ', 5, ' ') || l_messages || ' :'
708: );
709: fnd_file.put
710: (fnd_file.output,
711: RPAD (' ', 5, ' ')
712: || 1
713: || ': '
706: fnd_file.put_line (fnd_file.output,
707: RPAD (' ', 5, ' ') || l_messages || ' :'
708: );
709: fnd_file.put
710: (fnd_file.output,
711: RPAD (' ', 5, ' ')
712: || 1
713: || ': '
714: || 'Principal Balance for this contract is not Zero.'
712: || 1
713: || ': '
714: || 'Principal Balance for this contract is not Zero.'
715: );
716: fnd_file.put_line (fnd_file.output, '');
717: END IF;
718: END LOOP;
719: END IF;
720:
719: END IF;
720:
721: -- errorred recycled contracts
722: IF l_error_recy > 0 THEN
723: fnd_file.put_line (fnd_file.output, '');
724: fnd_file.put_line (fnd_file.output, l_recy_k_err);
725: fnd_file.put_line (fnd_file.output,
726: RPAD ('-', LENGTH (l_recy_k_err), '-')
727: );
720:
721: -- errorred recycled contracts
722: IF l_error_recy > 0 THEN
723: fnd_file.put_line (fnd_file.output, '');
724: fnd_file.put_line (fnd_file.output, l_recy_k_err);
725: fnd_file.put_line (fnd_file.output,
726: RPAD ('-', LENGTH (l_recy_k_err), '-')
727: );
728: fnd_file.put_line (fnd_file.output, '');
721: -- errorred recycled contracts
722: IF l_error_recy > 0 THEN
723: fnd_file.put_line (fnd_file.output, '');
724: fnd_file.put_line (fnd_file.output, l_recy_k_err);
725: fnd_file.put_line (fnd_file.output,
726: RPAD ('-', LENGTH (l_recy_k_err), '-')
727: );
728: fnd_file.put_line (fnd_file.output, '');
729: l_printed := 'N';
724: fnd_file.put_line (fnd_file.output, l_recy_k_err);
725: fnd_file.put_line (fnd_file.output,
726: RPAD ('-', LENGTH (l_recy_k_err), '-')
727: );
728: fnd_file.put_line (fnd_file.output, '');
729: l_printed := 'N';
730:
731: -- Display the contract details
732: FOR i IN
733: error_recy_message_table.FIRST .. error_recy_message_table.LAST
734: LOOP
735: -- Print Header only once
736: IF l_printed = 'N' THEN
737: fnd_file.put_line (fnd_file.output,
738: l_serial
739: || RPAD (' ', 15 - LENGTH (l_serial),
740: ' ')
741: || l_k_num
753: || l_status
754: || RPAD (' ', 15 - LENGTH (l_status),
755: ' ')
756: );
757: fnd_file.put_line (fnd_file.output,
758: RPAD ('-', LENGTH (l_serial), '-')
759: || RPAD (' ', 15 - LENGTH (l_serial),
760: ' ')
761: || RPAD ('-', LENGTH (l_k_num), '-')
776: );
777: END IF;
778:
779: l_printed := 'Y';
780: fnd_file.put_line
781: (fnd_file.output,
782: i
783: || RPAD (' ', 15 - LENGTH (i), ' ')
784: || error_recy_message_table (i).contract_number
777: END IF;
778:
779: l_printed := 'Y';
780: fnd_file.put_line
781: (fnd_file.output,
782: i
783: || RPAD (' ', 15 - LENGTH (i), ' ')
784: || error_recy_message_table (i).contract_number
785: || RPAD
807: 15 - LENGTH (error_recy_message_table (i).status),
808: ' '
809: )
810: );
811: --FND_FILE.put_line(FND_FILE.output,'');
812:
813: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
814:
815: -- Get the messages in the log
809: )
810: );
811: --FND_FILE.put_line(FND_FILE.output,'');
812:
813: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
814:
815: -- Get the messages in the log
816: --FOR j IN error_recy_message_table(i).msg_tbl.FIRST..error_recy_message_table(i).msg_tbl.LAST LOOP
817: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_recy_message_table(i).msg_tbl(j).msg);
813: --FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
814:
815: -- Get the messages in the log
816: --FOR j IN error_recy_message_table(i).msg_tbl.FIRST..error_recy_message_table(i).msg_tbl.LAST LOOP
817: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_recy_message_table(i).msg_tbl(j).msg);
818: --END LOOP;
819:
820: --FND_FILE.put_line(FND_FILE.output,'');
821: END LOOP;
816: --FOR j IN error_recy_message_table(i).msg_tbl.FIRST..error_recy_message_table(i).msg_tbl.LAST LOOP
817: --FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || j || ': ' || error_recy_message_table(i).msg_tbl(j).msg);
818: --END LOOP;
819:
820: --FND_FILE.put_line(FND_FILE.output,'');
821: END LOOP;
822: END IF;
823:
824: -- successfully expired contracts
822: END IF;
823:
824: -- successfully expired contracts
825: IF l_success_exp > 0 THEN
826: fnd_file.put_line (fnd_file.output, '');
827: fnd_file.put_line (fnd_file.output, l_succ_exp_k);
828: fnd_file.put_line (fnd_file.output,
829: RPAD ('-', LENGTH (l_succ_exp_k), '-')
830: );
823:
824: -- successfully expired contracts
825: IF l_success_exp > 0 THEN
826: fnd_file.put_line (fnd_file.output, '');
827: fnd_file.put_line (fnd_file.output, l_succ_exp_k);
828: fnd_file.put_line (fnd_file.output,
829: RPAD ('-', LENGTH (l_succ_exp_k), '-')
830: );
831: fnd_file.put_line (fnd_file.output, '');
824: -- successfully expired contracts
825: IF l_success_exp > 0 THEN
826: fnd_file.put_line (fnd_file.output, '');
827: fnd_file.put_line (fnd_file.output, l_succ_exp_k);
828: fnd_file.put_line (fnd_file.output,
829: RPAD ('-', LENGTH (l_succ_exp_k), '-')
830: );
831: fnd_file.put_line (fnd_file.output, '');
832: l_printed := 'N';
827: fnd_file.put_line (fnd_file.output, l_succ_exp_k);
828: fnd_file.put_line (fnd_file.output,
829: RPAD ('-', LENGTH (l_succ_exp_k), '-')
830: );
831: fnd_file.put_line (fnd_file.output, '');
832: l_printed := 'N';
833:
834: -- Display the contract details
835: FOR i IN
836: success_exp_message_table.FIRST .. success_exp_message_table.LAST
837: LOOP
838: -- Print Header only once
839: IF l_printed = 'N' THEN
840: fnd_file.put_line (fnd_file.output,
841: l_serial
842: || RPAD (' ', 15 - LENGTH (l_serial),
843: ' ')
844: || l_k_num
856: || l_status
857: || RPAD (' ', 15 - LENGTH (l_status),
858: ' ')
859: );
860: fnd_file.put_line (fnd_file.output,
861: RPAD ('-', LENGTH (l_serial), '-')
862: || RPAD (' ', 15 - LENGTH (l_serial),
863: ' ')
864: || RPAD ('-', LENGTH (l_k_num), '-')
879: );
880: END IF;
881:
882: l_printed := 'Y';
883: fnd_file.put_line
884: (fnd_file.output,
885: i
886: || RPAD (' ', 15 - LENGTH (i), ' ')
887: || success_exp_message_table (i).contract_number
880: END IF;
881:
882: l_printed := 'Y';
883: fnd_file.put_line
884: (fnd_file.output,
885: i
886: || RPAD (' ', 15 - LENGTH (i), ' ')
887: || success_exp_message_table (i).contract_number
888: || RPAD
915: END IF;
916:
917: -- successfully recycled contracts
918: IF l_success_recy > 0 THEN
919: fnd_file.put_line (fnd_file.output, '');
920: fnd_file.put_line (fnd_file.output, l_succ_recy_k);
921: fnd_file.put_line (fnd_file.output,
922: RPAD ('-', LENGTH (l_succ_recy_k), '-')
923: );
916:
917: -- successfully recycled contracts
918: IF l_success_recy > 0 THEN
919: fnd_file.put_line (fnd_file.output, '');
920: fnd_file.put_line (fnd_file.output, l_succ_recy_k);
921: fnd_file.put_line (fnd_file.output,
922: RPAD ('-', LENGTH (l_succ_recy_k), '-')
923: );
924: fnd_file.put_line (fnd_file.output, '');
917: -- successfully recycled contracts
918: IF l_success_recy > 0 THEN
919: fnd_file.put_line (fnd_file.output, '');
920: fnd_file.put_line (fnd_file.output, l_succ_recy_k);
921: fnd_file.put_line (fnd_file.output,
922: RPAD ('-', LENGTH (l_succ_recy_k), '-')
923: );
924: fnd_file.put_line (fnd_file.output, '');
925: l_printed := 'N';
920: fnd_file.put_line (fnd_file.output, l_succ_recy_k);
921: fnd_file.put_line (fnd_file.output,
922: RPAD ('-', LENGTH (l_succ_recy_k), '-')
923: );
924: fnd_file.put_line (fnd_file.output, '');
925: l_printed := 'N';
926:
927: -- Display the contract details
928: FOR i IN
929: success_recy_message_table.FIRST .. success_recy_message_table.LAST
930: LOOP
931: -- Print Header only once
932: IF l_printed = 'N' THEN
933: fnd_file.put_line (fnd_file.output,
934: l_serial
935: || RPAD (' ', 15 - LENGTH (l_serial),
936: ' ')
937: || l_k_num
949: || l_status
950: || RPAD (' ', 15 - LENGTH (l_status),
951: ' ')
952: );
953: fnd_file.put_line (fnd_file.output,
954: RPAD ('-', LENGTH (l_serial), '-')
955: || RPAD (' ', 15 - LENGTH (l_serial),
956: ' ')
957: || RPAD ('-', LENGTH (l_k_num), '-')
972: );
973: END IF;
974:
975: l_printed := 'Y';
976: fnd_file.put_line
977: (fnd_file.output,
978: i
979: || RPAD (' ', 15 - LENGTH (i), ' ')
980: || success_recy_message_table (i).contract_number
973: END IF;
974:
975: l_printed := 'Y';
976: fnd_file.put_line
977: (fnd_file.output,
978: i
979: || RPAD (' ', 15 - LENGTH (i), ' ')
980: || success_recy_message_table (i).contract_number
981: || RPAD
1008: );
1009: END LOOP;
1010: END IF;
1011: ELSE -- p_source IS NOT NULL THEN -- rmunjulu 4016497
1012: fnd_file.put_line (fnd_file.output, '');
1013: fnd_file.put_line (fnd_file.output, l_exp_k_err);
1014: fnd_file.put_line (fnd_file.output,
1015: RPAD ('-', LENGTH (l_exp_k_err), '-')
1016: );
1009: END LOOP;
1010: END IF;
1011: ELSE -- p_source IS NOT NULL THEN -- rmunjulu 4016497
1012: fnd_file.put_line (fnd_file.output, '');
1013: fnd_file.put_line (fnd_file.output, l_exp_k_err);
1014: fnd_file.put_line (fnd_file.output,
1015: RPAD ('-', LENGTH (l_exp_k_err), '-')
1016: );
1017: fnd_file.put_line (fnd_file.output, '');
1010: END IF;
1011: ELSE -- p_source IS NOT NULL THEN -- rmunjulu 4016497
1012: fnd_file.put_line (fnd_file.output, '');
1013: fnd_file.put_line (fnd_file.output, l_exp_k_err);
1014: fnd_file.put_line (fnd_file.output,
1015: RPAD ('-', LENGTH (l_exp_k_err), '-')
1016: );
1017: fnd_file.put_line (fnd_file.output, '');
1018: fnd_file.put_line (fnd_file.output,
1013: fnd_file.put_line (fnd_file.output, l_exp_k_err);
1014: fnd_file.put_line (fnd_file.output,
1015: RPAD ('-', LENGTH (l_exp_k_err), '-')
1016: );
1017: fnd_file.put_line (fnd_file.output, '');
1018: fnd_file.put_line (fnd_file.output,
1019: l_serial
1020: || RPAD (' ', 15 - LENGTH (l_serial), ' ')
1021: || l_k_num
1014: fnd_file.put_line (fnd_file.output,
1015: RPAD ('-', LENGTH (l_exp_k_err), '-')
1016: );
1017: fnd_file.put_line (fnd_file.output, '');
1018: fnd_file.put_line (fnd_file.output,
1019: l_serial
1020: || RPAD (' ', 15 - LENGTH (l_serial), ' ')
1021: || l_k_num
1022: || RPAD (' ', 35 - LENGTH (l_k_num), ' ')
1026: || RPAD (' ', 15 - LENGTH (l_end_date), ' ')
1027: || l_status
1028: || RPAD (' ', 15 - LENGTH (l_status), ' ')
1029: );
1030: fnd_file.put_line (fnd_file.output,
1031: RPAD ('-', LENGTH (l_serial), '-')
1032: || RPAD (' ', 15 - LENGTH (l_serial), ' ')
1033: || RPAD ('-', LENGTH (l_k_num), '-')
1034: || RPAD (' ', 35 - LENGTH (l_k_num), ' ')
1038: || RPAD (' ', 15 - LENGTH (l_end_date), ' ')
1039: || RPAD ('-', LENGTH (l_status), '-')
1040: || RPAD (' ', 15 - LENGTH (l_status), ' ')
1041: );
1042: fnd_file.put_line
1043: (fnd_file.output,
1044: '1'
1045: || RPAD (' ', 14, ' ')
1046: || error_exp_message_table (1).contract_number
1039: || RPAD ('-', LENGTH (l_status), '-')
1040: || RPAD (' ', 15 - LENGTH (l_status), ' ')
1041: );
1042: fnd_file.put_line
1043: (fnd_file.output,
1044: '1'
1045: || RPAD (' ', 14, ' ')
1046: || error_exp_message_table (1).contract_number
1047: || RPAD
1069: ' '
1070: )
1071: );
1072: -- Set message
1073: fnd_file.put_line (fnd_file.output, p_message);
1074: END IF;
1075:
1076: fnd_file.put_line (fnd_file.output, '');
1077: fnd_file.put_line (fnd_file.output, '');
1072: -- Set message
1073: fnd_file.put_line (fnd_file.output, p_message);
1074: END IF;
1075:
1076: fnd_file.put_line (fnd_file.output, '');
1077: fnd_file.put_line (fnd_file.output, '');
1078: fnd_file.put_line (fnd_file.output, RPAD (' ', 53, ' ') || l_eop);
1079:
1080: IF (is_debug_procedure_on) THEN
1073: fnd_file.put_line (fnd_file.output, p_message);
1074: END IF;
1075:
1076: fnd_file.put_line (fnd_file.output, '');
1077: fnd_file.put_line (fnd_file.output, '');
1078: fnd_file.put_line (fnd_file.output, RPAD (' ', 53, ' ') || l_eop);
1079:
1080: IF (is_debug_procedure_on) THEN
1081: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1074: END IF;
1075:
1076: fnd_file.put_line (fnd_file.output, '');
1077: fnd_file.put_line (fnd_file.output, '');
1078: fnd_file.put_line (fnd_file.output, RPAD (' ', 53, ' ') || l_eop);
1079:
1080: IF (is_debug_procedure_on) THEN
1081: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1082: END IF;
1796: END IF;
1797:
1798: /* RMUNJULU 2730738
1799: -- Add couple of blank lines
1800: fnd_file.put_line(fnd_file.log, '');
1801: fnd_file.put_line(fnd_file.output, '');
1802: fnd_file.put_line(fnd_file.log, '');
1803: fnd_file.put_line(fnd_file.output, '');
1804:
1797:
1798: /* RMUNJULU 2730738
1799: -- Add couple of blank lines
1800: fnd_file.put_line(fnd_file.log, '');
1801: fnd_file.put_line(fnd_file.output, '');
1802: fnd_file.put_line(fnd_file.log, '');
1803: fnd_file.put_line(fnd_file.output, '');
1804:
1805: -- Get the messages in the log
1798: /* RMUNJULU 2730738
1799: -- Add couple of blank lines
1800: fnd_file.put_line(fnd_file.log, '');
1801: fnd_file.put_line(fnd_file.output, '');
1802: fnd_file.put_line(fnd_file.log, '');
1803: fnd_file.put_line(fnd_file.output, '');
1804:
1805: -- Get the messages in the log
1806: LOOP
1799: -- Add couple of blank lines
1800: fnd_file.put_line(fnd_file.log, '');
1801: fnd_file.put_line(fnd_file.output, '');
1802: fnd_file.put_line(fnd_file.log, '');
1803: fnd_file.put_line(fnd_file.output, '');
1804:
1805: -- Get the messages in the log
1806: LOOP
1807:
1812: p_msg_index_out => lx_error_rec.msg_count);
1813:
1814: IF (lx_error_rec.msg_count IS NOT NULL) THEN
1815:
1816: fnd_file.put_line(fnd_file.log, lx_error_rec.msg_data);
1817: fnd_file.put_line(fnd_file.output, lx_error_rec.msg_data);
1818:
1819: END IF;
1820:
1813:
1814: IF (lx_error_rec.msg_count IS NOT NULL) THEN
1815:
1816: fnd_file.put_line(fnd_file.log, lx_error_rec.msg_data);
1817: fnd_file.put_line(fnd_file.output, lx_error_rec.msg_data);
1818:
1819: END IF;
1820:
1821: EXIT WHEN ((lx_error_rec.msg_count = FND_MSG_PUB.COUNT_MSG)
2700: i := i + 1;
2701: END LOOP;
2702: ELSE -- no value passed for p contract number
2703: /* RMUNJULU 2730738
2704: fnd_file.put_line(fnd_file.log, '');
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2701: END LOOP;
2702: ELSE -- no value passed for p contract number
2703: /* RMUNJULU 2730738
2704: fnd_file.put_line(fnd_file.log, '');
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2709: fnd_file.put_line(fnd_file.output, '');
2702: ELSE -- no value passed for p contract number
2703: /* RMUNJULU 2730738
2704: fnd_file.put_line(fnd_file.log, '');
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2709: fnd_file.put_line(fnd_file.output, '');
2710: */ -- for leases/loans whose end date is less than today and which are not already
2703: /* RMUNJULU 2730738
2704: fnd_file.put_line(fnd_file.log, '');
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2709: fnd_file.put_line(fnd_file.output, '');
2710: */ -- for leases/loans whose end date is less than today and which are not already
2711: -- terminated call the lease_loan_terminate api
2704: fnd_file.put_line(fnd_file.log, '');
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2709: fnd_file.put_line(fnd_file.output, '');
2710: */ -- for leases/loans whose end date is less than today and which are not already
2711: -- terminated call the lease_loan_terminate api
2712: FOR ter_cnt_rec IN ter_cnt_csr (db_sysdate)
2705: fnd_file.put_line(fnd_file.output, '');
2706: fnd_file.put_line(fnd_file.log, 'Processing the expired contracts.');
2707: fnd_file.put_line(fnd_file.output, 'Processing the expired contracts.');
2708: fnd_file.put_line(fnd_file.log, '');
2709: fnd_file.put_line(fnd_file.output, '');
2710: */ -- for leases/loans whose end date is less than today and which are not already
2711: -- terminated call the lease_loan_terminate api
2712: FOR ter_cnt_rec IN ter_cnt_csr (db_sysdate)
2713: LOOP
2918: END IF;
2919: END LOOP;
2920:
2921: /* RMUNJULU 2730738
2922: fnd_file.put_line(fnd_file.log, '');
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2919: END LOOP;
2920:
2921: /* RMUNJULU 2730738
2922: fnd_file.put_line(fnd_file.log, '');
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2927: fnd_file.put_line(fnd_file.output, '');
2920:
2921: /* RMUNJULU 2730738
2922: fnd_file.put_line(fnd_file.log, '');
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2927: fnd_file.put_line(fnd_file.output, '');
2928: */ -- for leases/loans which have been recycled call the
2921: /* RMUNJULU 2730738
2922: fnd_file.put_line(fnd_file.log, '');
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2927: fnd_file.put_line(fnd_file.output, '');
2928: */ -- for leases/loans which have been recycled call the
2929: -- lease_loan_termination api
2922: fnd_file.put_line(fnd_file.log, '');
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2927: fnd_file.put_line(fnd_file.output, '');
2928: */ -- for leases/loans which have been recycled call the
2929: -- lease_loan_termination api
2930: FOR ter_cnt_recy_rec IN ter_cnt_recy_csr (db_sysdate)
2923: fnd_file.put_line(fnd_file.output, '');
2924: fnd_file.put_line(fnd_file.log, 'Processing the recycled termination transactions.');
2925: fnd_file.put_line(fnd_file.output, 'Processing the recycled termination transactions.');
2926: fnd_file.put_line(fnd_file.log, '');
2927: fnd_file.put_line(fnd_file.output, '');
2928: */ -- for leases/loans which have been recycled call the
2929: -- lease_loan_termination api
2930: FOR ter_cnt_recy_rec IN ter_cnt_recy_csr (db_sysdate)
2931: LOOP
3185: /*
3186: -- Check if contract valid or not
3187: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN -- Contract validity failed
3188:
3189: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3190: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3191:
3192: fnd_file.put_line(fnd_file.log, '');
3193: fnd_file.put_line(fnd_file.output, '');
3186: -- Check if contract valid or not
3187: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN -- Contract validity failed
3188:
3189: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3190: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3191:
3192: fnd_file.put_line(fnd_file.log, '');
3193: fnd_file.put_line(fnd_file.output, '');
3194:
3188:
3189: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3190: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3191:
3192: fnd_file.put_line(fnd_file.log, '');
3193: fnd_file.put_line(fnd_file.output, '');
3194:
3195: LOOP
3196:
3189: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3190: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3191:
3192: fnd_file.put_line(fnd_file.log, '');
3193: fnd_file.put_line(fnd_file.output, '');
3194:
3195: LOOP
3196:
3197: fnd_msg_pub.get(
3201: p_msg_index_out => lx_error_rec.msg_count);
3202:
3203: IF (lx_error_rec.msg_count IS NOT NULL) THEN
3204:
3205: fnd_file.put_line(fnd_file.log, lx_error_rec.msg_data);
3206: fnd_file.put_line(fnd_file.output, lx_error_rec.msg_data);
3207:
3208: END IF;
3209:
3202:
3203: IF (lx_error_rec.msg_count IS NOT NULL) THEN
3204:
3205: fnd_file.put_line(fnd_file.log, lx_error_rec.msg_data);
3206: fnd_file.put_line(fnd_file.output, lx_error_rec.msg_data);
3207:
3208: END IF;
3209:
3210: EXIT WHEN ((lx_error_rec.msg_count = FND_MSG_PUB.COUNT_MSG)
3212:
3213: l_msg_idx := FND_MSG_PUB.G_NEXT;
3214: END LOOP;
3215:
3216: fnd_file.put_line(fnd_file.log, '');
3217: fnd_file.put_line(fnd_file.output, '');
3218: fnd_file.put_line(fnd_file.log, 'Termination of contract failed');
3219: fnd_file.put_line(fnd_file.output, 'Termination of contract failed');
3220:
3213: l_msg_idx := FND_MSG_PUB.G_NEXT;
3214: END LOOP;
3215:
3216: fnd_file.put_line(fnd_file.log, '');
3217: fnd_file.put_line(fnd_file.output, '');
3218: fnd_file.put_line(fnd_file.log, 'Termination of contract failed');
3219: fnd_file.put_line(fnd_file.output, 'Termination of contract failed');
3220:
3221: ELSE -- Contract valid
3214: END LOOP;
3215:
3216: fnd_file.put_line(fnd_file.log, '');
3217: fnd_file.put_line(fnd_file.output, '');
3218: fnd_file.put_line(fnd_file.log, 'Termination of contract failed');
3219: fnd_file.put_line(fnd_file.output, 'Termination of contract failed');
3220:
3221: ELSE -- Contract valid
3222: */
3215:
3216: fnd_file.put_line(fnd_file.log, '');
3217: fnd_file.put_line(fnd_file.output, '');
3218: fnd_file.put_line(fnd_file.log, 'Termination of contract failed');
3219: fnd_file.put_line(fnd_file.output, 'Termination of contract failed');
3220:
3221: ELSE -- Contract valid
3222: */
3223: /* RMUNJULU 2730738
3220:
3221: ELSE -- Contract valid
3222: */
3223: /* RMUNJULU 2730738
3224: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3225: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3226:
3227: fnd_file.put_line(fnd_file.log, '');
3228: fnd_file.put_line(fnd_file.output, '');
3221: ELSE -- Contract valid
3222: */
3223: /* RMUNJULU 2730738
3224: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3225: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3226:
3227: fnd_file.put_line(fnd_file.log, '');
3228: fnd_file.put_line(fnd_file.output, '');
3229: */
3223: /* RMUNJULU 2730738
3224: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3225: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3226:
3227: fnd_file.put_line(fnd_file.log, '');
3228: fnd_file.put_line(fnd_file.output, '');
3229: */
3230: -- Terminate the contract
3231: IF (is_debug_statement_on) THEN
3224: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3225: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3226:
3227: fnd_file.put_line(fnd_file.log, '');
3228: fnd_file.put_line(fnd_file.output, '');
3229: */
3230: -- Terminate the contract
3231: IF (is_debug_statement_on) THEN
3232: okl_debug_pub.log_debug (g_level_statement,
3267: END IF;
3268: */
3269: ELSE -- No contract passed, so scheduled request
3270: /* RMUNJULU 2730738
3271: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3272: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3273:
3274: fnd_file.put_line(fnd_file.log, '');
3275: fnd_file.put_line(fnd_file.output, '');
3268: */
3269: ELSE -- No contract passed, so scheduled request
3270: /* RMUNJULU 2730738
3271: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3272: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3273:
3274: fnd_file.put_line(fnd_file.log, '');
3275: fnd_file.put_line(fnd_file.output, '');
3276: */
3270: /* RMUNJULU 2730738
3271: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3272: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3273:
3274: fnd_file.put_line(fnd_file.log, '');
3275: fnd_file.put_line(fnd_file.output, '');
3276: */
3277: IF (is_debug_statement_on) THEN
3278: okl_debug_pub.log_debug (g_level_statement,
3271: fnd_file.put_line(fnd_file.log, 'Processing termination request from concurrent manager.');
3272: fnd_file.put_line(fnd_file.output, 'Processing termination request from concurrent manager.');
3273:
3274: fnd_file.put_line(fnd_file.log, '');
3275: fnd_file.put_line(fnd_file.output, '');
3276: */
3277: IF (is_debug_statement_on) THEN
3278: okl_debug_pub.log_debug (g_level_statement,
3279: l_module_name,
3342: );
3343: END IF;
3344:
3345: -- dbms_output.put_line(p_message);
3346: fnd_file.put_line (fnd_file.output, p_message);
3347:
3348: IF (is_debug_procedure_on) THEN
3349: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3350: END IF;