[Home] [Help]
590: loop
591: fetch c2 into x_to_site_id, x_from_site_id;
592: EXIT WHEN c2%NOTFOUND;
593: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
594: p_init_msg_list => FND_API.G_FALSE,
595: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
596: p_old_owner_table_id => x_from_site_id,
597: p_new_owner_table_id => x_to_site_id,
598: p_owner_table_name =>'HZ_CUST_SITE_USES_ALL',
591: fetch c2 into x_to_site_id, x_from_site_id;
592: EXIT WHEN c2%NOTFOUND;
593: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
594: p_init_msg_list => FND_API.G_FALSE,
595: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
596: p_old_owner_table_id => x_from_site_id,
597: p_new_owner_table_id => x_to_site_id,
598: p_owner_table_name =>'HZ_CUST_SITE_USES_ALL',
599: p_orig_system => null,
610: x_msg_data);
611: ELSIF x_msg_count > 1 THEN
612:
613: FOR x IN 1..x_msg_count LOOP
614: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
615: x_msg_data := x_msg_data || '**remap internal id**';
616: arp_message.set_line(
617: 'MOSR:remap internal id ERROR ' ||
618: x_msg_data );
618: x_msg_data );
619: END LOOP;
620: END IF;
621:
622: IF x_return_status <> fnd_api.g_ret_sts_success THEN
623: RAISE fnd_api.g_exc_error;
624: END IF;
625:
626: end loop;
619: END LOOP;
620: END IF;
621:
622: IF x_return_status <> fnd_api.g_ret_sts_success THEN
623: RAISE fnd_api.g_exc_error;
624: END IF;
625:
626: end loop;
627: close c2;
942: loop
943: fetch c3 into x_to_address_id, x_from_address_id;
944: EXIT WHEN c3%NOTFOUND;
945: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
946: p_init_msg_list => FND_API.G_FALSE,
947: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
948: p_old_owner_table_id => x_from_address_id,
949: p_new_owner_table_id => x_to_address_id,
950: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
943: fetch c3 into x_to_address_id, x_from_address_id;
944: EXIT WHEN c3%NOTFOUND;
945: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
946: p_init_msg_list => FND_API.G_FALSE,
947: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
948: p_old_owner_table_id => x_from_address_id,
949: p_new_owner_table_id => x_to_address_id,
950: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
951: p_orig_system => null,
962: x_msg_data);
963: ELSIF x_msg_count > 1 THEN
964:
965: FOR x IN 1..x_msg_count LOOP
966: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
967: x_msg_data := x_msg_data || '**remap internal id**';
968: arp_message.set_line(
969: 'MOSR:remap internal id ERROR ' ||
970: x_msg_data );
970: x_msg_data );
971: END LOOP;
972: END IF;
973:
974: IF x_return_status <> fnd_api.g_ret_sts_success THEN
975: RAISE fnd_api.g_exc_error;
976: END IF;
977:
978: end loop;
971: END LOOP;
972: END IF;
973:
974: IF x_return_status <> fnd_api.g_ret_sts_success THEN
975: RAISE fnd_api.g_exc_error;
976: END IF;
977:
978: end loop;
979: close c3;
1179: loop
1180: fetch c3 into x_to_cust_id, x_from_cust_id;
1181: EXIT WHEN c3%NOTFOUND;
1182: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1183: p_init_msg_list => FND_API.G_FALSE,
1184: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1185: p_old_owner_table_id => x_from_cust_id,
1186: p_new_owner_table_id => x_to_cust_id,
1187: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
1180: fetch c3 into x_to_cust_id, x_from_cust_id;
1181: EXIT WHEN c3%NOTFOUND;
1182: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1183: p_init_msg_list => FND_API.G_FALSE,
1184: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1185: p_old_owner_table_id => x_from_cust_id,
1186: p_new_owner_table_id => x_to_cust_id,
1187: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
1188: p_orig_system => null,
1199: x_msg_data);
1200: ELSIF x_msg_count > 1 THEN
1201:
1202: FOR x IN 1..x_msg_count LOOP
1203: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1204: x_msg_data := x_msg_data || '**remap internal id**';
1205: arp_message.set_line(
1206: 'MOSR:remap internal id ERROR ' ||
1207: x_msg_data );
1207: x_msg_data );
1208: END LOOP;
1209: END IF;
1210:
1211: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1212: RAISE fnd_api.g_exc_error;
1213: END IF;
1214:
1215: end loop;
1208: END LOOP;
1209: END IF;
1210:
1211: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1212: RAISE fnd_api.g_exc_error;
1213: END IF;
1214:
1215: end loop;
1216: close c3;
3394: x_msg_count NUMBER := 0;
3395: x_return_status VARCHAR2(100);
3396: x_msg_data VARCHAR2(2000);
3397:
3398: l_dup_exists VARCHAR2(10) := FND_API.G_FALSE;
3399: l_insert VARCHAR2(10) := FND_API.G_FALSE;
3400: l_sql VARCHAR2(1000);
3401: l_direction_code VARCHAR2(30);
3402: --Start of Bug No: 4387523
3395: x_return_status VARCHAR2(100);
3396: x_msg_data VARCHAR2(2000);
3397:
3398: l_dup_exists VARCHAR2(10) := FND_API.G_FALSE;
3399: l_insert VARCHAR2(10) := FND_API.G_FALSE;
3400: l_sql VARCHAR2(1000);
3401: l_direction_code VARCHAR2(30);
3402: --Start of Bug No: 4387523
3403: CURSOR c_party_type(p_party_id NUMBER) IS SELECT party_type from hz_parties
3424:
3425: --the org contact has been migrated
3426: IF x_org_contact_id IS NOT NULL THEN
3427:
3428: l_dup_exists := FND_API.G_TRUE;
3429: ELSE
3430: --the org contact has not been migrated
3431:
3432: l_dup_exists := check_org_contact_dup (
3438:
3439: --arp_message.set_line( '****' || to_char(x_org_contact_id) ||
3440: --'****' || l_dup_exists );
3441:
3442: IF l_dup_exists = FND_API.G_TRUE THEN
3443: l_insert := FND_API.G_TRUE;
3444:
3445: END IF;
3446:
3439: --arp_message.set_line( '****' || to_char(x_org_contact_id) ||
3440: --'****' || l_dup_exists );
3441:
3442: IF l_dup_exists = FND_API.G_TRUE THEN
3443: l_insert := FND_API.G_TRUE;
3444:
3445: END IF;
3446:
3447: END IF;
3445: END IF;
3446:
3447: END IF;
3448:
3449: IF l_dup_exists = FND_API.G_TRUE THEN
3450: SELECT party_id INTO x_org_party_id
3451: FROM hz_relationships
3452: WHERE relationship_id = (
3453: SELECT party_relationship_id
3464:
3465: ---Bug:2098728
3466: --get org contact info.
3467: HZ_CUST_ACCOUNT_MERGE_V2PVT.get_org_contact_rec (
3468: FND_API.G_TRUE,
3469: p_org_contact_id,
3470: l_org_contact_rec,
3471: l_direction_code,
3472: x_return_status,
3480: x_msg_data );
3481: ELSIF x_msg_count > 1 THEN
3482:
3483: FOR x IN 1..x_msg_count LOOP
3484: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
3485: x_msg_data := x_msg_data || '**GET_CURRENT_ORG_CONTACT**';
3486: arp_message.set_line(
3487: 'do_merge_contacts:get_org_contact_rec ERROR ' ||
3488: x_msg_data );
3490: END IF;
3491:
3492: --- After call create_org_contact API, if return_status is not
3493: --- 'success', we need to populate an exception.
3494: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3495: RAISE FND_API.G_EXC_ERROR;
3496: END IF;
3497:
3498: -------Bug:2098728 Relationship ID is set to null in PKG
3491:
3492: --- After call create_org_contact API, if return_status is not
3493: --- 'success', we need to populate an exception.
3494: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3495: RAISE FND_API.G_EXC_ERROR;
3496: END IF;
3497:
3498: -------Bug:2098728 Relationship ID is set to null in PKG
3499: -------Genereating the new party number for new records
3532:
3533: ---Bug:2098728
3534: /* Create the org contact record */
3535: HZ_CUST_ACCOUNT_MERGE_V2PVT.create_org_contact(
3536: p_init_msg_list =>FND_API.G_TRUE,
3537: p_org_contact_rec => l_org_contact_rec,
3538: p_direction_code => l_direction_code,
3539: x_org_contact_id => x_org_contact_id,
3540: x_party_rel_id => x_party_rel_id,
3551: x_msg_data );
3552: ELSIF x_msg_count > 1 THEN
3553:
3554: FOR x IN 1..x_msg_count LOOP
3555: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
3556: x_msg_data := x_msg_data || '**CREATE_ORG_CONTACT**';
3557: arp_message.set_line(
3558: 'do_cust_merge_contacts:create_org_contact ERROR ' ||
3559: x_msg_data );
3561: END IF;
3562:
3563: /** After call create_org_contact API, if return_status is not
3564: 'success', we need to populate an exception. */
3565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3566: RAISE FND_API.G_EXC_ERROR;
3567: END IF;
3568:
3569: l_insert := FND_API.G_TRUE;
3562:
3563: /** After call create_org_contact API, if return_status is not
3564: 'success', we need to populate an exception. */
3565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3566: RAISE FND_API.G_EXC_ERROR;
3567: END IF;
3568:
3569: l_insert := FND_API.G_TRUE;
3570:
3565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3566: RAISE FND_API.G_EXC_ERROR;
3567: END IF;
3568:
3569: l_insert := FND_API.G_TRUE;
3570:
3571: END IF;
3572:
3573: IF l_insert = FND_API.G_TRUE THEN
3569: l_insert := FND_API.G_TRUE;
3570:
3571: END IF;
3572:
3573: IF l_insert = FND_API.G_TRUE THEN
3574:
3575: --Bug 1535542: insert the mapping of old org_contact_id and new org_contact_id
3576:
3577: BEGIN
3816: FROM hz_contact_points
3817: WHERE owner_table_name = p_owner_table_name
3818: AND owner_table_id = p_from_id;
3819:
3820: l_dup_exists VARCHAR2(10) := fnd_api.g_false;
3821:
3822: BEGIN
3823:
3824: arp_message.set_line( 'ARP_CMERGE_ARCUS.do_copy_contact_points ()+' );
3835:
3836: --arp_message.set_line( '****' || to_char(x_contact_point_id) ||
3837: --'****' || l_dup_exists );
3838:
3839: IF l_dup_exists <> fnd_api.g_true THEN
3840:
3841: --duplicate not exist. Create new org contacts.
3842: --call API to get contact points info.
3843: ----Bug:2098728 Changing to V2
3842: --call API to get contact points info.
3843: ----Bug:2098728 Changing to V2
3844: ----Bug 2116225: Added support for banks (EFT).
3845: hz_cust_account_merge_v2pvt.get_contact_point_rec (
3846: p_init_msg_list => FND_API.G_TRUE,
3847: p_contact_point_id => l_contact_point_id,
3848: x_contact_point_rec => l_contact_point_rec,
3849: x_edi_rec => l_edi_rec,
3850: x_eft_rec => l_eft_rec,
3864: x_msg_data );
3865: ELSIF x_msg_count > 1 THEN
3866:
3867: FOR x IN 1..x_msg_count LOOP
3868: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
3869: x_msg_data := x_msg_data || '**GET_CURRENT_CONTACT_POINTS**';
3870: arp_message.set_line(
3871: 'do_copy_contact_points:get_current_contact_points ERROR ' ||
3872: x_msg_data );
3874: END IF;
3875:
3876: -- After call create_org_contact API, if return_status is not
3877: -- 'success', we need to populate an exception.
3878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3879: RAISE fnd_api.g_exc_error;
3880: END IF;
3881:
3882: l_contact_point_rec.contact_point_id := NULL;
3875:
3876: -- After call create_org_contact API, if return_status is not
3877: -- 'success', we need to populate an exception.
3878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3879: RAISE fnd_api.g_exc_error;
3880: END IF;
3881:
3882: l_contact_point_rec.contact_point_id := NULL;
3883: l_contact_point_rec.primary_flag := NULL;
3893: --create contact point with email type
3894: ----Bug:2098728 Changing to V2
3895: ----Bug 2116225: Added support for banks (EFT).
3896: hz_cust_account_merge_v2pvt.create_contact_point (
3897: fnd_api.g_true,
3898: l_contact_point_rec,
3899: l_edi_rec,
3900: l_eft_rec,
3901: l_email_rec,
3914: x_msg_data);
3915: ELSIF x_msg_count > 1 THEN
3916:
3917: FOR x IN 1..x_msg_count LOOP
3918: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
3919: x_msg_data := x_msg_data || '**CREATE_CONTACT_POINTS**';
3920: arp_message.set_line(
3921: 'do_copy_contact_points:create_contact_points ERROR ' ||
3922: x_msg_data );
3924: END IF;
3925:
3926: -- After call create_org_contact API, if return_status is not
3927: -- 'success', we need to populate an exception.
3928: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3929: RAISE fnd_api.g_exc_error;
3930: END IF;
3931:
3932: /**
3925:
3926: -- After call create_org_contact API, if return_status is not
3927: -- 'success', we need to populate an exception.
3928: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3929: RAISE fnd_api.g_exc_error;
3930: END IF;
3931:
3932: /**
3933: arp_message.set_line(
4057:
4058: l_record_id NUMBER;
4059:
4060: BEGIN
4061: x_org_contact_id := FND_API.G_MISS_NUM;
4062:
4063: OPEN dupcheck;
4064: FETCH dupcheck INTO l_record_id;
4065: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4063: OPEN dupcheck;
4064: FETCH dupcheck INTO l_record_id;
4065: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4066: CLOSE dupcheck;
4067: RETURN FND_API.G_FALSE;
4068: END IF;
4069:
4070: x_org_contact_id := l_record_id;
4071: CLOSE dupcheck;
4068: END IF;
4069:
4070: x_org_contact_id := l_record_id;
4071: CLOSE dupcheck;
4072: RETURN FND_API.G_TRUE;
4073:
4074: EXCEPTION
4075:
4076: WHEN OTHERS THEN
4189: l_record_id NUMBER;
4190:
4191: BEGIN
4192:
4193: x_contact_point_id := FND_API.G_MISS_NUM;
4194:
4195: OPEN dupcheck;
4196: FETCH dupcheck INTO l_record_id;
4197: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4195: OPEN dupcheck;
4196: FETCH dupcheck INTO l_record_id;
4197: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4198: CLOSE dupcheck;
4199: RETURN FND_API.G_FALSE;
4200: END IF;
4201:
4202: x_contact_point_id := l_record_id;
4203: CLOSE dupcheck;
4200: END IF;
4201:
4202: x_contact_point_id := l_record_id;
4203: CLOSE dupcheck;
4204: RETURN FND_API.G_TRUE;
4205:
4206: EXCEPTION
4207: WHEN OTHERS THEN
4208: arp_message.set_error( 'ARP_CMERGE_ARCUS.check_contact_point_dup' );
5042: site_use_org_id NUMBER := NULL;
5043:
5044: -- Bug 2971149. Added a local varialbe to store party_site_use_id
5045:
5046: l_duplicate_party_site_use_id NUMBER := fnd_api.g_miss_num;
5047:
5048: l_dun_exists VARCHAR2(1); --Added for Bug 6469732
5049:
5050: BEGIN
5158: x_msg_data );
5159: ELSIF x_msg_count > 1 THEN
5160:
5161: FOR x IN 1..x_msg_count LOOP
5162: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5163: x_msg_data := x_msg_data || '**GET_CURRENT_PARTY_SITE**';
5164: arp_message.set_line(
5165: 'do_merge_contacts:get_current_party_site ERROR ' ||
5166: x_msg_data );
5169:
5170: /* After call create_org_contact API, if return_status is not
5171: 'success', we need to populate an exception. */
5172:
5173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5174: RAISE fnd_api.g_exc_error;
5175: END IF;
5176:
5177: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5170: /* After call create_org_contact API, if return_status is not
5171: 'success', we need to populate an exception. */
5172:
5173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5174: RAISE fnd_api.g_exc_error;
5175: END IF;
5176:
5177: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5178: party_site_rec.party_id := l_merge_to_party_id;
5173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5174: RAISE fnd_api.g_exc_error;
5175: END IF;
5176:
5177: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5178: party_site_rec.party_id := l_merge_to_party_id;
5179: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5180:
5181: --We should not set primary flag in customer merge context
5175: END IF;
5176:
5177: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5178: party_site_rec.party_id := l_merge_to_party_id;
5179: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5180:
5181: --We should not set primary flag in customer merge context
5182: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
5183:
5178: party_site_rec.party_id := l_merge_to_party_id;
5179: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5180:
5181: --We should not set primary flag in customer merge context
5182: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
5183:
5184: /* Bug 1365410. Enforce 'create_party_site' API to generate
5185: party_site_number even if profile option is 'N'.
5186: */
5215: x_msg_data);
5216: ELSIF x_msg_count > 1 THEN
5217:
5218: FOR x IN 1..x_msg_count LOOP
5219: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5220: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE**';
5221: arp_message.set_line(
5222: 'create_same_sites:create_party_site ERROR ' ||
5223: x_msg_data );
5225: END IF;
5226:
5227: /** After call create_* API, if return_status is not
5228: 'success', we need to populate an exception. */
5229: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232:
5233: -- Bug 2971149. Added following code back that was removed due to bug 1722556.
5226:
5227: /** After call create_* API, if return_status is not
5228: 'success', we need to populate an exception. */
5229: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232:
5233: -- Bug 2971149. Added following code back that was removed due to bug 1722556.
5234:
5314: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR '|| x_msg_data);
5315: ELSIF x_msg_count > 1 THEN
5316:
5317: FOR x IN 1..x_msg_count LOOP
5318: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
5319: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE_USE**';
5320: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR ' || x_msg_data );
5321: END LOOP;
5322: END IF;
5322: END IF;
5323:
5324: -- After call create_* API, if return_status is not
5325: -- 'success', we need to populate an exception.
5326: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5327: RAISE FND_API.G_EXC_ERROR;
5328: END IF;
5329:
5330: EXCEPTION
5323:
5324: -- After call create_* API, if return_status is not
5325: -- 'success', we need to populate an exception.
5326: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5327: RAISE FND_API.G_EXC_ERROR;
5328: END IF;
5329:
5330: EXCEPTION
5331:
5494: x_msg_data);
5495: ELSIF x_msg_count > 1 THEN
5496:
5497: FOR x IN 1..x_msg_count LOOP
5498: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5499: x_msg_data := x_msg_data || '**CREATE_ACCOUNT_SITE**';
5500: arp_message.set_line(
5501: 'create_same_sites:create_account_site ERROR ' ||
5502: x_msg_data );
5504: END IF;
5505:
5506: /** After call create_* API, if return_status is not
5507: 'success', we need to populate an exception. */
5508: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5509: RAISE fnd_api.g_exc_error;
5510: END IF;
5511:
5512: l_create_acct_site_use := 'Y';
5505:
5506: /** After call create_* API, if return_status is not
5507: 'success', we need to populate an exception. */
5508: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5509: RAISE fnd_api.g_exc_error;
5510: END IF;
5511:
5512: l_create_acct_site_use := 'Y';
5513:
5636: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR '|| x_msg_data);
5637: ELSIF x_msg_count > 1 THEN
5638:
5639: FOR x IN 1..x_msg_count LOOP
5640: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
5641: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE_USE**';
5642: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR ' || x_msg_data );
5643: END LOOP;
5644: END IF;
5644: END IF;
5645:
5646: -- After call create_* API, if return_status is not
5647: -- 'success', we need to populate an exception.
5648: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: EXCEPTION
5645:
5646: -- After call create_* API, if return_status is not
5647: -- 'success', we need to populate an exception.
5648: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: EXCEPTION
5653:
6197: --Bug Fix 2183072
6198: EXCEPTION
6199: WHEN NO_DATA_FOUND THEN
6200: --arp_message.set_name( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
6201: RAISE fnd_api.g_exc_error;
6202: END ;
6203:
6204: IF l_gen_loc = 'N' THEN
6205: UPDATE ar_system_parameters
6214:
6215: cust_site_use_rec.cust_acct_site_id := l_customer_address_id;
6216:
6217: IF l_create_profile = 'Y' THEN
6218: l_converted_create_profile := FND_API.G_TRUE;
6219: ELSE
6220: l_converted_create_profile := FND_API.G_FALSE;
6221: END IF;
6222:
6216:
6217: IF l_create_profile = 'Y' THEN
6218: l_converted_create_profile := FND_API.G_TRUE;
6219: ELSE
6220: l_converted_create_profile := FND_API.G_FALSE;
6221: END IF;
6222:
6223: cust_prof_rec.party_id := l_merge_to_party_id;
6224: -- bug 6469732 Start
6275: x_msg_data);
6276: ELSIF x_msg_count > 1 THEN
6277:
6278: FOR x IN 1..x_msg_count LOOP
6279: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
6280: x_msg_data := x_msg_data || '**CREATE_ACCOUNT_SITE_USE**';
6281: arp_message.set_line(
6282: 'create_same_sites:create_acct_site_uses ERROR ' ||
6283: x_msg_data );
6285: END IF;
6286:
6287: /** After call create_* API, if return_status is not
6288: 'success', we need to populate an exception. */
6289: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6290: RAISE fnd_api.g_exc_error;
6291: END IF;
6292:
6293: -- Find out the customer profile id.
6286:
6287: /** After call create_* API, if return_status is not
6288: 'success', we need to populate an exception. */
6289: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6290: RAISE fnd_api.g_exc_error;
6291: END IF;
6292:
6293: -- Find out the customer profile id.
6294: IF l_create_profile = 'Y' THEN
6409: x_msg_data);
6410: ELSIF x_msg_count > 1 THEN
6411:
6412: FOR x IN 1..x_msg_count LOOP
6413: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
6414: x_msg_data := x_msg_data || '**CREATE_CUST_PROF_AMT**';
6415: arp_message.set_line(
6416: 'create_same_sites:create_cust_prof_amt ERROR ' ||
6417: x_msg_data );
6419: END IF;
6420:
6421: /** After call create_* API, if return_status is not
6422: 'success', we need to populate an exception. */
6423: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6424: RAISE fnd_api.g_exc_error;
6425: END IF;
6426:
6427: END LOOP;
6420:
6421: /** After call create_* API, if return_status is not
6422: 'success', we need to populate an exception. */
6423: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6424: RAISE fnd_api.g_exc_error;
6425: END IF;
6426:
6427: END LOOP;
6428: CLOSE merge_from_prof_amt;
6495: rollback to merge_from_pay_method_point;
6496:
6497: arp_message.set_line('create_same_sites:create_cust_site_payment_method error');
6498: status := -1;
6499: RAISE fnd_api.g_exc_error;
6500: end;
6501: /* --end of creating payment method for customer site use */
6502:
6503: END IF; --end of create account site
7976: x_msg_data varchar2(2000);
7977: l_cust_acct_relate_id HZ_CUST_ACCT_RELATE_ALL.CUST_ACCT_RELATE_ID%TYPE;
7978: BEGIN
7979: HZ_CUST_ACCOUNT_V2PUB.get_cust_acct_relate_rec (
7980: FND_API.G_FALSE,
7981: p_cust_account_id,
7982: p_related_cust_account_id,
7983: p_cust_acct_relate_id,
7984: p_rowid,