107: --
108: l_progress := '020';
109: l_return_status := FND_API.G_RET_STS_SUCCESS;
110: IF (g_fnd_debug = 'Y') THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
112: FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
113: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
114: MESSAGE => 'Call PO_BUSINESSEVENT_PVT.raise_event'
115: );
108: l_progress := '020';
109: l_return_status := FND_API.G_RET_STS_SUCCESS;
110: IF (g_fnd_debug = 'Y') THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
112: FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
113: MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
114: MESSAGE => 'Call PO_BUSINESSEVENT_PVT.raise_event'
115: );
116: END IF;
132: l_msg_buf := NULL;
133: l_msg_buf := FND_MSG_PUB.Get( p_msg_index => 1,
134: p_encoded => 'F');
135: l_msg_buf := SUBSTR('ASL' || x_asl_id || 'errors out at' || l_progress || l_msg_buf, 1, 2000);
136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
137: FND_LOG.string( LOG_LEVEL => FND_LOG.level_unexpected,
138: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
139: MESSAGE => l_msg_buf
140: );
133: l_msg_buf := FND_MSG_PUB.Get( p_msg_index => 1,
134: p_encoded => 'F');
135: l_msg_buf := SUBSTR('ASL' || x_asl_id || 'errors out at' || l_progress || l_msg_buf, 1, 2000);
136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
137: FND_LOG.string( LOG_LEVEL => FND_LOG.level_unexpected,
138: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
139: MESSAGE => l_msg_buf
140: );
141: END IF;
143: ELSE
144: IF (g_fnd_debug = 'Y') THEN
145: l_msg_buf := NULL;
146: l_msg_buf := SUBSTR('ASL' || x_asl_id||'raised business event successfully', 1, 2000);
147: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
148: FND_LOG.string( LOG_LEVEL => FND_LOG.level_statement,
149: MODULE => c_log_head || '.'||l_api_name,
150: MESSAGE => l_msg_buf
151: );
144: IF (g_fnd_debug = 'Y') THEN
145: l_msg_buf := NULL;
146: l_msg_buf := SUBSTR('ASL' || x_asl_id||'raised business event successfully', 1, 2000);
147: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
148: FND_LOG.string( LOG_LEVEL => FND_LOG.level_statement,
149: MODULE => c_log_head || '.'||l_api_name,
150: MESSAGE => l_msg_buf
151: );
152: END IF;
155:
156: EXCEPTION
157: WHEN OTHERS THEN
158: IF (g_fnd_debug = 'Y') THEN
159: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
160: FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_EXCEPTION,
161: MODULE => c_log_head || '.'||l_api_name,
162: MESSAGE => SQLERRM(SQLCODE)
163: );
156: EXCEPTION
157: WHEN OTHERS THEN
158: IF (g_fnd_debug = 'Y') THEN
159: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
160: FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_EXCEPTION,
161: MODULE => c_log_head || '.'||l_api_name,
162: MESSAGE => SQLERRM(SQLCODE)
163: );
164: END IF;