18: | 19-MAR-2003 K.Boussema Added amb_context_code column |
19: | 27-MAR-2003 K.Boussema changed package name xla_compile_pkg by |
20: | xla_compile_pad_pkg |
21: | 22-APR-2003 K.Boussema Included error messages |
22: | 23-FEB-2004 K.Boussema Made changes for the FND_LOG. |
23: | 22-MAR-2004 K.Boussema Added a parameter p_module to the TRACE calls|
24: | and the procedure. |
25: | 11-MAY-2004 K.Boussema Removed the call to XLA trace routine from |
26: | trace() procedure |
30: --=============================================================================
31: -- *********** Local Trace Routine **********
32: --=============================================================================
33:
34: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
31: -- *********** Local Trace Routine **********
32: --=============================================================================
33:
34: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
32: --=============================================================================
33:
34: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
40:
33:
34: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
40:
41: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
34: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
40:
41: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
42: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_compile_pad_pkg';
35: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
36: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
37: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
38: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
39: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
40:
41: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
42: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_compile_pad_pkg';
43:
50: ,p_module IN VARCHAR2 DEFAULT C_DEFAULT_MODULE)
51: IS
52: BEGIN
53: ----------------------------------------------------------------------------
54: -- Following is for FND log.
55: ----------------------------------------------------------------------------
56: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
57: fnd_log.message(p_level, p_module);
58: ELSIF p_level >= g_log_level THEN
53: ----------------------------------------------------------------------------
54: -- Following is for FND log.
55: ----------------------------------------------------------------------------
56: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
57: fnd_log.message(p_level, p_module);
58: ELSIF p_level >= g_log_level THEN
59: fnd_log.string(p_level, p_module, p_msg);
60: END IF;
61:
55: ----------------------------------------------------------------------------
56: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
57: fnd_log.message(p_level, p_module);
58: ELSIF p_level >= g_log_level THEN
59: fnd_log.string(p_level, p_module, p_msg);
60: END IF;
61:
62: EXCEPTION
63: WHEN xla_exceptions_pkg.application_exception THEN
478: --=============================================================================
479:
480: BEGIN
481:
482: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
483: g_log_enabled := fnd_log.test
484: (log_level => g_log_level
485: ,module => C_DEFAULT_MODULE);
486:
479:
480: BEGIN
481:
482: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
483: g_log_enabled := fnd_log.test
484: (log_level => g_log_level
485: ,module => C_DEFAULT_MODULE);
486:
487: IF NOT g_log_enabled THEN