61: l_person_party_id number;
62:
63: l_rel_rec_type HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
64: l_ocon_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
65: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
66: l_email_rec_type hz_contact_point_v2pub.email_rec_type;
67:
68: -- Bug 7391414 Setting the profile option 'HZ GENERATE PARTY NUMBER' to Yes if it is No or Null
69: l_hz_profile_option varchar2(2);
62:
63: l_rel_rec_type HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
64: l_ocon_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
65: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
66: l_email_rec_type hz_contact_point_v2pub.email_rec_type;
67:
68: -- Bug 7391414 Setting the profile option 'HZ GENERATE PARTY NUMBER' to Yes if it is No or Null
69: l_hz_profile_option varchar2(2);
70: l_hz_profile_set boolean;
251: --
252: -- Debug Statements
253: --
254: IF l_debug_on THEN
255: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.Create_Contact_Point',WSH_DEBUG_SV.C_PROC_LEVEL);
256: END IF;
257: --
258: -- Bug 2754631
259: HZ_CONTACT_POINT_V2PUB.Create_Contact_Point (
255: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.Create_Contact_Point',WSH_DEBUG_SV.C_PROC_LEVEL);
256: END IF;
257: --
258: -- Bug 2754631
259: HZ_CONTACT_POINT_V2PUB.Create_Contact_Point (
260: p_init_msg_list => FND_API.G_TRUE,
261: p_contact_point_rec => l_contact_points_rec_type,
262: p_email_rec => l_email_rec_type,
263: x_contact_point_id => l_contact_point_id,
324: IS
325:
326: l_person_rec HZ_PARTY_V2PUB.person_rec_type;
327: l_ocon_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
328: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
329: l_email_rec_type hz_contact_point_v2pub.email_rec_type;
330:
331: l_return_status varchar2(100);
332: l_msg_count number;
325:
326: l_person_rec HZ_PARTY_V2PUB.person_rec_type;
327: l_ocon_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
328: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
329: l_email_rec_type hz_contact_point_v2pub.email_rec_type;
330:
331: l_return_status varchar2(100);
332: l_msg_count number;
333: l_msg_data varchar2(2000);
486: --
487: -- Debug Statements
488: --
489: IF l_debug_on THEN
490: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program Unit HZ_CONTACT_POINT_V2PUB.Update_Contact_Point',WSH_DEBUG_SV.C_PROC_LEVEL);
491: END IF;
492: --
493:
494: OPEN Get_Cont_Point_Version;
494: OPEN Get_Cont_Point_Version;
495: FETCH Get_Cont_Point_Version INTO l_cont_point_version;
496: CLOSE Get_Cont_Point_Version ;
497: -- Bug 2754631
498: HZ_CONTACT_POINT_V2PUB.Update_Contact_Point(
499: p_init_msg_list => FND_API.G_TRUE,
500: p_contact_point_rec => l_contact_points_rec_type,
501: p_email_rec => l_email_rec_type,
502: p_object_version_number => l_cont_point_version,