[Home] [Help]
304: SET person_pre_name_adjunct = p_org_contact_rec.title
305: WHERE party_id = p_org_contact_rec.party_rel_rec.subject_id
306: AND party_type = 'PERSON';
307:
308: /* HZ_PERSON_PROFILES */
309: BEGIN
310: SELECT 'Y'
311: INTO l_dummy
312: FROM hz_person_profiles
308: /* HZ_PERSON_PROFILES */
309: BEGIN
310: SELECT 'Y'
311: INTO l_dummy
312: FROM hz_person_profiles
313: WHERE party_id = p_org_contact_rec.party_rel_rec.subject_id
314: AND effective_end_date IS NULL
315: FOR UPDATE NOWAIT;
316: EXCEPTION
315: FOR UPDATE NOWAIT;
316: EXCEPTION
317: WHEN OTHERS THEN
318: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
319: fnd_message.set_token('TABLE', 'HZ_PERSON_PROFILES');
320: fnd_msg_pub.add;
321: RAISE FND_API.G_EXC_ERROR;
322: END;
323: UPDATE hz_person_profiles
319: fnd_message.set_token('TABLE', 'HZ_PERSON_PROFILES');
320: fnd_msg_pub.add;
321: RAISE FND_API.G_EXC_ERROR;
322: END;
323: UPDATE hz_person_profiles
324: SET person_pre_name_adjunct = p_org_contact_rec.title
325: WHERE party_id = p_org_contact_rec.party_rel_rec.subject_id
326: AND effective_end_date IS NULL;
327: END IF;
499: l_object_version_number NUMBER;
500: l_debug_prefix VARCHAR2(30);
501: l_object_id NUMBER;
502: l_org_status VARCHAR2(1);
503: l_person_pre_name HZ_PERSON_PROFILES.PERSON_PRE_NAME_ADJUNCT%TYPE := NULL;
504: l_party_id HZ_PARTIES.PARTY_ID%TYPE := NULL;
505: BEGIN
506: -- Debug info.
507: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
626: UPDATE HZ_PARTIES
627: SET PERSON_PRE_NAME_ADJUNCT = p_org_contact_rec.title
628: WHERE PARTY_ID = l_party_id;
629:
630: UPDATE HZ_PERSON_PROFILES
631: SET PERSON_PRE_NAME_ADJUNCT = p_org_contact_rec.title
632: WHERE PARTY_ID = l_party_id
633: AND EFFECTIVE_END_DATE IS NULL;
634: END IF;