153:
154: /*===========================================================*/
155: PROCEDURE find_a_party(
156: p_api_version IN NUMBER,
157: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
158: p_rec IN party_detail_rec_type,
159: x_return_status OUT NOCOPY VARCHAR2,
160: x_msg_count OUT NOCOPY NUMBER,
161: x_msg_data OUT NOCOPY VARCHAR2,
239: END IF;
240: */
241: Write_log(L_API_NAME, 'Start of Get Party Id');
242:
243: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
244: p_api_version,
245: l_api_name,
246: G_PKG_NAME)
247: THEN
244: p_api_version,
245: l_api_name,
246: G_PKG_NAME)
247: THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251: -- Initialize message list if p_init_msg_list is set to TRUE.
252: IF FND_API.to_Boolean( p_init_msg_list )
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251: -- Initialize message list if p_init_msg_list is set to TRUE.
252: IF FND_API.to_Boolean( p_init_msg_list )
253: THEN
254: FND_MSG_PUB.initialize;
255: END IF;
256:
254: FND_MSG_PUB.initialize;
255: END IF;
256:
257:
258: x_return_status := FND_API.g_ret_sts_success;
259: if p_rec.last_name is not null and p_rec.first_name is not null then
260: l_party_key := hz_fuzzy_pub.Generate_Key (
261: p_key_type => 'PERSON',
262: p_first_name => p_rec.first_name,
264: );
265: else
266: FND_MESSAGE.set_name('AMS', 'AMS_NO_NAME_PROVIDED');
267: FND_MSG_PUB.add;
268: RAISE FND_API.g_exc_error;
269: end if;
270:
271: if p_rec.EMAIL_ADDRESS is not null THEN
272: open email_exists(p_rec.EMAIL_ADDRESS);
324: end if;
325: else
326: FND_MESSAGE.set_name('AMS', 'AMS_NO_EMAIL_PROVIDED');
327: FND_MSG_PUB.add;
328: RAISE FND_API.g_exc_error;
329: end if;
330: EXCEPTION
331: WHEN FND_API.g_exc_error THEN
332: x_return_status := FND_API.g_ret_sts_error;
327: FND_MSG_PUB.add;
328: RAISE FND_API.g_exc_error;
329: end if;
330: EXCEPTION
331: WHEN FND_API.g_exc_error THEN
332: x_return_status := FND_API.g_ret_sts_error;
333: FND_MSG_PUB.count_and_get(
334: p_encoded => FND_API.g_false,
335: p_count => x_msg_count,
328: RAISE FND_API.g_exc_error;
329: end if;
330: EXCEPTION
331: WHEN FND_API.g_exc_error THEN
332: x_return_status := FND_API.g_ret_sts_error;
333: FND_MSG_PUB.count_and_get(
334: p_encoded => FND_API.g_false,
335: p_count => x_msg_count,
336: p_data => x_msg_data
330: EXCEPTION
331: WHEN FND_API.g_exc_error THEN
332: x_return_status := FND_API.g_ret_sts_error;
333: FND_MSG_PUB.count_and_get(
334: p_encoded => FND_API.g_false,
335: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
338:
335: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
338:
339: WHEN FND_API.g_exc_unexpected_error THEN
340: x_return_status := FND_API.g_ret_sts_unexp_error ;
341: FND_MSG_PUB.count_and_get(
342: p_encoded => FND_API.g_false,
343: p_count => x_msg_count,
336: p_data => x_msg_data
337: );
338:
339: WHEN FND_API.g_exc_unexpected_error THEN
340: x_return_status := FND_API.g_ret_sts_unexp_error ;
341: FND_MSG_PUB.count_and_get(
342: p_encoded => FND_API.g_false,
343: p_count => x_msg_count,
344: p_data => x_msg_data
338:
339: WHEN FND_API.g_exc_unexpected_error THEN
340: x_return_status := FND_API.g_ret_sts_unexp_error ;
341: FND_MSG_PUB.count_and_get(
342: p_encoded => FND_API.g_false,
343: p_count => x_msg_count,
344: p_data => x_msg_data
345: );
346: WHEN others THEN
344: p_data => x_msg_data
345: );
346: WHEN others THEN
347: FND_MSG_PUB.count_and_get(
348: p_encoded => FND_API.g_false,
349: p_count => x_msg_count,
350: p_data => x_msg_data
351: );
352: END find_a_party;
354: /*==========================================================*/
355:
356: PROCEDURE create_registrant_party(
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
359: p_commit IN VARCHAR2 := FND_API.g_false,
360: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
361: p_rec IN party_detail_rec_type,
362:
355:
356: PROCEDURE create_registrant_party(
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
359: p_commit IN VARCHAR2 := FND_API.g_false,
360: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
361: p_rec IN party_detail_rec_type,
362:
363: x_return_status OUT NOCOPY VARCHAR2,
356: PROCEDURE create_registrant_party(
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
359: p_commit IN VARCHAR2 := FND_API.g_false,
360: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
361: p_rec IN party_detail_rec_type,
362:
363: x_return_status OUT NOCOPY VARCHAR2,
364: x_msg_count OUT NOCOPY NUMBER,
492: */
493: Write_log(L_API_NAME, 'Start');
494:
495: -- Standard call to check for call compatibility.
496: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
497: p_api_version,
498: l_api_name,
499: G_PKG_NAME)
500: THEN
497: p_api_version,
498: l_api_name,
499: G_PKG_NAME)
500: THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: -- Initialize message list if p_init_msg_list is set to TRUE.
505: IF FND_API.to_Boolean( p_init_msg_list )
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: -- Initialize message list if p_init_msg_list is set to TRUE.
505: IF FND_API.to_Boolean( p_init_msg_list )
506: THEN
507: FND_MSG_PUB.initialize;
508: END IF;
509:
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: -- RETURN;
511: x_return_status := FND_API.g_ret_sts_success;
512: x_new_org_party_id := null;
513: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'TCA import Concurrent Program(+)');
514: x_generate_party_number := fnd_profile.value('HZ_GENERATE_PARTY_NUMBER');
515: x_gen_contact_number := fnd_profile.value('HZ_GENERATE_CONTACT_NUMBER');
669:
670: /*
671: if x_msg_count > 1 then
672: FOR i IN 1..x_msg_count LOOP
673: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
674: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
675: END LOOP;
676: x_msg_data := x_tmp_var1;
677: end if;
692: FND_MESSAGE.set_name('AMS', 'ORGANIZATION_CREATE_FAILURE');
693: FND_MESSAGE.Set_Token('ROW', 'ORG - ' || substr(org_rec.organization_name,1,25) || '- ERROR-' || substr(x_msg_data,1,180));
694: FND_MSG_PUB.add;
695: */
696: if x_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: elsif x_return_status = FND_API.g_ret_sts_error THEN
699: RAISE FND_API.g_exc_error;
700: end if;
693: FND_MESSAGE.Set_Token('ROW', 'ORG - ' || substr(org_rec.organization_name,1,25) || '- ERROR-' || substr(x_msg_data,1,180));
694: FND_MSG_PUB.add;
695: */
696: if x_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: elsif x_return_status = FND_API.g_ret_sts_error THEN
699: RAISE FND_API.g_exc_error;
700: end if;
701: end if;
694: FND_MSG_PUB.add;
695: */
696: if x_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: elsif x_return_status = FND_API.g_ret_sts_error THEN
699: RAISE FND_API.g_exc_error;
700: end if;
701: end if;
702: /*IF (AMS_DEBUG_HIGH_ON) THEN
695: */
696: if x_return_status = FND_API.g_ret_sts_unexp_error THEN
697: RAISE FND_API.g_exc_unexpected_error;
698: elsif x_return_status = FND_API.g_ret_sts_error THEN
699: RAISE FND_API.g_exc_error;
700: end if;
701: end if;
702: /*IF (AMS_DEBUG_HIGH_ON) THEN
703:
759: );
760: /*
761: if x_msg_count > 1 then
762: FOR i IN 1..x_msg_count LOOP
763: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
764: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
765: END LOOP;
766: x_msg_data := x_tmp_var1;
767: END IF;
771: --errbuf := 'PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160);
772: FND_MESSAGE.set_name('AMS', 'AMS_CREATE_PERSON_FAILED');
773: FND_MESSAGE.Set_Token('ROW', 'PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
774: FND_MSG_PUB.add;
775: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
776: RAISE FND_API.g_exc_unexpected_error;
777: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
778: RAISE FND_API.g_exc_error;
779: end if;
772: FND_MESSAGE.set_name('AMS', 'AMS_CREATE_PERSON_FAILED');
773: FND_MESSAGE.Set_Token('ROW', 'PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
774: FND_MSG_PUB.add;
775: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
776: RAISE FND_API.g_exc_unexpected_error;
777: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
778: RAISE FND_API.g_exc_error;
779: end if;
780: else
773: FND_MESSAGE.Set_Token('ROW', 'PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
774: FND_MSG_PUB.add;
775: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
776: RAISE FND_API.g_exc_unexpected_error;
777: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
778: RAISE FND_API.g_exc_error;
779: end if;
780: else
781: x_new_party_id := x_per_party_id;
774: FND_MSG_PUB.add;
775: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
776: RAISE FND_API.g_exc_unexpected_error;
777: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
778: RAISE FND_API.g_exc_error;
779: end if;
780: else
781: x_new_party_id := x_per_party_id;
782:
857:
858: /*
859: if x_msg_count > 1 then
860: FOR i IN 1..x_msg_count LOOP
861: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
862: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
863: END LOOP;
864: x_msg_data := x_tmp_var1;
865: END IF;
869: --errbuf := 'ORG CONTACT - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160);
870: FND_MESSAGE.set_name('AMS', 'AMS_ORG_CONTACT_FAILURE');
871: FND_MESSAGE.Set_Token('ROW', 'ORG CONTACT - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
872: FND_MSG_PUB.add;
873: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
874: RAISE FND_API.g_exc_unexpected_error;
875: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
876: RAISE FND_API.g_exc_error;
877: end if;
870: FND_MESSAGE.set_name('AMS', 'AMS_ORG_CONTACT_FAILURE');
871: FND_MESSAGE.Set_Token('ROW', 'ORG CONTACT - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
872: FND_MSG_PUB.add;
873: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
874: RAISE FND_API.g_exc_unexpected_error;
875: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
876: RAISE FND_API.g_exc_error;
877: end if;
878: end if;
871: FND_MESSAGE.Set_Token('ROW', 'ORG CONTACT - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
872: FND_MSG_PUB.add;
873: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
874: RAISE FND_API.g_exc_unexpected_error;
875: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
876: RAISE FND_API.g_exc_error;
877: end if;
878: end if;
879: end if; -- if p_pr_party_id is null
872: FND_MSG_PUB.add;
873: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
874: RAISE FND_API.g_exc_unexpected_error;
875: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
876: RAISE FND_API.g_exc_error;
877: end if;
878: end if;
879: end if; -- if p_pr_party_id is null
880: end if; -- if person_rec.person_first_name is not null
917: );
918: /*
919: if x_msg_count > 1 then
920: FOR i IN 1..x_msg_count LOOP
921: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
922: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
923: END LOOP;
924: x_msg_data := x_tmp_var1;
925: END IF;
928: --errbuf := 'LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
929: FND_MESSAGE.set_name('AMS', 'AMS_LOCATION_CREATE_FAILURE');
930: FND_MESSAGE.Set_Token('ROW', 'LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
931: FND_MSG_PUB.add;
932: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
935: RAISE FND_API.g_exc_error;
936: end if;
929: FND_MESSAGE.set_name('AMS', 'AMS_LOCATION_CREATE_FAILURE');
930: FND_MESSAGE.Set_Token('ROW', 'LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
931: FND_MSG_PUB.add;
932: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
935: RAISE FND_API.g_exc_error;
936: end if;
937: end if;
930: FND_MESSAGE.Set_Token('ROW', 'LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
931: FND_MSG_PUB.add;
932: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
935: RAISE FND_API.g_exc_error;
936: end if;
937: end if;
938: end if; -- if location_rec.address1 is not NULL
931: FND_MSG_PUB.add;
932: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
935: RAISE FND_API.g_exc_error;
936: end if;
937: end if;
938: end if; -- if location_rec.address1 is not NULL
939: end if; -- x_location_id is null;
983:
984: /*
985: if x_msg_count > 1 then
986: FOR i IN 1..x_msg_count LOOP
987: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
988: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
989: END LOOP;
990: x_msg_data := x_tmp_var1;
991: END IF;
994: --errbuf := 'PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
995: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
996: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
997: FND_MSG_PUB.add;
998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
999: RAISE FND_API.g_exc_unexpected_error;
1000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: end if;
995: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
996: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
997: FND_MSG_PUB.add;
998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
999: RAISE FND_API.g_exc_unexpected_error;
1000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: end if;
1003: end if;
996: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
997: FND_MSG_PUB.add;
998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
999: RAISE FND_API.g_exc_unexpected_error;
1000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: end if;
1003: end if;
1004:
997: FND_MSG_PUB.add;
998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
999: RAISE FND_API.g_exc_unexpected_error;
1000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1001: RAISE FND_API.g_exc_error;
1002: end if;
1003: end if;
1004:
1005: if (p_rec.site_use_code is not null)
1023:
1024: /*
1025: if x_msg_count > 1 then
1026: FOR i IN 1..x_msg_count LOOP
1027: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1028: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1029: END LOOP;
1030: x_msg_data := x_tmp_var1;
1031: END IF;
1034: --errbuf := 'PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1035: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1036: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1037: FND_MSG_PUB.add;
1038: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1041: RAISE FND_API.g_exc_error;
1042: end if;
1035: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1036: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1037: FND_MSG_PUB.add;
1038: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1041: RAISE FND_API.g_exc_error;
1042: end if;
1043: end if;
1036: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1037: FND_MSG_PUB.add;
1038: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1041: RAISE FND_API.g_exc_error;
1042: end if;
1043: end if;
1044: end if; -- site use code
1037: FND_MSG_PUB.add;
1038: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1041: RAISE FND_API.g_exc_error;
1042: end if;
1043: end if;
1044: end if; -- site use code
1045: end if; -- if l_lp_psite_id is null then
1094:
1095: /*
1096: if x_msg_count > 1 then
1097: FOR i IN 1..x_msg_count LOOP
1098: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1099: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1100: END LOOP;
1101: x_msg_data := x_tmp_var1;
1102: END IF;
1105: --errbuf := 'CONT PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1106: FND_MESSAGE.set_name('AMS', 'AMS_PSITE_CONTACT_CREATE_FAILURE');
1107: FND_MESSAGE.Set_Token('ROW','CONT PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1108: FND_MSG_PUB.add;
1109: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1110: RAISE FND_API.g_exc_unexpected_error;
1111: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1112: RAISE FND_API.g_exc_error;
1113: end if;
1106: FND_MESSAGE.set_name('AMS', 'AMS_PSITE_CONTACT_CREATE_FAILURE');
1107: FND_MESSAGE.Set_Token('ROW','CONT PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1108: FND_MSG_PUB.add;
1109: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1110: RAISE FND_API.g_exc_unexpected_error;
1111: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1112: RAISE FND_API.g_exc_error;
1113: end if;
1114: end if;
1107: FND_MESSAGE.Set_Token('ROW','CONT PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1108: FND_MSG_PUB.add;
1109: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1110: RAISE FND_API.g_exc_unexpected_error;
1111: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1112: RAISE FND_API.g_exc_error;
1113: end if;
1114: end if;
1115:
1108: FND_MSG_PUB.add;
1109: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1110: RAISE FND_API.g_exc_unexpected_error;
1111: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1112: RAISE FND_API.g_exc_error;
1113: end if;
1114: end if;
1115:
1116: if (p_rec.site_use_code is not null)
1133:
1134: /*
1135: if x_msg_count > 1 then
1136: FOR i IN 1..x_msg_count LOOP
1137: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1138: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1139: END LOOP;
1140: x_msg_data := x_tmp_var1;
1141: END IF;
1144: --errbuf := 'PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1145: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1146: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1147: FND_MSG_PUB.add;
1148: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1149: RAISE FND_API.g_exc_unexpected_error;
1150: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1151: RAISE FND_API.g_exc_error;
1152: end if;
1145: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1146: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1147: FND_MSG_PUB.add;
1148: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1149: RAISE FND_API.g_exc_unexpected_error;
1150: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1151: RAISE FND_API.g_exc_error;
1152: end if;
1153: end if;
1146: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1147: FND_MSG_PUB.add;
1148: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1149: RAISE FND_API.g_exc_unexpected_error;
1150: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1151: RAISE FND_API.g_exc_error;
1152: end if;
1153: end if;
1154: end if; -- site use code
1147: FND_MSG_PUB.add;
1148: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1149: RAISE FND_API.g_exc_unexpected_error;
1150: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1151: RAISE FND_API.g_exc_error;
1152: end if;
1153: end if;
1154: end if; -- site use code
1155:
1205: x_contact_point_id);
1206: /*
1207: if x_msg_count > 1 then
1208: FOR i IN 1..x_msg_count LOOP
1209: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1210: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1211: END LOOP;
1212: x_msg_data := x_tmp_var1;
1213: END IF;
1217: --errbuf := 'PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1218: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_PHONE_ERROR');
1219: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1220: FND_MSG_PUB.add;
1221: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1224: RAISE FND_API.g_exc_error;
1225: end if;
1218: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_PHONE_ERROR');
1219: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1220: FND_MSG_PUB.add;
1221: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1224: RAISE FND_API.g_exc_error;
1225: end if;
1226: end if;
1219: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1220: FND_MSG_PUB.add;
1221: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1224: RAISE FND_API.g_exc_error;
1225: end if;
1226: end if;
1227: end if; -- l_phone_exists is NULL then
1220: FND_MSG_PUB.add;
1221: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1224: RAISE FND_API.g_exc_error;
1225: end if;
1226: end if;
1227: end if; -- l_phone_exists is NULL then
1228: end if; -- x_phone_number
1270: x_contact_point_id);
1271: /*
1272: if x_msg_count > 1 then
1273: FOR i IN 1..x_msg_count LOOP
1274: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1275: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1276: END LOOP;
1277: x_msg_data := x_tmp_var1;
1278: END IF;
1281: --errbuf := 'EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1282: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_EMAIL_ERROR');
1283: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1284: FND_MSG_PUB.add;
1285: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1286: RAISE FND_API.g_exc_unexpected_error;
1287: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1288: RAISE FND_API.g_exc_error;
1289: end if;
1282: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_EMAIL_ERROR');
1283: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1284: FND_MSG_PUB.add;
1285: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1286: RAISE FND_API.g_exc_unexpected_error;
1287: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1288: RAISE FND_API.g_exc_error;
1289: end if;
1290: end if;
1283: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1284: FND_MSG_PUB.add;
1285: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1286: RAISE FND_API.g_exc_unexpected_error;
1287: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1288: RAISE FND_API.g_exc_error;
1289: end if;
1290: end if;
1291: end if; -- l_email_exists is NULL then
1284: FND_MSG_PUB.add;
1285: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1286: RAISE FND_API.g_exc_unexpected_error;
1287: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1288: RAISE FND_API.g_exc_error;
1289: end if;
1290: end if;
1291: end if; -- l_email_exists is NULL then
1292: end if; -- x_email_address
1422: x_person_profile_id);
1423: /*
1424: if x_msg_count > 1 then
1425: FOR i IN 1..x_msg_count LOOP
1426: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1427: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1428: END LOOP;
1429: x_msg_data := x_tmp_var1;
1430: END IF;
1434: --errbuf := 'PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160);
1435: FND_MESSAGE.set_name('AMS', 'AMS_PERSON_ERROR');
1436: FND_MESSAGE.Set_Token('ROW','PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
1437: FND_MSG_PUB.add;
1438: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1441: RAISE FND_API.g_exc_error;
1442: end if;
1435: FND_MESSAGE.set_name('AMS', 'AMS_PERSON_ERROR');
1436: FND_MESSAGE.Set_Token('ROW','PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
1437: FND_MSG_PUB.add;
1438: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1441: RAISE FND_API.g_exc_error;
1442: end if;
1443: else
1436: FND_MESSAGE.Set_Token('ROW','PERSON - '||substr(person_rec.person_first_name,1,20)||substr(person_rec.person_last_name,1,20)||'- ERROR-'||substr(x_msg_data,1,160));
1437: FND_MSG_PUB.add;
1438: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1441: RAISE FND_API.g_exc_error;
1442: end if;
1443: else
1444: x_new_party_id := x_per_party_id;
1437: FND_MSG_PUB.add;
1438: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1441: RAISE FND_API.g_exc_error;
1442: end if;
1443: else
1444: x_new_party_id := x_per_party_id;
1445: /*IF (AMS_DEBUG_HIGH_ON) THEN
1489:
1490: /*
1491: if x_msg_count > 1 then
1492: FOR i IN 1..x_msg_count LOOP
1493: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1494: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1495: END LOOP;
1496: x_msg_data := x_tmp_var1;
1497: END IF;
1501: --errbuf := 'LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1502: FND_MESSAGE.set_name('AMS', 'AMS_LOCATION_ERROR');
1503: FND_MESSAGE.Set_Token('ROW','LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1504: FND_MSG_PUB.add;
1505: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1506: RAISE FND_API.g_exc_unexpected_error;
1507: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1508: RAISE FND_API.g_exc_error;
1509: end if;
1502: FND_MESSAGE.set_name('AMS', 'AMS_LOCATION_ERROR');
1503: FND_MESSAGE.Set_Token('ROW','LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1504: FND_MSG_PUB.add;
1505: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1506: RAISE FND_API.g_exc_unexpected_error;
1507: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1508: RAISE FND_API.g_exc_error;
1509: end if;
1510: end if;
1503: FND_MESSAGE.Set_Token('ROW','LOCATION - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1504: FND_MSG_PUB.add;
1505: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1506: RAISE FND_API.g_exc_unexpected_error;
1507: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1508: RAISE FND_API.g_exc_error;
1509: end if;
1510: end if;
1511:
1504: FND_MSG_PUB.add;
1505: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1506: RAISE FND_API.g_exc_unexpected_error;
1507: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1508: RAISE FND_API.g_exc_error;
1509: end if;
1510: end if;
1511:
1512: end if; -- if location_rec.address1 is not NULL
1579:
1580: /*
1581: if x_msg_count > 1 then
1582: FOR i IN 1..x_msg_count LOOP
1583: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1584: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1585: END LOOP;
1586: x_msg_data := x_tmp_var1;
1587: END IF;
1606: --errbuf := 'PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1607: FND_MESSAGE.set_name('AMS', 'AMS_PSITE_ERROR');
1608: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1609: FND_MSG_PUB.add;
1610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1611: RAISE FND_API.g_exc_unexpected_error;
1612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1613: RAISE FND_API.g_exc_error;
1614: end if;
1607: FND_MESSAGE.set_name('AMS', 'AMS_PSITE_ERROR');
1608: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1609: FND_MSG_PUB.add;
1610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1611: RAISE FND_API.g_exc_unexpected_error;
1612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1613: RAISE FND_API.g_exc_error;
1614: end if;
1615: end if;
1608: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1609: FND_MSG_PUB.add;
1610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1611: RAISE FND_API.g_exc_unexpected_error;
1612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1613: RAISE FND_API.g_exc_error;
1614: end if;
1615: end if;
1616: if (p_rec.site_use_code is not null)
1609: FND_MSG_PUB.add;
1610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1611: RAISE FND_API.g_exc_unexpected_error;
1612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1613: RAISE FND_API.g_exc_error;
1614: end if;
1615: end if;
1616: if (p_rec.site_use_code is not null)
1617: then
1631:
1632: /*
1633: if x_msg_count > 1 then
1634: FOR i IN 1..x_msg_count LOOP
1635: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1636: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1637: END LOOP;
1638: x_msg_data := x_tmp_var1;
1639: END IF;
1642: --errbuf := 'PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1643: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1644: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1645: FND_MSG_PUB.add;
1646: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1647: RAISE FND_API.g_exc_unexpected_error;
1648: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1649: RAISE FND_API.g_exc_error;
1650: end if;
1643: FND_MESSAGE.set_name('AMS', 'AMS_PART_SITE_CREATION_FAILURE');
1644: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1645: FND_MSG_PUB.add;
1646: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1647: RAISE FND_API.g_exc_unexpected_error;
1648: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1649: RAISE FND_API.g_exc_error;
1650: end if;
1651: end if;
1644: FND_MESSAGE.Set_Token('ROW','PSITE - '||substr(location_rec.address1,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1645: FND_MSG_PUB.add;
1646: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1647: RAISE FND_API.g_exc_unexpected_error;
1648: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1649: RAISE FND_API.g_exc_error;
1650: end if;
1651: end if;
1652: end if; -- site use code
1645: FND_MSG_PUB.add;
1646: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1647: RAISE FND_API.g_exc_unexpected_error;
1648: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1649: RAISE FND_API.g_exc_error;
1650: end if;
1651: end if;
1652: end if; -- site use code
1653:
1701: x_contact_point_id);
1702: /*
1703: if x_msg_count > 1 then
1704: FOR i IN 1..x_msg_count LOOP
1705: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1706: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1707: END LOOP;
1708: x_msg_data := x_tmp_var1;
1709: END IF;
1712: --errbuf := 'PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1713: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_PHONE_ERROR');
1714: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1715: FND_MSG_PUB.add;
1716: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1717: RAISE FND_API.g_exc_unexpected_error;
1718: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1719: RAISE FND_API.g_exc_error;
1720: end if;
1713: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_PHONE_ERROR');
1714: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1715: FND_MSG_PUB.add;
1716: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1717: RAISE FND_API.g_exc_unexpected_error;
1718: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1719: RAISE FND_API.g_exc_error;
1720: end if;
1721: end if;
1714: FND_MESSAGE.Set_Token('ROW','PHONE - '||substr(x_phone_number,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1715: FND_MSG_PUB.add;
1716: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1717: RAISE FND_API.g_exc_unexpected_error;
1718: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1719: RAISE FND_API.g_exc_error;
1720: end if;
1721: end if;
1722: end if; -- l_phone_exists is NULL then
1715: FND_MSG_PUB.add;
1716: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1717: RAISE FND_API.g_exc_unexpected_error;
1718: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1719: RAISE FND_API.g_exc_error;
1720: end if;
1721: end if;
1722: end if; -- l_phone_exists is NULL then
1723: end if; -- x_phone_number
1768:
1769: /*
1770: if x_msg_count > 1 then
1771: FOR i IN 1..x_msg_count LOOP
1772: x_tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1773: x_tmp_var1 := x_tmp_var1 || ' '|| x_tmp_var;
1774: END LOOP;
1775: x_msg_data := x_tmp_var1;
1776: END IF;
1779: --errbuf := 'EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180);
1780: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_EMAIL_ERROR');
1781: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1782: FND_MSG_PUB.add;
1783: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: end if;
1780: FND_MESSAGE.set_name('AMS', 'AMS_CONTACT_EMAIL_ERROR');
1781: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1782: FND_MSG_PUB.add;
1783: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: end if;
1788: end if;
1781: FND_MESSAGE.Set_Token('ROW','EMAIL - '||substr(x_email_address,1,25)||'- ERROR-'||substr(x_msg_data,1,180));
1782: FND_MSG_PUB.add;
1783: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: end if;
1788: end if;
1789: end if; -- l_email_exists is NULL then
1782: FND_MSG_PUB.add;
1783: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: end if;
1788: end if;
1789: end if; -- l_email_exists is NULL then
1790: end if; -- x_email_address
1789: end if; -- l_email_exists is NULL then
1790: end if; -- x_email_address
1791: end if; -- b2c
1792: EXCEPTION
1793: WHEN FND_API.g_exc_error THEN
1794: x_return_status := FND_API.g_ret_sts_error;
1795: FND_MSG_PUB.count_and_get(
1796: p_encoded => FND_API.g_false,
1797: p_count => x_msg_count,
1790: end if; -- x_email_address
1791: end if; -- b2c
1792: EXCEPTION
1793: WHEN FND_API.g_exc_error THEN
1794: x_return_status := FND_API.g_ret_sts_error;
1795: FND_MSG_PUB.count_and_get(
1796: p_encoded => FND_API.g_false,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data
1792: EXCEPTION
1793: WHEN FND_API.g_exc_error THEN
1794: x_return_status := FND_API.g_ret_sts_error;
1795: FND_MSG_PUB.count_and_get(
1796: p_encoded => FND_API.g_false,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1800:
1797: p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1800:
1801: WHEN FND_API.g_exc_unexpected_error THEN
1802: x_return_status := FND_API.g_ret_sts_unexp_error ;
1803: FND_MSG_PUB.count_and_get(
1804: p_encoded => FND_API.g_false,
1805: p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1800:
1801: WHEN FND_API.g_exc_unexpected_error THEN
1802: x_return_status := FND_API.g_ret_sts_unexp_error ;
1803: FND_MSG_PUB.count_and_get(
1804: p_encoded => FND_API.g_false,
1805: p_count => x_msg_count,
1806: p_data => x_msg_data
1800:
1801: WHEN FND_API.g_exc_unexpected_error THEN
1802: x_return_status := FND_API.g_ret_sts_unexp_error ;
1803: FND_MSG_PUB.count_and_get(
1804: p_encoded => FND_API.g_false,
1805: p_count => x_msg_count,
1806: p_data => x_msg_data
1807: );
1808:
1806: p_data => x_msg_data
1807: );
1808:
1809: WHEN OTHERS THEN
1810: x_return_status := FND_API.g_ret_sts_unexp_error ;
1811: FND_MSG_PUB.count_and_get(
1812: p_encoded => FND_API.g_false,
1813: p_count => x_msg_count,
1814: p_data => x_msg_data
1808:
1809: WHEN OTHERS THEN
1810: x_return_status := FND_API.g_ret_sts_unexp_error ;
1811: FND_MSG_PUB.count_and_get(
1812: p_encoded => FND_API.g_false,
1813: p_count => x_msg_count,
1814: p_data => x_msg_data
1815: );
1816:
1951: exception
1952:
1953: when others
1954: then
1955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1956:
1957: end person_party_echeck;
1958:
1959: PROCEDURE party_echeck(
2347: end address_echeck;
2348:
2349: PROCEDURE get_party_id(
2350: p_api_version IN NUMBER,
2351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2352: p_commit IN VARCHAR2 := FND_API.g_false,
2353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2354: p_rec IN party_detail_rec_type,
2355:
2348:
2349: PROCEDURE get_party_id(
2350: p_api_version IN NUMBER,
2351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2352: p_commit IN VARCHAR2 := FND_API.g_false,
2353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2354: p_rec IN party_detail_rec_type,
2355:
2356: x_return_status OUT NOCOPY VARCHAR2,
2349: PROCEDURE get_party_id(
2350: p_api_version IN NUMBER,
2351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2352: p_commit IN VARCHAR2 := FND_API.g_false,
2353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2354: p_rec IN party_detail_rec_type,
2355:
2356: x_return_status OUT NOCOPY VARCHAR2,
2357: x_msg_count OUT NOCOPY NUMBER,
2406: Write_log(L_API_NAME, l_full_name || ': start');
2407:
2408:
2409: -- Standard call to check for call compatibility.
2410: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2411: p_api_version,
2412: l_api_name,
2413: G_PKG_NAME)
2414: THEN
2411: p_api_version,
2412: l_api_name,
2413: G_PKG_NAME)
2414: THEN
2415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2416: END IF;
2417:
2418: -- Initialize message list if p_init_msg_list is set to TRUE.
2419: IF FND_API.to_Boolean( p_init_msg_list )
2415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2416: END IF;
2417:
2418: -- Initialize message list if p_init_msg_list is set to TRUE.
2419: IF FND_API.to_Boolean( p_init_msg_list )
2420: THEN
2421: FND_MSG_PUB.initialize;
2422: END IF;
2423:
2420: THEN
2421: FND_MSG_PUB.initialize;
2422: END IF;
2423:
2424: x_return_status := FND_API.g_ret_sts_success;
2425: /*
2426: AMS_Registrants_PVT.find_a_party(
2427: p_api_version => 1.0,
2428: p_init_msg_list => FND_API.g_false,
2424: x_return_status := FND_API.g_ret_sts_success;
2425: /*
2426: AMS_Registrants_PVT.find_a_party(
2427: p_api_version => 1.0,
2428: p_init_msg_list => FND_API.g_false,
2429: p_rec => p_rec,
2430: x_return_status => x_return_status,
2431: x_msg_count => x_msg_count,
2432: x_msg_data => x_msg_data,
2431: x_msg_count => x_msg_count,
2432: x_msg_data => x_msg_data,
2433: x_party_id => x_new_party_id
2434: );
2435: IF x_return_status = FND_API.g_ret_sts_error THEN
2436: RAISE FND_API.g_exc_error;
2437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2438: RAISE FND_API.g_exc_unexpected_error;
2439: END IF;
2432: x_msg_data => x_msg_data,
2433: x_party_id => x_new_party_id
2434: );
2435: IF x_return_status = FND_API.g_ret_sts_error THEN
2436: RAISE FND_API.g_exc_error;
2437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2438: RAISE FND_API.g_exc_unexpected_error;
2439: END IF;
2440: if x_new_party_id is NULL THEN
2433: x_party_id => x_new_party_id
2434: );
2435: IF x_return_status = FND_API.g_ret_sts_error THEN
2436: RAISE FND_API.g_exc_error;
2437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2438: RAISE FND_API.g_exc_unexpected_error;
2439: END IF;
2440: if x_new_party_id is NULL THEN
2441: */
2434: );
2435: IF x_return_status = FND_API.g_ret_sts_error THEN
2436: RAISE FND_API.g_exc_error;
2437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2438: RAISE FND_API.g_exc_unexpected_error;
2439: END IF;
2440: if x_new_party_id is NULL THEN
2441: */
2442:
2452: -- now calling list import APIs instead
2453: /*
2454: AMS_Registrants_PVT.create_registrant_party(
2455: p_api_version => 1.0,
2456: p_init_msg_list => FND_API.g_false,
2457: p_commit => FND_API.g_false,
2458: p_validation_level => FND_API.g_valid_level_full,
2459: p_rec => p_rec,
2460:
2453: /*
2454: AMS_Registrants_PVT.create_registrant_party(
2455: p_api_version => 1.0,
2456: p_init_msg_list => FND_API.g_false,
2457: p_commit => FND_API.g_false,
2458: p_validation_level => FND_API.g_valid_level_full,
2459: p_rec => p_rec,
2460:
2461: x_return_status => x_return_status,
2454: AMS_Registrants_PVT.create_registrant_party(
2455: p_api_version => 1.0,
2456: p_init_msg_list => FND_API.g_false,
2457: p_commit => FND_API.g_false,
2458: p_validation_level => FND_API.g_valid_level_full,
2459: p_rec => p_rec,
2460:
2461: x_return_status => x_return_status,
2462: x_msg_count => x_msg_count,
2591: END IF;
2592:
2593: AMS_List_Import_PUB.Create_Customer (
2594: p_api_version => 1.0,
2595: p_init_msg_list => FND_API.g_false,
2596: p_commit => FND_API.g_false,
2597: x_return_status => x_return_status,
2598: x_msg_count => x_msg_count,
2599: x_msg_data => x_msg_data,
2592:
2593: AMS_List_Import_PUB.Create_Customer (
2594: p_api_version => 1.0,
2595: p_init_msg_list => FND_API.g_false,
2596: p_commit => FND_API.g_false,
2597: x_return_status => x_return_status,
2598: x_msg_count => x_msg_count,
2599: x_msg_data => x_msg_data,
2600: p_party_id => l_party_id,
2626: */
2627: Write_log(L_API_NAME, 'After create_Customer done');
2628: Write_log(L_API_NAME, 'Return Status: '||x_return_status);
2629:
2630: IF x_return_status = FND_API.g_ret_sts_error THEN
2631:
2632: /*IF (AMS_DEBUG_HIGH_ON) THEN
2633: AMS_Utility_PVT.Debug_Message('Error');
2634: END IF;*/
2634: END IF;*/
2635: Write_log(L_API_NAME, 'Error');
2636: /*
2637: FOR i IN 1 .. FND_MSG_PUB.count_msg LOOP
2638: -- AMS_Utility_PVT.Debug_Message(FND_MSG_PUB.get(i, FND_API.g_false));
2639: END LOOP;
2640: */
2641: RAISE FND_API.g_exc_error;
2642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2637: FOR i IN 1 .. FND_MSG_PUB.count_msg LOOP
2638: -- AMS_Utility_PVT.Debug_Message(FND_MSG_PUB.get(i, FND_API.g_false));
2639: END LOOP;
2640: */
2641: RAISE FND_API.g_exc_error;
2642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2643: /*
2644: IF (AMS_DEBUG_HIGH_ON) THEN
2645: AMS_Utility_PVT.Debug_Message('Unexp Error');
2638: -- AMS_Utility_PVT.Debug_Message(FND_MSG_PUB.get(i, FND_API.g_false));
2639: END LOOP;
2640: */
2641: RAISE FND_API.g_exc_error;
2642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2643: /*
2644: IF (AMS_DEBUG_HIGH_ON) THEN
2645: AMS_Utility_PVT.Debug_Message('Unexp Error');
2646: END IF;
2646: END IF;
2647: */
2648: Write_log(L_API_NAME, 'Unexp Error');
2649: /*FOR i IN 1 .. FND_MSG_PUB.count_msg LOOP
2650: AMS_Utility_PVT.Debug_Message(FND_MSG_PUB.get(i, FND_API.g_false));
2651: END LOOP; */
2652: RAISE FND_API.g_exc_unexpected_error;
2653: end if;
2654: /*
2648: Write_log(L_API_NAME, 'Unexp Error');
2649: /*FOR i IN 1 .. FND_MSG_PUB.count_msg LOOP
2650: AMS_Utility_PVT.Debug_Message(FND_MSG_PUB.get(i, FND_API.g_false));
2651: END LOOP; */
2652: RAISE FND_API.g_exc_unexpected_error;
2653: end if;
2654: /*
2655: IF (AMS_DEBUG_HIGH_ON) THEN
2656: AMS_Utility_PVT.Debug_Message('After create_Customer error handling');
2660: Write_log(L_API_NAME, 'After create_Customer error handling');
2661: Write_log(L_API_NAME, 'Return party id: '||l_party_id);
2662:
2663: if l_party_id is NULL then
2664: x_return_status := FND_API.g_ret_sts_error;
2665: RAISE FND_API.g_exc_error;
2666: end if;
2667:
2668:
2661: Write_log(L_API_NAME, 'Return party id: '||l_party_id);
2662:
2663: if l_party_id is NULL then
2664: x_return_status := FND_API.g_ret_sts_error;
2665: RAISE FND_API.g_exc_error;
2666: end if;
2667:
2668:
2669:
2687: Write_log(L_API_NAME, 'Party Exist');
2688: END IF;*/
2689:
2690: EXCEPTION
2691: WHEN FND_API.g_exc_error THEN
2692: rollback to Register_get_party_id_PVT;
2693: x_return_status := FND_API.g_ret_sts_error;
2694: FND_MSG_PUB.count_and_get(
2695: p_encoded => FND_API.g_false,
2689:
2690: EXCEPTION
2691: WHEN FND_API.g_exc_error THEN
2692: rollback to Register_get_party_id_PVT;
2693: x_return_status := FND_API.g_ret_sts_error;
2694: FND_MSG_PUB.count_and_get(
2695: p_encoded => FND_API.g_false,
2696: p_count => x_msg_count,
2697: p_data => x_msg_data
2691: WHEN FND_API.g_exc_error THEN
2692: rollback to Register_get_party_id_PVT;
2693: x_return_status := FND_API.g_ret_sts_error;
2694: FND_MSG_PUB.count_and_get(
2695: p_encoded => FND_API.g_false,
2696: p_count => x_msg_count,
2697: p_data => x_msg_data
2698: );
2699:
2696: p_count => x_msg_count,
2697: p_data => x_msg_data
2698: );
2699:
2700: WHEN FND_API.g_exc_unexpected_error THEN
2701: rollback to Register_get_party_id_PVT;
2702: x_return_status := FND_API.g_ret_sts_unexp_error ;
2703: FND_MSG_PUB.count_and_get(
2704: p_encoded => FND_API.g_false,
2698: );
2699:
2700: WHEN FND_API.g_exc_unexpected_error THEN
2701: rollback to Register_get_party_id_PVT;
2702: x_return_status := FND_API.g_ret_sts_unexp_error ;
2703: FND_MSG_PUB.count_and_get(
2704: p_encoded => FND_API.g_false,
2705: p_count => x_msg_count,
2706: p_data => x_msg_data
2700: WHEN FND_API.g_exc_unexpected_error THEN
2701: rollback to Register_get_party_id_PVT;
2702: x_return_status := FND_API.g_ret_sts_unexp_error ;
2703: FND_MSG_PUB.count_and_get(
2704: p_encoded => FND_API.g_false,
2705: p_count => x_msg_count,
2706: p_data => x_msg_data
2707: );
2708:
2707: );
2708:
2709: WHEN OTHERS THEN
2710: rollback to Register_get_party_id_PVT;
2711: x_return_status := FND_API.g_ret_sts_unexp_error ;
2712: FND_MSG_PUB.count_and_get(
2713: p_encoded => FND_API.g_false,
2714: p_count => x_msg_count,
2715: p_data => x_msg_data
2709: WHEN OTHERS THEN
2710: rollback to Register_get_party_id_PVT;
2711: x_return_status := FND_API.g_ret_sts_unexp_error ;
2712: FND_MSG_PUB.count_and_get(
2713: p_encoded => FND_API.g_false,
2714: p_count => x_msg_count,
2715: p_data => x_msg_data
2716: );
2717:
2764: IF c_csch_event_det%NOTFOUND THEN
2765: AMS_Utility_PVT.Error_Message('AMS_INVALID_EVENT');
2766: CLOSE c_csch_event_det ;
2767: CLOSE c_event_det ;
2768: RAISE FND_API.g_exc_error;
2769: END IF ;
2770: CLOSE c_csch_event_det ;
2771: END IF ;
2772: CLOSE c_event_det;