114: x_msg_count => l_count,
115: x_msg_data => l_data);
116:
117: -- Standard callto get message count and if count is 1, get message info.
118: FND_MSG_PUB.Count_And_Get
119: ( p_count => x_msg_count,
120: p_data => x_msg_data
121: );
122: EXCEPTION
121: );
122: EXCEPTION
123: WHEN FND_API.G_EXC_ERROR THEN
124: x_return_status := FND_API.G_RET_STS_ERROR ;
125: FND_MSG_PUB.Count_And_Get
126: ( p_count => x_msg_count,
127: p_data => x_msg_data
128: );
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: p_data => x_msg_data
128: );
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
131: FND_MSG_PUB.Count_And_Get
132: ( p_count => x_msg_count,
133: p_data => x_msg_data
134: );
135: WHEN OTHERS THEN
133: p_data => x_msg_data
134: );
135: WHEN OTHERS THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF FND_MSG_PUB.Check_Msg_Level
138: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
139: THEN
140: FND_MSG_PUB.Add_Exc_Msg
141: ( G_PKG_NAME ,
134: );
135: WHEN OTHERS THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF FND_MSG_PUB.Check_Msg_Level
138: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
139: THEN
140: FND_MSG_PUB.Add_Exc_Msg
141: ( G_PKG_NAME ,
142: l_api_name
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF FND_MSG_PUB.Check_Msg_Level
138: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
139: THEN
140: FND_MSG_PUB.Add_Exc_Msg
141: ( G_PKG_NAME ,
142: l_api_name
143: );
144: END IF;
141: ( G_PKG_NAME ,
142: l_api_name
143: );
144: END IF;
145: FND_MSG_PUB.Count_And_Get
146: ( p_count => x_msg_count ,
147: p_data => x_msg_data
148: );
149:
202: IF FND_API.To_Boolean(p_commit) THEN
203: COMMIT WORK;
204: END IF;
205: -- Standard callto get message count and if count is 1, get message info.
206: FND_MSG_PUB.Count_And_Get
207: ( p_count => x_msg_count,
208: p_data => x_msg_data
209: );
210: EXCEPTION
210: EXCEPTION
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO delete_item_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR ;
214: FND_MSG_PUB.Count_And_Get
215: ( p_count => x_msg_count,
216: p_data => x_msg_data
217: );
218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: );
218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
219: ROLLBACK TO delete_item_PVT;
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
221: FND_MSG_PUB.Count_And_Get
222: ( p_count => x_msg_count,
223: p_data => x_msg_data
224: );
225: WHEN OTHERS THEN
224: );
225: WHEN OTHERS THEN
226: ROLLBACK TO delete_item_PVT;
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: IF FND_MSG_PUB.Check_Msg_Level
229: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
230: THEN
231: FND_MSG_PUB.Add_Exc_Msg
232: ( G_PKG_NAME ,
225: WHEN OTHERS THEN
226: ROLLBACK TO delete_item_PVT;
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: IF FND_MSG_PUB.Check_Msg_Level
229: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
230: THEN
231: FND_MSG_PUB.Add_Exc_Msg
232: ( G_PKG_NAME ,
233: l_api_name
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: IF FND_MSG_PUB.Check_Msg_Level
229: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
230: THEN
231: FND_MSG_PUB.Add_Exc_Msg
232: ( G_PKG_NAME ,
233: l_api_name
234: );
235: END IF;
232: ( G_PKG_NAME ,
233: l_api_name
234: );
235: END IF;
236: FND_MSG_PUB.Count_And_Get
237: ( p_count => x_msg_count ,
238: p_data => x_msg_data
239: );
240:
277:
278: -- Initialize message list if p_init_msg_list is set to TRUE.
279: IF FND_API.to_Boolean( p_init_msg_list )
280: THEN
281: FND_MSG_PUB.initialize;
282: END IF;
283:
284: x_return_status := FND_API.G_RET_STS_SUCCESS;
285:
376: end if;
377:
378: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT1_CREATED');
379: FND_MESSAGE.SET_TOKEN('AGENT', l_error_username);
380: FND_MSG_PUB.ADD;
381: elsif l_data_change = false then
382: x_return_status := 'N'; -- indicate no data change
383: end if;
384:
386: IF FND_API.To_Boolean(p_commit) THEN
387: COMMIT WORK;
388: END IF;
389: -- Standard callto get message count and if count is 1, get message info.
390: FND_MSG_PUB.Count_And_Get
391: ( p_count => x_msg_count,
392: p_data => x_msg_data
393: );
394: EXCEPTION
396:
397: WHEN FND_API.G_EXC_ERROR THEN
398: ROLLBACK TO create_agntacct_by_agent_PVT;
399: x_return_status := FND_API.G_RET_STS_ERROR ;
400: FND_MSG_PUB.Count_And_Get
401: ( p_count => x_msg_count,
402: p_data => x_msg_data
403: );
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: );
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
405: ROLLBACK TO create_agntacct_by_agent_PVT;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: FND_MSG_PUB.Count_And_Get
408: ( p_count => x_msg_count,
409: p_data => x_msg_data
410: );
411: WHEN OTHERS THEN
410: );
411: WHEN OTHERS THEN
412: ROLLBACK TO create_agntacct_by_agent_PVT;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: IF FND_MSG_PUB.Check_Msg_Level
415: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg
418: ( G_PKG_NAME ,
411: WHEN OTHERS THEN
412: ROLLBACK TO create_agntacct_by_agent_PVT;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: IF FND_MSG_PUB.Check_Msg_Level
415: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg
418: ( G_PKG_NAME ,
419: l_api_name
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: IF FND_MSG_PUB.Check_Msg_Level
415: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg
418: ( G_PKG_NAME ,
419: l_api_name
420: );
421: END IF;
418: ( G_PKG_NAME ,
419: l_api_name
420: );
421: END IF;
422: FND_MSG_PUB.Count_And_Get
423: ( p_count => x_msg_count ,
424: p_data => x_msg_data
425: );
426:
477:
478: -- Initialize message list if p_init_msg_list is set to TRUE.
479: IF FND_API.to_Boolean( p_init_msg_list )
480: THEN
481: FND_MSG_PUB.initialize;
482: END IF;
483:
484: x_return_status := FND_API.G_RET_STS_SUCCESS;
485:
587: end if;
588:
589: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT1_DELETED');
590: FND_MESSAGE.SET_TOKEN('AGENT', l_error_username);
591: FND_MSG_PUB.ADD;
592:
593: end if;
594:
595: if l_error_username1 is not null then
603:
604: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGNTACCT9_DELETED');
605: FND_MESSAGE.SET_TOKEN('AGENT', l_error_username1);
606: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_account_name);
607: FND_MSG_PUB.Add;
608: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
609: end if;
610:
611: if l_error_username2 is not null then
604: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGNTACCT9_DELETED');
605: FND_MESSAGE.SET_TOKEN('AGENT', l_error_username1);
606: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_account_name);
607: FND_MSG_PUB.Add;
608: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
609: end if;
610:
611: if l_error_username2 is not null then
612: x_return_status := FND_API.G_RET_STS_ERROR;
619:
620: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT5_DELETED');
621: FND_MESSAGE.SET_TOKEN('AGENT', l_error_username2);
622: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_account_name);
623: FND_MSG_PUB.ADD;
624:
625: end if;
626:
627: if l_error_username is null and l_error_username1 is null and l_error_username2 is null and l_data_change=false then
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
640: EXCEPTION
641: WHEN FND_API.G_EXC_ERROR THEN
642: ROLLBACK TO delete_agntacct_by_agent_PVT;
643: x_return_status := FND_API.G_RET_STS_ERROR ;
644: FND_MSG_PUB.Count_And_Get
645: ( p_count => x_msg_count,
646: p_data => x_msg_data
647: );
648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
647: );
648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649: ROLLBACK TO delete_agntacct_by_agent_PVT;
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
651: FND_MSG_PUB.Count_And_Get
652: ( p_count => x_msg_count,
653: p_data => x_msg_data
654: );
655: WHEN OTHERS THEN
654: );
655: WHEN OTHERS THEN
656: ROLLBACK TO delete_agntacct_by_agent_PVT;
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
655: WHEN OTHERS THEN
656: ROLLBACK TO delete_agntacct_by_agent_PVT;
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
663: l_api_name
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
663: l_api_name
664: );
665: END IF;
662: ( G_PKG_NAME ,
663: l_api_name
664: );
665: END IF;
666: FND_MSG_PUB.Count_And_Get
667: ( p_count => x_msg_count ,
668: p_data => x_msg_data
669: );
670:
701:
702: -- Initialize message list if p_init_msg_list is set to TRUE.
703: IF FND_API.to_Boolean( p_init_msg_list )
704: THEN
705: FND_MSG_PUB.initialize;
706: END IF;
707:
708: x_return_status := FND_API.G_RET_STS_SUCCESS;
709:
722: IF l_return_status='N' THEN
723: l_return_status1 := 'N';
724: ELSIF l_return_status<>'S' and l_return_status<>'N' THEN
725: x_return_status := FND_API.G_RET_STS_ERROR ;
726: FND_MSG_PUB.Count_And_Get
727: ( p_count => x_msg_count,
728: p_data => x_msg_data
729: );
730: END IF;
742: IF l_return_status='N'and l_return_status1='N' THEN
743: x_return_status := 'N';
744: ELSIF l_return_status<>'S' and l_return_status<>'N' THEN
745: x_return_status := FND_API.G_RET_STS_ERROR ;
746: FND_MSG_PUB.Count_And_Get
747: ( p_count => x_msg_count,
748: p_data => x_msg_data
749: );
750: END IF;
754: IF FND_API.To_Boolean(p_commit) THEN
755: COMMIT WORK;
756: END IF;
757: -- Standard callto get message count and if count is 1, get message info.
758: FND_MSG_PUB.Count_And_Get
759: ( p_count => x_msg_count,
760: p_data => x_msg_data
761: );
762: EXCEPTION
762: EXCEPTION
763: WHEN NO_DATA_FOUND THEN
764: ROLLBACK TO agntacct_by_agent_wrap;
765: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_ACCOUNT_NOT_FOUND');
766: FND_MSG_PUB.Add;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
769:
770: WHEN FND_API.G_EXC_ERROR THEN
764: ROLLBACK TO agntacct_by_agent_wrap;
765: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_ACCOUNT_NOT_FOUND');
766: FND_MSG_PUB.Add;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
769:
770: WHEN FND_API.G_EXC_ERROR THEN
771: ROLLBACK TO agntacct_by_agent_wrap;
772: x_return_status := FND_API.G_RET_STS_ERROR ;
769:
770: WHEN FND_API.G_EXC_ERROR THEN
771: ROLLBACK TO agntacct_by_agent_wrap;
772: x_return_status := FND_API.G_RET_STS_ERROR ;
773: FND_MSG_PUB.Count_And_Get
774: ( p_count => x_msg_count,
775: p_data => x_msg_data
776: );
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776: );
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: ROLLBACK TO agntacct_by_agent_wrap;
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
780: FND_MSG_PUB.Count_And_Get
781: ( p_count => x_msg_count,
782: p_data => x_msg_data
783: );
784: WHEN OTHERS THEN
783: );
784: WHEN OTHERS THEN
785: ROLLBACK TO agntacct_by_agent_wrap;
786: x_return_status := FND_API.G_RET_STS_ERROR;
787: IF FND_MSG_PUB.Check_Msg_Level
788: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
789: THEN
790: FND_MSG_PUB.Add_Exc_Msg
791: ( G_PKG_NAME ,
784: WHEN OTHERS THEN
785: ROLLBACK TO agntacct_by_agent_wrap;
786: x_return_status := FND_API.G_RET_STS_ERROR;
787: IF FND_MSG_PUB.Check_Msg_Level
788: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
789: THEN
790: FND_MSG_PUB.Add_Exc_Msg
791: ( G_PKG_NAME ,
792: l_api_name
786: x_return_status := FND_API.G_RET_STS_ERROR;
787: IF FND_MSG_PUB.Check_Msg_Level
788: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
789: THEN
790: FND_MSG_PUB.Add_Exc_Msg
791: ( G_PKG_NAME ,
792: l_api_name
793: );
794: END IF;
791: ( G_PKG_NAME ,
792: l_api_name
793: );
794: END IF;
795: FND_MSG_PUB.Count_And_Get
796: ( p_count => x_msg_count ,
797: p_data => x_msg_data
798: );
799:
843:
844: -- Initialize message list if p_init_msg_list is set to TRUE.
845: IF FND_API.to_Boolean( p_init_msg_list )
846: THEN
847: FND_MSG_PUB.initialize;
848: END IF;
849:
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
851:
965: end if;
966:
967: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT2_CREATED');
968: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_error_email_user);
969: FND_MSG_PUB.ADD;
970: elsif l_data_change = false then
971: x_return_status := 'N'; -- indicate no data change
972: end if;
973:
975: IF FND_API.To_Boolean(p_commit) THEN
976: COMMIT WORK;
977: END IF;
978: -- Standard callto get message count and if count is 1, get message info.
979: FND_MSG_PUB.Count_And_Get
980: ( p_count => x_msg_count,
981: p_data => x_msg_data
982: );
983: EXCEPTION
983: EXCEPTION
984: WHEN USER_NULL_ERROR THEN
985: ROLLBACK TO create_agntacct_by_account_PVT;
986: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGENT_USER_NULL');
987: FND_MSG_PUB.Add;
988: x_return_status := FND_API.G_RET_STS_ERROR ;
989: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
990:
991: WHEN RESOURCE_INACTIVE_ERROR THEN
985: ROLLBACK TO create_agntacct_by_account_PVT;
986: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGENT_USER_NULL');
987: FND_MSG_PUB.Add;
988: x_return_status := FND_API.G_RET_STS_ERROR ;
989: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
990:
991: WHEN RESOURCE_INACTIVE_ERROR THEN
992: ROLLBACK TO create_agntacct_by_account_PVT;
993: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_RESOURCE_INACTIVE');
990:
991: WHEN RESOURCE_INACTIVE_ERROR THEN
992: ROLLBACK TO create_agntacct_by_account_PVT;
993: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_RESOURCE_INACTIVE');
994: FND_MSG_PUB.Add;
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
997:
998: WHEN FND_API.G_EXC_ERROR THEN
992: ROLLBACK TO create_agntacct_by_account_PVT;
993: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_RESOURCE_INACTIVE');
994: FND_MSG_PUB.Add;
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO create_agntacct_by_account_PVT;
1000: x_return_status := FND_API.G_RET_STS_ERROR ;
997:
998: WHEN FND_API.G_EXC_ERROR THEN
999: ROLLBACK TO create_agntacct_by_account_PVT;
1000: x_return_status := FND_API.G_RET_STS_ERROR ;
1001: FND_MSG_PUB.Count_And_Get
1002: ( p_count => x_msg_count,
1003: p_data => x_msg_data
1004: );
1005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: );
1005: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1006: ROLLBACK TO create_agntacct_by_account_PVT;
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1008: FND_MSG_PUB.Count_And_Get
1009: ( p_count => x_msg_count,
1010: p_data => x_msg_data
1011: );
1012: WHEN OTHERS THEN
1011: );
1012: WHEN OTHERS THEN
1013: ROLLBACK TO create_agntacct_by_account_PVT;
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: IF FND_MSG_PUB.Check_Msg_Level
1016: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1017: THEN
1018: FND_MSG_PUB.Add_Exc_Msg
1019: ( G_PKG_NAME ,
1012: WHEN OTHERS THEN
1013: ROLLBACK TO create_agntacct_by_account_PVT;
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: IF FND_MSG_PUB.Check_Msg_Level
1016: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1017: THEN
1018: FND_MSG_PUB.Add_Exc_Msg
1019: ( G_PKG_NAME ,
1020: l_api_name
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: IF FND_MSG_PUB.Check_Msg_Level
1016: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1017: THEN
1018: FND_MSG_PUB.Add_Exc_Msg
1019: ( G_PKG_NAME ,
1020: l_api_name
1021: );
1022: END IF;
1019: ( G_PKG_NAME ,
1020: l_api_name
1021: );
1022: END IF;
1023: FND_MSG_PUB.Count_And_Get
1024: ( p_count => x_msg_count ,
1025: p_data => x_msg_data
1026: );
1027:
1078:
1079: -- Initialize message list if p_init_msg_list is set to TRUE.
1080: IF FND_API.to_Boolean( p_init_msg_list )
1081: THEN
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085: x_return_status := FND_API.G_RET_STS_SUCCESS;
1086:
1196: end if;
1197:
1198: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT2_DELETED');
1199: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_error_email_user);
1200: FND_MSG_PUB.ADD;
1201:
1202: end if;
1203:
1204: if l_error_email_user1 is not null then
1211:
1212: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGNTACCT10_DELETED');
1213: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_error_email_user1);
1214: FND_MESSAGE.SET_TOKEN('AGENT', l_res_name);
1215: FND_MSG_PUB.Add;
1216: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1217: end if;
1218:
1219: if l_error_email_user2 is not null then
1212: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_AGNTACCT10_DELETED');
1213: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_error_email_user1);
1214: FND_MESSAGE.SET_TOKEN('AGENT', l_res_name);
1215: FND_MSG_PUB.Add;
1216: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1217: end if;
1218:
1219: if l_error_email_user2 is not null then
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1226:
1227: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_AGNTACCT6_DELETED');
1228: FND_MESSAGE.SET_TOKEN('ACCOUNT', l_error_email_user2);
1229: FND_MESSAGE.SET_TOKEN('AGENT', l_res_name);
1230: FND_MSG_PUB.ADD;
1231:
1232: end if;
1233:
1234: if l_error_email_user is null and l_error_email_user1 is null and l_error_email_user2 is null and l_data_change=false then
1239: IF FND_API.To_Boolean(p_commit) THEN
1240: COMMIT WORK;
1241: END IF;
1242: -- Standard callto get message count and if count is 1, get message info.
1243: FND_MSG_PUB.Count_And_Get
1244: ( p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );
1247: EXCEPTION
1247: EXCEPTION
1248: WHEN FND_API.G_EXC_ERROR THEN
1249: ROLLBACK TO delete_agntacct_by_account_PVT;
1250: x_return_status := FND_API.G_RET_STS_ERROR ;
1251: FND_MSG_PUB.Count_And_Get
1252: ( p_count => x_msg_count,
1253: p_data => x_msg_data
1254: );
1255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: );
1255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1256: ROLLBACK TO delete_agntacct_by_account_PVT;
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1258: FND_MSG_PUB.Count_And_Get
1259: ( p_count => x_msg_count,
1260: p_data => x_msg_data
1261: );
1262: WHEN OTHERS THEN
1261: );
1262: WHEN OTHERS THEN
1263: ROLLBACK TO delete_agntacct_by_account_PVT;
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: IF FND_MSG_PUB.Check_Msg_Level
1266: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1267: THEN
1268: FND_MSG_PUB.Add_Exc_Msg
1269: ( G_PKG_NAME ,
1262: WHEN OTHERS THEN
1263: ROLLBACK TO delete_agntacct_by_account_PVT;
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: IF FND_MSG_PUB.Check_Msg_Level
1266: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1267: THEN
1268: FND_MSG_PUB.Add_Exc_Msg
1269: ( G_PKG_NAME ,
1270: l_api_name
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: IF FND_MSG_PUB.Check_Msg_Level
1266: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1267: THEN
1268: FND_MSG_PUB.Add_Exc_Msg
1269: ( G_PKG_NAME ,
1270: l_api_name
1271: );
1272: END IF;
1269: ( G_PKG_NAME ,
1270: l_api_name
1271: );
1272: END IF;
1273: FND_MSG_PUB.Count_And_Get
1274: ( p_count => x_msg_count ,
1275: p_data => x_msg_data
1276: );
1277:
1312:
1313: -- Initialize message list if p_init_msg_list is set to TRUE.
1314: IF FND_API.to_Boolean( p_init_msg_list )
1315: THEN
1316: FND_MSG_PUB.initialize;
1317: END IF;
1318:
1319: x_return_status := FND_API.G_RET_STS_SUCCESS;
1320:
1331: IF l_return_status = 'N' THEN
1332: l_return_status1:='N';
1333: ELSIF l_return_status<>'S' and l_return_status<>'N' THEN
1334: x_return_status := FND_API.G_RET_STS_ERROR ;
1335: FND_MSG_PUB.Count_And_Get
1336: ( p_count => x_msg_count,
1337: p_data => x_msg_data
1338: );
1339: END IF;
1351: IF l_return_status='N'and l_return_status1='N' THEN
1352: x_return_status := 'N';
1353: ELSIF l_return_status<>'S' and l_return_status<>'N' THEN
1354: x_return_status := FND_API.G_RET_STS_ERROR ;
1355: FND_MSG_PUB.Count_And_Get
1356: ( p_count => x_msg_count,
1357: p_data => x_msg_data
1358: );
1359: END IF;
1363: IF FND_API.To_Boolean(p_commit) THEN
1364: COMMIT WORK;
1365: END IF;
1366: -- Standard callto get message count and if count is 1, get message info.
1367: FND_MSG_PUB.Count_And_Get
1368: ( p_count => x_msg_count,
1369: p_data => x_msg_data
1370: );
1371: EXCEPTION
1372:
1373: WHEN DB_LINK_NOT_FOUND THEN
1374: ROLLBACK TO agntacct_by_account_wrap;
1375: x_return_status := FND_API.G_RET_STS_ERROR ;
1376: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1377:
1378: WHEN FND_API.G_EXC_ERROR THEN
1379: ROLLBACK TO agntacct_by_account_wrap;
1380: x_return_status := FND_API.G_RET_STS_ERROR ;
1377:
1378: WHEN FND_API.G_EXC_ERROR THEN
1379: ROLLBACK TO agntacct_by_account_wrap;
1380: x_return_status := FND_API.G_RET_STS_ERROR ;
1381: FND_MSG_PUB.Count_And_Get
1382: ( p_count => x_msg_count,
1383: p_data => x_msg_data
1384: );
1385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1384: );
1385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1386: ROLLBACK TO agntacct_by_account_wrap;
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1388: FND_MSG_PUB.Count_And_Get
1389: ( p_count => x_msg_count,
1390: p_data => x_msg_data
1391: );
1392: WHEN OTHERS THEN
1391: );
1392: WHEN OTHERS THEN
1393: ROLLBACK TO agntacct_by_account_wrap;
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level
1396: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1397: THEN
1398: FND_MSG_PUB.Add_Exc_Msg
1399: ( G_PKG_NAME ,
1392: WHEN OTHERS THEN
1393: ROLLBACK TO agntacct_by_account_wrap;
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level
1396: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1397: THEN
1398: FND_MSG_PUB.Add_Exc_Msg
1399: ( G_PKG_NAME ,
1400: l_api_name
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level
1396: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1397: THEN
1398: FND_MSG_PUB.Add_Exc_Msg
1399: ( G_PKG_NAME ,
1400: l_api_name
1401: );
1402: END IF;
1399: ( G_PKG_NAME ,
1400: l_api_name
1401: );
1402: END IF;
1403: FND_MSG_PUB.Count_And_Get
1404: ( p_count => x_msg_count ,
1405: p_data => x_msg_data
1406: );
1407: