99:
100: --=============================================================================
101: -- *********** Local Trace Routine **********
102: --=============================================================================
103: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
100: --=============================================================================
101: -- *********** Local Trace Routine **********
102: --=============================================================================
103: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
108: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
101: -- *********** Local Trace Routine **********
102: --=============================================================================
103: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
108: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
109:
102: --=============================================================================
103: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
108: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
109:
110: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
103: C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
108: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
109:
110: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
111: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_hist_ledger_upg_pkg';
104: C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
105: C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
106: C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
107: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
108: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
109:
110: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
111: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_hist_ledger_upg_pkg';
112:
129:
130: l_pos := 1;
131:
132: IF (p_msg IS NULL AND p_level >= g_log_level) THEN
133: fnd_log.message(p_level, p_module);
134: ELSIF p_level >= g_log_level THEN
135:
136: l_max := length(p_msg);
137: IF l_max <= C_LOG_SIZE THEN
134: ELSIF p_level >= g_log_level THEN
135:
136: l_max := length(p_msg);
137: IF l_max <= C_LOG_SIZE THEN
138: fnd_log.string(p_level, p_module, p_msg);
139: ELSE
140: -- 5221578 log messages in C_LOG_SIZE
141: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
142: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
138: fnd_log.string(p_level, p_module, p_msg);
139: ELSE
140: -- 5221578 log messages in C_LOG_SIZE
141: WHILE (l_pos-1)*C_LOG_SIZE <= l_max LOOP
142: fnd_log.string(p_level, p_module, substr(p_msg, (l_pos-1)*C_LOG_SIZE+1, C_LOG_SIZE));
143: l_pos := l_pos+1;
144: END LOOP;
145: END IF;
146: END IF;
3203: END;
3204:
3205:
3206: BEGIN
3207: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3208: g_log_enabled := fnd_log.test
3209: (log_level => g_log_level
3210: ,MODULE => C_DEFAULT_MODULE);
3211:
3204:
3205:
3206: BEGIN
3207: g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3208: g_log_enabled := fnd_log.test
3209: (log_level => g_log_level
3210: ,MODULE => C_DEFAULT_MODULE);
3211:
3212: IF NOT g_log_enabled THEN