23: *----------------------------------------------------------------------------*/
24: Function Allow_merge(p_customer_id NUMBER,
25: p_duplicate_id NUMBER) Return Varchar2
26: IS
27: l_party_type HZ_PARTIES.PARTY_TYPE%TYPE;
28: l_party_id HZ_PARTIES.PARTY_ID%TYPE;
29: l_dup_party_id HZ_PARTIES.PARTY_ID%TYPE;
30: l_rel_party_id HZ_PARTIES.PARTY_ID%TYPE;
31: l_user_id FND_USER.USER_ID%TYPE;
24: Function Allow_merge(p_customer_id NUMBER,
25: p_duplicate_id NUMBER) Return Varchar2
26: IS
27: l_party_type HZ_PARTIES.PARTY_TYPE%TYPE;
28: l_party_id HZ_PARTIES.PARTY_ID%TYPE;
29: l_dup_party_id HZ_PARTIES.PARTY_ID%TYPE;
30: l_rel_party_id HZ_PARTIES.PARTY_ID%TYPE;
31: l_user_id FND_USER.USER_ID%TYPE;
32:
25: p_duplicate_id NUMBER) Return Varchar2
26: IS
27: l_party_type HZ_PARTIES.PARTY_TYPE%TYPE;
28: l_party_id HZ_PARTIES.PARTY_ID%TYPE;
29: l_dup_party_id HZ_PARTIES.PARTY_ID%TYPE;
30: l_rel_party_id HZ_PARTIES.PARTY_ID%TYPE;
31: l_user_id FND_USER.USER_ID%TYPE;
32:
33: CURSOR party_rel(p_party_id NUMBER) IS
26: IS
27: l_party_type HZ_PARTIES.PARTY_TYPE%TYPE;
28: l_party_id HZ_PARTIES.PARTY_ID%TYPE;
29: l_dup_party_id HZ_PARTIES.PARTY_ID%TYPE;
30: l_rel_party_id HZ_PARTIES.PARTY_ID%TYPE;
31: l_user_id FND_USER.USER_ID%TYPE;
32:
33: CURSOR party_rel(p_party_id NUMBER) IS
34: Select party_id
38:
39: Begin
40:
41: Select party_type,party_id into l_party_type,l_party_id
42: From hz_parties
43: Where party_id in (Select party_id from hz_cust_accounts
44: Where cust_account_id = p_customer_id);
45:
46: Select party_id into l_dup_party_id
43: Where party_id in (Select party_id from hz_cust_accounts
44: Where cust_account_id = p_customer_id);
45:
46: Select party_id into l_dup_party_id
47: From hz_parties
48: Where party_id in (Select party_id from hz_cust_accounts
49: Where cust_account_id = p_duplicate_id);
50:
51:
1135:
1136:
1137: if p_from_fk_id <> p_to_fk_id Then
1138:
1139: if p_parent_entity_name = 'HZ_PARTIES' Then
1140:
1141: --fix 2899235: delete
1142: delete IBE_ORD_ONECLICK_ALL
1143: where party_id = p_from_fk_id;
1338:
1339:
1340: if p_from_fk_id <> p_to_fk_id Then
1341:
1342: if p_parent_entity_name = 'HZ_PARTIES' Then
1343:
1344: --iterate each
1345: open merge_records(p_from_fk_id);
1346: loop
1489: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
1490: arp_message.set_token('TABLE_NAME', 'IBE_SH_QUOTE_ACCESS', FALSE);
1491: open find_account(p_to_fk_id);
1492: fetch find_account into l_to_cust_account_id ;
1493: if p_parent_entity_name = 'HZ_PARTIES' Then
1494: Open MERGE_FROM_SH;
1495: Loop
1496: Fetch MERGE_FROM_SH into l_quote_header_id, l_from_cust_account_id;
1497: EXIT When merge_from_sh%NOTFOUND;