168: END IF;
169:
170: -- Initialize message list if p_init_msg_list is set to TRUE.
171: IF FND_API.to_Boolean( p_init_msg_list ) THEN
172: FND_MSG_PUB.initialize;
173: END IF;
174:
175: -- Initialize API return status to success
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: -- End of API Body
194:
195: -- Standard call to get message count and if count is 1, get
196: --message info.
197: FND_MSG_PUB.Count_And_Get
198: ( p_count => x_msg_count ,
199: p_data => x_msg_data
200: );
201:
202: EXCEPTION
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
205:
206: FND_MSG_PUB.Count_And_Get
207: ( p_count => x_msg_count ,
208: p_data => x_msg_data
209: );
210:
210:
211: WHEN OTHERS THEN
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
213:
214: IF FND_MSG_PUB.Check_Msg_Level
215: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: FND_MSG_PUB.Add_Exc_Msg
218: ( G_PKG_NAME ,
211: WHEN OTHERS THEN
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
213:
214: IF FND_MSG_PUB.Check_Msg_Level
215: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: FND_MSG_PUB.Add_Exc_Msg
218: ( G_PKG_NAME ,
219: l_api_name
213:
214: IF FND_MSG_PUB.Check_Msg_Level
215: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: FND_MSG_PUB.Add_Exc_Msg
218: ( G_PKG_NAME ,
219: l_api_name
220: );
221: END IF;
219: l_api_name
220: );
221: END IF;
222:
223: FND_MSG_PUB.Count_And_Get
224: ( p_count => x_msg_count ,
225: p_data => x_msg_data
226: );
227:
293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294: END IF;
295: -- Initialize message list if p_init_msg_list is set to TRUE.
296: IF FND_API.to_Boolean( p_init_msg_list ) THEN
297: FND_MSG_PUB.initialize;
298: END IF;
299:
300: -- Initialize API return status to success
301: x_return_status := FND_API.G_RET_STS_SUCCESS;
513: -- End of API Body
514:
515: -- Standard call to get message count and if count is 1,
516: --get message info.
517: FND_MSG_PUB.Count_And_Get
518: ( p_count => x_msg_count ,
519: p_data => x_msg_data
520: );
521:
527: fnd_message.set_token('EVENT_NAME', p_event_name);
528: fnd_message.set_token('EVENT_KEY', p_event_key);
529: l_mesg_text := fnd_message.get();
530:
531: FND_MSG_PUB.Add_Exc_Msg
532: ( G_PKG_NAME ,
533: l_api_name ,
534: l_mesg_text
535: );
532: ( G_PKG_NAME ,
533: l_api_name ,
534: l_mesg_text
535: );
536: FND_MSG_PUB.Count_And_Get
537: ( p_count => x_msg_count ,
538: p_data => x_msg_data
539: );
540:
546: fnd_message.set_token('EVENT_KEY', p_event_key);
547: l_mesg_text := fnd_message.get();
548:
549:
550: FND_MSG_PUB.Add_Exc_Msg
551: ( G_PKG_NAME ,
552: l_api_name ,
553: l_mesg_text
554: );
551: ( G_PKG_NAME ,
552: l_api_name ,
553: l_mesg_text
554: );
555: FND_MSG_PUB.Count_And_Get
556: ( p_count => x_msg_count ,
557: p_data => x_msg_data
558: );
559:
564: fnd_message.set_token('EVENT_NAME', p_event_name);
565: fnd_message.set_token('EVENT_KEY', p_event_key);
566: l_mesg_text := fnd_message.get();
567:
568: FND_MSG_PUB.Add_Exc_Msg
569: ( G_PKG_NAME ,
570: l_api_name ,
571: l_mesg_text
572: );
570: l_api_name ,
571: l_mesg_text
572: );
573:
574: FND_MSG_PUB.Count_And_Get
575: ( p_count => x_msg_count ,
576: p_data => x_msg_data
577: );
578:
583: fnd_message.set_token('EVENT_NAME', p_event_name);
584: fnd_message.set_token('EVENT_KEY', p_event_key);
585: l_mesg_text := fnd_message.get();
586:
587: FND_MSG_PUB.Add_Exc_Msg
588: ( G_PKG_NAME ,
589: l_api_name ,
590: l_mesg_text
591: );
589: l_api_name ,
590: l_mesg_text
591: );
592:
593: FND_MSG_PUB.Count_And_Get
594: ( p_count => x_msg_count ,
595: p_data => x_msg_data
596: );
597:
602: fnd_message.set_token('EVENT_NAME', p_event_name);
603: fnd_message.set_token('EVENT_KEY', p_event_key);
604: l_mesg_text := fnd_message.get();
605:
606: FND_MSG_PUB.Add_Exc_Msg
607: ( G_PKG_NAME ,
608: l_api_name ,
609: l_mesg_text
610: );
608: l_api_name ,
609: l_mesg_text
610: );
611:
612: FND_MSG_PUB.Count_And_Get
613: ( p_count => x_msg_count ,
614: p_data => x_msg_data
615: );
616:
621: fnd_message.set_token('EVENT_NAME', p_event_name);
622: fnd_message.set_token('EVENT_KEY', p_event_key);
623: l_mesg_text := fnd_message.get();
624:
625: FND_MSG_PUB.Add_Exc_Msg
626: ( G_PKG_NAME ,
627: l_api_name ,
628: l_mesg_text
629: );
627: l_api_name ,
628: l_mesg_text
629: );
630:
631: FND_MSG_PUB.Count_And_Get
632: ( p_count => x_msg_count ,
633: p_data => x_msg_data
634: );
635:
641: fnd_message.set_token('EVENT_NAME', p_event_name);
642: fnd_message.set_token('EVENT_KEY', p_event_key);
643: l_mesg_text := fnd_message.get();
644:
645: FND_MSG_PUB.Add_Exc_Msg
646: ( G_PKG_NAME ,
647: l_api_name ,
648: l_mesg_text
649: );
647: l_api_name ,
648: l_mesg_text
649: );
650:
651: FND_MSG_PUB.Count_And_Get
652: ( p_count => x_msg_count ,
653: p_data => x_msg_data
654: );
655:
664: fnd_message.set_token('CHILD_KEY', l_event_key);
665:
666: l_mesg_text := fnd_message.get();
667:
668: FND_MSG_PUB.Add_Exc_Msg
669: ( G_PKG_NAME ,
670: l_api_name ,
671: l_mesg_text
672: );
670: l_api_name ,
671: l_mesg_text
672: );
673:
674: FND_MSG_PUB.Count_And_Get
675: ( p_count => x_msg_count ,
676: p_data => x_msg_data
677: );
678:
685: fnd_message.set_token('PARAM_NAME', l_error_param_name);
686: fnd_message.set_token('PARAM_VALUE', l_error_param_value);
687: l_mesg_text := fnd_message.get();
688:
689: FND_MSG_PUB.Add_Exc_Msg
690: ( G_PKG_NAME ,
691: l_api_name ,
692: l_mesg_text
693: );
691: l_api_name ,
692: l_mesg_text
693: );
694:
695: FND_MSG_PUB.Count_And_Get
696: ( p_count => x_msg_count ,
697: p_data => x_msg_data
698: );
699:
705: FND_MESSAGE.SET_TOKEN('EVENT_NAME', p_event_name);
706: fnd_message.set_token('EVENT_KEY', p_event_key);
707: l_mesg_text := fnd_message.get();
708:
709: FND_MSG_PUB.Add_Exc_Msg
710: ( G_PKG_NAME ,
711: l_api_name ,
712: l_mesg_text
713: );
711: l_api_name ,
712: l_mesg_text
713: );
714:
715: FND_MSG_PUB.Count_And_Get
716: ( p_count => x_msg_count ,
717: p_data => x_msg_data
718: );
719:
719:
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722:
723: FND_MSG_PUB.Count_And_Get
724: ( p_count => x_msg_count ,
725: p_data => x_msg_data
726: );
727:
727:
728: WHEN OTHERS THEN
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
730:
731: IF FND_MSG_PUB.Check_Msg_Level
732: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
733: THEN
734: FND_MSG_PUB.Add_Exc_Msg
735: ( G_PKG_NAME ,
728: WHEN OTHERS THEN
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
730:
731: IF FND_MSG_PUB.Check_Msg_Level
732: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
733: THEN
734: FND_MSG_PUB.Add_Exc_Msg
735: ( G_PKG_NAME ,
736: l_api_name
730:
731: IF FND_MSG_PUB.Check_Msg_Level
732: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
733: THEN
734: FND_MSG_PUB.Add_Exc_Msg
735: ( G_PKG_NAME ,
736: l_api_name
737: );
738: END IF;
736: l_api_name
737: );
738: END IF;
739:
740: FND_MSG_PUB.Count_And_Get
741: (p_count => x_msg_count ,
742: p_data => x_msg_data
743: );
744:
772: p_mode => null
773: );
774:
775: if (l_msg_count > 1) then
776: fnd_msg_pub.get
777: ( p_data => l_msg_data ,
778: p_msg_index_out => l_msg_index
779: );
780: end if;
834: END IF;
835:
836: -- Initialize message list if p_init_msg_list is set to TRUE.
837: IF FND_API.to_Boolean( p_init_msg_list ) THEN
838: FND_MSG_PUB.initialize;
839: END IF;
840:
841: -- Initialize API return status to success
842: x_return_status := FND_API.G_RET_STS_SUCCESS;
856: -- End of API Body
857:
858: -- Standard call to get message count and if count is 1, get
859: --message info.
860: FND_MSG_PUB.Count_And_Get
861: ( p_count => x_msg_count ,
862: p_data => x_msg_data
863: );
864:
868:
869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
871:
872: FND_MSG_PUB.Count_And_Get
873: ( p_count => x_msg_count ,
874: p_data => x_msg_data
875: );
876:
876:
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
879:
880: IF FND_MSG_PUB.Check_Msg_Level
881: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
882: THEN
883: FND_MSG_PUB.Add_Exc_Msg
884: ( G_PKG_NAME ,
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
879:
880: IF FND_MSG_PUB.Check_Msg_Level
881: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
882: THEN
883: FND_MSG_PUB.Add_Exc_Msg
884: ( G_PKG_NAME ,
885: l_api_name
879:
880: IF FND_MSG_PUB.Check_Msg_Level
881: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
882: THEN
883: FND_MSG_PUB.Add_Exc_Msg
884: ( G_PKG_NAME ,
885: l_api_name
886: );
887: END IF;
885: l_api_name
886: );
887: END IF;
888:
889: FND_MSG_PUB.Count_And_Get
890: ( p_count => x_msg_count ,
891: p_data => x_msg_data
892: );
893:
951: END IF;
952:
953: -- Initialize message list if p_init_msg_list is set to TRUE.
954: IF FND_API.to_Boolean( p_init_msg_list ) THEN
955: FND_MSG_PUB.initialize;
956: END IF;
957:
958: -- Initialize API return status to success
959: x_return_status := FND_API.G_RET_STS_SUCCESS;
1213: -- End of API Body
1214:
1215: -- Standard call to get message count and if count is 1,
1216: --get message info.
1217: FND_MSG_PUB.Count_And_Get
1218: ( p_count => x_msg_count ,
1219: p_data => x_msg_data
1220: );
1221:
1224: --no need to set the event status its been set
1225: --in the called API
1226: x_return_status := FND_API.G_RET_STS_ERROR ;
1227:
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count ,
1230: p_data => x_msg_data
1231: );
1232:
1237: -- rollback
1238:
1239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1240:
1241: FND_MSG_PUB.Count_And_Get
1242: ( p_count => x_msg_count ,
1243: p_data => x_msg_data
1244: );
1245:
1248: x_return_status := FND_API.G_RET_STS_ERROR;
1249: fnd_message.set_name('EDR','EDR_VAL_INVALID_CHILD_ID');
1250: fnd_message.set_token('ERECORD_ID', l_wrong_child_id);
1251: l_mesg_text := fnd_message.get();
1252: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
1253: l_api_name,
1254: l_mesg_text);
1255:
1256: FND_MSG_PUB.Count_And_Get
1252: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
1253: l_api_name,
1254: l_mesg_text);
1255:
1256: FND_MSG_PUB.Count_And_Get
1257: ( p_count => x_msg_count ,
1258: p_data => x_msg_data
1259: );
1260: --Bug 4122622: End
1264: -- rollback
1265:
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1267:
1268: IF FND_MSG_PUB.Check_Msg_Level
1269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1270: THEN
1271: FND_MSG_PUB.Add_Exc_Msg
1272: ( G_PKG_NAME ,
1265:
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1267:
1268: IF FND_MSG_PUB.Check_Msg_Level
1269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1270: THEN
1271: FND_MSG_PUB.Add_Exc_Msg
1272: ( G_PKG_NAME ,
1273: l_api_name
1267:
1268: IF FND_MSG_PUB.Check_Msg_Level
1269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1270: THEN
1271: FND_MSG_PUB.Add_Exc_Msg
1272: ( G_PKG_NAME ,
1273: l_api_name
1274: );
1275: END IF;
1273: l_api_name
1274: );
1275: END IF;
1276:
1277: FND_MSG_PUB.Count_And_Get
1278: (p_count => x_msg_count ,
1279: p_data => x_msg_data
1280: );
1281:
1508: END IF;
1509:
1510: -- Initialize message list if p_init_msg_list is set to TRUE.
1511: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1512: FND_MSG_PUB.initialize;
1513: END IF;
1514:
1515: -- Initialize API return status to success
1516: x_return_status := FND_API.G_RET_STS_SUCCESS;
1755: -- End of API Body
1756:
1757: -- Standard call to get message count and if count is 1,
1758: --get message info.
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_count => x_msg_count ,
1761: p_data => x_msg_data
1762: );
1763:
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: x_overall_status := EDR_CONSTANTS_GRP.g_error_status;
1767: x_return_status := FND_API.G_RET_STS_ERROR ;
1768:
1769: FND_MSG_PUB.Count_And_Get
1770: ( p_count => x_msg_count ,
1771: p_data => x_msg_data
1772: );
1773:
1776: -- do an unqualified rollback on getting this exception
1777:
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1779:
1780: FND_MSG_PUB.Count_And_Get
1781: ( p_count => x_msg_count ,
1782: p_data => x_msg_data
1783: );
1784:
1787: -- do an unqualified rollback on getting this exception
1788:
1789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1790:
1791: IF FND_MSG_PUB.Check_Msg_Level
1792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1793: THEN
1794: FND_MSG_PUB.Add_Exc_Msg
1795: ( G_PKG_NAME ,
1788:
1789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1790:
1791: IF FND_MSG_PUB.Check_Msg_Level
1792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1793: THEN
1794: FND_MSG_PUB.Add_Exc_Msg
1795: ( G_PKG_NAME ,
1796: l_api_name
1790:
1791: IF FND_MSG_PUB.Check_Msg_Level
1792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1793: THEN
1794: FND_MSG_PUB.Add_Exc_Msg
1795: ( G_PKG_NAME ,
1796: l_api_name
1797: );
1798: END IF;
1796: l_api_name
1797: );
1798: END IF;
1799:
1800: FND_MSG_PUB.Count_And_Get
1801: (p_count => x_msg_count ,
1802: p_data => x_msg_data
1803: );
1804:
1833: END IF;
1834:
1835: -- Initialize message list if p_init_msg_list is set to TRUE.
1836: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1837: FND_MSG_PUB.initialize;
1838: END IF;
1839:
1840: -- Initialize API return status to success
1841: x_return_status := FND_API.G_RET_STS_SUCCESS;
1853: i := p_events.NEXT(i);
1854: end loop;
1855: -- Standard call to get message count and if count is 1,
1856: --get message info.
1857: FND_MSG_PUB.Count_And_Get
1858: ( p_count => x_msg_count ,
1859: p_data => x_msg_data
1860: );
1861:
1862: EXCEPTION
1863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1865:
1866: FND_MSG_PUB.Count_And_Get
1867: ( p_count => x_msg_count ,
1868: p_data => x_msg_data
1869: );
1870:
1870:
1871: WHEN OTHERS THEN
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873:
1874: IF FND_MSG_PUB.Check_Msg_Level
1875: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1876: THEN
1877: FND_MSG_PUB.Add_Exc_Msg
1878: ( G_PKG_NAME ,
1871: WHEN OTHERS THEN
1872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1873:
1874: IF FND_MSG_PUB.Check_Msg_Level
1875: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1876: THEN
1877: FND_MSG_PUB.Add_Exc_Msg
1878: ( G_PKG_NAME ,
1879: l_api_name
1873:
1874: IF FND_MSG_PUB.Check_Msg_Level
1875: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1876: THEN
1877: FND_MSG_PUB.Add_Exc_Msg
1878: ( G_PKG_NAME ,
1879: l_api_name
1880: );
1881: END IF;
1879: l_api_name
1880: );
1881: END IF;
1882:
1883: FND_MSG_PUB.Count_And_Get
1884: (p_count => x_msg_count ,
1885: p_data => x_msg_data
1886: );
1887: