113: );
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
117: FND_MSG_PUB.initialize;
118:
119: -- Initialize API return status to success
120: l_return_status := FND_API.G_RET_STS_SUCCESS;
121:
490: SQLERRM
491: );
492: END IF;
493:
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME,
491: );
492: END IF;
493:
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME,
499: l_api_name,
493:
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME,
499: l_api_name,
500: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
501: );
572: END IF;
573:
574: -- Initialize message list if p_init_msg_list is set to TRUE.
575: IF FND_API.to_Boolean( p_init_msg_list ) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- Initialize API return status to success
580: x_return_status := FND_API.G_RET_STS_SUCCESS;
606: );
607: END IF;
608:
609: -- Get message count and if 1, return message data.
610: FND_MSG_PUB.Count_And_Get
611: ( p_count => x_msg_count,
612: p_data => x_msg_data
613: );
614:
616:
617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
619:
620: FND_MSG_PUB.Count_And_Get
621: ( p_count => x_msg_count,
622: p_data => x_msg_data
623: );
624:
633: SQLERRM
634: );
635: END IF;
636:
637: IF FND_MSG_PUB.Check_Msg_Level
638: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
639: THEN
640: FND_MSG_PUB.Add_Exc_Msg
641: ( G_PKG_NAME,
634: );
635: END IF;
636:
637: IF FND_MSG_PUB.Check_Msg_Level
638: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
639: THEN
640: FND_MSG_PUB.Add_Exc_Msg
641: ( G_PKG_NAME,
642: l_api_name,
636:
637: IF FND_MSG_PUB.Check_Msg_Level
638: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
639: THEN
640: FND_MSG_PUB.Add_Exc_Msg
641: ( G_PKG_NAME,
642: l_api_name,
643: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
644: );
643: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
644: );
645: END IF;
646:
647: FND_MSG_PUB.Count_And_Get
648: ( p_count => x_msg_count,
649: p_data => x_msg_data
650: );
651:
715: END IF;
716:
717: -- Initialize message list if p_init_msg_list is set to TRUE.
718: IF FND_API.to_Boolean( p_init_msg_list ) THEN
719: FND_MSG_PUB.initialize;
720: END IF;
721:
722: -- Initialize API return status to success
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
790: );
791: END IF;
792:
793: -- Get message count and if 1, return message data.
794: FND_MSG_PUB.Count_And_Get
795: ( p_count => x_msg_count,
796: p_data => x_msg_data
797: );
798:
800:
801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
803:
804: FND_MSG_PUB.Count_And_Get
805: ( p_count => x_msg_count,
806: p_data => x_msg_data
807: );
808:
817: SQLERRM
818: );
819: END IF;
820:
821: IF FND_MSG_PUB.Check_Msg_Level
822: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
823: THEN
824: FND_MSG_PUB.Add_Exc_Msg
825: ( G_PKG_NAME,
818: );
819: END IF;
820:
821: IF FND_MSG_PUB.Check_Msg_Level
822: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
823: THEN
824: FND_MSG_PUB.Add_Exc_Msg
825: ( G_PKG_NAME,
826: l_api_name,
820:
821: IF FND_MSG_PUB.Check_Msg_Level
822: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
823: THEN
824: FND_MSG_PUB.Add_Exc_Msg
825: ( G_PKG_NAME,
826: l_api_name,
827: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
828: );
827: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
828: );
829: END IF;
830:
831: FND_MSG_PUB.Count_And_Get
832: ( p_count => x_msg_count,
833: p_data => x_msg_data
834: );
835:
890: END IF;
891:
892: -- Initialize message list if p_init_msg_list is set to TRUE.
893: IF FND_API.to_Boolean( p_init_msg_list ) THEN
894: FND_MSG_PUB.initialize;
895: END IF;
896:
897: -- Initialize API return status to success
898: x_return_status := FND_API.G_RET_STS_SUCCESS;
933: );
934: END IF;
935:
936: -- Get message count and if 1, return message data.
937: FND_MSG_PUB.Count_And_Get
938: ( p_count => x_msg_count,
939: p_data => x_msg_data
940: );
941:
943:
944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
946:
947: FND_MSG_PUB.Count_And_Get
948: ( p_count => x_msg_count,
949: p_data => x_msg_data
950: );
951:
960: SQLERRM
961: );
962: END IF;
963:
964: IF FND_MSG_PUB.Check_Msg_Level
965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
966: THEN
967: FND_MSG_PUB.Add_Exc_Msg
968: ( G_PKG_NAME,
961: );
962: END IF;
963:
964: IF FND_MSG_PUB.Check_Msg_Level
965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
966: THEN
967: FND_MSG_PUB.Add_Exc_Msg
968: ( G_PKG_NAME,
969: l_api_name,
963:
964: IF FND_MSG_PUB.Check_Msg_Level
965: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
966: THEN
967: FND_MSG_PUB.Add_Exc_Msg
968: ( G_PKG_NAME,
969: l_api_name,
970: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
971: );
970: '(' || TO_CHAR(l_stmt_num) || ') : ' || SUBSTRB (SQLERRM , 1 , 230)
971: );
972: END IF;
973:
974: FND_MSG_PUB.Count_And_Get
975: ( p_count => x_msg_count,
976: p_data => x_msg_data
977: );
978: