524: END IF;
525:
526: -- Check p_init_msg_list
527: IF FND_API.to_Boolean( p_init_msg_list ) THEN
528: FND_MSG_PUB.initialize;
529: END IF;
530:
531: x_return_status := FND_API.G_RET_STS_SUCCESS;
532: --Bug4562698. Moved the Constructor to GET_PROFILE_INFO. Begin.
649: IEX_DEBUG_PUB.LogMessage('Unexpected Error:C_CUSTOMER_PROFILE_CUR - ' || SQLCODE || ' Mesg - ' || SQLERRM) ;
650: END IF;
651: ROLLBACK TO Get_Profile_Info_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
654: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
655: END IF;
656: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
657: END ;
650: END IF;
651: ROLLBACK TO Get_Profile_Info_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
654: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
655: END IF;
656: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
657: END ;
658:
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
654: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
655: END IF;
656: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
657: END ;
658:
659: BEGIN
660: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
741: IEX_DEBUG_PUB.LogMessage('Unexpected Error:C_CUSTOMER_PROFILE_CUR - ' || SQLCODE || ' Mesg - ' || SQLERRM) ;
742: END IF;
743: ROLLBACK TO Get_Profile_Info_PVT;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
746: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
747: END IF;
748: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
749: END ;
742: END IF;
743: ROLLBACK TO Get_Profile_Info_PVT;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
746: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
747: END IF;
748: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
749: END ;
750:
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
746: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
747: END IF;
748: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
749: END ;
750:
751: BEGIN
752:
804:
805: END IF;
806: ROLLBACK TO Get_Profile_Info_PVT;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
809: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
810: END IF;
811: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
812: END;
805: END IF;
806: ROLLBACK TO Get_Profile_Info_PVT;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
809: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
810: END IF;
811: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
812: END;
813:
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
809: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
810: END IF;
811: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
812: END;
813:
814: x_profile_rec := l_profile_rec ;
815:
818: COMMIT WORK;
819: END IF;
820:
821: -- Standard call to get message count AND IF count is 1, get message info
822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
823: EXCEPTION
824: WHEN FND_API.G_EXC_ERROR THEN
825: ROLLBACK TO Get_Profile_Info_PVT;
826: x_return_status := FND_API.G_RET_STS_ERROR;
823: EXCEPTION
824: WHEN FND_API.G_EXC_ERROR THEN
825: ROLLBACK TO Get_Profile_Info_PVT;
826: x_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
828:
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: ROLLBACK TO Get_Profile_Info_PVT;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828:
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: ROLLBACK TO Get_Profile_Info_PVT;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
833:
834: WHEN OTHERS THEN
835: ROLLBACK TO Get_Profile_Info_PVT;
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
833:
834: WHEN OTHERS THEN
835: ROLLBACK TO Get_Profile_Info_PVT;
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
838: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
839: END IF;
840: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
841: END GET_PROFILE_INFO;
834: WHEN OTHERS THEN
835: ROLLBACK TO Get_Profile_Info_PVT;
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
838: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
839: END IF;
840: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
841: END GET_PROFILE_INFO;
842:
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
838: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
839: END IF;
840: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
841: END GET_PROFILE_INFO;
842:
843: BEGIN
844: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;