182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183: END IF;
184:
185: -- Initialize message list if p_init_msg_list is set to TRUE
186: FND_MSG_PUB.Initialize;
187:
188: -- Initialize API return status to success
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
222: FETCH check_mc_exists INTO l_dummy_number,l_active_end_date;
223: IF (check_mc_exists%NOTFOUND)
224: THEN
225: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_FOUND');
226: FND_MSG_PUB.ADD;
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229: CLOSE check_mc_exists;
230:
438: END IF;
439: -- API body ends here
440:
441: -- Check Error Message stack.
442: x_msg_count := FND_MSG_PUB.count_msg;
443: IF x_msg_count > 0
444: THEN
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447:
448: -- Standard call to get message count and if count is 1, get message info
449: FND_MSG_PUB.count_and_get
450: (
451: p_count => x_msg_count,
452: p_data => x_msg_data,
453: p_encoded => FND_API.G_FALSE
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR THEN
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: Rollback to Get_MasterConfig_Nodes_SP;
460: FND_MSG_PUB.count_and_get
461: (
462: p_count => x_msg_count,
463: p_data => x_msg_data,
464: p_encoded => FND_API.G_FALSE
466:
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: Rollback to Get_MasterConfig_Nodes_SP;
470: FND_MSG_PUB.count_and_get
471: (
472: p_count => x_msg_count,
473: p_data => x_msg_data,
474: p_encoded => FND_API.G_FALSE
476:
477: WHEN OTHERS THEN
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: Rollback to Get_MasterConfig_Nodes_SP;
480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
481: THEN
482: FND_MSG_PUB.add_exc_msg
483: (
484: p_pkg_name => G_PKG_NAME,
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: Rollback to Get_MasterConfig_Nodes_SP;
480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
481: THEN
482: FND_MSG_PUB.add_exc_msg
483: (
484: p_pkg_name => G_PKG_NAME,
485: p_procedure_name => 'Get_MasterConfig_Nodes',
486: p_error_text => SUBSTR(SQLERRM,1,240)
485: p_procedure_name => 'Get_MasterConfig_Nodes',
486: p_error_text => SUBSTR(SQLERRM,1,240)
487: );
488: END IF;
489: FND_MSG_PUB.count_and_get
490: (
491: p_count => x_msg_count,
492: p_data => x_msg_data,
493: p_encoded => FND_API.G_FALSE