127: | IS always used. |
128: | 01/26/2004 W. Shen Bug # 3339505. replace THE program hook |
129: | WITH workflow business event. |
130: | 02/13/2004 S. Singhania FIXED NOCOPY warnings. |
131: | 02/28/2004 S. Singhania Bug 3416534. Added FND_LOG messages. |
132: | 03/23/2004 S. Singhania Added a parameter p_module TO THE TRACE |
133: | calls AND THE PROCEDURE. |
134: | Made changes FOR handling THE accounting |
135: | OF THE gapless EVENTS. Ffg modified: |
699:
700: --=============================================================================
701: -- *********** Local Trace Routine **********
702: --=============================================================================
703: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
700: --=============================================================================
701: -- *********** Local Trace Routine **********
702: --=============================================================================
703: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
701: -- *********** Local Trace Routine **********
702: --=============================================================================
703: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
709:
702: --=============================================================================
703: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
709:
710: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
703: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
709:
710: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
711: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_accounting_pkg';
704: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
705: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
706: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
709:
710: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
711: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_accounting_pkg';
712:
727:
728: l_pos := 1;
729:
730: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
731: fnd_log.message(p_level, p_module);
732: ELSIF p_level >= g_log_level THEN
733:
734: l_max := length(p_msg);
735: IF l_max <= C_LOG_SIZE THEN
732: ELSIF p_level >= g_log_level THEN
733:
734: l_max := length(p_msg);
735: IF l_max <= C_LOG_SIZE THEN
736: fnd_log.string(p_level, p_module, p_msg);
737: ELSE
738: -- 5221578 log messages in C_LOG_SIZE
739: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
740: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
736: fnd_log.string(p_level, p_module, p_msg);
737: ELSE
738: -- 5221578 log messages in C_LOG_SIZE
739: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
740: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
741: l_pos := l_pos+1;
742: END LOOP;
743: END IF;
744: END IF;
8809: --
8810: --=============================================================================
8811:
8812: BEGIN
8813: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8814: g_log_enabled := fnd_log.test
8815: (log_level => g_log_level
8816: ,MODULE => C_DEFAULT_MODULE);
8817:
8810: --=============================================================================
8811:
8812: BEGIN
8813: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8814: g_log_enabled := fnd_log.test
8815: (log_level => g_log_level
8816: ,MODULE => C_DEFAULT_MODULE);
8817:
8818: IF NOT g_log_enabled THEN