642: END IF;
643:
644: -- Check p_init_msg_list
645: IF FND_API.to_Boolean( p_init_msg_list ) THEN
646: FND_MSG_PUB.initialize;
647: END IF;
648:
649: x_return_status := FND_API.G_RET_STS_SUCCESS;
650: --Bug4562698. Moved the Constructor to GET_PROFILE_INFO. Begin.
767: IEX_DEBUG_PUB.LogMessage('Unexpected Error:C_CUSTOMER_PROFILE_CUR - ' || SQLCODE || ' Mesg - ' || SQLERRM) ;
768: END IF;
769: ROLLBACK TO Get_Profile_Info_PVT;
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
772: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
773: END IF;
774: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
775: END ;
768: END IF;
769: ROLLBACK TO Get_Profile_Info_PVT;
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
772: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
773: END IF;
774: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
775: END ;
776:
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
772: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
773: END IF;
774: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
775: END ;
776:
777: BEGIN
778: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
895: IEX_DEBUG_PUB.LogMessage('Unexpected Error:C_CUSTOMER_PROFILE_CUR - ' || SQLCODE || ' Mesg - ' || SQLERRM) ;
896: END IF;
897: ROLLBACK TO Get_Profile_Info_PVT;
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
901: END IF;
902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
903: END ;
896: END IF;
897: ROLLBACK TO Get_Profile_Info_PVT;
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
901: END IF;
902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
903: END ;
904:
898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
901: END IF;
902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
903: END ;
904:
905: BEGIN
906:
993:
994: END IF;
995: ROLLBACK TO Get_Profile_Info_PVT;
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
998: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
999: END IF;
1000: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1001: END;
994: END IF;
995: ROLLBACK TO Get_Profile_Info_PVT;
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
998: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
999: END IF;
1000: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1001: END;
1002:
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
998: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
999: END IF;
1000: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1001: END;
1002:
1003: x_profile_rec := l_profile_rec ;
1004:
1007: COMMIT WORK;
1008: END IF;
1009:
1010: -- Standard call to get message count AND IF count is 1, get message info
1011: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1012: EXCEPTION
1013: WHEN FND_API.G_EXC_ERROR THEN
1014: ROLLBACK TO Get_Profile_Info_PVT;
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1012: EXCEPTION
1013: WHEN FND_API.G_EXC_ERROR THEN
1014: ROLLBACK TO Get_Profile_Info_PVT;
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: ROLLBACK TO Get_Profile_Info_PVT;
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019: ROLLBACK TO Get_Profile_Info_PVT;
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1022:
1023: WHEN OTHERS THEN
1024: ROLLBACK TO Get_Profile_Info_PVT;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1022:
1023: WHEN OTHERS THEN
1024: ROLLBACK TO Get_Profile_Info_PVT;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1027: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1028: END IF;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1030: END GET_PROFILE_INFO;
1023: WHEN OTHERS THEN
1024: ROLLBACK TO Get_Profile_Info_PVT;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1027: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1028: END IF;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1030: END GET_PROFILE_INFO;
1031:
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1026: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1027: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1028: END IF;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1030: END GET_PROFILE_INFO;
1031:
1032: BEGIN
1033: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;