[Home] [Help]
66: l_hz_telex_rec HZ_CONTACT_POINT_V2PUB.telex_rec_type;
67: l_hz_web_rec HZ_CONTACT_POINT_V2PUB.web_rec_type;
68:
69: BEGIN
70: -- Standard Start of API savepoint
71: SAVEPOINT Create_Contact_POINT_PVT;
72:
73:
74: -- Standard call to check for call compatibility.
70: -- Standard Start of API savepoint
71: SAVEPOINT Create_Contact_POINT_PVT;
72:
73:
74: -- Standard call to check for call compatibility.
75:
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
77: p_api_version_number,
78: l_api_name,
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189: x_contact_POINT_id:=l_contact_POINT_id;
190:
191: -- Standard check for p_commit
192: IF FND_API.to_Boolean( p_commit )
193: THEN
194: COMMIT WORK;
195: END IF;
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
206: (p_count => x_msg_count,
207: p_data => x_msg_data
208: );
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;
218: -- Standard call to get message count and if count=1, get the message
219: FND_MSG_PUB.Count_And_Get (
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data
224:
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: ROLLBACK TO Create_Contact_POINT_PVT;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: -- Standard call to get message count and if count=1, get the message
229: FND_MSG_PUB.Count_And_Get (
230: p_encoded => FND_API.G_FALSE,
231: p_count => x_msg_count,
232: p_data => x_msg_data
238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
239: THEN
240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
241: END IF;
242: -- Standard call to get message count and if count=1, get the message
243: FND_MSG_PUB.Count_And_Get (
244: p_encoded => FND_API.G_FALSE,
245: p_count => x_msg_count,
246: p_data => x_msg_data
289:
290:
291:
292: BEGIN
293: -- Standard Start of API savepoint
294: SAVEPOINT UPDATE_CONTACT_POINT_PVT;
295:
296: -- Standard call to check for call compatibility.
297: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
292: BEGIN
293: -- Standard Start of API savepoint
294: SAVEPOINT UPDATE_CONTACT_POINT_PVT;
295:
296: -- Standard call to check for call compatibility.
297: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
298: p_api_version_number,
299: l_api_name,
300: G_PKG_NAME)
392: x_msg_data => l_msg_data
393: );
394:
395:
396: -- Standard check for p_commit
397: IF FND_API.to_Boolean( p_commit )
398: THEN
399: COMMIT WORK;
400: END IF;
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
411: (p_count => x_msg_count,
412: p_data => x_msg_data
413: );
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;
423: -- Standard call to get message count and if count=1, get the message
424: FND_MSG_PUB.Count_And_Get (
425: p_encoded => FND_API.G_FALSE,
426: p_count => x_msg_count,
427: p_data => x_msg_data
429:
430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431: ROLLBACK TO UPDATE_CONTACT_POINT_PVT;
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: -- Standard call to get message count and if count=1, get the message
434: FND_MSG_PUB.Count_And_Get (
435: p_encoded => FND_API.G_FALSE,
436: p_count => x_msg_count,
437: p_data => x_msg_data
443: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
444: THEN
445: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
446: END IF;
447: -- Standard call to get message count and if count=1, get the message
448: FND_MSG_PUB.Count_And_Get (
449: p_encoded => FND_API.G_FALSE,
450: p_count => x_msg_count,
451: p_data => x_msg_data