79:
80: -- Debug Message
81: IF (AMS_DEBUG_HIGH_ON) THEN
82:
83: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
84: END IF;
85:
86:
87: -- Initialize API return status to SUCCESS
93: -- =========================================================================
94:
95: IF FND_GLOBAL.User_Id IS NULL
96: THEN
97: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
98: RAISE FND_API.G_EXC_ERROR;
99: END IF;
100:
101: -- Debug Message
100:
101: -- Debug Message
102: IF (AMS_DEBUG_HIGH_ON) THEN
103:
104: AMS_UTILITY_PVT.debug_message( 'Private API: Calling HZ create table PUB');
105: END IF;
106:
107:
108: l_hz_contact_pref_rec.contact_preference_id := p_ams_contact_pref_rec.contact_preference_id;
163:
164: -- Debug Message
165: IF (AMS_DEBUG_HIGH_ON) THEN
166:
167: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
168: END IF;
169:
170: -- Standard call to get message count and if count is 1, get message info.
171: FND_MSG_PUB.Count_And_Get
173: p_data => x_msg_data
174: );
175: EXCEPTION
176:
177: WHEN AMS_Utility_PVT.resource_locked THEN
178: x_return_status := FND_API.g_ret_sts_error;
179: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
180:
181: WHEN FND_API.G_EXC_ERROR THEN
175: EXCEPTION
176:
177: WHEN AMS_Utility_PVT.resource_locked THEN
178: x_return_status := FND_API.g_ret_sts_error;
179: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
180:
181: WHEN FND_API.G_EXC_ERROR THEN
182: ROLLBACK TO Create_Contact_Preference_PVT;
183: x_return_status := FND_API.G_RET_STS_ERROR;
263:
264: -- Debug Message
265: IF (AMS_DEBUG_HIGH_ON) THEN
266:
267: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
268: END IF;
269:
270:
271: -- Initialize API return status to SUCCESS
273:
274: -- Debug Message
275: IF (AMS_DEBUG_HIGH_ON) THEN
276:
277: AMS_UTILITY_PVT.debug_message('Private API: Calling HZ update table PUB');
278: END IF;
279:
280:
281: l_hz_contact_pref_rec.contact_preference_id := p_ams_contact_pref_rec.contact_preference_id;
325:
326: -- Debug Message
327: IF (AMS_DEBUG_HIGH_ON) THEN
328:
329: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
330: END IF;
331:
332: -- Standard call to get message count and if count is 1, get message info.
333: FND_MSG_PUB.Count_And_Get
335: p_data => x_msg_data
336: );
337: EXCEPTION
338:
339: WHEN AMS_Utility_PVT.resource_locked THEN
340: x_return_status := FND_API.g_ret_sts_error;
341: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
342:
343: WHEN FND_API.G_EXC_ERROR THEN
337: EXCEPTION
338:
339: WHEN AMS_Utility_PVT.resource_locked THEN
340: x_return_status := FND_API.g_ret_sts_error;
341: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
342:
343: WHEN FND_API.G_EXC_ERROR THEN
344: ROLLBACK TO UPDATE_CONTACT_PREFERENCE_PVT;
345: x_return_status := FND_API.G_RET_STS_ERROR;