21: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
22:
23: BEGIN
24:
25: x_return_status := FND_API.G_RET_STS_SUCCESS;
26:
27: SELECT merge_reason_code
28: INTO l_merge_reason_code
29: FROM hz_merge_batch
89: WHEN OTHERS THEN
90: FND_MESSAGE.SET_NAME('AR','HZ_API_OTHERS_EXCEP');
91: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
92: FND_MSG_PUB.ADD;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94:
95: END merge_facility_contacts;
96:
97: END FTE_PARTY_MERGE;