308:
309: WHEN OTHERS THEN
310: x_error_flag := 'Y';
311: x_error_message := 'IBE_ATP_PVT unexpected internal error. ';
312: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
313: FND_MESSAGE.Set_Token('ROUTINE', c_api_name);
314: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
315: FND_MESSAGE.Set_Token('REASON', SQLERRM);
316: FND_MSG_PUB.Add;
309: WHEN OTHERS THEN
310: x_error_flag := 'Y';
311: x_error_message := 'IBE_ATP_PVT unexpected internal error. ';
312: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
313: FND_MESSAGE.Set_Token('ROUTINE', c_api_name);
314: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
315: FND_MESSAGE.Set_Token('REASON', SQLERRM);
316: FND_MSG_PUB.Add;
317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
310: x_error_flag := 'Y';
311: x_error_message := 'IBE_ATP_PVT unexpected internal error. ';
312: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
313: FND_MESSAGE.Set_Token('ROUTINE', c_api_name);
314: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
315: FND_MESSAGE.Set_Token('REASON', SQLERRM);
316: FND_MSG_PUB.Add;
317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
318: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name, c_api_name);
311: x_error_message := 'IBE_ATP_PVT unexpected internal error. ';
312: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
313: FND_MESSAGE.Set_Token('ROUTINE', c_api_name);
314: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
315: FND_MESSAGE.Set_Token('REASON', SQLERRM);
316: FND_MSG_PUB.Add;
317: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
318: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name, c_api_name);
319: END IF;