200: THEN
201: BEGIN
202: SELECT 'Y'
203: INTO l_dummy
204: FROM HZ_ORG_CONTACTS
205: WHERE ORG_CONTACT_ID = l_org_contact_id;
206:
207: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
208: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_contact_id');
216: END IF;
217:
218: l_gen_contact_number := fnd_profile.value('HZ_GENERATE_CONTACT_NUMBER');
219: --Bug14079129
220: --Below count selection from HZ_ORG_CONTACTS query changed.
221: --When multiple records for sequence generated contact number then rror out.
222: --Instead of 1 getting count.
223: IF l_gen_contact_number = 'Y' OR l_gen_contact_number IS NULL THEN
224: IF l_contact_number = FND_API.G_MISS_CHAR OR l_contact_number IS NULL THEN
230:
231: BEGIN
232: SELECT count(*) --1
233: INTO l_count
234: FROM HZ_ORG_CONTACTS
235: WHERE CONTACT_NUMBER = l_contact_number;
236: -- l_count := 1;
237:
238: EXCEPTION
355: END IF;
356:
357: -- Debug info.
358: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
359: hz_utility_v2pub.debug(p_message=>'HZ_ORG_CONTACTS_PKG.Insert_Row (+)',
360: p_prefix=>l_debug_prefix,
361: p_msg_level=>fnd_log.level_procedure);
362: END IF;
363:
361: p_msg_level=>fnd_log.level_procedure);
362: END IF;
363:
364: -- call table-handler.
365: HZ_ORG_CONTACTS_PKG.Insert_Row (
366: X_ORG_CONTACT_ID => p_org_contact_rec.org_contact_id,
367: X_PARTY_RELATIONSHIP_ID => x_party_rel_id,
368: X_COMMENTS => p_org_contact_rec.comments,
369: X_CONTACT_NUMBER => l_contact_number,
409: );
410:
411: -- Debug info.
412: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
413: hz_utility_v2pub.debug(p_message=>'HZ_ORG_CONTACTS_PKG.Insert_Row (-)',
414: p_prefix=>l_debug_prefix,
415: p_msg_level=>fnd_log.level_procedure);
416: END IF;
417:
423: and p_org_contact_rec.orig_system <>fnd_api.g_miss_char
424: then
425: l_orig_sys_reference_rec.orig_system := p_org_contact_rec.orig_system;
426: l_orig_sys_reference_rec.orig_system_reference := p_org_contact_rec.orig_system_reference;
427: l_orig_sys_reference_rec.owner_table_name := 'HZ_ORG_CONTACTS';
428: l_orig_sys_reference_rec.owner_table_id := p_org_contact_rec.org_contact_id;
429: l_orig_sys_reference_rec.created_by_module := p_org_contact_rec.created_by_module;
430:
431: hz_orig_system_ref_pub.create_orig_system_reference(
476: |
477: | MODIFICATION HISTORY
478: | 28-SEP-2007 Neeraj Shinde BUG# 6335274:1.relationship_id is non-updatable field.
479: | If relationship_id is not supplied,
480: | do not fetch it from HZ_ORG_CONTACTS.
481: | 2.If update_relationship API results
482: | in error, Error has to be raised.
483: +===========================================================================*/
484:
516: SELECT ROWID,
517: OBJECT_VERSION_NUMBER
518: INTO l_rowid,
519: l_object_version_number
520: FROM HZ_ORG_CONTACTS
521: WHERE ORG_CONTACT_ID = p_org_contact_rec.org_contact_id
522: FOR UPDATE OF ORG_CONTACT_ID NOWAIT;
523:
524: IF NOT (
527: l_object_version_number IS NOT NULL AND
528: p_cont_object_version_number = l_object_version_number ) )
529: THEN
530: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
531: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_org_contacts' );
532: FND_MSG_PUB.ADD;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535:
591: /*
592: SELECT ROWID,
593: PARTY_RELATIONSHIP_ID
594: INTO l_rowid, l_party_relationship_id
595: FROM HZ_ORG_CONTACTS
596: WHERE ORG_CONTACT_ID = p_org_contact_rec.org_contact_id;*/
597:
598: IF (l_party_relationship_id IS NOT NULL) THEN
599: --user passes optional relationship_id
599: --user passes optional relationship_id
600: SELECT ROWID,
601: PARTY_RELATIONSHIP_ID
602: INTO l_rowid, l_party_relationship_id
603: FROM HZ_ORG_CONTACTS
604: WHERE ORG_CONTACT_ID = p_org_contact_rec.org_contact_id;
605: END IF;
606: --BUG# 6335274: End
607:
613: THEN
614: BEGIN
615: SELECT P.PERSON_PRE_NAME_ADJUNCT,P.PARTY_ID INTO
616: l_person_pre_name,l_party_id
617: FROM HZ_PARTIES P, HZ_RELATIONSHIPS R, HZ_ORG_CONTACTS C
618: WHERE
619: C.ORG_CONTACT_ID = p_org_contact_rec.org_contact_id
620: AND R.RELATIONSHIP_ID = C.PARTY_RELATIONSHIP_ID
621: AND R.DIRECTIONAL_FLAG = 'F'
649: end if;
650:
651: -- Debug info.
652: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
653: hz_utility_v2pub.debug(p_message=>'HZ_ORG_CONTACTS_PKG.Update_Row (+) ',
654: p_prefix=>l_debug_prefix,
655: p_msg_level=>fnd_log.level_procedure);
656: END IF;
657: -- call to table-handler
654: p_prefix=>l_debug_prefix,
655: p_msg_level=>fnd_log.level_procedure);
656: END IF;
657: -- call to table-handler
658: HZ_ORG_CONTACTS_PKG.Update_Row (
659: X_Rowid => l_rowid,
660: X_ORG_CONTACT_ID => p_org_contact_rec.org_contact_id,
661: X_PARTY_RELATIONSHIP_ID => p_org_contact_rec.party_rel_rec.relationship_id,
662: X_COMMENTS => p_org_contact_rec.comments,
702: X_STATUS => l_org_status
703: );
704: -- Debug info.
705: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
706: hz_utility_v2pub.debug(p_message=>'HZ_ORG_CONTACTS_PKG.Update_Row (-) ',
707: p_prefix=>l_debug_prefix,
708: p_msg_level=>fnd_log.level_procedure);
709: END IF;
710:
707: p_prefix=>l_debug_prefix,
708: p_msg_level=>fnd_log.level_procedure);
709: END IF;
710:
711: -- update party relationship. party_relationship_id in hz_org_contacts is
712: -- non-updateable and l_party_relationship_id is selected from table.
713: IF nvl(p_rel_object_version_number, 1) <> FND_API.G_MISS_NUM
714: THEN
715: IF l_party_relationship_id IS NOT NULL THEN
1213: END IF;
1214:
1215: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'BO_EVENTS_ENABLED')) THEN
1216: -- populate function for integration service
1217: HZ_POPULATE_BOT_PKG.pop_hz_org_contacts(
1218: p_operation => 'I',
1219: p_org_contact_id => x_org_contact_id);
1220: END IF;
1221: END IF;
1411: and (p_org_contact_rec.org_contact_id = FND_API.G_MISS_NUM or p_org_contact_rec.org_contact_id is null) THEN
1412: hz_orig_system_ref_pub.get_owner_table_id
1413: (p_orig_system => p_org_contact_rec.orig_system,
1414: p_orig_system_reference => p_org_contact_rec.orig_system_reference,
1415: p_owner_table_name => 'HZ_ORG_CONTACTS',
1416: x_owner_table_id => l_org_contact_rec.org_contact_id,
1417: x_return_status => x_return_status);
1418: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1419: RAISE FND_API.G_EXC_ERROR;
1468: END IF;
1469:
1470: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'BO_EVENTS_ENABLED')) THEN
1471: -- populate function for integration service
1472: HZ_POPULATE_BOT_PKG.pop_hz_org_contacts(
1473: p_operation => 'U',
1474: p_org_contact_id => l_org_contact_rec.org_contact_id);
1475: END IF;
1476: END IF;
2049: END IF;
2050:
2051: x_org_contact_rec.org_contact_id := p_org_contact_id;
2052:
2053: HZ_ORG_CONTACTS_PKG.Select_Row (
2054: X_ORG_CONTACT_ID => x_org_contact_rec.org_contact_id,
2055: X_PARTY_RELATIONSHIP_ID => l_party_relationship_id,
2056: X_COMMENTS => x_org_contact_rec.comments,
2057: X_CONTACT_NUMBER => x_org_contact_rec.contact_number,