104: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
105: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
106: END IF;
107:
108: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
109: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
105: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
106: END IF;
107:
108: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
109: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
107:
108: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
109: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
108: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
109: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
109: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
110: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
111: fnd_message.set_name('JL', 'JL_CO_FA_BOOK');
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
112: fnd_message.set_token('BOOK', p_book);
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
120: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
113: fnd_file.put_line( 1, fnd_message.get);
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
120: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
121: ---------------------------------------------------------
114: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
120: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
121: ---------------------------------------------------------
122: -- Find who_columns values --
115: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
116: fnd_file.put_line( 1, fnd_message.get);
117: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
118: fnd_message.set_token('OPTION', p_option);
119: fnd_file.put_line( 1, fnd_message.get);
120: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
121: ---------------------------------------------------------
122: -- Find who_columns values --
123: ---------------------------------------------------------
519: ---------------------------------------------------------
520:
521: IF (p_option = 'ARCHIVE') THEN
522:
523: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
524: fnd_message.set_token('OPTION', p_option);
525: fnd_file.put_line( 1, fnd_message.get);
526:
527: ---------------------------------------------------------
520:
521: IF (p_option = 'ARCHIVE') THEN
522:
523: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
524: fnd_message.set_token('OPTION', p_option);
525: fnd_file.put_line( 1, fnd_message.get);
526:
527: ---------------------------------------------------------
528: -- Check weather backup table for adjustments is --
521: IF (p_option = 'ARCHIVE') THEN
522:
523: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
524: fnd_message.set_token('OPTION', p_option);
525: fnd_file.put_line( 1, fnd_message.get);
526:
527: ---------------------------------------------------------
528: -- Check weather backup table for adjustments is --
529: -- exists. Its name is jl_co_fa_adjustment with --
614:
615:
616: ELSE
617:
618: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
619: fnd_message.set_token('OPTION', p_option);
620: fnd_file.put_line( 1, fnd_message.get);
621:
622: ---------------------------------------------------------
615:
616: ELSE
617:
618: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
619: fnd_message.set_token('OPTION', p_option);
620: fnd_file.put_line( 1, fnd_message.get);
621:
622: ---------------------------------------------------------
623: -- If the option is purge then check for correct set --
616: ELSE
617:
618: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
619: fnd_message.set_token('OPTION', p_option);
620: fnd_file.put_line( 1, fnd_message.get);
621:
622: ---------------------------------------------------------
623: -- If the option is purge then check for correct set --
624: -- of rows to be purged. Stop the program if anything --
679: END IF;
680: END IF;
681: ELSE
682:
683: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
684: fnd_message.set_token('OPTION', p_option);
685: fnd_file.put_line( 1, fnd_message.get);
686:
687: ---------------------------------------------------------
680: END IF;
681: ELSE
682:
683: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
684: fnd_message.set_token('OPTION', p_option);
685: fnd_file.put_line( 1, fnd_message.get);
686:
687: ---------------------------------------------------------
688: -- Process for the option 'RESTORE' --
681: ELSE
682:
683: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
684: fnd_message.set_token('OPTION', p_option);
685: fnd_file.put_line( 1, fnd_message.get);
686:
687: ---------------------------------------------------------
688: -- Process for the option 'RESTORE' --
689: ---------------------------------------------------------
726:
727: EXCEPTION
728:
729: WHEN NOT_POSTED_TO_GL THEN
730: fnd_message.set_name('JL', 'JL_CO_FA_NOT_POSTED_TO_GL');
731: err_msg := fnd_message.get;
732: fnd_file.put_line(fnd_file.log, err_msg);
733: call_status := fnd_concurrent.set_completion_status('ERROR','');
734: /*
727: EXCEPTION
728:
729: WHEN NOT_POSTED_TO_GL THEN
730: fnd_message.set_name('JL', 'JL_CO_FA_NOT_POSTED_TO_GL');
731: err_msg := fnd_message.get;
732: fnd_file.put_line(fnd_file.log, err_msg);
733: call_status := fnd_concurrent.set_completion_status('ERROR','');
734: /*
735: fnd_message.raise_error;
731: err_msg := fnd_message.get;
732: fnd_file.put_line(fnd_file.log, err_msg);
733: call_status := fnd_concurrent.set_completion_status('ERROR','');
734: /*
735: fnd_message.raise_error;
736: */
737:
738: WHEN INVALID_FISCAL_YEAR THEN
739: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_FISCAL_YEAR');
735: fnd_message.raise_error;
736: */
737:
738: WHEN INVALID_FISCAL_YEAR THEN
739: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_FISCAL_YEAR');
740: err_msg := fnd_message.get;
741: fnd_file.put_line(fnd_file.log, err_msg);
742: call_status := fnd_concurrent.set_completion_status('ERROR','');
743: /*
736: */
737:
738: WHEN INVALID_FISCAL_YEAR THEN
739: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_FISCAL_YEAR');
740: err_msg := fnd_message.get;
741: fnd_file.put_line(fnd_file.log, err_msg);
742: call_status := fnd_concurrent.set_completion_status('ERROR','');
743: /*
744: fnd_message.raise_error;
740: err_msg := fnd_message.get;
741: fnd_file.put_line(fnd_file.log, err_msg);
742: call_status := fnd_concurrent.set_completion_status('ERROR','');
743: /*
744: fnd_message.raise_error;
745: */
746:
747: WHEN NOT_A_TAX_BOOK THEN
748: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_TAX_BOOK');
744: fnd_message.raise_error;
745: */
746:
747: WHEN NOT_A_TAX_BOOK THEN
748: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_TAX_BOOK');
749: fnd_message.set_token('BOOK', p_book);
750: err_msg := fnd_message.get;
751: fnd_file.put_line(fnd_file.log, err_msg);
752: call_status := fnd_concurrent.set_completion_status('ERROR','');
745: */
746:
747: WHEN NOT_A_TAX_BOOK THEN
748: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_TAX_BOOK');
749: fnd_message.set_token('BOOK', p_book);
750: err_msg := fnd_message.get;
751: fnd_file.put_line(fnd_file.log, err_msg);
752: call_status := fnd_concurrent.set_completion_status('ERROR','');
753: /*
746:
747: WHEN NOT_A_TAX_BOOK THEN
748: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_TAX_BOOK');
749: fnd_message.set_token('BOOK', p_book);
750: err_msg := fnd_message.get;
751: fnd_file.put_line(fnd_file.log, err_msg);
752: call_status := fnd_concurrent.set_completion_status('ERROR','');
753: /*
754: fnd_message.raise_error;
750: err_msg := fnd_message.get;
751: fnd_file.put_line(fnd_file.log, err_msg);
752: call_status := fnd_concurrent.set_completion_status('ERROR','');
753: /*
754: fnd_message.raise_error;
755: */
756:
757: WHEN DEPRN_STATUS_NOT_C THEN
758: fnd_message.set_name('JL', 'JL_CO_FA_DEPRECIATION_STATUS');
754: fnd_message.raise_error;
755: */
756:
757: WHEN DEPRN_STATUS_NOT_C THEN
758: fnd_message.set_name('JL', 'JL_CO_FA_DEPRECIATION_STATUS');
759: fnd_message.set_token('BOOK', p_book);
760: err_msg := fnd_message.get;
761: fnd_file.put_line(fnd_file.log, err_msg);
762: call_status := fnd_concurrent.set_completion_status('ERROR','');
755: */
756:
757: WHEN DEPRN_STATUS_NOT_C THEN
758: fnd_message.set_name('JL', 'JL_CO_FA_DEPRECIATION_STATUS');
759: fnd_message.set_token('BOOK', p_book);
760: err_msg := fnd_message.get;
761: fnd_file.put_line(fnd_file.log, err_msg);
762: call_status := fnd_concurrent.set_completion_status('ERROR','');
763: /*
756:
757: WHEN DEPRN_STATUS_NOT_C THEN
758: fnd_message.set_name('JL', 'JL_CO_FA_DEPRECIATION_STATUS');
759: fnd_message.set_token('BOOK', p_book);
760: err_msg := fnd_message.get;
761: fnd_file.put_line(fnd_file.log, err_msg);
762: call_status := fnd_concurrent.set_completion_status('ERROR','');
763: /*
764: fnd_message.raise_error;
760: err_msg := fnd_message.get;
761: fnd_file.put_line(fnd_file.log, err_msg);
762: call_status := fnd_concurrent.set_completion_status('ERROR','');
763: /*
764: fnd_message.raise_error;
765: */
766:
767: WHEN STATUS_NOT_NEW_OR_ARCHIVE THEN
768: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
764: fnd_message.raise_error;
765: */
766:
767: WHEN STATUS_NOT_NEW_OR_ARCHIVE THEN
768: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
769: err_msg := fnd_message.get;
770: fnd_file.put_line(fnd_file.log, err_msg);
771: call_status := fnd_concurrent.set_completion_status('ERROR','');
772: /*
765: */
766:
767: WHEN STATUS_NOT_NEW_OR_ARCHIVE THEN
768: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
769: err_msg := fnd_message.get;
770: fnd_file.put_line(fnd_file.log, err_msg);
771: call_status := fnd_concurrent.set_completion_status('ERROR','');
772: /*
773: fnd_message.raise_error;
769: err_msg := fnd_message.get;
770: fnd_file.put_line(fnd_file.log, err_msg);
771: call_status := fnd_concurrent.set_completion_status('ERROR','');
772: /*
773: fnd_message.raise_error;
774: */
775:
776: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
777: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
773: fnd_message.raise_error;
774: */
775:
776: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
777: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
778: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
779: err_msg := fnd_message.get;
780: fnd_file.put_line(fnd_file.log, err_msg);
781: call_status := fnd_concurrent.set_completion_status('ERROR','');
774: */
775:
776: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
777: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
778: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
779: err_msg := fnd_message.get;
780: fnd_file.put_line(fnd_file.log, err_msg);
781: call_status := fnd_concurrent.set_completion_status('ERROR','');
782: /*
775:
776: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
777: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
778: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
779: err_msg := fnd_message.get;
780: fnd_file.put_line(fnd_file.log, err_msg);
781: call_status := fnd_concurrent.set_completion_status('ERROR','');
782: /*
783: fnd_message.raise_error;
779: err_msg := fnd_message.get;
780: fnd_file.put_line(fnd_file.log, err_msg);
781: call_status := fnd_concurrent.set_completion_status('ERROR','');
782: /*
783: fnd_message.raise_error;
784: */
785:
786: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
787: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
783: fnd_message.raise_error;
784: */
785:
786: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
787: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
788: err_msg := fnd_message.get;
789: fnd_file.put_line(fnd_file.log, err_msg);
790: call_status := fnd_concurrent.set_completion_status('ERROR','');
791: /*
784: */
785:
786: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
787: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
788: err_msg := fnd_message.get;
789: fnd_file.put_line(fnd_file.log, err_msg);
790: call_status := fnd_concurrent.set_completion_status('ERROR','');
791: /*
792: fnd_message.raise_error;
788: err_msg := fnd_message.get;
789: fnd_file.put_line(fnd_file.log, err_msg);
790: call_status := fnd_concurrent.set_completion_status('ERROR','');
791: /*
792: fnd_message.raise_error;
793: */
794:
795: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
796: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
792: fnd_message.raise_error;
793: */
794:
795: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
796: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
797: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
798: err_msg := fnd_message.get;
799: fnd_file.put_line(fnd_file.log, err_msg);
800: call_status := fnd_concurrent.set_completion_status('ERROR','');
793: */
794:
795: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
796: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
797: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
798: err_msg := fnd_message.get;
799: fnd_file.put_line(fnd_file.log, err_msg);
800: call_status := fnd_concurrent.set_completion_status('ERROR','');
801: /*
794:
795: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
796: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
797: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
798: err_msg := fnd_message.get;
799: fnd_file.put_line(fnd_file.log, err_msg);
800: call_status := fnd_concurrent.set_completion_status('ERROR','');
801: /*
802: fnd_message.raise_error;
798: err_msg := fnd_message.get;
799: fnd_file.put_line(fnd_file.log, err_msg);
800: call_status := fnd_concurrent.set_completion_status('ERROR','');
801: /*
802: fnd_message.raise_error;
803: */
804:
805: WHEN STATUS_NOT_PURGED THEN
806: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
802: fnd_message.raise_error;
803: */
804:
805: WHEN STATUS_NOT_PURGED THEN
806: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
807: err_msg := fnd_message.get;
808: fnd_file.put_line(fnd_file.log, err_msg);
809: call_status := fnd_concurrent.set_completion_status('ERROR','');
810: /*
803: */
804:
805: WHEN STATUS_NOT_PURGED THEN
806: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
807: err_msg := fnd_message.get;
808: fnd_file.put_line(fnd_file.log, err_msg);
809: call_status := fnd_concurrent.set_completion_status('ERROR','');
810: /*
811: fnd_message.raise_error;
807: err_msg := fnd_message.get;
808: fnd_file.put_line(fnd_file.log, err_msg);
809: call_status := fnd_concurrent.set_completion_status('ERROR','');
810: /*
811: fnd_message.raise_error;
812: */
813:
814:
815: WHEN STATUS_PURGED THEN
812: */
813:
814:
815: WHEN STATUS_PURGED THEN
816: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
817: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year +1));
818: err_msg := fnd_message.get;
819: fnd_file.put_line(fnd_file.log, err_msg);
820: call_status := fnd_concurrent.set_completion_status('ERROR','');
813:
814:
815: WHEN STATUS_PURGED THEN
816: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
817: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year +1));
818: err_msg := fnd_message.get;
819: fnd_file.put_line(fnd_file.log, err_msg);
820: call_status := fnd_concurrent.set_completion_status('ERROR','');
821: /*
814:
815: WHEN STATUS_PURGED THEN
816: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
817: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year +1));
818: err_msg := fnd_message.get;
819: fnd_file.put_line(fnd_file.log, err_msg);
820: call_status := fnd_concurrent.set_completion_status('ERROR','');
821: /*
822: fnd_message.raise_error;
818: err_msg := fnd_message.get;
819: fnd_file.put_line(fnd_file.log, err_msg);
820: call_status := fnd_concurrent.set_completion_status('ERROR','');
821: /*
822: fnd_message.raise_error;
823: */
824:
825: WHEN INCORRECT_SET_OF_ROWS THEN
826: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
822: fnd_message.raise_error;
823: */
824:
825: WHEN INCORRECT_SET_OF_ROWS THEN
826: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
827: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
828: err_msg := fnd_message.get;
829: fnd_file.put_line(fnd_file.log, err_msg);
830: call_status := fnd_concurrent.set_completion_status('ERROR','');
823: */
824:
825: WHEN INCORRECT_SET_OF_ROWS THEN
826: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
827: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
828: err_msg := fnd_message.get;
829: fnd_file.put_line(fnd_file.log, err_msg);
830: call_status := fnd_concurrent.set_completion_status('ERROR','');
831: /*
824:
825: WHEN INCORRECT_SET_OF_ROWS THEN
826: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
827: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
828: err_msg := fnd_message.get;
829: fnd_file.put_line(fnd_file.log, err_msg);
830: call_status := fnd_concurrent.set_completion_status('ERROR','');
831: /*
832: fnd_message.raise_error;
828: err_msg := fnd_message.get;
829: fnd_file.put_line(fnd_file.log, err_msg);
830: call_status := fnd_concurrent.set_completion_status('ERROR','');
831: /*
832: fnd_message.raise_error;
833: */
834:
835: WHEN UNABLE_TO_DO_SQL THEN
836: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
832: fnd_message.raise_error;
833: */
834:
835: WHEN UNABLE_TO_DO_SQL THEN
836: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
837: fnd_file.put_line( fnd_file.log, fnd_message.get);
838: err_num := SQLCODE;
839: err_msg := substr(SQLERRM, 1, 200);
840: ROLLBACK;
833: */
834:
835: WHEN UNABLE_TO_DO_SQL THEN
836: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
837: fnd_file.put_line( fnd_file.log, fnd_message.get);
838: err_num := SQLCODE;
839: err_msg := substr(SQLERRM, 1, 200);
840: ROLLBACK;
841: RAISE_APPLICATION_ERROR( err_num, err_msg);
841: RAISE_APPLICATION_ERROR( err_num, err_msg);
842:
843:
844: WHEN OTHERS THEN
845: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
846: fnd_file.put_line( fnd_file.log, fnd_message.get);
847: err_num := SQLCODE;
848: err_msg := substr(SQLERRM, 1, 200);
849: ROLLBACK;
842:
843:
844: WHEN OTHERS THEN
845: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
846: fnd_file.put_line( fnd_file.log, fnd_message.get);
847: err_num := SQLCODE;
848: err_msg := substr(SQLERRM, 1, 200);
849: ROLLBACK;
850: RAISE_APPLICATION_ERROR( err_num, err_msg);
918: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
919: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
920: END IF;
921:
922: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
923: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
919: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
920: END IF;
921:
922: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
923: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
921:
922: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
923: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
922: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
923: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
923: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
931: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
924: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
931: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
932: ---------------------------------------------------------
925: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR');
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
931: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
932: ---------------------------------------------------------
933: -- Find who_columns values --
926: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
927: fnd_file.put_line( 1, fnd_message.get);
928: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_OPTION');
929: fnd_message.set_token('OPTION', p_option);
930: fnd_file.put_line( 1, fnd_message.get);
931: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
932: ---------------------------------------------------------
933: -- Find who_columns values --
934: ---------------------------------------------------------
964: from jl_co_fa_appraisals
965: where fiscal_year = p_fiscal_year
966: and appraisal_status <> 'P');
967:
968: fnd_message.set_name('JL', 'JL_CO_FA_DELETED_APPRS');
969: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
970:
971: create_output_headings(p_fiscal_year);
972:
965: where fiscal_year = p_fiscal_year
966: and appraisal_status <> 'P');
967:
968: fnd_message.set_name('JL', 'JL_CO_FA_DELETED_APPRS');
969: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
970:
971: create_output_headings(p_fiscal_year);
972:
973: DELETE FROM jl_co_fa_appraisals
973: DELETE FROM jl_co_fa_appraisals
974: WHERE fiscal_year = p_fiscal_year
975: AND appraisal_status <> 'P';
976: ELSE
977: fnd_message.set_name('JL', 'JL_CO_FA_DEL_UNPROC_APPRS');
978: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
979:
980: create_output_headings(p_fiscal_year);
981:
974: WHERE fiscal_year = p_fiscal_year
975: AND appraisal_status <> 'P';
976: ELSE
977: fnd_message.set_name('JL', 'JL_CO_FA_DEL_UNPROC_APPRS');
978: fnd_message.set_token('FISCAL_YEAR', p_fiscal_year);
979:
980: create_output_headings(p_fiscal_year);
981:
982: RAISE APPRAISAL_NOT_PROCESSED;
1316: ---------------------------------------------------------
1317:
1318: IF (p_option = 'ARCHIVE') THEN
1319:
1320: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1321: fnd_message.set_token('OPTION', p_option);
1322: fnd_file.put_line( 1, fnd_message.get);
1323:
1324: ---------------------------------------------------------
1317:
1318: IF (p_option = 'ARCHIVE') THEN
1319:
1320: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1321: fnd_message.set_token('OPTION', p_option);
1322: fnd_file.put_line( 1, fnd_message.get);
1323:
1324: ---------------------------------------------------------
1325: -- Check weather backup tables for appraisal is exists.--
1318: IF (p_option = 'ARCHIVE') THEN
1319:
1320: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1321: fnd_message.set_token('OPTION', p_option);
1322: fnd_file.put_line( 1, fnd_message.get);
1323:
1324: ---------------------------------------------------------
1325: -- Check weather backup tables for appraisal is exists.--
1326: -- Its name is jl_co_fa_appraisals with extension --
1516: END IF;
1517:
1518: ELSE
1519:
1520: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1521: fnd_message.set_token('OPTION', p_option);
1522: fnd_file.put_line( 1, fnd_message.get);
1523:
1524: ---------------------------------------------------------
1517:
1518: ELSE
1519:
1520: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1521: fnd_message.set_token('OPTION', p_option);
1522: fnd_file.put_line( 1, fnd_message.get);
1523:
1524: ---------------------------------------------------------
1525: -- If the option is purge then check for correct set --
1518: ELSE
1519:
1520: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1521: fnd_message.set_token('OPTION', p_option);
1522: fnd_file.put_line( 1, fnd_message.get);
1523:
1524: ---------------------------------------------------------
1525: -- If the option is purge then check for correct set --
1526: -- of rows to be purged. Stop the program if anything --
1606: END IF;
1607:
1608: ELSE
1609:
1610: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1611: fnd_message.set_token('OPTION', p_option);
1612: fnd_file.put_line( 1, fnd_message.get);
1613:
1614: ---------------------------------------------------------
1607:
1608: ELSE
1609:
1610: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1611: fnd_message.set_token('OPTION', p_option);
1612: fnd_file.put_line( 1, fnd_message.get);
1613:
1614: ---------------------------------------------------------
1615: -- Process for the option 'RESTORE' --
1608: ELSE
1609:
1610: fnd_message.set_name('JL', 'JL_CO_FA_PURGE_MESG');
1611: fnd_message.set_token('OPTION', p_option);
1612: fnd_file.put_line( 1, fnd_message.get);
1613:
1614: ---------------------------------------------------------
1615: -- Process for the option 'RESTORE' --
1616: ---------------------------------------------------------
1657:
1658: EXCEPTION
1659:
1660: WHEN APPRAISAL_NOT_PROCESSED THEN
1661: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NOT_PROCESSED');
1662: err_msg := fnd_message.get;
1663: fnd_file.put_line(fnd_file.log, err_msg);
1664: call_status := fnd_concurrent.set_completion_status('ERROR','');
1665: /*
1658: EXCEPTION
1659:
1660: WHEN APPRAISAL_NOT_PROCESSED THEN
1661: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NOT_PROCESSED');
1662: err_msg := fnd_message.get;
1663: fnd_file.put_line(fnd_file.log, err_msg);
1664: call_status := fnd_concurrent.set_completion_status('ERROR','');
1665: /*
1666: fnd_message.raise_error;
1662: err_msg := fnd_message.get;
1663: fnd_file.put_line(fnd_file.log, err_msg);
1664: call_status := fnd_concurrent.set_completion_status('ERROR','');
1665: /*
1666: fnd_message.raise_error;
1667: */
1668:
1669: WHEN NOTHING_TO_ARCHIVE THEN
1670: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1666: fnd_message.raise_error;
1667: */
1668:
1669: WHEN NOTHING_TO_ARCHIVE THEN
1670: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1671: err_msg := fnd_message.get;
1672: fnd_file.put_line(fnd_file.log, err_msg);
1673: call_status := fnd_concurrent.set_completion_status('ERROR','');
1674: /*
1667: */
1668:
1669: WHEN NOTHING_TO_ARCHIVE THEN
1670: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1671: err_msg := fnd_message.get;
1672: fnd_file.put_line(fnd_file.log, err_msg);
1673: call_status := fnd_concurrent.set_completion_status('ERROR','');
1674: /*
1675: fnd_message.raise_error;
1671: err_msg := fnd_message.get;
1672: fnd_file.put_line(fnd_file.log, err_msg);
1673: call_status := fnd_concurrent.set_completion_status('ERROR','');
1674: /*
1675: fnd_message.raise_error;
1676: /*
1677: app_exception.raise_exception (exception_type => 'APP',
1678: exception_code =>
1679: jl_zz_fa_utilities_pkg.get_app_errnum('JL', 'JL_CO_FA_NOTHING_TO_PROCESS'),
1680: exception_text => err_msg);
1681: */
1682:
1683: WHEN STATUS_NOT_NEW_OR_ARCHIVE THEN
1684: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1685: err_msg := fnd_message.get;
1686: fnd_file.put_line(fnd_file.log, err_msg);
1687: call_status := fnd_concurrent.set_completion_status('ERROR','');
1688: /*
1681: */
1682:
1683: WHEN STATUS_NOT_NEW_OR_ARCHIVE THEN
1684: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1685: err_msg := fnd_message.get;
1686: fnd_file.put_line(fnd_file.log, err_msg);
1687: call_status := fnd_concurrent.set_completion_status('ERROR','');
1688: /*
1689: fnd_message.raise_error;
1685: err_msg := fnd_message.get;
1686: fnd_file.put_line(fnd_file.log, err_msg);
1687: call_status := fnd_concurrent.set_completion_status('ERROR','');
1688: /*
1689: fnd_message.raise_error;
1690: */
1691:
1692: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
1693: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1689: fnd_message.raise_error;
1690: */
1691:
1692: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
1693: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1694: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1695: err_msg := fnd_message.get;
1696: fnd_file.put_line(fnd_file.log, err_msg);
1697: call_status := fnd_concurrent.set_completion_status('ERROR','');
1690: */
1691:
1692: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
1693: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1694: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1695: err_msg := fnd_message.get;
1696: fnd_file.put_line(fnd_file.log, err_msg);
1697: call_status := fnd_concurrent.set_completion_status('ERROR','');
1698: /*
1691:
1692: WHEN NOT_PROCESSED_FOR_LAST_YEAR THEN
1693: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1694: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1695: err_msg := fnd_message.get;
1696: fnd_file.put_line(fnd_file.log, err_msg);
1697: call_status := fnd_concurrent.set_completion_status('ERROR','');
1698: /*
1699: fnd_message.raise_error;
1695: err_msg := fnd_message.get;
1696: fnd_file.put_line(fnd_file.log, err_msg);
1697: call_status := fnd_concurrent.set_completion_status('ERROR','');
1698: /*
1699: fnd_message.raise_error;
1700: */
1701:
1702: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
1703: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1699: fnd_message.raise_error;
1700: */
1701:
1702: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
1703: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1704: err_msg := fnd_message.get;
1705: fnd_file.put_line(fnd_file.log, err_msg);
1706: call_status := fnd_concurrent.set_completion_status('ERROR','');
1707: /*
1700: */
1701:
1702: WHEN STATUS_NOT_ARCHVD_OR_RSTORE THEN
1703: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1704: err_msg := fnd_message.get;
1705: fnd_file.put_line(fnd_file.log, err_msg);
1706: call_status := fnd_concurrent.set_completion_status('ERROR','');
1707: /*
1708: fnd_message.raise_error;
1704: err_msg := fnd_message.get;
1705: fnd_file.put_line(fnd_file.log, err_msg);
1706: call_status := fnd_concurrent.set_completion_status('ERROR','');
1707: /*
1708: fnd_message.raise_error;
1709: */
1710:
1711: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
1712: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1708: fnd_message.raise_error;
1709: */
1710:
1711: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
1712: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1713: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1714: err_msg := fnd_message.get;
1715: fnd_file.put_line(fnd_file.log, err_msg);
1716: call_status := fnd_concurrent.set_completion_status('ERROR','');
1709: */
1710:
1711: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
1712: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1713: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1714: err_msg := fnd_message.get;
1715: fnd_file.put_line(fnd_file.log, err_msg);
1716: call_status := fnd_concurrent.set_completion_status('ERROR','');
1717: /*
1710:
1711: WHEN STATUS_NOT_PURGED_LAST_YEAR THEN
1712: fnd_message.set_name('JL', 'JL_CO_FA_FISCAL_YEAR_NOT_PROC');
1713: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year - 1));
1714: err_msg := fnd_message.get;
1715: fnd_file.put_line(fnd_file.log, err_msg);
1716: call_status := fnd_concurrent.set_completion_status('ERROR','');
1717: /*
1718: fnd_message.raise_error;
1714: err_msg := fnd_message.get;
1715: fnd_file.put_line(fnd_file.log, err_msg);
1716: call_status := fnd_concurrent.set_completion_status('ERROR','');
1717: /*
1718: fnd_message.raise_error;
1719: */
1720:
1721: WHEN STATUS_NOT_PURGED THEN
1722: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1718: fnd_message.raise_error;
1719: */
1720:
1721: WHEN STATUS_NOT_PURGED THEN
1722: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1723: err_msg := fnd_message.get;
1724: fnd_file.put_line(fnd_file.log, err_msg);
1725: call_status := fnd_concurrent.set_completion_status('ERROR','');
1726: /*
1719: */
1720:
1721: WHEN STATUS_NOT_PURGED THEN
1722: fnd_message.set_name('JL', 'JL_CO_FA_NOTHING_TO_PROCESS');
1723: err_msg := fnd_message.get;
1724: fnd_file.put_line(fnd_file.log, err_msg);
1725: call_status := fnd_concurrent.set_completion_status('ERROR','');
1726: /*
1727: fnd_message.raise_error;
1723: err_msg := fnd_message.get;
1724: fnd_file.put_line(fnd_file.log, err_msg);
1725: call_status := fnd_concurrent.set_completion_status('ERROR','');
1726: /*
1727: fnd_message.raise_error;
1728: */
1729:
1730: WHEN STATUS_PURGED THEN
1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
1727: fnd_message.raise_error;
1728: */
1729:
1730: WHEN STATUS_PURGED THEN
1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
1732: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year + 1));
1733: err_msg := fnd_message.get;
1734: fnd_file.put_line(fnd_file.log, err_msg);
1735: call_status := fnd_concurrent.set_completion_status('ERROR','');
1728: */
1729:
1730: WHEN STATUS_PURGED THEN
1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
1732: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year + 1));
1733: err_msg := fnd_message.get;
1734: fnd_file.put_line(fnd_file.log, err_msg);
1735: call_status := fnd_concurrent.set_completion_status('ERROR','');
1736: /*
1729:
1730: WHEN STATUS_PURGED THEN
1731: fnd_message.set_name('JL', 'JL_CO_FA_PURGED');
1732: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year + 1));
1733: err_msg := fnd_message.get;
1734: fnd_file.put_line(fnd_file.log, err_msg);
1735: call_status := fnd_concurrent.set_completion_status('ERROR','');
1736: /*
1737: fnd_message.raise_error;
1733: err_msg := fnd_message.get;
1734: fnd_file.put_line(fnd_file.log, err_msg);
1735: call_status := fnd_concurrent.set_completion_status('ERROR','');
1736: /*
1737: fnd_message.raise_error;
1738: */
1739:
1740: WHEN INCORRECT_SET_OF_ROWS THEN
1741: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
1737: fnd_message.raise_error;
1738: */
1739:
1740: WHEN INCORRECT_SET_OF_ROWS THEN
1741: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
1742: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
1743: err_msg := fnd_message.get;
1744: fnd_file.put_line(fnd_file.log, err_msg);
1745: call_status := fnd_concurrent.set_completion_status('ERROR','');
1738: */
1739:
1740: WHEN INCORRECT_SET_OF_ROWS THEN
1741: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
1742: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
1743: err_msg := fnd_message.get;
1744: fnd_file.put_line(fnd_file.log, err_msg);
1745: call_status := fnd_concurrent.set_completion_status('ERROR','');
1746: /*
1739:
1740: WHEN INCORRECT_SET_OF_ROWS THEN
1741: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_SET_OF_ROWS');
1742: fnd_message.set_token('FISCAL_YEAR', TO_CHAR(p_fiscal_year));
1743: err_msg := fnd_message.get;
1744: fnd_file.put_line(fnd_file.log, err_msg);
1745: call_status := fnd_concurrent.set_completion_status('ERROR','');
1746: /*
1747: fnd_message.raise_error;
1743: err_msg := fnd_message.get;
1744: fnd_file.put_line(fnd_file.log, err_msg);
1745: call_status := fnd_concurrent.set_completion_status('ERROR','');
1746: /*
1747: fnd_message.raise_error;
1748: */
1749:
1750: WHEN UNABLE_TO_DO_SQL THEN
1751: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1747: fnd_message.raise_error;
1748: */
1749:
1750: WHEN UNABLE_TO_DO_SQL THEN
1751: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1752: fnd_file.put_line( fnd_file.log, fnd_message.get);
1753: err_num := SQLCODE;
1754: err_msg := substr(SQLERRM, 1, 200);
1755: ROLLBACK;
1748: */
1749:
1750: WHEN UNABLE_TO_DO_SQL THEN
1751: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1752: fnd_file.put_line( fnd_file.log, fnd_message.get);
1753: err_num := SQLCODE;
1754: err_msg := substr(SQLERRM, 1, 200);
1755: ROLLBACK;
1756: RAISE_APPLICATION_ERROR( err_num, err_msg);
1757:
1758:
1759:
1760: WHEN OTHERS THEN
1761: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1762: fnd_file.put_line( fnd_file.log, fnd_message.get);
1763: err_num := SQLCODE;
1764: err_msg := substr(SQLERRM, 1, 200);
1765: ROLLBACK;
1758:
1759:
1760: WHEN OTHERS THEN
1761: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
1762: fnd_file.put_line( fnd_file.log, fnd_message.get);
1763: err_num := SQLCODE;
1764: err_msg := substr(SQLERRM, 1, 200);
1765: ROLLBACK;
1766: RAISE_APPLICATION_ERROR( err_num, err_msg);
1982: ORDER BY apprs.appraisal_id;
1983:
1984: BEGIN
1985:
1986: fnd_file.put_line(fnd_file.output, fnd_message.get);
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1983:
1984: BEGIN
1985:
1986: fnd_file.put_line(fnd_file.output, fnd_message.get);
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1984: BEGIN
1985:
1986: fnd_file.put_line(fnd_file.output, fnd_message.get);
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1992: fnd_file.put(fnd_file.output, SUBSTR(fnd_message.get,1,60));
1985:
1986: fnd_file.put_line(fnd_file.output, fnd_message.get);
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1992: fnd_file.put(fnd_file.output, SUBSTR(fnd_message.get,1,60));
1993: fnd_file.new_line(fnd_file.output,1);
1986: fnd_file.put_line(fnd_file.output, fnd_message.get);
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1992: fnd_file.put(fnd_file.output, SUBSTR(fnd_message.get,1,60));
1993: fnd_file.new_line(fnd_file.output,1);
1994: FOR line_ctr IN 1..4 LOOP
1987: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUM_OUT');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1992: fnd_file.put(fnd_file.output, SUBSTR(fnd_message.get,1,60));
1993: fnd_file.new_line(fnd_file.output,1);
1994: FOR line_ctr IN 1..4 LOOP
1995: fnd_file.put(fnd_file.output, '----------------------------------------');
1988: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,20,' '),1,20) || ' ');
1989: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISAL_STATUS_OUT');
1990: fnd_file.put(fnd_file.output, SUBSTR(RPAD(fnd_message.get,80,' '),1,80) || ' ');
1991: fnd_message.set_name('JL', 'JL_CO_FA_APPRAISER_NAME_OUT');
1992: fnd_file.put(fnd_file.output, SUBSTR(fnd_message.get,1,60));
1993: fnd_file.new_line(fnd_file.output,1);
1994: FOR line_ctr IN 1..4 LOOP
1995: fnd_file.put(fnd_file.output, '----------------------------------------');
1996: END LOOP;