228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: -- Initialize message list if p_init_msg_list is set to TRUE.
231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize;
233: END IF;
234: -- Initialize API return status to success
235: p_return_status := FND_API.G_RET_STS_SUCCESS;
236:
471: IF FND_API.To_Boolean( p_commit ) THEN
472: COMMIT WORK;
473: END IF;
474: -- Standard call to get message count and if count is 1, get message info.
475: FND_MSG_PUB.Count_And_Get
476: ( p_count => p_msg_count ,
477: p_data => p_msg_data
478: );
479:
480: EXCEPTION
481: WHEN FND_API.G_EXC_ERROR THEN
482: ROLLBACK TO INSPECTION_GRP;
483: p_return_status := FND_API.G_RET_STS_ERROR ;
484: FND_MSG_PUB.Count_And_Get
485: ( p_count => p_msg_count ,
486: p_data => p_msg_data
487: );
488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: );
488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: ROLLBACK TO INSPECTION_GRP;
490: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491: FND_MSG_PUB.Count_And_Get
492: ( p_count => p_msg_count ,
493: p_data => p_msg_data
494: );
495:
495:
496: WHEN OTHERS THEN
497: ROLLBACK TO INSPECTION_GRP;
498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499: IF FND_MSG_PUB.Check_Msg_Level
500: (G_MSG_LVL_UNEXP_ERROR)
501: THEN
502: FND_MSG_PUB.Add_Exc_Msg
503: ( G_PKG_NAME ,
498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499: IF FND_MSG_PUB.Check_Msg_Level
500: (G_MSG_LVL_UNEXP_ERROR)
501: THEN
502: FND_MSG_PUB.Add_Exc_Msg
503: ( G_PKG_NAME ,
504: l_api_name
505: );
506: END IF;
503: ( G_PKG_NAME ,
504: l_api_name
505: );
506: END IF;
507: FND_MSG_PUB.Count_And_Get
508: ( p_count => p_msg_count ,
509: p_data => p_msg_data
510: );
511: