155: END IF;
156:
157: -- Check p_init_msg_list
158: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
159: FND_MSG_PUB.initialize;
160: END IF;
161:
162: -- Initialize API return status to success
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
354:
355: EXCEPTION
356: WHEN FND_API.G_EXC_ERROR THEN
357: ROLLBACK TO Check_Shortage_Start;
358: FND_MSG_PUB.Count_And_Get
359: (p_count => x_msg_count,
360: p_data => x_msg_data
361: );
362: x_return_status := FND_API.G_RET_STS_ERROR ;
380:
381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: ROLLBACK TO Check_Shortage_Start;
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
384: FND_MSG_PUB.Count_And_Get
385: (p_count => x_msg_count,
386: p_data => x_msg_data
387: );
388: IF (p_source_api = 'Concurrent') THEN
403: END IF;
404: WHEN OTHERS THEN
405: ROLLBACK TO Check_Shortage_Start;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408: FND_MSG_PUB.Add_Exc_Msg
409: (G_PKG_NAME,
410: l_api_name
411: );
404: WHEN OTHERS THEN
405: ROLLBACK TO Check_Shortage_Start;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408: FND_MSG_PUB.Add_Exc_Msg
409: (G_PKG_NAME,
410: l_api_name
411: );
412: END IF;
409: (G_PKG_NAME,
410: l_api_name
411: );
412: END IF;
413: FND_MSG_PUB.Count_And_Get
414: (p_count => x_msg_count,
415: p_data => x_msg_data
416: );
417: IF (p_source_api = 'Concurrent') THEN