17: g_sqlerrm_token CONSTANT VARCHAR2 (200) := 'ERROR_MESSAGE';
18: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'ERROR_CODE';
19:
20:
21: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
22: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
23: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
24:
25:
18: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'ERROR_CODE';
19:
20:
21: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
22: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
23: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
24:
25:
26:
19:
20:
21: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
22: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
23: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
24:
25:
26:
27:
79: -- Initialize message list if p_init_msg_list is set to TRUE.
80: IF FND_API.to_Boolean( p_init_msg_list ) THEN
81: FND_MSG_PUB.initialize;
82: END IF;
83: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
84: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
85: G_MODULE||l_api_name,
86: '100: Start');
87: END IF;
80: IF FND_API.to_Boolean( p_init_msg_list ) THEN
81: FND_MSG_PUB.initialize;
82: END IF;
83: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
84: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
85: G_MODULE||l_api_name,
86: '100: Start');
87: END IF;
88:
88:
89: /* Add your Processing Code Here */
90:
91:
92: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
94: G_MODULE||l_api_name,
95: '100: End');
96: END IF;
89: /* Add your Processing Code Here */
90:
91:
92: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
94: G_MODULE||l_api_name,
95: '100: End');
96: END IF;
97:
96: END IF;
97:
98: EXCEPTION
99: WHEN OTHERS THEN
100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
102: G_MODULE||l_api_name,
103: '999: Exception '||sqlerrm);
104: END IF;
97:
98: EXCEPTION
99: WHEN OTHERS THEN
100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
102: G_MODULE||l_api_name,
103: '999: Exception '||sqlerrm);
104: END IF;
105: