38: -- 05/09/2007 Shujuan Yan Created
39: --===========================================================================
40: PROCEDURE put_log(p_module IN VARCHAR2, p_message IN VARCHAR2) AS
41: BEGIN
42: IF (fnd_log.LEVEL_STATEMENT >= g_debug_devel) THEN
43: fnd_log.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
44: MODULE => p_module,
45: MESSAGE => p_message);
46: END IF;
39: --===========================================================================
40: PROCEDURE put_log(p_module IN VARCHAR2, p_message IN VARCHAR2) AS
41: BEGIN
42: IF (fnd_log.LEVEL_STATEMENT >= g_debug_devel) THEN
43: fnd_log.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
44: MODULE => p_module,
45: MESSAGE => p_message);
46: END IF;
47:
224: AND legal_entity_id = p_legal_entity_id
225: AND (status = 'E' OR status = 'S');
226:
227: IF (G_PROC_LEVEL >= g_debug_devel) THEN
228: FND_LOG.STRING(G_PROC_LEVEL,
229: G_MODULE_PREFIX || l_procedure_name || '.begin',
230: 'Begin procedure');
231: END IF; --( G_PROC_LEVEL >= g_debug_devel)
232:
321: P_legal_entity_ID);
322:
323: IF( G_PROC_LEVEL >= g_debug_devel )
324: THEN
325: FND_LOG.STRING(G_PROC_LEVEL
326: ,G_MODULE_PREFIX||l_procedure_name||'.end'
327: ,'End procedure');
328: END IF; --( G_PROC_LEVEL >= g_debug_devel)
329: EXCEPTION
327: ,'End procedure');
328: END IF; --( G_PROC_LEVEL >= g_debug_devel)
329: EXCEPTION
330: WHEN OTHERS THEN
331: IF(FND_LOG.LEVEL_UNEXPECTED >= g_debug_devel)
332: THEN
333: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
334: , G_MODULE_PREFIX || l_procedure_name||'.OTHER_EXCEPTION'
335: , SQLCODE||':'||SQLERRM||p_coa_id);
329: EXCEPTION
330: WHEN OTHERS THEN
331: IF(FND_LOG.LEVEL_UNEXPECTED >= g_debug_devel)
332: THEN
333: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
334: , G_MODULE_PREFIX || l_procedure_name||'.OTHER_EXCEPTION'
335: , SQLCODE||':'||SQLERRM||p_coa_id);
336: END IF;
337: RAISE;