80:
81: l_progress := '100';
82: EXCEPTION
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
85: p_encoded => 'F');
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := 0;
88: WHEN FND_API.G_EXC_ERROR THEN
85: p_encoded => 'F');
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := 0;
88: WHEN FND_API.G_EXC_ERROR THEN
89: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
90: p_encoded => 'F');
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: x_msg_count := 0;
93: WHEN OTHERS THEN
90: p_encoded => 'F');
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: x_msg_count := 0;
93: WHEN OTHERS THEN
94: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
96: END IF;
97:
98: IF (g_fnd_debug = 'Y') THEN
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: x_msg_count := 0;
93: WHEN OTHERS THEN
94: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
96: END IF;
97:
98: IF (g_fnd_debug = 'Y') THEN
99: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
102: || l_progress || ' SQL CODE is '||sqlcode);
103: END IF;
104: END IF;
105:
106: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
107: p_encoded => 'F');
108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109: x_msg_count := 0;
110: