323:
324: IF p_from_fk_id <> p_to_fk_id THEN
325: BEGIN
326: IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
327: delete from as_changed_accounts_all
328: where customer_id = p_to_fk_id;
329:
330: UPDATE AS_CHANGED_ACCOUNTS_ALL
331: set object_version_number = nvl(object_version_number,0) + 1,
326: IF p_parent_entity_name = 'HZ_PARTIES' THEN -- merge party
327: delete from as_changed_accounts_all
328: where customer_id = p_to_fk_id;
329:
330: UPDATE AS_CHANGED_ACCOUNTS_ALL
331: set object_version_number = nvl(object_version_number,0) + 1,
332: customer_id = p_to_fk_id,
333: last_update_date = hz_utility_pub.last_update_date,
334: last_updated_by = hz_utility_pub.user_id,
340:
341:
342: ELSif p_parent_entity_name = 'HZ_PARTY_SITES' THEN -- merge party_site
343:
344: delete from as_changed_accounts_all b
345: where b.address_id=p_from_fk_id
346: and b.customer_id in
347: (select customer_id
348: from as_changed_accounts_all c
344: delete from as_changed_accounts_all b
345: where b.address_id=p_from_fk_id
346: and b.customer_id in
347: (select customer_id
348: from as_changed_accounts_all c
349: where c.address_id=p_to_fk_id) ;
350:
351:
352: UPDATE AS_CHANGED_ACCOUNTS_ALL
348: from as_changed_accounts_all c
349: where c.address_id=p_to_fk_id) ;
350:
351:
352: UPDATE AS_CHANGED_ACCOUNTS_ALL
353: set object_version_number = nvl(object_version_number,0) + 1,
354: address_id = p_to_fk_id,
355: last_update_date = hz_utility_pub.last_update_date,
356: last_updated_by = hz_utility_pub.user_id,
358: program_application_id = hz_utility_pub.program_application_id,
359: program_id = hz_utility_pub.program_id,
360: program_update_date = sysdate
361: where address_id = p_from_fk_id
362: and customer_id not in(select customer_id from as_changed_accounts_all
363: where address_id=p_to_fk_id) ;
364:
365: END IF;
366: EXCEPTION