37: | 18-DEC-2003 K.Boussema Changed to fix bug 3042840,3307761,3268940 |
38: | 3310291 and 3320689 |
39: | 12-JAN-2004 K.Boussema Changed GetSegment and GetCcid to fix issue |
40: | described in bug 3366176 |
41: | 23-FEB-2004 K.Boussema Made changes for the FND_LOG. |
42: | 22-MAR-2004 K.Boussema Added a parameter p_module to the TRACE calls|
43: | and the procedure. |
44: | 11-MAY-2004 K.Boussema Removed the call to XLA trace routine from |
45: | trace() procedure |
747: --=============================================================================
748: -- *********** Local Trace Routine **********
749: --=============================================================================
750:
751: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
748: -- *********** Local Trace Routine **********
749: --=============================================================================
750:
751: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
756: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
749: --=============================================================================
750:
751: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
756: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
757:
750:
751: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
756: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
757:
758: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
751: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
756: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
757:
758: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
759: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_cmp_adr_pkg';
752: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
753: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
754: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
755: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
756: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
757:
758: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
759: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_cmp_adr_pkg';
760:
767: , p_module IN VARCHAR2)
768: IS
769: BEGIN
770: ----------------------------------------------------------------------------
771: -- Following is for FND log.
772: ----------------------------------------------------------------------------
773: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
774: fnd_log.message(p_level, p_module );
775: ELSIF p_level >= g_log_level THEN
770: ----------------------------------------------------------------------------
771: -- Following is for FND log.
772: ----------------------------------------------------------------------------
773: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
774: fnd_log.message(p_level, p_module );
775: ELSIF p_level >= g_log_level THEN
776: fnd_log.string(p_level , p_module , p_msg);
777: END IF;
778:
772: ----------------------------------------------------------------------------
773: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
774: fnd_log.message(p_level, p_module );
775: ELSIF p_level >= g_log_level THEN
776: fnd_log.string(p_level , p_module , p_msg);
777: END IF;
778:
779: EXCEPTION
780: WHEN xla_exceptions_pkg.application_exception THEN
3196: --=============================================================================
3197:
3198: BEGIN
3199:
3200: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3201: g_log_enabled := fnd_log.test
3202: (log_level => g_log_level
3203: ,module => C_DEFAULT_MODULE);
3204:
3197:
3198: BEGIN
3199:
3200: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3201: g_log_enabled := fnd_log.test
3202: (log_level => g_log_level
3203: ,module => C_DEFAULT_MODULE);
3204:
3205: IF NOT g_log_enabled THEN