199: G_PKG_NAME)
200: THEN
201: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_ERROR)
202: THEN
203: fnd_message.Set_Name('PV', 'API_UNEXP_ERROR_IN_PROCESSING');
204: fnd_message.Set_Token('ROW', 'PV_LEADLOG', TRUE);
205: fnd_msg_pub.ADD;
206: END IF;
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: THEN
201: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_ERROR)
202: THEN
203: fnd_message.Set_Name('PV', 'API_UNEXP_ERROR_IN_PROCESSING');
204: fnd_message.Set_Token('ROW', 'PV_LEADLOG', TRUE);
205: fnd_msg_pub.ADD;
206: END IF;
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
216:
217: -- Debug Message
218: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW)
219: THEN
220: fnd_message.Set_Name('PV', 'Pvt Acc API: Start');
221: fnd_msg_pub.Add;
222: END IF;
223:
224: -- Initialize API return status to success
238: IF G_User_Id IS NULL
239: THEN
240: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_ERROR)
241: THEN
242: fnd_message.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
243: fnd_message.Set_Token('PROFILE', 'USER_ID', FALSE);
244: fnd_msg_pub.ADD;
245: END IF;
246: RAISE FND_API.G_EXC_ERROR;
239: THEN
240: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_ERROR)
241: THEN
242: fnd_message.Set_Name('PV', 'UT_CANNOT_GET_PROFILE_VALUE');
243: fnd_message.Set_Token('PROFILE', 'USER_ID', FALSE);
244: fnd_msg_pub.ADD;
245: END IF;
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
285:
286: -- Debug Message
287: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW)
288: THEN
289: fnd_message.Set_Name('PV', 'Pvt Acc API: Insert Addr Rec');
290: fnd_msg_pub.Add;
291: END IF;
292:
293:
298: -- Success Message
299: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_SUCCESS) and
300: l_return_status_full = FND_API.G_RET_STS_SUCCESS
301: THEN
302: fnd_message.Set_Name('PV', 'API_SUCCESS');
303: fnd_message.Set_Token('ROW', 'AS_ACCOUNT', TRUE);
304: fnd_msg_pub.Add;
305: END IF;
306:
299: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_SUCCESS) and
300: l_return_status_full = FND_API.G_RET_STS_SUCCESS
301: THEN
302: fnd_message.Set_Name('PV', 'API_SUCCESS');
303: fnd_message.Set_Token('ROW', 'AS_ACCOUNT', TRUE);
304: fnd_msg_pub.Add;
305: END IF;
306:
307: IF FND_API.To_Boolean ( p_commit )
311:
312: -- Debug Message
313: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW)
314: THEN
315: fnd_message.Set_Name('PV', 'Pvt Acc API: End');
316: fnd_msg_pub.Add;
317: END IF;
318:
319: -- Standard call to get message count and if count is 1, get message info.