537:
538: -- Initialize message list if p_init_msg_list is set to TRUE
539:
540: if FND_API.to_Boolean (p_init_msg_list) then
541: FND_MSG_PUB.initialize;
542: end if;
543:
544:
545: -- Call Private Function
552:
553:
554: -- Standard call to get message count and if count is 1, get message info
555:
556: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
557: p_data => p_msg_data);
558:
559:
560: EXCEPTION
561:
562: when FND_API.G_EXC_ERROR then
563: return FND_API.G_FALSE;
564:
565: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
566: p_data => p_msg_data);
567:
568:
569: when FND_API.G_EXC_UNEXPECTED_ERROR then
568:
569: when FND_API.G_EXC_UNEXPECTED_ERROR then
570: return FND_API.G_FALSE;
571:
572: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
573: p_data => p_msg_data);
574:
575:
576: when OTHERS then
575:
576: when OTHERS then
577: return FND_API.G_FALSE;
578:
579: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
580: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
581: l_api_name);
582: end if;
583:
576: when OTHERS then
577: return FND_API.G_FALSE;
578:
579: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
580: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
581: l_api_name);
582: end if;
583:
584: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
580: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
581: l_api_name);
582: end if;
583:
584: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
585: p_data => p_msg_data);
586:
587: END Check_Allowed;
588:
616:
617: -- Initialize message list if p_init_msg_list is set to TRUE
618:
619: if FND_API.to_Boolean (p_init_msg_list) then
620: FND_MSG_PUB.initialize;
621: end if;
622:
623:
624: -- Call Private Function
633:
634:
635: -- Standard call to get message count and if count is 1, get message info
636:
637: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
638: p_data => p_msg_data);
639:
640:
641: EXCEPTION
642:
643: when FND_API.G_EXC_ERROR then
644: return FND_API.G_FALSE;
645:
646: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
647: p_data => p_msg_data);
648:
649:
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
649:
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
651: return FND_API.G_FALSE;
652:
653: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
654: p_data => p_msg_data);
655:
656:
657: when OTHERS then
656:
657: when OTHERS then
658: return FND_API.G_FALSE;
659:
660: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
661: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
662: l_api_name);
663: end if;
664:
657: when OTHERS then
658: return FND_API.G_FALSE;
659:
660: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
661: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
662: l_api_name);
663: end if;
664:
665: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
661: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
662: l_api_name);
663: end if;
664:
665: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
666: p_data => p_msg_data);
667:
668: END Rev_Check_Allowed;
669: