462: WHEN l_setup_not_frozen THEN
463: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
464: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_setup_not_frozen');
465: END IF;
466: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
467: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
468: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
469: errbuf :=FND_MESSAGE.get;
470: retcode := 2; -- Error
463: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
464: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_setup_not_frozen');
465: END IF;
466: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
467: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
468: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
469: errbuf :=FND_MESSAGE.get;
470: retcode := 2; -- Error
471: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
464: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_setup_not_frozen');
465: END IF;
466: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
467: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
468: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
469: errbuf :=FND_MESSAGE.get;
470: retcode := 2; -- Error
471: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
472: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
465: END IF;
466: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
467: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
468: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
469: errbuf :=FND_MESSAGE.get;
470: retcode := 2; -- Error
471: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
472: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
473: WHEN l_setup_not_available THEN
473: WHEN l_setup_not_available THEN
474: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
475: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - Not setup_available');
476: END IF;
477: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_AVAILABLE');
478: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
479: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
480: errbuf :=FND_MESSAGE.get;
481: retcode := 2; -- Error
474: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
475: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - Not setup_available');
476: END IF;
477: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_AVAILABLE');
478: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
479: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
480: errbuf :=FND_MESSAGE.get;
481: retcode := 2; -- Error
482: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
475: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - Not setup_available');
476: END IF;
477: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_AVAILABLE');
478: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
479: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
480: errbuf :=FND_MESSAGE.get;
481: retcode := 2; -- Error
482: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
483: WHEN l_final_already_run THEN
476: END IF;
477: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_AVAILABLE');
478: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
479: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
480: errbuf :=FND_MESSAGE.get;
481: retcode := 2; -- Error
482: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
483: WHEN l_final_already_run THEN
484: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
483: WHEN l_final_already_run THEN
484: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
485: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_final_already_run');
486: END IF;
487: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_LISTING');
488: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
489: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
490: errbuf :=FND_MESSAGE.get;
491: retcode := 2; -- Error
484: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
485: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_final_already_run');
486: END IF;
487: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_LISTING');
488: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
489: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
490: errbuf :=FND_MESSAGE.get;
491: retcode := 2; -- Error
492: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
485: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Extract_Data','Exception in PROCEDURE Extract_Data - l_final_already_run');
486: END IF;
487: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_LISTING');
488: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
489: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
490: errbuf :=FND_MESSAGE.get;
491: retcode := 2; -- Error
492: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
493: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
486: END IF;
487: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_LISTING');
488: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
489: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
490: errbuf :=FND_MESSAGE.get;
491: retcode := 2; -- Error
492: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
493: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
494: WHEN l_prelim_not_run THEN
494: WHEN l_prelim_not_run THEN
495: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
496: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_prelim_not_run ');
497: END IF;
498: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
499: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
500: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
501: errbuf :=FND_MESSAGE.get;
502: retcode := 2; --Error
495: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
496: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_prelim_not_run ');
497: END IF;
498: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
499: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
500: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
501: errbuf :=FND_MESSAGE.get;
502: retcode := 2; --Error
503: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
496: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_prelim_not_run ');
497: END IF;
498: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
499: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
500: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
501: errbuf :=FND_MESSAGE.get;
502: retcode := 2; --Error
503: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
504: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
497: END IF;
498: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
499: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
500: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
501: errbuf :=FND_MESSAGE.get;
502: retcode := 2; --Error
503: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
504: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
505: WHEN l_final_not_run THEN
505: WHEN l_final_not_run THEN
506: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
507: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_final_not_run ');
508: END IF;
509: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_NOT_RUN');
510: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
511: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
512: errbuf :=FND_MESSAGE.get;
513: retcode := 2; --Error
506: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
507: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_final_not_run ');
508: END IF;
509: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_NOT_RUN');
510: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
511: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
512: errbuf :=FND_MESSAGE.get;
513: retcode := 2; --Error
514: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
507: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Extract_Data - l_final_not_run ');
508: END IF;
509: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_NOT_RUN');
510: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
511: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
512: errbuf :=FND_MESSAGE.get;
513: retcode := 2; --Error
514: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
515: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
508: END IF;
509: FND_MESSAGE.SET_NAME('JE','JE_IT_FINAL_NOT_RUN');
510: FND_MESSAGE.SET_TOKEN('VAT_REP',l_entity_identifier);
511: FND_MESSAGE.SET_TOKEN('VAT_YEAR',P_YEAR_OF_DECLARATION);
512: errbuf :=FND_MESSAGE.get;
513: retcode := 2; --Error
514: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
515: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
516: WHEN e_request_submit_error THEN
642: WHEN l_setup_not_frozen THEN
643: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
644: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Final_data - l_setup_not_frozen ');
645: END IF;
646: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
647: errbuf :=FND_MESSAGE.get;
648: retcode := 2; --Error
649: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
650: IF g_debug_flag = 'Y' THEN
643: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
644: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Final_data - l_setup_not_frozen ');
645: END IF;
646: FND_MESSAGE.SET_NAME('JE','JE_IT_SETUP_NOT_FROZEN');
647: errbuf :=FND_MESSAGE.get;
648: retcode := 2; --Error
649: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
650: IF g_debug_flag = 'Y' THEN
651: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
653: WHEN l_prelim_not_run THEN
654: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
655: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Final_data - l_prelim_not_run ');
656: END IF;
657: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
658: errbuf :=FND_MESSAGE.get;
659: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
660: retcode := 2; --Error
661: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
654: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
655: FND_LOG.STRING(G_LEVEL_EXCEPTION, 'JE.plsql.JE_IT_LISTING_PKG.Final_data','Exception in PROCEDURE Final_data - l_prelim_not_run ');
656: END IF;
657: FND_MESSAGE.SET_NAME('JE','JE_IT_PRELIMINARY_LISTING');
658: errbuf :=FND_MESSAGE.get;
659: FND_FILE.PUT_LINE(FND_FILE.LOG, errbuf);
660: retcode := 2; --Error
661: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
662: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);