49: -- Declarations for Contact Point Creation for the above Relation.
50: ------------------------------------------------------------------
51:
52: l_contact_point_id NUMBER;
53: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
54: l_phone_rec_type hz_contact_point_v2pub.phone_rec_type;
55:
56: --
57: l_debug_on BOOLEAN;
50: ------------------------------------------------------------------
51:
52: l_contact_point_id NUMBER;
53: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
54: l_phone_rec_type hz_contact_point_v2pub.phone_rec_type;
55:
56: --
57: l_debug_on BOOLEAN;
58: --
116: --
117: -- Debug Statements
118: --
119: IF l_debug_on THEN
120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.CREATE_CONTACT_POINT',WSH_DEBUG_SV.C_PROC_LEVEL);
121: END IF;
122: --
123:
124: HZ_CONTACT_POINT_V2PUB.Create_Contact_Point
120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.CREATE_CONTACT_POINT',WSH_DEBUG_SV.C_PROC_LEVEL);
121: END IF;
122: --
123:
124: HZ_CONTACT_POINT_V2PUB.Create_Contact_Point
125: ( p_init_msg_list => FND_API.G_TRUE,
126: p_contact_point_rec => l_contact_points_rec_type,
127: p_phone_rec => l_phone_rec_type,
128: x_contact_point_id => l_contact_point_id,
179: X_PROCEDURE OUT NOCOPY VARCHAR2,
180: X_SQLERR OUT NOCOPY VARCHAR2,
181: X_SQL_CODE OUT NOCOPY VARCHAR2 ) IS
182:
183: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
184: l_phone_rec_type hz_contact_point_v2pub.phone_rec_type;
185: l_return_status varchar2(100);
186: l_msg_count number;
187: l_msg_data varchar2(2000);
180: X_SQLERR OUT NOCOPY VARCHAR2,
181: X_SQL_CODE OUT NOCOPY VARCHAR2 ) IS
182:
183: l_contact_points_rec_type hz_contact_point_v2pub.contact_point_rec_type;
184: l_phone_rec_type hz_contact_point_v2pub.phone_rec_type;
185: l_return_status varchar2(100);
186: l_msg_count number;
187: l_msg_data varchar2(2000);
188: l_exception_msg varchar2(1000);
268: --
269: -- Debug Statements
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.UPDATE_CONTACT_POINT',WSH_DEBUG_SV.C_PROC_LEVEL);
273: END IF;
274: --
275:
276: HZ_CONTACT_POINT_V2PUB.Update_Contact_Point
272: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_CONTACT_POINT_V2PUB.UPDATE_CONTACT_POINT',WSH_DEBUG_SV.C_PROC_LEVEL);
273: END IF;
274: --
275:
276: HZ_CONTACT_POINT_V2PUB.Update_Contact_Point
277: (
278: p_init_msg_list => FND_API.G_TRUE,
279: p_contact_point_rec => l_contact_points_rec_type,
280: p_phone_rec => l_phone_rec_type,