21: G_RETURN_SUCCESS CONSTANT VARCHAR2(1) := 'T';
22: G_RETURN_FAILURE CONSTANT VARCHAR2(1) := 'F';
23: G_RETURN_UNEXP_ERR CONSTANT VARCHAR2(1) := 'U';
24:
25: G_DEBUG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_RETURN_FAILURE CONSTANT VARCHAR2(1) := 'F';
23: G_RETURN_UNEXP_ERR CONSTANT VARCHAR2(1) := 'U';
24:
25: G_DEBUG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: G_DEBUG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_RETURN_UNEXP_ERR CONSTANT VARCHAR2(1) := 'U';
24:
25: G_DEBUG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: G_DEBUG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
31:
24:
25: G_DEBUG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: G_DEBUG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
31:
32: G_CURRENT_DEBUG_LEVEL NUMBER;
25: G_DEBUG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: G_DEBUG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
31:
32: G_CURRENT_DEBUG_LEVEL NUMBER;
33: G_USER_NAME VARCHAR2(100);
26: G_DEBUG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
27: G_DEBUG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_DEBUG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
29: G_DEBUG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: G_DEBUG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
31:
32: G_CURRENT_DEBUG_LEVEL NUMBER;
33: G_USER_NAME VARCHAR2(100);
34:
44: ,p_message IN VARCHAR2
45: ) IS
46: BEGIN
47: IF (p_log_level >= G_CURRENT_DEBUG_LEVEL ) THEN
48: fnd_log.string(log_level => p_log_level
49: ,module => G_LOG_HEAD||p_module
50: ,message => p_message
51: );
52: END IF;
60: --This is an internal procedure. Not in spec.
61: ----------------------------------------------
62: PROCEDURE SetGlobals IS
63: BEGIN
64: G_CURRENT_DEBUG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
65: G_USER_NAME := FND_GLOBAL.USER_NAME;
66: EXCEPTION
67: WHEN OTHERS THEN
68: RAISE;
330: FROM ego_user_v
331: where user_name = x_user_name;
332: exception
333: when no_data_found then
334: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
335: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
336: g_log_head || l_api_name || '.end_nodatafound',
337: 'returning NULLs.');
338: end if;
331: where user_name = x_user_name;
332: exception
333: when no_data_found then
334: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
335: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
336: g_log_head || l_api_name || '.end_nodatafound',
337: 'returning NULLs.');
338: end if;
339: return;