62: END IF;
63: -- Initialize message list if p_init_msg_list is set to TRUE.
64: IF FND_API.to_Boolean( p_init_msg_list )
65: THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68: -- Initialize API return status to SUCCESS
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70:
168: IF FND_API.To_Boolean(p_commit) THEN
169: COMMIT WORK;
170: END IF;
171: -- Standard callto get message count and if count is 1, get message info.
172: FND_MSG_PUB.Count_And_Get
173: ( p_count => x_msg_count,
174: p_data => x_msg_data
175: );
176: EXCEPTION
177:
178: -- WHEN IEM_DUP_EMAIL_SERVER THEN
179: -- ROLLBACK TO create_item_PVT;
180: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
181: -- FND_MSG_PUB.Add;
182: -- x_return_status := FND_API.G_RET_STS_ERROR ;
183: -- FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
184:
185: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
179: -- ROLLBACK TO create_item_PVT;
180: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
181: -- FND_MSG_PUB.Add;
182: -- x_return_status := FND_API.G_RET_STS_ERROR ;
183: -- FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
184:
185: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
186: ROLLBACK TO create_item_PVT;
187: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
184:
185: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
186: ROLLBACK TO create_item_PVT;
187: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
188: FND_MSG_PUB.Add;
189: x_return_status := FND_API.G_RET_STS_ERROR ;
190: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
191:
192: WHEN DUP_VAL_ON_INDEX THEN
186: ROLLBACK TO create_item_PVT;
187: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
188: FND_MSG_PUB.Add;
189: x_return_status := FND_API.G_RET_STS_ERROR ;
190: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
191:
192: WHEN DUP_VAL_ON_INDEX THEN
193: ROLLBACK TO create_item_PVT;
194: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
192: WHEN DUP_VAL_ON_INDEX THEN
193: ROLLBACK TO create_item_PVT;
194: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
195: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
196: FND_MSG_PUB.Add;
197: x_return_status := FND_API.G_RET_STS_ERROR ;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
199:
200: WHEN FND_API.G_EXC_ERROR THEN
194: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
195: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
196: FND_MSG_PUB.Add;
197: x_return_status := FND_API.G_RET_STS_ERROR ;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
199:
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO create_item_PVT;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
199:
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO create_item_PVT;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: FND_MSG_PUB.Count_And_Get
204: ( p_count => x_msg_count,
205: p_data => x_msg_data
206: );
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
206: );
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: ROLLBACK TO create_item_PVT;
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: ( p_count => x_msg_count,
212: p_data => x_msg_data
213: );
214: WHEN OTHERS THEN
213: );
214: WHEN OTHERS THEN
215: ROLLBACK TO create_item_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: IF FND_MSG_PUB.Check_Msg_Level
218: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg
221: ( G_PKG_NAME ,
214: WHEN OTHERS THEN
215: ROLLBACK TO create_item_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: IF FND_MSG_PUB.Check_Msg_Level
218: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg
221: ( G_PKG_NAME ,
222: l_api_name
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: IF FND_MSG_PUB.Check_Msg_Level
218: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg
221: ( G_PKG_NAME ,
222: l_api_name
223: );
224: END IF;
221: ( G_PKG_NAME ,
222: l_api_name
223: );
224: END IF;
225: FND_MSG_PUB.Count_And_Get
226: ( p_count => x_msg_count ,
227: p_data => x_msg_data
228: );
229:
273: END IF;
274: -- Initialize message list if p_init_msg_list is set to TRUE.
275: IF FND_API.to_Boolean( p_init_msg_list )
276: THEN
277: FND_MSG_PUB.initialize;
278: END IF;
279: -- Initialize API return status to SUCCESS
280: x_return_status := FND_API.G_RET_STS_SUCCESS;
281:
349: IF FND_API.To_Boolean(p_commit) THEN
350: COMMIT WORK;
351: END IF;
352: -- Standard callto get message count and if count is 1, get message info.
353: FND_MSG_PUB.Count_And_Get
354: ( p_count => x_msg_count,
355: p_data => x_msg_data
356: );
357: EXCEPTION
359: WHEN EXCP_EMAIL_SERVER THEN
360: ROLLBACK TO create_item_PVT;
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: -- FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_EMAIL_SVR_NOT_CREATED');
363: -- FND_MSG_PUB.Add;
364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,p_data => x_msg_data);
365:
366: WHEN FND_API.G_EXC_ERROR THEN
367: ROLLBACK TO create_item_PVT;
360: ROLLBACK TO create_item_PVT;
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: -- FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_EMAIL_SVR_NOT_CREATED');
363: -- FND_MSG_PUB.Add;
364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,p_data => x_msg_data);
365:
366: WHEN FND_API.G_EXC_ERROR THEN
367: ROLLBACK TO create_item_PVT;
368: x_return_status := FND_API.G_RET_STS_ERROR ;
365:
366: WHEN FND_API.G_EXC_ERROR THEN
367: ROLLBACK TO create_item_PVT;
368: x_return_status := FND_API.G_RET_STS_ERROR ;
369: FND_MSG_PUB.Count_And_Get
370: ( p_count => x_msg_count,
371: p_data => x_msg_data
372: );
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372: );
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: ROLLBACK TO create_item_PVT;
375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
376: FND_MSG_PUB.Count_And_Get
377: ( p_count => x_msg_count,
378: p_data => x_msg_data
379: );
380: WHEN OTHERS THEN
379: );
380: WHEN OTHERS THEN
381: ROLLBACK TO create_item_PVT;
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: IF FND_MSG_PUB.Check_Msg_Level
384: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
385: THEN
386: FND_MSG_PUB.Add_Exc_Msg
387: ( G_PKG_NAME ,
380: WHEN OTHERS THEN
381: ROLLBACK TO create_item_PVT;
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: IF FND_MSG_PUB.Check_Msg_Level
384: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
385: THEN
386: FND_MSG_PUB.Add_Exc_Msg
387: ( G_PKG_NAME ,
388: l_api_name
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: IF FND_MSG_PUB.Check_Msg_Level
384: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
385: THEN
386: FND_MSG_PUB.Add_Exc_Msg
387: ( G_PKG_NAME ,
388: l_api_name
389: );
390: END IF;
387: ( G_PKG_NAME ,
388: l_api_name
389: );
390: END IF;
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count ,
393: p_data => x_msg_data
394: );
395:
422: END IF;
423: -- Initialize message list if p_init_msg_list is set to TRUE.
424: IF FND_API.to_Boolean( p_init_msg_list )
425: THEN
426: FND_MSG_PUB.initialize;
427: END IF;
428: -- Initialize API return status to SUCCESS
429: x_return_status := FND_API.G_RET_STS_SUCCESS;
430: if p_email_server_id =FND_API.G_MISS_NUM then
439: IF FND_API.To_Boolean(p_commit) THEN
440: COMMIT WORK;
441: END IF;
442: -- Standard callto get message count and if count is 1, get message info.
443: FND_MSG_PUB.Count_And_Get
444: ( p_count => x_msg_count,
445: p_data => x_msg_data
446: );
447: EXCEPTION
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: ROLLBACK TO delete_item_PVT;
450: x_return_status := FND_API.G_RET_STS_ERROR ;
451: FND_MSG_PUB.Count_And_Get
452: ( p_count => x_msg_count,
453: p_data => x_msg_data
454: );
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: );
455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: ROLLBACK TO delete_item_PVT;
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: FND_MSG_PUB.Count_And_Get
459: ( p_count => x_msg_count,
460: p_data => x_msg_data
461: );
462: WHEN OTHERS THEN
461: );
462: WHEN OTHERS THEN
463: ROLLBACK TO delete_item_PVT;
464: x_return_status := FND_API.G_RET_STS_ERROR;
465: IF FND_MSG_PUB.Check_Msg_Level
466: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
467: THEN
468: FND_MSG_PUB.Add_Exc_Msg
469: ( G_PKG_NAME ,
462: WHEN OTHERS THEN
463: ROLLBACK TO delete_item_PVT;
464: x_return_status := FND_API.G_RET_STS_ERROR;
465: IF FND_MSG_PUB.Check_Msg_Level
466: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
467: THEN
468: FND_MSG_PUB.Add_Exc_Msg
469: ( G_PKG_NAME ,
470: l_api_name
464: x_return_status := FND_API.G_RET_STS_ERROR;
465: IF FND_MSG_PUB.Check_Msg_Level
466: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
467: THEN
468: FND_MSG_PUB.Add_Exc_Msg
469: ( G_PKG_NAME ,
470: l_api_name
471: );
472: END IF;
469: ( G_PKG_NAME ,
470: l_api_name
471: );
472: END IF;
473: FND_MSG_PUB.Count_And_Get
474: ( p_count => x_msg_count ,
475: p_data => x_msg_data
476: );
477:
534: END IF;
535: -- Initialize message list if p_init_msg_list is set to TRUE.
536: IF FND_API.to_Boolean( p_init_msg_list )
537: THEN
538: FND_MSG_PUB.initialize;
539: END IF;
540: -- Initialize API return status to SUCCESS
541: x_return_status := FND_API.G_RET_STS_SUCCESS;
542:
632: IF FND_API.To_Boolean(p_commit) THEN
633: COMMIT WORK;
634: END IF;
635: -- Standard callto get message count and if count is 1, get message info.
636: FND_MSG_PUB.Count_And_Get
637: ( p_count => x_msg_count,
638: p_data => x_msg_data
639: );
640: EXCEPTION
641:
642: -- WHEN IEM_DUP_EMAIL_SERVER THEN
643: -- ROLLBACK TO update_item_pvt;
644: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
645: -- FND_MSG_PUB.Add;
646: -- x_return_status := FND_API.G_RET_STS_ERROR ;
647: -- FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
648: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
649: ROLLBACK TO update_item_pvt;
643: -- ROLLBACK TO update_item_pvt;
644: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
645: -- FND_MSG_PUB.Add;
646: -- x_return_status := FND_API.G_RET_STS_ERROR ;
647: -- FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
648: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
649: ROLLBACK TO update_item_pvt;
650: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
651: FND_MSG_PUB.Add;
647: -- FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
648: WHEN IEM_NON_EXISTENT_SERVER_GRP THEN
649: ROLLBACK TO update_item_pvt;
650: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
651: FND_MSG_PUB.Add;
652: x_return_status := FND_API.G_RET_STS_ERROR ;
653: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
654:
655: WHEN DUP_VAL_ON_INDEX THEN
649: ROLLBACK TO update_item_pvt;
650: FND_MESSAGE.SET_NAME('IEM','IEM_NON_EXISTENT_SERVER_GRP');
651: FND_MSG_PUB.Add;
652: x_return_status := FND_API.G_RET_STS_ERROR ;
653: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
654:
655: WHEN DUP_VAL_ON_INDEX THEN
656: ROLLBACK TO update_item_pvt;
657: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
655: WHEN DUP_VAL_ON_INDEX THEN
656: ROLLBACK TO update_item_pvt;
657: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
658: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
659: FND_MSG_PUB.Add;
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
662:
663:
657: -- FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
658: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_DUP_EMAIL_SERVER');
659: FND_MSG_PUB.Add;
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
662:
663:
664: WHEN FND_API.G_EXC_ERROR THEN
665: ROLLBACK TO update_item_PVT;
663:
664: WHEN FND_API.G_EXC_ERROR THEN
665: ROLLBACK TO update_item_PVT;
666: x_return_status := FND_API.G_RET_STS_ERROR ;
667: FND_MSG_PUB.Count_And_Get
668: ( p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670: );
671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
672: ROLLBACK TO update_item_PVT;
673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
674: FND_MSG_PUB.Count_And_Get
675: ( p_count => x_msg_count,
676: p_data => x_msg_data
677: );
678: WHEN OTHERS THEN
679: ROLLBACK TO update_item_PVT;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681:
682:
683: IF FND_MSG_PUB.Check_Msg_Level
684: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: THEN
686:
687: FND_MSG_PUB.Add_Exc_Msg
680: x_return_status := FND_API.G_RET_STS_ERROR;
681:
682:
683: IF FND_MSG_PUB.Check_Msg_Level
684: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: THEN
686:
687: FND_MSG_PUB.Add_Exc_Msg
688: ( G_PKG_NAME ,
683: IF FND_MSG_PUB.Check_Msg_Level
684: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: THEN
686:
687: FND_MSG_PUB.Add_Exc_Msg
688: ( G_PKG_NAME ,
689: l_api_name
690: );
691: END IF;
688: ( G_PKG_NAME ,
689: l_api_name
690: );
691: END IF;
692: FND_MSG_PUB.Count_And_Get
693: ( p_count => x_msg_count ,
694: p_data => x_msg_data
695: );
696:
741: END IF;
742: -- Initialize message list if p_init_msg_list is set to TRUE.
743: IF FND_API.to_Boolean( p_init_msg_list )
744: THEN
745: FND_MSG_PUB.initialize;
746: END IF;
747: -- Initialize API return status to SUCCESS
748: x_return_status := FND_API.G_RET_STS_SUCCESS;
749:
813: IF FND_API.To_Boolean(p_commit) THEN
814: COMMIT WORK;
815: END IF;
816: -- Standard callto get message count and if count is 1, get message info.
817: FND_MSG_PUB.Count_And_Get
818: ( p_count => x_msg_count,
819: p_data => x_msg_data
820: );
821: EXCEPTION
823: WHEN EXCP_EMAIL_SERVER THEN
824: ROLLBACK TO create_item_PVT;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: -- FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_EMAIL_SVR_NOT_CREATED');
827: -- FND_MSG_PUB.Add;
828: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,p_data => x_msg_data);
829:
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO create_item_PVT;
824: ROLLBACK TO create_item_PVT;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: -- FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_EMAIL_SVR_NOT_CREATED');
827: -- FND_MSG_PUB.Add;
828: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,p_data => x_msg_data);
829:
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO create_item_PVT;
832: x_return_status := FND_API.G_RET_STS_ERROR ;
829:
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO create_item_PVT;
832: x_return_status := FND_API.G_RET_STS_ERROR ;
833: FND_MSG_PUB.Count_And_Get
834: ( p_count => x_msg_count,
835: p_data => x_msg_data
836: );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: ROLLBACK TO create_item_PVT;
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
840: FND_MSG_PUB.Count_And_Get
841: ( p_count => x_msg_count,
842: p_data => x_msg_data
843: );
844: WHEN OTHERS THEN
843: );
844: WHEN OTHERS THEN
845: ROLLBACK TO create_item_PVT;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: IF FND_MSG_PUB.Check_Msg_Level
848: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
849: THEN
850: FND_MSG_PUB.Add_Exc_Msg
851: ( G_PKG_NAME ,
844: WHEN OTHERS THEN
845: ROLLBACK TO create_item_PVT;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: IF FND_MSG_PUB.Check_Msg_Level
848: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
849: THEN
850: FND_MSG_PUB.Add_Exc_Msg
851: ( G_PKG_NAME ,
852: l_api_name
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: IF FND_MSG_PUB.Check_Msg_Level
848: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
849: THEN
850: FND_MSG_PUB.Add_Exc_Msg
851: ( G_PKG_NAME ,
852: l_api_name
853: );
854: END IF;
851: ( G_PKG_NAME ,
852: l_api_name
853: );
854: END IF;
855: FND_MSG_PUB.Count_And_Get
856: ( p_count => x_msg_count ,
857: p_data => x_msg_data
858: );
859:
895: END IF;
896:
897: --Initialize the message list if p_init_msg_list is set to TRUE
898: If FND_API.to_Boolean(p_init_msg_list) THEN
899: FND_MSG_PUB.initialize;
900: END IF;
901:
902: --Initialize API status return
903: x_return_status := FND_API.G_RET_STS_SUCCESS;
938: WHEN SERVER_GROUP_NOT_DELETED THEN
939: ROLLBACK TO delete_item_batch;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: FND_MESSAGE.SET_NAME('IEM', 'IEM_SERVER_GROUP_NOT_DELETED');
942: FND_MSG_PUB.ADD;
943: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
944:
945: WHEN FND_API.G_EXC_ERROR THEN
946: ROLLBACK TO delete_item_batch;
939: ROLLBACK TO delete_item_batch;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: FND_MESSAGE.SET_NAME('IEM', 'IEM_SERVER_GROUP_NOT_DELETED');
942: FND_MSG_PUB.ADD;
943: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
944:
945: WHEN FND_API.G_EXC_ERROR THEN
946: ROLLBACK TO delete_item_batch;
947: x_return_status := FND_API.G_RET_STS_ERROR ;
944:
945: WHEN FND_API.G_EXC_ERROR THEN
946: ROLLBACK TO delete_item_batch;
947: x_return_status := FND_API.G_RET_STS_ERROR ;
948: FND_MSG_PUB.Count_And_Get
949: ( p_count => x_msg_count,p_data => x_msg_data);
950:
951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
952: ROLLBACK TO delete_item_batch;
950:
951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
952: ROLLBACK TO delete_item_batch;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
954: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
955:
956: WHEN OTHERS THEN
957: ROLLBACK TO delete_item_batch;
958: x_return_status := FND_API.G_RET_STS_ERROR;
955:
956: WHEN OTHERS THEN
957: ROLLBACK TO delete_item_batch;
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
960: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
961: END IF;
962:
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
956: WHEN OTHERS THEN
957: ROLLBACK TO delete_item_batch;
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
960: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
961: END IF;
962:
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
964:
959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
960: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
961: END IF;
962:
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
964:
965: END delete_item_batch;
966:
967: END IEM_EMAIL_SERVERS_PVT ;