[Home] [Help]
237: end;
238: end if;
239: END AHL_DI_SUPPLIER;
240:
241: -- Merge AHL_RECIPIENT_DOCUMENTS.RECIPIENT_PARTY_ID
242:
243: PROCEDURE AHL_DI_RECIPIENT_PARTY (
244: p_entity_name IN VARCHAR2,
245: p_from_id IN NUMBER,
252: x_return_status OUT NOCOPY VARCHAR2)
253: IS
254: cursor c1 is
255: select 1
256: from ahl_recipient_documents
257: where recipient_party_id = p_from_fk_id
258: for update nowait;
259:
260:
297: -- dependent record exists on the new parent. If a duplicate exists then do
298: -- not transfer and return the id of the duplicate record as the Merged To Id
299:
300:
301: -- In the case of AHL_RECIPIENT_DOCUMENTS table, if recipient party id 1000 got merged to recipient party id 2000
302: -- then, we have to update all records with recipient_party_id = 1000 to 2000
303:
304: if p_from_fk_id <> p_to_fk_id then
305: begin
304: if p_from_fk_id <> p_to_fk_id then
305: begin
306: -- obtain lock on records to be updated.
307: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
308: arp_message.set_token('TABLE_NAME', 'AHL_RECIPIENT_DOCUMENTS', FALSE);
309:
310: open c1;
311: close c1;
312:
309:
310: open c1;
311: close c1;
312:
313: update ahl_recipient_documents
314: set recipient_party_id = p_to_fk_id,
315: last_update_date = SYSDATE,
316: last_updated_by = G_USER_ID,
317: last_update_login = G_LOGIN_ID
325: exception
326: when resource_busy then
327: arp_message.set_line(g_proc_name || '.' || l_api_name ||
328: '; Could not obtain lock for records in table ' ||
329: 'AHL_RECIPIENT_DOCUMENTS for recipient_party_id = ' || p_from_fk_id );
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: raise;
332:
333: when others then