342: END IF;
343:
344: -- initialize message list if p_init_msg_list is set to TRUE
345: IF FND_API.to_Boolean(p_init_msg_list) THEN
346: FND_MSG_PUB.initialize;
347: END IF;
348:
349: -- initialize API return status to success
350: x_return_status := FND_API.G_RET_STS_SUCCESS;
403: IBE_UTIL.debug(G_PKG_NAME||'.Load_Components: After select in load');
404: END IF;
405:
406: -- standard call to get message count and if count is 1, get message info.
407: FND_MSG_PUB.Count_And_Get
408: ( p_encoded => FND_API.G_FALSE,
409: p_count => x_msg_count,
410: p_data => x_msg_data
411: );
413: --ibe_util.disable_debug;
414: EXCEPTION
415: WHEN FND_API.G_EXC_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_ERROR;
417: FND_MSG_PUB.Count_And_Get
418: ( p_encoded => FND_API.G_FALSE,
419: p_count => x_msg_count,
420: p_data => x_msg_data
421: );
422: --gzhang 08/08/2002, bug#2488246
423: --ibe_util.disable_debug;
424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.Count_And_Get
427: ( p_encoded => FND_API.G_FALSE,
428: p_count => x_msg_count,
429: p_data => x_msg_data
430: );
435: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
436: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
437: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
438: FND_MESSAGE.Set_Token('REASON', SQLERRM);
439: FND_MSG_PUB.Add;
440: IF FND_MSG_PUB.Check_Msg_Level
441: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN FND_MSG_PUB.Add_Exc_Msg
443: ( G_PKG_NAME,
436: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
437: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
438: FND_MESSAGE.Set_Token('REASON', SQLERRM);
439: FND_MSG_PUB.Add;
440: IF FND_MSG_PUB.Check_Msg_Level
441: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN FND_MSG_PUB.Add_Exc_Msg
443: ( G_PKG_NAME,
444: l_api_name
437: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
438: FND_MESSAGE.Set_Token('REASON', SQLERRM);
439: FND_MSG_PUB.Add;
440: IF FND_MSG_PUB.Check_Msg_Level
441: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN FND_MSG_PUB.Add_Exc_Msg
443: ( G_PKG_NAME,
444: l_api_name
445: );
438: FND_MESSAGE.Set_Token('REASON', SQLERRM);
439: FND_MSG_PUB.Add;
440: IF FND_MSG_PUB.Check_Msg_Level
441: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN FND_MSG_PUB.Add_Exc_Msg
443: ( G_PKG_NAME,
444: l_api_name
445: );
446: END IF;
443: ( G_PKG_NAME,
444: l_api_name
445: );
446: END IF;
447: FND_MSG_PUB.Count_And_Get
448: ( p_encoded => FND_API.G_FALSE,
449: p_count => x_msg_count,
450: p_data => x_msg_data
451: );