2: /* $Header: jgzzprpb.pls 120.0.12010000.2 2008/12/02 05:53:58 spasupun noship $ */
3: -----------------------------------------
4: --Public Variable Declarations
5: -----------------------------------------
6: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3: -----------------------------------------
4: --Public Variable Declarations
5: -----------------------------------------
6: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
4: --Public Variable Declarations
5: -----------------------------------------
6: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
5: -----------------------------------------
6: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13: g_error_buffer VARCHAR2(100);
6: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13: g_error_buffer VARCHAR2(100);
14: g_debug_flag VARCHAR2(1);
7: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13: g_error_buffer VARCHAR2(100);
14: g_debug_flag VARCHAR2(1);
15: g_pkg_name CONSTANT VARCHAR2(30) := 'JG_ZZ_VAT_PRE_REP_PROC_PKG';
8: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13: g_error_buffer VARCHAR2(100);
14: g_debug_flag VARCHAR2(1);
15: g_pkg_name CONSTANT VARCHAR2(30) := 'JG_ZZ_VAT_PRE_REP_PROC_PKG';
16: g_module_name CONSTANT VARCHAR2(30) := 'JG_ZZ_VAT_PRE_REP_PROC_PKG';
469: g_error_buffer := SQLCODE || ': ' || SUBSTR(SQLERRM, 1, 80);
470: FND_FILE.PUT_LINE(FND_FILE.LOG, g_error_buffer);
471: FND_MSG_PUB.Add;
472: IF (g_level_unexpected >= g_current_runtime_level ) THEN
473: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME, g_error_buffer);
474: END IF;
475: retcode := 2;
476: END main;
477: END JG_ZZ_VAT_PRE_REP_PROC_PKG;