70: END IF;
71: -- Initialize message list if p_init_msg_list is set to TRUE.
72: IF p_init_msg_list='T'
73: THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76: x_return_status := FND_API.G_RET_STS_SUCCESS;
77: IEM_REROUTING_HISTS_PVT.CREATE_ITEM (p_api_version_number=>1.0,
78: p_init_msg_list=>'F' ,
228: COMMIT WORK;
229: END IF;
230: COMMIT;
231: -- Standard callto get message count and if count is 1, get message info.
232: FND_MSG_PUB.Count_And_Get
233: ( p_count => x_msg_count,
234: p_data => x_msg_data
235: );
236: EXCEPTION WHEN INSERT_HIST_EXCEPTION THEN
235: );
236: EXCEPTION WHEN INSERT_HIST_EXCEPTION THEN
237: rollback to IEM_MAIL_REROUTE_PVT;
238: FND_MESSAGE.SET_NAME('IEM','IEM_INSERT_HIST_EXCEPTION');
239: FND_MSG_PUB.Add;
240: x_return_status := FND_API.G_RET_STS_ERROR ;
241: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
242:
243: WHEN INSERT_MDT_EXCEPTION THEN
237: rollback to IEM_MAIL_REROUTE_PVT;
238: FND_MESSAGE.SET_NAME('IEM','IEM_INSERT_HIST_EXCEPTION');
239: FND_MSG_PUB.Add;
240: x_return_status := FND_API.G_RET_STS_ERROR ;
241: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
242:
243: WHEN INSERT_MDT_EXCEPTION THEN
244: rollback to IEM_MAIL_REROUTE_PVT;
245: FND_MESSAGE.SET_NAME('IEM','IEM_INSERT_MDT_EXCEPTION');
242:
243: WHEN INSERT_MDT_EXCEPTION THEN
244: rollback to IEM_MAIL_REROUTE_PVT;
245: FND_MESSAGE.SET_NAME('IEM','IEM_INSERT_MDT_EXCEPTION');
246: FND_MSG_PUB.Add;
247: x_return_status := FND_API.G_RET_STS_ERROR ;
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249:
250: WHEN FAILED_CREATE_INTERACTION THEN
244: rollback to IEM_MAIL_REROUTE_PVT;
245: FND_MESSAGE.SET_NAME('IEM','IEM_INSERT_MDT_EXCEPTION');
246: FND_MSG_PUB.Add;
247: x_return_status := FND_API.G_RET_STS_ERROR ;
248: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
249:
250: WHEN FAILED_CREATE_INTERACTION THEN
251: rollback to IEM_MAIL_REROUTE_PVT;
252: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_INTERACTIONS');
249:
250: WHEN FAILED_CREATE_INTERACTION THEN
251: rollback to IEM_MAIL_REROUTE_PVT;
252: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_INTERACTIONS');
253: FND_MSG_PUB.Add;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
256:
257: WHEN FAILED_CREATE_ACTIVITY THEN
251: rollback to IEM_MAIL_REROUTE_PVT;
252: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_INTERACTIONS');
253: FND_MSG_PUB.Add;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
256:
257: WHEN FAILED_CREATE_ACTIVITY THEN
258: rollback to IEM_MAIL_REROUTE_PVT;
259: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_ACTIVITY');
256:
257: WHEN FAILED_CREATE_ACTIVITY THEN
258: rollback to IEM_MAIL_REROUTE_PVT;
259: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_ACTIVITY');
260: FND_MSG_PUB.Add;
261: x_return_status := FND_API.G_RET_STS_ERROR ;
262: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
263:
264: WHEN INVALID_CLASSIFICATION THEN
258: rollback to IEM_MAIL_REROUTE_PVT;
259: FND_MESSAGE.SET_NAME('IEM','IEM_FAILED_CREATE_ACTIVITY');
260: FND_MSG_PUB.Add;
261: x_return_status := FND_API.G_RET_STS_ERROR ;
262: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
263:
264: WHEN INVALID_CLASSIFICATION THEN
265: rollback to IEM_MAIL_REROUTE_PVT;
266: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_CLASSIFICATION');
263:
264: WHEN INVALID_CLASSIFICATION THEN
265: rollback to IEM_MAIL_REROUTE_PVT;
266: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_CLASSIFICATION');
267: FND_MSG_PUB.Add;
268: x_return_status := FND_API.G_RET_STS_ERROR ;
269: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
270:
271: WHEN NO_DEFAULT_RESOURCE_ID THEN
265: rollback to IEM_MAIL_REROUTE_PVT;
266: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_CLASSIFICATION');
267: FND_MSG_PUB.Add;
268: x_return_status := FND_API.G_RET_STS_ERROR ;
269: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
270:
271: WHEN NO_DEFAULT_RESOURCE_ID THEN
272: rollback to IEM_MAIL_REROUTE_PVT;
273: FND_MESSAGE.SET_NAME('IEM','IEM_NO_DEFAULT_RESOURCE_ID');
270:
271: WHEN NO_DEFAULT_RESOURCE_ID THEN
272: rollback to IEM_MAIL_REROUTE_PVT;
273: FND_MESSAGE.SET_NAME('IEM','IEM_NO_DEFAULT_RESOURCE_ID');
274: FND_MSG_PUB.Add;
275: x_return_status := FND_API.G_RET_STS_ERROR ;
276: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
277:
278: WHEN ERROR_RETRIEVE_SOURCE_MESSAGE THEN
272: rollback to IEM_MAIL_REROUTE_PVT;
273: FND_MESSAGE.SET_NAME('IEM','IEM_NO_DEFAULT_RESOURCE_ID');
274: FND_MSG_PUB.Add;
275: x_return_status := FND_API.G_RET_STS_ERROR ;
276: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
277:
278: WHEN ERROR_RETRIEVE_SOURCE_MESSAGE THEN
279: rollback to IEM_MAIL_REROUTE_PVT;
280: FND_MESSAGE.SET_NAME('IEM','IEM_ERROR_RETRIEVE_SOURCE_MSG');
277:
278: WHEN ERROR_RETRIEVE_SOURCE_MESSAGE THEN
279: rollback to IEM_MAIL_REROUTE_PVT;
280: FND_MESSAGE.SET_NAME('IEM','IEM_ERROR_RETRIEVE_SOURCE_MSG');
281: FND_MSG_PUB.Add;
282: x_return_status := FND_API.G_RET_STS_ERROR ;
283: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
284:
285:
279: rollback to IEM_MAIL_REROUTE_PVT;
280: FND_MESSAGE.SET_NAME('IEM','IEM_ERROR_RETRIEVE_SOURCE_MSG');
281: FND_MSG_PUB.Add;
282: x_return_status := FND_API.G_RET_STS_ERROR ;
283: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
284:
285:
286: WHEN FND_API.G_EXC_ERROR THEN
287: rollback to IEM_MAIL_REROUTE_PVT;
285:
286: WHEN FND_API.G_EXC_ERROR THEN
287: rollback to IEM_MAIL_REROUTE_PVT;
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: FND_MSG_PUB.Count_And_Get
290: ( p_count => x_msg_count,
291: p_data => x_msg_data
292: );
293:
293:
294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: rollback to IEM_MAIL_REROUTE_PVT;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
297: FND_MSG_PUB.Count_And_Get
298: ( p_count => x_msg_count,
299: p_data => x_msg_data
300: );
301: WHEN OTHERS then
300: );
301: WHEN OTHERS then
302: rollback to IEM_MAIL_REROUTE_PVT;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level
305: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
306: THEN
307: FND_MSG_PUB.Add_Exc_Msg
308: ( G_PKG_NAME ,
301: WHEN OTHERS then
302: rollback to IEM_MAIL_REROUTE_PVT;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level
305: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
306: THEN
307: FND_MSG_PUB.Add_Exc_Msg
308: ( G_PKG_NAME ,
309: l_api_name
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level
305: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
306: THEN
307: FND_MSG_PUB.Add_Exc_Msg
308: ( G_PKG_NAME ,
309: l_api_name
310: );
311: END IF;
308: ( G_PKG_NAME ,
309: l_api_name
310: );
311: END IF;
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count ,
314: p_data => x_msg_data
315: );
316: END IEM_MAIL_REROUTE_CLASS;
355: END IF;
356: -- Initialize message list if p_init_msg_list is set to TRUE.
357: IF p_init_msg_list ='T'
358: THEN
359: FND_MSG_PUB.initialize;
360: END IF;
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363: IEM_REROUTING_HISTS_PVT.CREATE_ITEM (p_api_version_number=>1.0,
422: COMMIT WORK;
423: END IF;
424: COMMIT;
425: -- Standard callto get message count and if count is 1, get message info.
426: FND_MSG_PUB.Count_And_Get
427: ( p_count => x_msg_count,
428: p_data => x_msg_data
429: );
430: EXCEPTION WHEN INSERT_HIST_EXCEPTION THEN
429: );
430: EXCEPTION WHEN INSERT_HIST_EXCEPTION THEN
431: rollback to IEM_MAIL_REROUTE_PVT;
432: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTE_INSERT_FAILS');
433: FND_MSG_PUB.Add;
434: x_return_status := FND_API.G_RET_STS_ERROR ;
435: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
436:
437: WHEN NO_DATA_FOUND THEN
431: rollback to IEM_MAIL_REROUTE_PVT;
432: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTE_INSERT_FAILS');
433: FND_MSG_PUB.Add;
434: x_return_status := FND_API.G_RET_STS_ERROR ;
435: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
436:
437: WHEN NO_DATA_FOUND THEN
438: rollback to IEM_MAIL_REROUTE_PVT;
439: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_REROUTE_RECORD');
436:
437: WHEN NO_DATA_FOUND THEN
438: rollback to IEM_MAIL_REROUTE_PVT;
439: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_REROUTE_RECORD');
440: FND_MSG_PUB.Add;
441: x_return_status := FND_API.G_RET_STS_ERROR ;
442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
443: WHEN REROUTING_FAILS THEN
444: rollback to IEM_MAIL_REROUTE_PVT;
438: rollback to IEM_MAIL_REROUTE_PVT;
439: FND_MESSAGE.SET_NAME('IEM','IEM_INVALID_REROUTE_RECORD');
440: FND_MSG_PUB.Add;
441: x_return_status := FND_API.G_RET_STS_ERROR ;
442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
443: WHEN REROUTING_FAILS THEN
444: rollback to IEM_MAIL_REROUTE_PVT;
445: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTING_FAILS');
446: FND_MSG_PUB.Add;
442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
443: WHEN REROUTING_FAILS THEN
444: rollback to IEM_MAIL_REROUTE_PVT;
445: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTING_FAILS');
446: FND_MSG_PUB.Add;
447: x_return_status := FND_API.G_RET_STS_ERROR ;
448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
449:
450: WHEN FND_API.G_EXC_ERROR THEN
444: rollback to IEM_MAIL_REROUTE_PVT;
445: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTING_FAILS');
446: FND_MSG_PUB.Add;
447: x_return_status := FND_API.G_RET_STS_ERROR ;
448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
449:
450: WHEN FND_API.G_EXC_ERROR THEN
451: rollback to IEM_MAIL_REROUTE_PVT;
452: x_return_status := FND_API.G_RET_STS_ERROR ;
449:
450: WHEN FND_API.G_EXC_ERROR THEN
451: rollback to IEM_MAIL_REROUTE_PVT;
452: x_return_status := FND_API.G_RET_STS_ERROR ;
453: FND_MSG_PUB.Count_And_Get
454: ( p_count => x_msg_count,
455: p_data => x_msg_data
456: );
457:
457:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
459: rollback to IEM_MAIL_REROUTE_PVT;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
461: FND_MSG_PUB.Count_And_Get
462: ( p_count => x_msg_count,
463: p_data => x_msg_data
464: );
465: WHEN OTHERS then
464: );
465: WHEN OTHERS then
466: rollback to IEM_MAIL_REROUTE_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: IF FND_MSG_PUB.Check_Msg_Level
469: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
470: THEN
471: FND_MSG_PUB.Add_Exc_Msg
472: ( G_PKG_NAME ,
465: WHEN OTHERS then
466: rollback to IEM_MAIL_REROUTE_PVT;
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: IF FND_MSG_PUB.Check_Msg_Level
469: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
470: THEN
471: FND_MSG_PUB.Add_Exc_Msg
472: ( G_PKG_NAME ,
473: l_api_name
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: IF FND_MSG_PUB.Check_Msg_Level
469: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
470: THEN
471: FND_MSG_PUB.Add_Exc_Msg
472: ( G_PKG_NAME ,
473: l_api_name
474: );
475: END IF;
472: ( G_PKG_NAME ,
473: l_api_name
474: );
475: END IF;
476: FND_MSG_PUB.Count_And_Get
477: ( p_count => x_msg_count ,
478: p_data => x_msg_data
479: );
480: END IEM_MAIL_REROUTE_ACCOUNT;
505: END IF;
506: -- Initialize message list if p_init_msg_list is set to TRUE.
507: IF p_init_msg_list ='T'
508: THEN
509: FND_MSG_PUB.initialize;
510: END IF;
511: x_return_status := FND_API.G_RET_STS_SUCCESS;
512: IF p_msg_ids_tbl.count>0 THEN
513: FOR i IN p_msg_ids_tbl.first..p_msg_ids_tbl.last LOOP
527: END IF;
528: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
529: rollback to IEM_UPD_GRP_QUEMSG_PVT;
530: x_return_status := FND_API.G_RET_STS_ERROR ;
531: FND_MSG_PUB.Count_And_Get
532: ( p_count => x_msg_count,
533: p_data => x_msg_data
534: );
535:
535:
536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: rollback to IEM_UPD_GRP_QUEMSG_PVT;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539: FND_MSG_PUB.Count_And_Get
540: ( p_count => x_msg_count,
541: p_data => x_msg_data
542: );
543: WHEN OTHERS then
542: );
543: WHEN OTHERS then
544: rollback to IEM_UPD_GRP_QUEMSG_PVT;
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: IF FND_MSG_PUB.Check_Msg_Level
547: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.Add_Exc_Msg
550: ( G_PKG_NAME ,
543: WHEN OTHERS then
544: rollback to IEM_UPD_GRP_QUEMSG_PVT;
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: IF FND_MSG_PUB.Check_Msg_Level
547: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.Add_Exc_Msg
550: ( G_PKG_NAME ,
551: l_api_name
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: IF FND_MSG_PUB.Check_Msg_Level
547: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.Add_Exc_Msg
550: ( G_PKG_NAME ,
551: l_api_name
552: );
553: END IF;
550: ( G_PKG_NAME ,
551: l_api_name
552: );
553: END IF;
554: FND_MSG_PUB.Count_And_Get
555: ( p_count => x_msg_count ,
556: p_data => x_msg_data
557: );
558: END IEM_UPD_GRP_QUEMSG;