226: -- Error, check the msg level and added an error message to the
227: -- API message list
228: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
229: THEN -- MMSG
230: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_SYSID_DUPE');
231: FND_MSG_PUB.Add;
232: END IF;
233:
234: -- If any errors happen abort API/Procedure.
245: -- Error, check the msg level and added an error message to the
246: -- API message list
247: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
248: THEN -- MMSG
249: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PINCODE_DUPE');
250: FND_MSG_PUB.Add;
251: END IF;
252:
253: x_return_status := FND_API.G_RET_STS_ERROR;
298: ) = FND_API.g_false
299: THEN
300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
301: THEN
302: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PARTY_INVALID');
303: FND_MSG_PUB.add;
304: END IF;
305:
306: x_return_status := FND_API.g_ret_sts_error;
317: ) = FND_API.g_false
318: THEN
319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
320: THEN
321: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PAR_PARTY_INVALID');
322: FND_MSG_PUB.add;
323: END IF;
324:
325: x_return_status := FND_API.g_ret_sts_error;
336: ) = FND_API.g_false
337: THEN
338: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
339: THEN
340: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
341: FND_MSG_PUB.add;
342: END IF;
343:
344: x_return_status := FND_API.g_ret_sts_error;
357: p_entry_rec.CELL_CODE)= FND_API.G_FALSE)
358: THEN
359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
360: THEN -- MMSG
361: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_CELLCODE_INVALID');
362: FND_MESSAGE.set_token('CELLCODE',p_entry_rec.CELL_CODE);
363: FND_MSG_PUB.Add;
364: END IF;
365:
358: THEN
359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
360: THEN -- MMSG
361: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_CELLCODE_INVALID');
362: FND_MESSAGE.set_token('CELLCODE',p_entry_rec.CELL_CODE);
363: FND_MSG_PUB.Add;
364: END IF;
365:
366: x_return_status := FND_API.G_RET_STS_ERROR;
422: IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.enabled_flag) = FND_API.g_false
423: THEN
424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
425: THEN
426: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_ENABLED_FLAG');
427: FND_MSG_PUB.add;
428: END IF;
429:
430: x_return_status := FND_API.g_ret_sts_error;
442: IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.PART_OF_CONTROL_GROUP_FLAG) = FND_API.g_false
443: THEN
444: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
445: THEN
446: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_CONTROL_FLAG');
447: FND_MSG_PUB.add;
448: END IF;
449:
450: x_return_status := FND_API.g_ret_sts_error;
459: IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MARKED_AS_RANDOM_FLAG) = FND_API.g_false
460: THEN
461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
462: THEN
463: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_RANDOM_FLAG');
464: FND_MSG_PUB.add;
465: END IF;
466:
467: x_return_status := FND_API.g_ret_sts_error;
476: IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MARKED_AS_DUPLICATE_FLAG) = FND_API.g_false
477: THEN
478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
479: THEN
480: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_DUPE_FLAG');
481: FND_MSG_PUB.add;
482: END IF;
483:
484: x_return_status := FND_API.g_ret_sts_error;
493: IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MANUALLY_ENTERED_FLAG) = FND_API.g_false
494: THEN
495: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
496: THEN
497: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_MANUAL_FLAG');
498: FND_MSG_PUB.add;
499: END IF;
500:
501: x_return_status := FND_API.g_ret_sts_error;
538: THEN
539: -- missing required fields
540: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
541: THEN -- MMSG
542: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_HEADER_MISSING');
543: FND_MSG_PUB.Add;
544: END IF;
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: -- If any errors happen abort API/Procedure.
552: THEN
553: -- missing required fields
554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
555: THEN -- MMSG
556: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_SYSID_MISSING');
557: FND_MSG_PUB.Add;
558: END IF;
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: -- If any errors happen abort API/Procedure.
565: THEN
566: -- missing required fields
567: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
568: THEN -- MMSG
569: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_SYSTYPE_MISSING');
570: FND_MSG_PUB.Add;
571: END IF;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: -- If any errors happen abort API/Procedure.
638: END IF;
639:
640: -- Debug Message
641: IF (AMS_DEBUG_HIGH_ON) THEN
642: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
643: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_Entry: Start', TRUE);
644: FND_MSG_PUB.Add;
645: END IF;
646:
639:
640: -- Debug Message
641: IF (AMS_DEBUG_HIGH_ON) THEN
642: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
643: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_Entry: Start', TRUE);
644: FND_MSG_PUB.Add;
645: END IF;
646:
647: -- Initialize API return status to success
677: -- Success Message
678: -- MMSG
679: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
680: THEN
681: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
682: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry', TRUE);
683: FND_MSG_PUB.Add;
684: END IF;
685:
678: -- MMSG
679: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
680: THEN
681: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
682: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry', TRUE);
683: FND_MSG_PUB.Add;
684: END IF;
685:
686:
684: END IF;
685:
686:
687: IF (AMS_DEBUG_HIGH_ON) THEN
688: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
689: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry: END', TRUE);
690: FND_MSG_PUB.Add;
691: END IF;
692:
685:
686:
687: IF (AMS_DEBUG_HIGH_ON) THEN
688: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
689: FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry: END', TRUE);
690: FND_MSG_PUB.Add;
691: END IF;
692:
693:
835: END IF;
836:
837: -- Debug Message
838: IF (AMS_DEBUG_HIGH_ON) THEN
839: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
840: FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Create_ListEntry: Start', TRUE);
841: FND_MSG_PUB.Add;
842: END IF;
843:
836:
837: -- Debug Message
838: IF (AMS_DEBUG_HIGH_ON) THEN
839: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
840: FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Create_ListEntry: Start', TRUE);
841: FND_MSG_PUB.Add;
842: END IF;
843:
844: -- Initialize API return status to success
1659: -- Success Message
1660: -- MMSG
1661: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1662: THEN
1663: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1664: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Create_ListEntry', TRUE);
1665: FND_MSG_PUB.Add;
1666: END IF;
1667:
1660: -- MMSG
1661: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1662: THEN
1663: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1664: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Create_ListEntry', TRUE);
1665: FND_MSG_PUB.Add;
1666: END IF;
1667:
1668:
1666: END IF;
1667:
1668:
1669: IF (AMS_DEBUG_HIGH_ON) THEN
1670: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1671: FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Create_ListEntry: END', TRUE);
1672: FND_MSG_PUB.Add;
1673: END IF;
1674:
1667:
1668:
1669: IF (AMS_DEBUG_HIGH_ON) THEN
1670: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1671: FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Create_ListEntry: END', TRUE);
1672: FND_MSG_PUB.Add;
1673: END IF;
1674:
1675:
1783: END IF;
1784:
1785: -- Debug Message
1786: IF (AMS_DEBUG_HIGH_ON) THEN
1787: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1788: FND_MESSAGE.Set_Token('ROW','AMS_List_Header_PVT.Update_list_entry: Start', TRUE);
1789: FND_MSG_PUB.Add;
1790: END IF;
1791:
1784:
1785: -- Debug Message
1786: IF (AMS_DEBUG_HIGH_ON) THEN
1787: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1788: FND_MESSAGE.Set_Token('ROW','AMS_List_Header_PVT.Update_list_entry: Start', TRUE);
1789: FND_MSG_PUB.Add;
1790: END IF;
1791:
1792:
2181: -- Error, check the msg level and added an error message to the
2182: -- API message list
2183: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2184: THEN -- MMSG
2185: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2186: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_List_Entry API', TRUE);
2187: FND_MSG_PUB.Add;
2188: END IF;
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2182: -- API message list
2183: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2184: THEN -- MMSG
2185: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2186: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_List_Entry API', TRUE);
2187: FND_MSG_PUB.Add;
2188: END IF;
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: end if;
2199: -- Success Message
2200: -- MMSG
2201: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2202: THEN
2203: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2204: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry', TRUE);
2205: FND_MSG_PUB.Add;
2206: END IF;
2207:
2200: -- MMSG
2201: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2202: THEN
2203: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2204: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry', TRUE);
2205: FND_MSG_PUB.Add;
2206: END IF;
2207:
2208:
2206: END IF;
2207:
2208:
2209: IF (AMS_DEBUG_HIGH_ON) THEN
2210: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2211: FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Update_ListEntry: END', TRUE);
2212: FND_MSG_PUB.Add;
2213: END IF;
2214:
2207:
2208:
2209: IF (AMS_DEBUG_HIGH_ON) THEN
2210: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2211: FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Update_ListEntry: END', TRUE);
2212: FND_MSG_PUB.Add;
2213: END IF;
2214:
2215:
2324: END IF;
2325:
2326: -- Debug Message
2327: IF (AMS_DEBUG_HIGH_ON) THEN
2328: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2329: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry: Start', TRUE);
2330: FND_MSG_PUB.Add;
2331: END IF;
2332:
2325:
2326: -- Debug Message
2327: IF (AMS_DEBUG_HIGH_ON) THEN
2328: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2329: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry: Start', TRUE);
2330: FND_MSG_PUB.Add;
2331: END IF;
2332:
2333: -- Initialize API return status to success
2342: -- Perform the database operation
2343:
2344:
2345: IF (AMS_DEBUG_LOW_ON) THEN
2346: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2347: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT - DELETE FROM ams_list_entries', TRUE);
2348: FND_MSG_PUB.Add;
2349: END IF;
2350:
2343:
2344:
2345: IF (AMS_DEBUG_LOW_ON) THEN
2346: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2347: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT - DELETE FROM ams_list_entries', TRUE);
2348: FND_MSG_PUB.Add;
2349: END IF;
2350:
2351:
2359: -- Error, check the msg level and added an error message to the
2360: -- API message list
2361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2362: THEN -- MMSG
2363: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2364: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry API', TRUE);
2365: FND_MSG_PUB.Add;
2366: END IF;
2367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2360: -- API message list
2361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2362: THEN -- MMSG
2363: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2364: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry API', TRUE);
2365: FND_MSG_PUB.Add;
2366: END IF;
2367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2368: end if;
2380: -- Success Message
2381: -- MMSG
2382: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2383: THEN
2384: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2385: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry', TRUE);
2386: FND_MSG_PUB.Add;
2387: END IF;
2388:
2381: -- MMSG
2382: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2383: THEN
2384: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2385: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry', TRUE);
2386: FND_MSG_PUB.Add;
2387: END IF;
2388:
2389:
2387: END IF;
2388:
2389:
2390: IF (AMS_DEBUG_HIGH_ON) THEN
2391: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2392: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry: END', TRUE);
2393: FND_MSG_PUB.Add;
2394: END IF;
2395:
2388:
2389:
2390: IF (AMS_DEBUG_HIGH_ON) THEN
2391: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2392: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry: END', TRUE);
2393: FND_MSG_PUB.Add;
2394: END IF;
2395:
2396:
2505: END IF;
2506:
2507: -- Debug Message
2508: IF (AMS_DEBUG_HIGH_ON) THEN
2509: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2510: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: Start', TRUE);
2511: FND_MSG_PUB.Add;
2512: END IF;
2513:
2506:
2507: -- Debug Message
2508: IF (AMS_DEBUG_HIGH_ON) THEN
2509: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2510: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: Start', TRUE);
2511: FND_MSG_PUB.Add;
2512: END IF;
2513:
2514: -- Initialize API return status to success
2519: FETCH c_entry INTO l_entry_id;
2520: IF (c_entry%NOTFOUND) THEN
2521: CLOSE c_entry;
2522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2523: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2524: FND_MSG_PUB.add;
2525: END IF;
2526: RAISE FND_API.g_exc_error;
2527: END IF;
2531: -- Success Message
2532: -- MMSG
2533: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2534: THEN
2535: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2536: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry', TRUE);
2537: FND_MSG_PUB.Add;
2538: END IF;
2539:
2532: -- MMSG
2533: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2534: THEN
2535: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2536: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry', TRUE);
2537: FND_MSG_PUB.Add;
2538: END IF;
2539:
2540:
2538: END IF;
2539:
2540:
2541: IF (AMS_DEBUG_HIGH_ON) THEN
2542: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2543: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: END', TRUE);
2544: FND_MSG_PUB.Add;
2545: END IF;
2546:
2539:
2540:
2541: IF (AMS_DEBUG_HIGH_ON) THEN
2542: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2543: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: END', TRUE);
2544: FND_MSG_PUB.Add;
2545: END IF;
2546:
2547: -- Standard call to get message count AND IF count is 1, get message info.
2581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2582:
2583: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2584: THEN -- MMSG
2585: FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
2586: FND_MSG_PUB.Add;
2587: END IF;
2588:
2589: FND_MSG_PUB.Count_AND_Get
3126: FETCH c_entry INTO l_entry_rec;
3127: IF c_entry%NOTFOUND THEN
3128: CLOSE c_entry;
3129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3130: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3131: FND_MSG_PUB.add;
3132: END IF;
3133: RAISE FND_API.g_exc_error;
3134: END IF;
4762: END IF;
4763:
4764: -- Debug Message
4765: IF (AMS_DEBUG_HIGH_ON) THEN
4766: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4767: FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Update_ListEntry_Source_Code: Start', TRUE);
4768: FND_MSG_PUB.Add;
4769: END IF;
4770:
4763:
4764: -- Debug Message
4765: IF (AMS_DEBUG_HIGH_ON) THEN
4766: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4767: FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Update_ListEntry_Source_Code: Start', TRUE);
4768: FND_MSG_PUB.Add;
4769: END IF;
4770:
4771: -- Initialize API return status to success
4818:
4819: -- MMSG
4820: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
4821: THEN
4822: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
4823: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code', TRUE);
4824: FND_MSG_PUB.Add;
4825: END IF;
4826:
4819: -- MMSG
4820: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
4821: THEN
4822: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
4823: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code', TRUE);
4824: FND_MSG_PUB.Add;
4825: END IF;
4826:
4827:
4825: END IF;
4826:
4827:
4828: IF (AMS_DEBUG_HIGH_ON) THEN
4829: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4830: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code: END', TRUE);
4831: FND_MSG_PUB.Add;
4832: END IF;
4833:
4826:
4827:
4828: IF (AMS_DEBUG_HIGH_ON) THEN
4829: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4830: FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code: END', TRUE);
4831: FND_MSG_PUB.Add;
4832: END IF;
4833:
4834: -- Standard call to get message count AND IF count is 1, get message info.
4868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4869:
4870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4871: THEN -- MMSG
4872: FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
4873: FND_MSG_PUB.Add;
4874: END IF;
4875:
4876: FND_MSG_PUB.Count_AND_Get