113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116: IF FND_API.To_Boolean( p_init_msg_list ) THEN
117: FND_MSG_PUB.initialize;
118: END IF;
119: -- Initialize API return status to success
120: RETCODE := FND_API.G_RET_STS_SUCCESS;
121: -- API body
289: IF FND_API.To_Boolean( p_commit ) THEN
290: COMMIT WORK;
291: END IF;
292: -- Standard call to get message count and if count is 1, get message info.
293: FND_MSG_PUB.Count_And_Get
294: ( p_count => l_msg_count ,
295: p_data => ERRBUF
296: );
297: EXCEPTION
298:
299: WHEN FND_API.G_EXC_ERROR THEN
300: ROLLBACK TO CLOSE_MEDIA_ITEMS_PUB;
301: RETCODE := FND_API.G_RET_STS_ERROR ;
302: FND_MSG_PUB.Count_And_Get
303: ( p_count => l_msg_count ,
304: p_data => ERRBUF
305: );
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: );
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307: ROLLBACK TO CLOSE_MEDIA_ITEMS_PUB;
308: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
309: FND_MSG_PUB.Count_And_Get
310: ( p_count => l_msg_count ,
311: p_data => ERRBUF
312: );
313: WHEN OTHERS THEN
312: );
313: WHEN OTHERS THEN
314: ROLLBACK TO CLOSE_MEDIA_ITEMS_PUB;
315: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
316: IF FND_MSG_PUB.Check_Msg_Level
317: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
318: THEN
319: FND_MSG_PUB.Add_Exc_Msg
320: ( G_PKG_NAME ,
313: WHEN OTHERS THEN
314: ROLLBACK TO CLOSE_MEDIA_ITEMS_PUB;
315: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
316: IF FND_MSG_PUB.Check_Msg_Level
317: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
318: THEN
319: FND_MSG_PUB.Add_Exc_Msg
320: ( G_PKG_NAME ,
321: l_api_name
315: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
316: IF FND_MSG_PUB.Check_Msg_Level
317: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
318: THEN
319: FND_MSG_PUB.Add_Exc_Msg
320: ( G_PKG_NAME ,
321: l_api_name
322: );
323: END IF;
320: ( G_PKG_NAME ,
321: l_api_name
322: );
323: END IF;
324: FND_MSG_PUB.Count_And_Get
325: ( p_count => l_msg_count ,
326: p_data => ERRBUF
327: );
328:
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462: -- Initialize message list if p_init_msg_list is set to TRUE.
463: IF FND_API.To_Boolean( p_init_msg_list ) THEN
464: FND_MSG_PUB.initialize;
465: END IF;
466: -- Initialize API return status to success
467: RETCODE := FND_API.G_RET_STS_SUCCESS;
468: -- API body
612: IF FND_API.To_Boolean( p_commit ) THEN
613: COMMIT WORK;
614: END IF;
615: -- Standard call to get message count and if count is 1, get message info.
616: FND_MSG_PUB.Count_And_Get
617: ( p_count => l_msg_count ,
618: p_data => ERRBUF
619: );
620: EXCEPTION
621:
622: WHEN FND_API.G_EXC_ERROR THEN
623: ROLLBACK TO TIMEOUT_MEDIA_ITEMS_PUB;
624: RETCODE := FND_API.G_RET_STS_ERROR ;
625: FND_MSG_PUB.Count_And_Get
626: ( p_count => l_msg_count ,
627: p_data => ERRBUF
628: );
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628: );
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: ROLLBACK TO TIMEOUT_MEDIA_ITEMS_PUB;
631: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
632: FND_MSG_PUB.Count_And_Get
633: ( p_count => l_msg_count ,
634: p_data => ERRBUF
635: );
636: WHEN OTHERS THEN
635: );
636: WHEN OTHERS THEN
637: ROLLBACK TO TIMEOUT_MEDIA_ITEMS_PUB;
638: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
639: IF FND_MSG_PUB.Check_Msg_Level
640: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
641: THEN
642: FND_MSG_PUB.Add_Exc_Msg
643: ( G_PKG_NAME ,
636: WHEN OTHERS THEN
637: ROLLBACK TO TIMEOUT_MEDIA_ITEMS_PUB;
638: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
639: IF FND_MSG_PUB.Check_Msg_Level
640: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
641: THEN
642: FND_MSG_PUB.Add_Exc_Msg
643: ( G_PKG_NAME ,
644: l_api_name
638: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
639: IF FND_MSG_PUB.Check_Msg_Level
640: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
641: THEN
642: FND_MSG_PUB.Add_Exc_Msg
643: ( G_PKG_NAME ,
644: l_api_name
645: );
646: END IF;
643: ( G_PKG_NAME ,
644: l_api_name
645: );
646: END IF;
647: FND_MSG_PUB.Count_And_Get
648: ( p_count => l_msg_count ,
649: p_data => ERRBUF
650: );
651: