485: L_ORGANIZATION_REC.PARTY_REC.PARTY_ID := P_MERGE_TO_PARTY_ID;
486: X_organization_rec := l_organization_rec;
487: EXCEPTION
488: WHEN OTHERS THEN
489: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
490: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
491: FND_MSG_PUB.ADD;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493:
486: X_organization_rec := l_organization_rec;
487: EXCEPTION
488: WHEN OTHERS THEN
489: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
490: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
491: FND_MSG_PUB.ADD;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493:
494: End construct_organization_rec;
801: L_PERSON_REC.PARTY_REC.PARTY_ID := P_MERGE_TO_PARTY_ID;
802: X_person_rec := l_person_rec;
803: EXCEPTION
804: WHEN OTHERS THEN
805: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
806: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
807: FND_MSG_PUB.ADD;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: end construct_person_rec;
802: X_person_rec := l_person_rec;
803: EXCEPTION
804: WHEN OTHERS THEN
805: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
806: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
807: FND_MSG_PUB.ADD;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: end construct_person_rec;
810:
946:
947:
948: EXCEPTION
949: WHEN OTHERS THEN
950: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
951: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
952: FND_MSG_PUB.ADD;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954:
947:
948: EXCEPTION
949: WHEN OTHERS THEN
950: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
951: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
952: FND_MSG_PUB.ADD;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954:
955: end do_profile_attribute_merge;
1536: end loop;
1537:
1538: EXCEPTION
1539: WHEN OTHERS THEN
1540: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1541: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1542: FND_MSG_PUB.ADD;
1543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1544:
1537:
1538: EXCEPTION
1539: WHEN OTHERS THEN
1540: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1541: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1542: FND_MSG_PUB.ADD;
1543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1544:
1545: end;
1611: x_return_status := FND_API.G_RET_STS_SUCCESS;
1612:
1613: if p_entity_name not in ('HZ_ORGANIZATION_PROFILES','HZ_PERSON_PROFILES')
1614: then
1615: FND_MESSAGE.SET_NAME( 'AR', 'HZ_INVALID_ENTITY_NAME' );
1616: FND_MSG_PUB.ADD;
1617: RAISE FND_API.G_EXC_ERROR;
1618: end if;
1619:
1810:
1811: WHEN OTHERS THEN
1812: ROLLBACK TO create_merge_attributes_pvt;
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1814: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1815: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1816: FND_MSG_PUB.ADD;
1817: FND_MSG_PUB.Count_And_Get(
1818: p_encoded => FND_API.G_FALSE,
1811: WHEN OTHERS THEN
1812: ROLLBACK TO create_merge_attributes_pvt;
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1814: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1815: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1816: FND_MSG_PUB.ADD;
1817: FND_MSG_PUB.Count_And_Get(
1818: p_encoded => FND_API.G_FALSE,
1819: p_count => x_msg_count,
1909:
1910: IF (l_object_version_number <> px_object_version_number) THEN
1911: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1912: -- row has been changed by another user.
1913: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1914: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_MERGE_ENTITY_ATTRIBUTES');
1915: FND_MSG_PUB.ADD;
1916: RAISE FND_API.G_EXC_ERROR;
1917: END IF;
1910: IF (l_object_version_number <> px_object_version_number) THEN
1911: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1912: -- row has been changed by another user.
1913: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1914: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_MERGE_ENTITY_ATTRIBUTES');
1915: FND_MSG_PUB.ADD;
1916: RAISE FND_API.G_EXC_ERROR;
1917: END IF;
1918: END IF;
1991:
1992: WHEN OTHERS THEN
1993: ROLLBACK TO update_merge_attributes_pvt;
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1995: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1996: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1997: FND_MSG_PUB.ADD;
1998: FND_MSG_PUB.Count_And_Get(
1999: p_encoded => FND_API.G_FALSE,
1992: WHEN OTHERS THEN
1993: ROLLBACK TO update_merge_attributes_pvt;
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1995: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1996: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1997: FND_MSG_PUB.ADD;
1998: FND_MSG_PUB.Count_And_Get(
1999: p_encoded => FND_API.G_FALSE,
2000: p_count => x_msg_count,
2272: end if; -- if l_count = 0
2273: end if;
2274: EXCEPTION
2275: WHEN OTHERS THEN
2276: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2277: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2278: FND_MSG_PUB.ADD;
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2280: end sync_merge_attributes;
2273: end if;
2274: EXCEPTION
2275: WHEN OTHERS THEN
2276: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2277: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2278: FND_MSG_PUB.ADD;
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2280: end sync_merge_attributes;
2281: