[Home] [Help]
355: CURSOR c_batch_party_sites(cp_batch_party_id NUMBER) IS
356: SELECT merge_from_entity_id, merge_to_entity_id
357: FROM HZ_MERGE_PARTY_DETAILS
358: WHERE batch_party_id = cp_batch_party_id
359: AND ENTITY_NAME = 'HZ_PARTY_SITES'
360: AND merge_from_entity_id <> merge_to_entity_id;
361:
362: -----Cursor for the merge of Contact Points within the same party-----
363: CURSOR c_batch_contact_points(cp_batch_party_id NUMBER) IS
804:
805: ---For merging party sites/contact points/relationships within same party
806: ELSIF l_merge_type = 'SAME_PARTY_MERGE' THEN
807:
808: OPEN c_dict_id(l_rule_set_name,'HZ_PARTY_SITES');
809: FETCH c_dict_id INTO l_dict_id;
810: IF c_dict_id%NOTFOUND THEN
811: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DICT_ENTRY');
812: FND_MESSAGE.SET_TOKEN('ENTITY' ,'HZ_PARTY_SITES');
808: OPEN c_dict_id(l_rule_set_name,'HZ_PARTY_SITES');
809: FETCH c_dict_id INTO l_dict_id;
810: IF c_dict_id%NOTFOUND THEN
811: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DICT_ENTRY');
812: FND_MESSAGE.SET_TOKEN('ENTITY' ,'HZ_PARTY_SITES');
813: FND_MSG_PUB.ADD;
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: CLOSE c_dict_id;
829: g_num_sub_entities :=-1;
830:
831: -- Perform the party site merge within the same party
832: do_merge(p_batch_party_id =>l_batch_party_id,
833: p_entity_name =>'HZ_PARTY_SITES',
834: p_par_entity_name =>NULL,
835: p_from_id =>l_from_site_id,
836: p_to_id =>l_to_site_id,
837: p_par_from_id =>l_pre_merge_to_party_id, --5093366 passing party_id to do_merge for history
1391: OPEN c_dict_id(p_rule_set_name,p_entity_name);
1392: FETCH c_dict_id INTO l_dict_id, l_desc;
1393: IF c_dict_id%NOTFOUND THEN
1394: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DICT_ENTRY');
1395: FND_MESSAGE.SET_TOKEN('ENTITY' ,'HZ_PARTY_SITES');
1396: FND_MSG_PUB.ADD;
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1399: CLOSE c_dict_id;
1570: l_to_rec_desc := get_record_desc(p_to_id,p_entity_name, l_pk_column_name,
1571: l_desc_column_name, x_return_status);
1572: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1573:
1574: IF p_entity_name = 'HZ_PARTY_SITES' AND l_mand <> 'C' THEN
1575: BEGIN
1576: SELECT mandatory_merge INTO l_mand
1577: FROM hz_merge_party_details
1578: WHERE batch_party_id = p_batch_party_id
2264:
2265: EXIT WHEN c_deleted_records%NOTFOUND;
2266:
2267: IF l_entity_name = 'HZ_PARTIES' OR
2268: l_entity_name = 'HZ_PARTY_SITES' OR
2269: l_entity_name = 'HZ_ORGANIZATION_PROFILES' OR
2270: l_entity_name = 'HZ_PERSON_PROFILES' OR
2271: l_entity_name = 'HZ_ORG_CONTACTS' OR
2272: l_entity_name = 'HZ_PARTY_USG_ASSIGNMENTS' --4307667
2883:
2884: CURSOR party_sites_for_pre_merge(cp_to_party_id IN NUMBER, cp_batch_id IN NUMBER) IS
2885: select merge_to_entity_id, p.from_party_id, p.batch_party_id
2886: from hz_merge_party_details d1, hz_merge_parties p
2887: where entity_name = 'HZ_PARTY_SITES'
2888: and p.batch_party_id = d1.batch_party_id
2889: and d1.batch_party_id IN ( select batch_party_id
2890: from hz_merge_parties
2891: where to_party_id = cp_to_party_id
2895: and exists ( --it should be a merge-to
2896: select 1 --for another mapping
2897: from hz_merge_party_details d2
2898: where d2.merge_to_entity_id = d1.merge_from_entity_id
2899: and d2.entity_name = 'HZ_PARTY_SITES'
2900: and batch_party_id IN ( select batch_party_id
2901: from hz_merge_parties
2902: where to_party_id = cp_to_party_id
2903: and to_party_id<>from_party_id
2938:
2939: l_batch_party_id HZ_MERGE_PARTIES.BATCH_PARTY_ID%TYPE;
2940: l_from_id HZ_MERGE_PARTIES.FROM_PARTY_ID%TYPE;
2941: l_merge_to_entity_id hz_merge_party_details.merge_to_entity_id%TYPE;
2942: l_new_party_site_id hz_party_sites.party_site_id%type;
2943: l_proc_name hz_merge_dictionary.procedure_name%type;
2944: l_subject_id HZ_RELATIONSHIPS.SUBJECT_ID%TYPE;
2945: l_object_id HZ_RELATIONSHIPS.OBJECT_ID%TYPE;
2946:
2974: pre_return_status := null;
2975: pre_log_padding := ' ';
2976:
2977:
2978: ----------Pre merge for HZ_PARTY_SITES ---------------
2979: OPEN party_sites_for_pre_merge(p_to_party_id , p_batch_id);
2980: LOOP
2981: l_return_status := FND_API.G_RET_STS_SUCCESS;
2982: FETCH party_sites_for_pre_merge INTO l_merge_to_entity_id, l_from_party_id, l_batch_party_id;
2991: l_from_rec_desc :=hz_merge_util.get_party_site_description(l_merge_to_entity_id);
2992:
2993: -- Execute the merge procedure for the entity
2994: exec_merge(
2995: p_entity_name => 'HZ_PARTY_SITES',
2996: p_proc_name => l_proc_name,
2997: p_from_id => l_merge_to_entity_id,
2998: x_to_id => l_new_party_site_id,
2999: p_par_from_id => l_from_party_id,
3020: END IF;
3021:
3022: -- set the party sites status to A so that it is picked in merge that follows
3023: --the hz_merge_pkg.do_party_site_merge sets it to 'M' in pre-merge
3024: UPDATE HZ_PARTY_SITES
3025: SET
3026: STATUS = 'A',
3027: last_update_date = hz_utility_pub.last_update_date,
3028: last_updated_by = hz_utility_pub.user_id,
3038: set merge_to_entity_id = l_new_party_site_id
3039: where batch_party_id IN (select batch_party_id from hz_merge_parties
3040: where batch_id = p_batch_id)
3041: and merge_to_entity_id = l_merge_to_entity_id
3042: and entity_name = 'HZ_PARTY_SITES';
3043:
3044: UPDATE hz_merge_party_details
3045: set mandatory_merge = 'C'
3046: where batch_party_id IN (select batch_party_id from hz_merge_parties
3046: where batch_party_id IN (select batch_party_id from hz_merge_parties
3047: where batch_id = p_batch_id)
3048: and merge_from_entity_id = l_merge_to_entity_id
3049: and merge_to_entity_id = l_new_party_site_id
3050: and entity_name = 'HZ_PARTY_SITES';
3051:
3052: END IF;
3053: END LOOP;
3054:
3594:
3595:
3596:
3597: -- *******************************************
3598: -- Handle DNB data in HZ_PARTY_SITES/HZ_LOCATIONS
3599:
3600: -- Keep to's data.
3601: -- Inactivate the from's active party site.
3602: UPDATE HZ_PARTY_SITES ps
3598: -- Handle DNB data in HZ_PARTY_SITES/HZ_LOCATIONS
3599:
3600: -- Keep to's data.
3601: -- Inactivate the from's active party site.
3602: UPDATE HZ_PARTY_SITES ps
3603: SET STATUS = 'M',
3604: end_date_active = trunc(SYSDATE-1),
3605: last_update_date = hz_utility_pub.last_update_date,
3606: last_updated_by = hz_utility_pub.user_id,
4198:
4199: --Cursor for inserting Party sites that are non-DNB
4200: CURSOR c_from_ps_loc IS
4201: SELECT party_site_id, ps.location_id
4202: FROM HZ_PARTY_SITES ps
4203: WHERE ps.party_id = p_from_party_id
4204: AND ps.actual_content_source <> 'DNB'
4205: AND nvl(status, 'A') = 'A';
4206:
4205: AND nvl(status, 'A') = 'A';
4206:
4207: CURSOR c_dup_to_ps(cp_loc_id NUMBER) IS
4208: SELECT party_site_id
4209: FROM HZ_PARTY_SITES ps
4210: WHERE ps.party_id = p_to_party_id
4211: AND ps.location_id = cp_loc_id
4212: AND ps.actual_content_source <> 'DNB'
4213: AND nvl(status, 'A') = 'A';
4229:
4230: IF c_dup_to_ps%FOUND THEN
4231: HZ_MERGE_PARTY_DETAILS_PKG.Insert_Row(
4232: p_batch_party_id,
4233: 'HZ_PARTY_SITES',
4234: l_ps_id,
4235: l_dup_ps_id,
4236: 'Y',
4237: hz_utility_pub.created_by,
4241: hz_utility_pub.last_updated_by);
4242: ELSE
4243: HZ_MERGE_PARTY_DETAILS_PKG.Insert_Row(
4244: p_batch_party_id,
4245: 'HZ_PARTY_SITES',
4246: l_ps_id,
4247: l_ps_id,
4248: 'Y',
4249: hz_utility_pub.created_by,