58: l_validation_mode VARCHAR2(20) DEFAULT 'F';
59: --=============================================================================
60: -- *********** Local Trace Routine **********
61: --=============================================================================
62: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
59: --=============================================================================
60: -- *********** Local Trace Routine **********
61: --=============================================================================
62: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
67: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
60: -- *********** Local Trace Routine **********
61: --=============================================================================
62: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
67: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
68:
61: --=============================================================================
62: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
67: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
68:
69: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
62: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
67: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
68:
69: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
70: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_hist_ledger_upg_pkg';
63: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
64: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
65: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
66: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
67: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
68:
69: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
70: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_hist_ledger_upg_pkg';
71:
88:
89: l_pos := 1;
90:
91: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
92: fnd_log.message(p_level, p_module);
93: ELSIF p_level >= g_log_level THEN
94:
95: l_max := length(p_msg);
96: IF l_max <= C_LOG_SIZE THEN
93: ELSIF p_level >= g_log_level THEN
94:
95: l_max := length(p_msg);
96: IF l_max <= C_LOG_SIZE THEN
97: fnd_log.string(p_level, p_module, p_msg);
98: ELSE
99: -- 5221578 log messages in C_LOG_SIZE
100: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
101: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
97: fnd_log.string(p_level, p_module, p_msg);
98: ELSE
99: -- 5221578 log messages in C_LOG_SIZE
100: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
101: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
102: l_pos := l_pos+1;
103: END LOOP;
104: END IF;
105: END IF;
3958:
3959:
3960:
3961: BEGIN
3962: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3963: g_log_enabled := fnd_log.test
3964: (log_level => g_log_level
3965: ,MODULE => C_DEFAULT_MODULE);
3966:
3959:
3960:
3961: BEGIN
3962: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3963: g_log_enabled := fnd_log.test
3964: (log_level => g_log_level
3965: ,MODULE => C_DEFAULT_MODULE);
3966:
3967: IF NOT g_log_enabled THEN