60: BEGIN
61: -- Standard Start of API savepoint
62: SAVEPOINT IEM_MAIL_REROUTE_PVT;
63: -- Standard call to check for call compatibility.
64: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
65: p_api_version_number,
66: l_api_name,
67: G_PKG_NAME)
68: THEN
65: p_api_version_number,
66: l_api_name,
67: G_PKG_NAME)
68: THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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' ,
79: p_commit=>'F' ,
80: p_message_id=>p_msgid,
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
244: rollback to IEM_MAIL_REROUTE_PVT;
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
251: rollback to IEM_MAIL_REROUTE_PVT;
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
258: rollback to IEM_MAIL_REROUTE_PVT;
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
265: rollback to IEM_MAIL_REROUTE_PVT;
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
272: rollback to IEM_MAIL_REROUTE_PVT;
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
279: rollback to IEM_MAIL_REROUTE_PVT;
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:
286: WHEN FND_API.G_EXC_ERROR THEN
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;
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: FND_MSG_PUB.Count_And_Get
290: ( p_count => x_msg_count,
284:
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: );
290: ( p_count => x_msg_count,
291: p_data => x_msg_data
292: );
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,
292: );
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: );
299: p_data => x_msg_data
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
345: BEGIN
346: -- Standard Start of API savepoint
347: SAVEPOINT IEM_MAIL_REROUTE_PVT;
348: -- Standard call to check for call compatibility.
349: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
350: p_api_version_number,
351: l_api_name,
352: G_PKG_NAME)
353: THEN
350: p_api_version_number,
351: l_api_name,
352: G_PKG_NAME)
353: THEN
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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,
364: p_init_msg_list=>'F' ,
365: p_commit=>'F' ,
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
438: rollback to IEM_MAIL_REROUTE_PVT;
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;
445: FND_MESSAGE.SET_NAME('IEM','IEM_REROUTING_FAILS');
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
451: rollback to IEM_MAIL_REROUTE_PVT;
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 ;
453: FND_MSG_PUB.Count_And_Get
454: ( p_count => x_msg_count,
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 ;
453: FND_MSG_PUB.Count_And_Get
454: ( p_count => x_msg_count,
455: p_data => x_msg_data
456: );
454: ( p_count => x_msg_count,
455: p_data => x_msg_data
456: );
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,
456: );
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: );
463: p_data => x_msg_data
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
495: BEGIN
496: -- Standard Start of API savepoint
497: SAVEPOINT IEM_UPD_GRP_QUEMSG_PVT;
498: -- Standard call to check for call compatibility.
499: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
500: p_api_version_number,
501: l_api_name,
502: G_PKG_NAME)
503: THEN
500: p_api_version_number,
501: l_api_name,
502: G_PKG_NAME)
503: THEN
504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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
514: update iem_rt_proc_emails
515: set group_id=p_group_id
524: -- Standard Check Of p_commit.
525: IF p_commit='T' THEN
526: COMMIT WORK;
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,
526: COMMIT WORK;
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: );
532: ( p_count => x_msg_count,
533: p_data => x_msg_data
534: );
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,
534: );
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: );
541: p_data => x_msg_data
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