[Home] [Help]
626: loop
627: fetch c2 into x_to_site_id, x_from_site_id;
628: EXIT WHEN c2%NOTFOUND;
629: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
630: p_init_msg_list => FND_API.G_FALSE,
631: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
632: p_old_owner_table_id => x_from_site_id,
633: p_new_owner_table_id => x_to_site_id,
634: p_owner_table_name =>'HZ_CUST_SITE_USES_ALL',
627: fetch c2 into x_to_site_id, x_from_site_id;
628: EXIT WHEN c2%NOTFOUND;
629: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
630: p_init_msg_list => FND_API.G_FALSE,
631: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
632: p_old_owner_table_id => x_from_site_id,
633: p_new_owner_table_id => x_to_site_id,
634: p_owner_table_name =>'HZ_CUST_SITE_USES_ALL',
635: p_orig_system => null,
646: x_msg_data);
647: ELSIF x_msg_count > 1 THEN
648:
649: FOR x IN 1..x_msg_count LOOP
650: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
651: x_msg_data := x_msg_data || '**remap internal id**';
652: arp_message.set_line(
653: 'MOSR:remap internal id ERROR ' ||
654: x_msg_data );
654: x_msg_data );
655: END LOOP;
656: END IF;
657:
658: IF x_return_status <> fnd_api.g_ret_sts_success THEN
659: RAISE fnd_api.g_exc_error;
660: END IF;
661:
662: end loop;
655: END LOOP;
656: END IF;
657:
658: IF x_return_status <> fnd_api.g_ret_sts_success THEN
659: RAISE fnd_api.g_exc_error;
660: END IF;
661:
662: end loop;
663: close c2;
1077: loop
1078: fetch c3 into x_to_address_id, x_from_address_id;
1079: EXIT WHEN c3%NOTFOUND;
1080: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1081: p_init_msg_list => FND_API.G_FALSE,
1082: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1083: p_old_owner_table_id => x_from_address_id,
1084: p_new_owner_table_id => x_to_address_id,
1085: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
1078: fetch c3 into x_to_address_id, x_from_address_id;
1079: EXIT WHEN c3%NOTFOUND;
1080: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1081: p_init_msg_list => FND_API.G_FALSE,
1082: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1083: p_old_owner_table_id => x_from_address_id,
1084: p_new_owner_table_id => x_to_address_id,
1085: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
1086: p_orig_system => null,
1097: x_msg_data);
1098: ELSIF x_msg_count > 1 THEN
1099:
1100: FOR x IN 1..x_msg_count LOOP
1101: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1102: x_msg_data := x_msg_data || '**remap internal id**';
1103: arp_message.set_line(
1104: 'MOSR:remap internal id ERROR ' ||
1105: x_msg_data );
1105: x_msg_data );
1106: END LOOP;
1107: END IF;
1108:
1109: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1110: RAISE fnd_api.g_exc_error;
1111: END IF;
1112:
1113: end loop;
1106: END LOOP;
1107: END IF;
1108:
1109: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1110: RAISE fnd_api.g_exc_error;
1111: END IF;
1112:
1113: end loop;
1114: close c3;
1314: loop
1315: fetch c3 into x_to_cust_id, x_from_cust_id;
1316: EXIT WHEN c3%NOTFOUND;
1317: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1318: p_init_msg_list => FND_API.G_FALSE,
1319: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1320: p_old_owner_table_id => x_from_cust_id,
1321: p_new_owner_table_id => x_to_cust_id,
1322: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
1315: fetch c3 into x_to_cust_id, x_from_cust_id;
1316: EXIT WHEN c3%NOTFOUND;
1317: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
1318: p_init_msg_list => FND_API.G_FALSE,
1319: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1320: p_old_owner_table_id => x_from_cust_id,
1321: p_new_owner_table_id => x_to_cust_id,
1322: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
1323: p_orig_system => null,
1334: x_msg_data);
1335: ELSIF x_msg_count > 1 THEN
1336:
1337: FOR x IN 1..x_msg_count LOOP
1338: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1339: x_msg_data := x_msg_data || '**remap internal id**';
1340: arp_message.set_line(
1341: 'MOSR:remap internal id ERROR ' ||
1342: x_msg_data );
1342: x_msg_data );
1343: END LOOP;
1344: END IF;
1345:
1346: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1347: RAISE fnd_api.g_exc_error;
1348: END IF;
1349:
1350: end loop;
1343: END LOOP;
1344: END IF;
1345:
1346: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1347: RAISE fnd_api.g_exc_error;
1348: END IF;
1349:
1350: end loop;
1351: close c3;
3702: x_msg_count NUMBER := 0;
3703: x_return_status VARCHAR2(100);
3704: x_msg_data VARCHAR2(2000);
3705:
3706: l_dup_exists VARCHAR2(10) := FND_API.G_FALSE;
3707: l_insert VARCHAR2(10) := FND_API.G_FALSE;
3708: l_sql VARCHAR2(1000);
3709: l_direction_code VARCHAR2(30);
3710: --Start of Bug No: 4387523
3703: x_return_status VARCHAR2(100);
3704: x_msg_data VARCHAR2(2000);
3705:
3706: l_dup_exists VARCHAR2(10) := FND_API.G_FALSE;
3707: l_insert VARCHAR2(10) := FND_API.G_FALSE;
3708: l_sql VARCHAR2(1000);
3709: l_direction_code VARCHAR2(30);
3710: --Start of Bug No: 4387523
3711: CURSOR c_party_type(p_party_id NUMBER) IS SELECT party_type from hz_parties
3732:
3733: --the org contact has been migrated
3734: IF x_org_contact_id IS NOT NULL THEN
3735:
3736: l_dup_exists := FND_API.G_TRUE;
3737: ELSE
3738: --the org contact has not been migrated
3739:
3740: l_dup_exists := check_org_contact_dup (
3746:
3747: --arp_message.set_line( '****' || to_char(x_org_contact_id) ||
3748: --'****' || l_dup_exists );
3749:
3750: IF l_dup_exists = FND_API.G_TRUE THEN
3751: l_insert := FND_API.G_TRUE;
3752:
3753: END IF;
3754:
3747: --arp_message.set_line( '****' || to_char(x_org_contact_id) ||
3748: --'****' || l_dup_exists );
3749:
3750: IF l_dup_exists = FND_API.G_TRUE THEN
3751: l_insert := FND_API.G_TRUE;
3752:
3753: END IF;
3754:
3755: END IF;
3753: END IF;
3754:
3755: END IF;
3756:
3757: IF l_dup_exists = FND_API.G_TRUE THEN
3758: SELECT party_id INTO x_org_party_id
3759: FROM hz_relationships
3760: WHERE relationship_id = (
3761: SELECT party_relationship_id
3772:
3773: ---Bug:2098728
3774: --get org contact info.
3775: HZ_CUST_ACCOUNT_MERGE_V2PVT.get_org_contact_rec (
3776: FND_API.G_TRUE,
3777: p_org_contact_id,
3778: l_org_contact_rec,
3779: l_direction_code,
3780: x_return_status,
3788: x_msg_data );
3789: ELSIF x_msg_count > 1 THEN
3790:
3791: FOR x IN 1..x_msg_count LOOP
3792: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
3793: x_msg_data := x_msg_data || '**GET_CURRENT_ORG_CONTACT**';
3794: arp_message.set_line(
3795: 'do_merge_contacts:get_org_contact_rec ERROR ' ||
3796: x_msg_data );
3798: END IF;
3799:
3800: --- After call create_org_contact API, if return_status is not
3801: --- 'success', we need to populate an exception.
3802: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: -------Bug:2098728 Relationship ID is set to null in PKG
3799:
3800: --- After call create_org_contact API, if return_status is not
3801: --- 'success', we need to populate an exception.
3802: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: -------Bug:2098728 Relationship ID is set to null in PKG
3807: -------Genereating the new party number for new records
3840:
3841: ---Bug:2098728
3842: /* Create the org contact record */
3843: HZ_CUST_ACCOUNT_MERGE_V2PVT.create_org_contact(
3844: p_init_msg_list =>FND_API.G_TRUE,
3845: p_org_contact_rec => l_org_contact_rec,
3846: p_direction_code => l_direction_code,
3847: x_org_contact_id => x_org_contact_id,
3848: x_party_rel_id => x_party_rel_id,
3859: x_msg_data );
3860: ELSIF x_msg_count > 1 THEN
3861:
3862: FOR x IN 1..x_msg_count LOOP
3863: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
3864: x_msg_data := x_msg_data || '**CREATE_ORG_CONTACT**';
3865: arp_message.set_line(
3866: 'do_cust_merge_contacts:create_org_contact ERROR ' ||
3867: x_msg_data );
3869: END IF;
3870:
3871: /** After call create_org_contact API, if return_status is not
3872: 'success', we need to populate an exception. */
3873: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3874: RAISE FND_API.G_EXC_ERROR;
3875: END IF;
3876:
3877: l_insert := FND_API.G_TRUE;
3870:
3871: /** After call create_org_contact API, if return_status is not
3872: 'success', we need to populate an exception. */
3873: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3874: RAISE FND_API.G_EXC_ERROR;
3875: END IF;
3876:
3877: l_insert := FND_API.G_TRUE;
3878:
3873: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3874: RAISE FND_API.G_EXC_ERROR;
3875: END IF;
3876:
3877: l_insert := FND_API.G_TRUE;
3878:
3879: END IF;
3880:
3881: IF l_insert = FND_API.G_TRUE THEN
3877: l_insert := FND_API.G_TRUE;
3878:
3879: END IF;
3880:
3881: IF l_insert = FND_API.G_TRUE THEN
3882:
3883: --Bug 1535542: insert the mapping of old org_contact_id and new org_contact_id
3884:
3885: BEGIN
4124: FROM hz_contact_points
4125: WHERE owner_table_name = p_owner_table_name
4126: AND owner_table_id = p_from_id;
4127:
4128: l_dup_exists VARCHAR2(10) := fnd_api.g_false;
4129:
4130: BEGIN
4131:
4132: arp_message.set_line( 'ARP_CMERGE_ARCUS.do_copy_contact_points ()+' );
4143:
4144: --arp_message.set_line( '****' || to_char(x_contact_point_id) ||
4145: --'****' || l_dup_exists );
4146:
4147: IF l_dup_exists <> fnd_api.g_true THEN
4148:
4149: --duplicate not exist. Create new org contacts.
4150: --call API to get contact points info.
4151: ----Bug:2098728 Changing to V2
4150: --call API to get contact points info.
4151: ----Bug:2098728 Changing to V2
4152: ----Bug 2116225: Added support for banks (EFT).
4153: hz_cust_account_merge_v2pvt.get_contact_point_rec (
4154: p_init_msg_list => FND_API.G_TRUE,
4155: p_contact_point_id => l_contact_point_id,
4156: x_contact_point_rec => l_contact_point_rec,
4157: x_edi_rec => l_edi_rec,
4158: x_eft_rec => l_eft_rec,
4172: x_msg_data );
4173: ELSIF x_msg_count > 1 THEN
4174:
4175: FOR x IN 1..x_msg_count LOOP
4176: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
4177: x_msg_data := x_msg_data || '**GET_CURRENT_CONTACT_POINTS**';
4178: arp_message.set_line(
4179: 'do_copy_contact_points:get_current_contact_points ERROR ' ||
4180: x_msg_data );
4182: END IF;
4183:
4184: -- After call create_org_contact API, if return_status is not
4185: -- 'success', we need to populate an exception.
4186: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4187: RAISE fnd_api.g_exc_error;
4188: END IF;
4189:
4190: l_contact_point_rec.contact_point_id := NULL;
4183:
4184: -- After call create_org_contact API, if return_status is not
4185: -- 'success', we need to populate an exception.
4186: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4187: RAISE fnd_api.g_exc_error;
4188: END IF;
4189:
4190: l_contact_point_rec.contact_point_id := NULL;
4191: l_contact_point_rec.primary_flag := NULL;
4201: --create contact point with email type
4202: ----Bug:2098728 Changing to V2
4203: ----Bug 2116225: Added support for banks (EFT).
4204: hz_cust_account_merge_v2pvt.create_contact_point (
4205: fnd_api.g_true,
4206: l_contact_point_rec,
4207: l_edi_rec,
4208: l_eft_rec,
4209: l_email_rec,
4222: x_msg_data);
4223: ELSIF x_msg_count > 1 THEN
4224:
4225: FOR x IN 1..x_msg_count LOOP
4226: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
4227: x_msg_data := x_msg_data || '**CREATE_CONTACT_POINTS**';
4228: arp_message.set_line(
4229: 'do_copy_contact_points:create_contact_points ERROR ' ||
4230: x_msg_data );
4232: END IF;
4233:
4234: -- After call create_org_contact API, if return_status is not
4235: -- 'success', we need to populate an exception.
4236: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4237: RAISE fnd_api.g_exc_error;
4238: END IF;
4239:
4240: /**
4233:
4234: -- After call create_org_contact API, if return_status is not
4235: -- 'success', we need to populate an exception.
4236: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4237: RAISE fnd_api.g_exc_error;
4238: END IF;
4239:
4240: /**
4241: arp_message.set_line(
4365:
4366: l_record_id NUMBER;
4367:
4368: BEGIN
4369: x_org_contact_id := FND_API.G_MISS_NUM;
4370:
4371: OPEN dupcheck;
4372: FETCH dupcheck INTO l_record_id;
4373: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4371: OPEN dupcheck;
4372: FETCH dupcheck INTO l_record_id;
4373: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4374: CLOSE dupcheck;
4375: RETURN FND_API.G_FALSE;
4376: END IF;
4377:
4378: x_org_contact_id := l_record_id;
4379: CLOSE dupcheck;
4376: END IF;
4377:
4378: x_org_contact_id := l_record_id;
4379: CLOSE dupcheck;
4380: RETURN FND_API.G_TRUE;
4381:
4382: EXCEPTION
4383:
4384: WHEN OTHERS THEN
4499: l_record_id NUMBER;
4500:
4501: BEGIN
4502:
4503: x_contact_point_id := FND_API.G_MISS_NUM;
4504:
4505: OPEN dupcheck;
4506: FETCH dupcheck INTO l_record_id;
4507: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4505: OPEN dupcheck;
4506: FETCH dupcheck INTO l_record_id;
4507: IF dupcheck%NOTFOUND OR l_record_id IS NULL THEN
4508: CLOSE dupcheck;
4509: RETURN FND_API.G_FALSE;
4510: END IF;
4511:
4512: x_contact_point_id := l_record_id;
4513: CLOSE dupcheck;
4510: END IF;
4511:
4512: x_contact_point_id := l_record_id;
4513: CLOSE dupcheck;
4514: RETURN FND_API.G_TRUE;
4515:
4516: EXCEPTION
4517: WHEN OTHERS THEN
4518: arp_message.set_error( 'ARP_CMERGE_ARCUS.check_contact_point_dup' );
5354: site_use_org_id NUMBER := NULL;
5355:
5356: -- Bug 2971149. Added a local varialbe to store party_site_use_id
5357:
5358: l_duplicate_party_site_use_id NUMBER := fnd_api.g_miss_num;
5359:
5360: l_dun_exists VARCHAR2(1); --Added for Bug 6469732
5361: l_error_text VARCHAR2(2000); --Bug 11824312
5362:
5471: x_msg_data );
5472: ELSIF x_msg_count > 1 THEN
5473:
5474: FOR x IN 1..x_msg_count LOOP
5475: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5476: x_msg_data := x_msg_data || '**GET_CURRENT_PARTY_SITE**';
5477: arp_message.set_line(
5478: 'do_merge_contacts:get_current_party_site ERROR ' ||
5479: x_msg_data );
5482:
5483: /* After call create_org_contact API, if return_status is not
5484: 'success', we need to populate an exception. */
5485:
5486: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5487: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5488: RAISE fnd_api.g_exc_error;
5489: END IF;
5490:
5484: 'success', we need to populate an exception. */
5485:
5486: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5487: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5488: RAISE fnd_api.g_exc_error;
5489: END IF;
5490:
5491: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5492: party_site_rec.party_id := l_merge_to_party_id;
5487: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5488: RAISE fnd_api.g_exc_error;
5489: END IF;
5490:
5491: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5492: party_site_rec.party_id := l_merge_to_party_id;
5493: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5494:
5495: --We should not set primary flag in customer merge context
5489: END IF;
5490:
5491: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
5492: party_site_rec.party_id := l_merge_to_party_id;
5493: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5494:
5495: --We should not set primary flag in customer merge context
5496: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
5497:
5492: party_site_rec.party_id := l_merge_to_party_id;
5493: party_site_rec.party_site_number := FND_API.G_MISS_CHAR;
5494:
5495: --We should not set primary flag in customer merge context
5496: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
5497:
5498: /* Bug 1365410. Enforce 'create_party_site' API to generate
5499: party_site_number even if profile option is 'N'.
5500: */
5529: x_msg_data);
5530: ELSIF x_msg_count > 1 THEN
5531:
5532: FOR x IN 1..x_msg_count LOOP
5533: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5534: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE**';
5535: arp_message.set_line(
5536: 'create_same_sites:create_party_site ERROR ' ||
5537: x_msg_data );
5539: END IF;
5540:
5541: /** After call create_* API, if return_status is not
5542: 'success', we need to populate an exception. */
5543: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5544: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5545: RAISE fnd_api.g_exc_error;
5546: END IF;
5547:
5541: /** After call create_* API, if return_status is not
5542: 'success', we need to populate an exception. */
5543: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5544: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5545: RAISE fnd_api.g_exc_error;
5546: END IF;
5547:
5548: -- Bug 2971149. Added following code back that was removed due to bug 1722556.
5549:
5629: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR '|| x_msg_data);
5630: ELSIF x_msg_count > 1 THEN
5631:
5632: FOR x IN 1..x_msg_count LOOP
5633: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
5634: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE_USE**';
5635: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR ' || x_msg_data );
5636: END LOOP;
5637: END IF;
5637: END IF;
5638:
5639: -- After call create_* API, if return_status is not
5640: -- 'success', we need to populate an exception.
5641: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5642: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5643: RAISE FND_API.G_EXC_ERROR;
5644: END IF;
5645:
5639: -- After call create_* API, if return_status is not
5640: -- 'success', we need to populate an exception.
5641: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5642: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5643: RAISE FND_API.G_EXC_ERROR;
5644: END IF;
5645:
5646: EXCEPTION
5647:
5821: x_msg_data);
5822: ELSIF x_msg_count > 1 THEN
5823:
5824: FOR x IN 1..x_msg_count LOOP
5825: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
5826: x_msg_data := x_msg_data || '**CREATE_ACCOUNT_SITE**';
5827: arp_message.set_line(
5828: 'create_same_sites:create_account_site ERROR ' ||
5829: x_msg_data );
5831: END IF;
5832:
5833: /** After call create_* API, if return_status is not
5834: 'success', we need to populate an exception. */
5835: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5836: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5837: RAISE fnd_api.g_exc_error;
5838: END IF;
5839:
5833: /** After call create_* API, if return_status is not
5834: 'success', we need to populate an exception. */
5835: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5836: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5837: RAISE fnd_api.g_exc_error;
5838: END IF;
5839:
5840: l_create_acct_site_use := 'Y';
5841:
5964: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR '|| x_msg_data);
5965: ELSIF x_msg_count > 1 THEN
5966:
5967: FOR x IN 1..x_msg_count LOOP
5968: x_msg_data := FND_MSG_PUB.GET(p_encoded => fnd_api.g_false);
5969: x_msg_data := x_msg_data || '**CREATE_PARTY_SITE_USE**';
5970: arp_message.set_line( 'create_same_sites:create_party_site_use ERROR ' || x_msg_data );
5971: END LOOP;
5972: END IF;
5972: END IF;
5973:
5974: -- After call create_* API, if return_status is not
5975: -- 'success', we need to populate an exception.
5976: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5977: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5978: RAISE FND_API.G_EXC_ERROR;
5979: END IF;
5980:
5974: -- After call create_* API, if return_status is not
5975: -- 'success', we need to populate an exception.
5976: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5977: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
5978: RAISE FND_API.G_EXC_ERROR;
5979: END IF;
5980:
5981: EXCEPTION
5982:
6528: --Bug Fix 2183072
6529: EXCEPTION
6530: WHEN NO_DATA_FOUND THEN
6531: --arp_message.set_name( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
6532: RAISE fnd_api.g_exc_error;
6533: END ;
6534:
6535: IF l_gen_loc = 'N' THEN
6536: UPDATE ar_system_parameters
6545:
6546: cust_site_use_rec.cust_acct_site_id := l_customer_address_id;
6547:
6548: IF l_create_profile = 'Y' THEN
6549: l_converted_create_profile := FND_API.G_TRUE;
6550: ELSE
6551: l_converted_create_profile := FND_API.G_FALSE;
6552: END IF;
6553:
6547:
6548: IF l_create_profile = 'Y' THEN
6549: l_converted_create_profile := FND_API.G_TRUE;
6550: ELSE
6551: l_converted_create_profile := FND_API.G_FALSE;
6552: END IF;
6553:
6554: cust_prof_rec.party_id := l_merge_to_party_id;
6555: -- bug 6469732 Start
6608: x_msg_data);
6609: ELSIF x_msg_count > 1 THEN
6610:
6611: FOR x IN 1..x_msg_count LOOP
6612: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
6613: x_msg_data := x_msg_data || '**CREATE_ACCOUNT_SITE_USE**';
6614: arp_message.set_line(
6615: 'create_same_sites:create_acct_site_uses ERROR ' ||
6616: x_msg_data );
6618: END IF;
6619:
6620: /** After call create_* API, if return_status is not
6621: 'success', we need to populate an exception. */
6622: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6623: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
6624: RAISE fnd_api.g_exc_error;
6625: END IF;
6626:
6620: /** After call create_* API, if return_status is not
6621: 'success', we need to populate an exception. */
6622: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6623: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
6624: RAISE fnd_api.g_exc_error;
6625: END IF;
6626:
6627: -- Find out the customer profile id.
6628: IF l_create_profile = 'Y' THEN
6743: x_msg_data);
6744: ELSIF x_msg_count > 1 THEN
6745:
6746: FOR x IN 1..x_msg_count LOOP
6747: x_msg_data := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
6748: x_msg_data := x_msg_data || '**CREATE_CUST_PROF_AMT**';
6749: arp_message.set_line(
6750: 'create_same_sites:create_cust_prof_amt ERROR ' ||
6751: x_msg_data );
6753: END IF;
6754:
6755: /** After call create_* API, if return_status is not
6756: 'success', we need to populate an exception. */
6757: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6758: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
6759: RAISE fnd_api.g_exc_error;
6760: END IF;
6761:
6755: /** After call create_* API, if return_status is not
6756: 'success', we need to populate an exception. */
6757: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6758: l_error_text := substr(x_msg_data,1,2000); --Bug 11824312
6759: RAISE fnd_api.g_exc_error;
6760: END IF;
6761:
6762: END LOOP;
6763: CLOSE merge_from_prof_amt;
6832: arp_message.set_line('create_same_sites:create_cust_site_payment_method error');
6833: arp_message.set_line('Error : '||SQLERRM);
6834: status := -1;
6835: l_error_text := substr(SQLERRM,1,2000); --Bug 11824312
6836: RAISE fnd_api.g_exc_error;
6837: end;
6838: /* --end of creating payment method for customer site use */
6839:
6840: END IF; --end of create account site
8331: x_msg_data varchar2(2000);
8332: l_cust_acct_relate_id HZ_CUST_ACCT_RELATE_ALL.CUST_ACCT_RELATE_ID%TYPE;
8333: BEGIN
8334: HZ_CUST_ACCOUNT_V2PUB.get_cust_acct_relate_rec (
8335: FND_API.G_FALSE,
8336: p_cust_account_id,
8337: p_related_cust_account_id,
8338: p_cust_acct_relate_id,
8339: p_rowid,