95:
96: EXCEPTION
97: WHEN FND_API.G_EXC_ERROR THEN
98: x_return_status := FND_API.g_ret_sts_error ;
99: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
100: p_count => x_msg_count,
101: p_data => x_msg_data);
102: ERRBUF := x_msg_data;
103: RETCODE := 2;
103: RETCODE := 2;
104:
105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
106: x_return_status := FND_API.g_ret_sts_unexp_error ;
107: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
108: p_count => x_msg_count,
109: p_data => x_msg_data);
110: ERRBUF := x_msg_data;
111: RETCODE := 2;
111: RETCODE := 2;
112:
113: WHEN OTHERS THEN
114: x_return_status := FND_API.g_ret_sts_unexp_error ;
115: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
116: p_count => x_msg_count,
117: p_data => x_msg_data);
118: ERRBUF := sqlerrm(sqlcode);
119: RETCODE := sqlcode;
294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO LOAD_ADMIN_RECORDS;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: -- Standard call to get message count and if count=1, get the message
298: FND_MSG_PUB.Count_And_Get (
299: p_encoded => FND_API.G_FALSE,
300: p_count => x_msg_count,
301: p_data => x_msg_data
302: );
301: p_data => x_msg_data
302: );
303: WHEN FND_API.g_exc_error THEN
304: x_return_status := FND_API.g_ret_sts_error;
305: FND_MSG_PUB.count_and_get(
306: p_encoded => FND_API.g_false,
307: p_count => x_msg_count,
308: p_data => x_msg_data
309: );
308: p_data => x_msg_data
309: );
310: WHEN OTHERS THEN
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
313: THEN
314: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
315: END IF;
316: -- Standard call to get message count and if count=1, get the message
310: WHEN OTHERS THEN
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
313: THEN
314: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
315: END IF;
316: -- Standard call to get message count and if count=1, get the message
317: FND_MSG_PUB.Count_And_Get (
318: p_encoded => FND_API.G_FALSE,
313: THEN
314: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
315: END IF;
316: -- Standard call to get message count and if count=1, get the message
317: FND_MSG_PUB.Count_And_Get (
318: p_encoded => FND_API.G_FALSE,
319: p_count => x_msg_count,
320: p_data => x_msg_data
321: );