90:
91: -- Debug Message
92: IF (AMS_DEBUG_HIGH_ON) THEN
93:
94: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
95: END IF;
96:
97:
98: -- Initialize API return status to SUCCESS
104: -- =========================================================================
105:
106: IF FND_GLOBAL.User_Id IS NULL
107: THEN
108: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
109: RAISE FND_API.G_EXC_ERROR;
110: END IF;
111:
112: -- Debug Message
111:
112: -- Debug Message
113: IF (AMS_DEBUG_HIGH_ON) THEN
114:
115: AMS_UTILITY_PVT.debug_message( 'Private API: Calling HZ create table PUB');
116: END IF;
117:
118:
119: l_hz_contact_point_rec.contact_POINT_id := p_ams_contact_point_rec.contact_POINT_id;
197:
198: -- Debug Message
199: IF (AMS_DEBUG_HIGH_ON) THEN
200:
201: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
202: END IF;
203:
204: -- Standard call to get message count and if count is 1, get message info.
205: FND_MSG_PUB.Count_And_Get
207: p_data => x_msg_data
208: );
209: EXCEPTION
210:
211: WHEN AMS_Utility_PVT.resource_locked THEN
212: x_return_status := FND_API.g_ret_sts_error;
213: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
214:
215: WHEN FND_API.G_EXC_ERROR THEN
209: EXCEPTION
210:
211: WHEN AMS_Utility_PVT.resource_locked THEN
212: x_return_status := FND_API.g_ret_sts_error;
213: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
214:
215: WHEN FND_API.G_EXC_ERROR THEN
216: ROLLBACK TO Create_Contact_POINT_PVT;
217: x_return_status := FND_API.G_RET_STS_ERROR;
310:
311: -- Debug Message
312: IF (AMS_DEBUG_HIGH_ON) THEN
313:
314: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
315: END IF;
316:
317:
318: -- Initialize API return status to SUCCESS
320:
321: -- Debug Message
322: IF (AMS_DEBUG_HIGH_ON) THEN
323:
324: AMS_UTILITY_PVT.debug_message('Private API: Calling HZ update table PUB');
325: END IF;
326:
327:
328: l_hz_contact_point_rec.contact_POINT_id := p_ams_contact_point_rec.contact_POINT_id;
402:
403: -- Debug Message
404: IF (AMS_DEBUG_HIGH_ON) THEN
405:
406: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
407: END IF;
408:
409: -- Standard call to get message count and if count is 1, get message info.
410: FND_MSG_PUB.Count_And_Get
412: p_data => x_msg_data
413: );
414: EXCEPTION
415:
416: WHEN AMS_Utility_PVT.resource_locked THEN
417: x_return_status := FND_API.g_ret_sts_error;
418: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
419:
420: WHEN FND_API.G_EXC_ERROR THEN
414: EXCEPTION
415:
416: WHEN AMS_Utility_PVT.resource_locked THEN
417: x_return_status := FND_API.g_ret_sts_error;
418: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
419:
420: WHEN FND_API.G_EXC_ERROR THEN
421: ROLLBACK TO UPDATE_CONTACT_POINT_PVT;
422: x_return_status := FND_API.G_RET_STS_ERROR;