73:
74: IF p_from_FK_id <> p_to_FK_id THEN
75: IF p_parent_entity_name = 'HZ_PARTIES' THEN
76:
77: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
78: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
79:
80: Open C1;
81: Close C1;
74: IF p_from_FK_id <> p_to_FK_id THEN
75: IF p_parent_entity_name = 'HZ_PARTIES' THEN
76:
77: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
78: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
79:
80: Open C1;
81: Close C1;
82:
79:
80: Open C1;
81: Close C1;
82:
83: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
84: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
85:
86: /* Update the "From" Party_ID to be equal to the new target */
87: UPDATE XLE_REGISTRATIONS
80: Open C1;
81: Close C1;
82:
83: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
84: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
85:
86: /* Update the "From" Party_ID to be equal to the new target */
87: UPDATE XLE_REGISTRATIONS
88: SET issuing_authority_id = p_To_FK_id,
94: RETURN;
95:
96: ELSIF p_Parent_Entity_name = 'HZ_PARTY_SITES' THEN
97:
98: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
99: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
100:
101: Open C2;
102: Close C2;
95:
96: ELSIF p_Parent_Entity_name = 'HZ_PARTY_SITES' THEN
97:
98: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
99: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
100:
101: Open C2;
102: Close C2;
103:
100:
101: Open C2;
102: Close C2;
103:
104: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
105: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
106:
107: UPDATE XLE_REGISTRATIONS
108: SET issuing_authority_site_id = p_To_FK_id,
101: Open C2;
102: Close C2;
103:
104: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
105: fnd_message.set_token('TABLE_NAME', 'XLE_REGISTRATIONS', FALSE);
106:
107: UPDATE XLE_REGISTRATIONS
108: SET issuing_authority_site_id = p_To_FK_id,
109: LAST_UPDATED_BY = hz_utility_pub.user_id,
115: END IF;
116:
117: EXCEPTION
118: WHEN RESOURCE_BUSY THEN
119: FND_MESSAGE.SET_NAME('XLE','XLE_REGISTRATIONS_LOCK');
120: FND_MSG_PUB.ADD;
121: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
119: FND_MESSAGE.SET_NAME('XLE','XLE_REGISTRATIONS_LOCK');
120: FND_MSG_PUB.ADD;
121: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
124: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
125: FND_MSG_PUB.ADD;
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127:
120: FND_MSG_PUB.ADD;
121: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
124: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
125: FND_MSG_PUB.ADD;
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127:
128: END merge_registrations;
204: IF p_from_FK_id <> p_to_FK_id THEN
205:
206: IF p_parent_entity_name = 'HZ_PARTIES' THEN
207:
208: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
209: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
210:
211: Open C1;
212: Close C1;
205:
206: IF p_parent_entity_name = 'HZ_PARTIES' THEN
207:
208: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
209: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
210:
211: Open C1;
212: Close C1;
213:
210:
211: Open C1;
212: Close C1;
213:
214: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
215: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
216:
217: /* Update the "From" Party_ID to be equal to the new target */
218: UPDATE XLE_REG_FUNCTIONS
211: Open C1;
212: Close C1;
213:
214: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
215: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
216:
217: /* Update the "From" Party_ID to be equal to the new target */
218: UPDATE XLE_REG_FUNCTIONS
219: SET authority_id = p_To_FK_id,
224: RETURN;
225:
226: ELSIF p_Parent_Entity_name = 'HZ_PARTY_SITES' THEN
227:
228: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
229: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
230:
231: Open C2;
232: Close C2;
225:
226: ELSIF p_Parent_Entity_name = 'HZ_PARTY_SITES' THEN
227:
228: fnd_message.set_name('XLE', 'XLE_LOCKING_TABLE');
229: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
230:
231: Open C2;
232: Close C2;
233:
230:
231: Open C2;
232: Close C2;
233:
234: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
235: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
236:
237: UPDATE XLE_REG_FUNCTIONS
238: SET authority_site_id = p_To_FK_id,
231: Open C2;
232: Close C2;
233:
234: fnd_message.set_name('XLE', 'XLE_UPDATING_TABLE');
235: fnd_message.set_token('TABLE_NAME', 'XLE_REG_FUNCTIONS', FALSE);
236:
237: UPDATE XLE_REG_FUNCTIONS
238: SET authority_site_id = p_To_FK_id,
239: LAST_UPDATED_BY = hz_utility_pub.user_id,
244: END IF;
245: END IF;
246: EXCEPTION
247: WHEN RESOURCE_BUSY THEN
248: FND_MESSAGE.SET_NAME('XLE','XLE_REG_FUNCTIONS');
249: FND_MSG_PUB.ADD;
250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
251: WHEN OTHERS THEN
252: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
248: FND_MESSAGE.SET_NAME('XLE','XLE_REG_FUNCTIONS');
249: FND_MSG_PUB.ADD;
250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
251: WHEN OTHERS THEN
252: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
254: FND_MSG_PUB.ADD;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256:
249: FND_MSG_PUB.ADD;
250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
251: WHEN OTHERS THEN
252: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
253: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
254: FND_MSG_PUB.ADD;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256:
257:
282: BEGIN
283:
284: -- always veto legal entity merge
285:
286: fnd_message.set_name('XLE','XLE_LEGAL_ENTITY_VETO_MERGE');
287: fnd_msg_pub.ADD;
288: x_return_status := fnd_api.g_ret_sts_error ;
289:
290: EXCEPTION
288: x_return_status := fnd_api.g_ret_sts_error ;
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
293: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
294: FND_MSG_PUB.ADD;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: END merge_legal_entities;
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
293: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
294: FND_MSG_PUB.ADD;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: END merge_legal_entities;
297:
319: BEGIN
320:
321: -- always veto establishments merge
322:
323: fnd_message.set_name('XLE','XLE_ESTABLISHMENT_VETO_MERGE');
324: fnd_msg_pub.ADD;
325: x_return_status := fnd_api.g_ret_sts_error ;
326:
327: EXCEPTION
325: x_return_status := fnd_api.g_ret_sts_error ;
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
331: FND_MSG_PUB.ADD;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: END merge_establishments;
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: FND_MESSAGE.SET_NAME('XLE','HZ_API_OTHERS_EXCEP');
330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
331: FND_MSG_PUB.ADD;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: END merge_establishments;
334: