479: p_batch_party_id IN NUMBER,
480: x_return_status IN OUT NOCOPY VARCHAR2
481: )
482: IS
483: l_dup_id iby_account_owners.account_owner_party_id%TYPE := NULL;
484: l_merge_reason VARCHAR2(30);
485:
486: CURSOR c_dupeba
487: (ci_owner_id IN iby_account_owners.account_owner_id%TYPE,
483: l_dup_id iby_account_owners.account_owner_party_id%TYPE := NULL;
484: l_merge_reason VARCHAR2(30);
485:
486: CURSOR c_dupeba
487: (ci_owner_id IN iby_account_owners.account_owner_id%TYPE,
488: ci_party_id IN iby_account_owners.account_owner_party_id%TYPE)
489: IS
490: SELECT account_owner_id
491: FROM iby_account_owners mto,
484: l_merge_reason VARCHAR2(30);
485:
486: CURSOR c_dupeba
487: (ci_owner_id IN iby_account_owners.account_owner_id%TYPE,
488: ci_party_id IN iby_account_owners.account_owner_party_id%TYPE)
489: IS
490: SELECT account_owner_id
491: FROM iby_account_owners mto,
492: (SELECT ext_bank_account_id
487: (ci_owner_id IN iby_account_owners.account_owner_id%TYPE,
488: ci_party_id IN iby_account_owners.account_owner_party_id%TYPE)
489: IS
490: SELECT account_owner_id
491: FROM iby_account_owners mto,
492: (SELECT ext_bank_account_id
493: FROM iby_account_owners WHERE (account_owner_id = ci_owner_id)) mfrom
494: WHERE
495: mto.account_owner_party_id = ci_party_id
489: IS
490: SELECT account_owner_id
491: FROM iby_account_owners mto,
492: (SELECT ext_bank_account_id
493: FROM iby_account_owners WHERE (account_owner_id = ci_owner_id)) mfrom
494: WHERE
495: mto.account_owner_party_id = ci_party_id
496: AND mto.ext_bank_account_id = mfrom.ext_bank_account_id;
497: --AND (NVL(mto.end_date,SYSDATE+10) > SYSDATE);
529:
530: iby_debug_pub.add('duplicate account owner:='|| l_dup_id,
531: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
532:
533: UPDATE iby_account_owners
534: SET account_owner_party_id = DECODE(l_dup_id, NULL,p_to_id, account_owner_party_id),
535: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
536: last_update_date = hz_utility_pub.last_update_date,
537: last_updated_by = hz_utility_pub.user_id,