[Home] [Help]
38:
39: G_PKG_NAME CONSTANT VARCHAR2(30):='AMS_ListAction_PVT';
40: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlsab.pls';
41:
42: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
43:
44:
45: ---------------------------------------------------------------------
46: -- PROCEDURE
143: fetch c_is_ord_no_unique into l_ord_no_count;
144: close c_is_ord_no_unique;
145:
146: IF(l_ord_no_count > 0 ) THEN
147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
148: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_ORD_NUM');
149: FND_MSG_PUB.Add;
150: END IF;
151:
145:
146: IF(l_ord_no_count > 0 ) THEN
147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
148: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_ORD_NUM');
149: FND_MSG_PUB.Add;
150: END IF;
151:
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: -- If any errors happen abort API/Procedure.
175: end if;
176: IF l_action_type <> FND_API.G_MISS_CHAR
177: AND l_action_type IS NOT NULL THEN
178: IF(l_action_type <>'INCLUDE')THEN
179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
180: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
181: FND_MSG_PUB.Add;
182: END IF;
183: x_return_status := FND_API.G_RET_STS_ERROR;
177: AND l_action_type IS NOT NULL THEN
178: IF(l_action_type <>'INCLUDE')THEN
179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
180: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_FIRST_INCLUDE');
181: FND_MSG_PUB.Add;
182: END IF;
183: x_return_status := FND_API.G_RET_STS_ERROR;
184: RAISE FND_API.G_EXC_ERROR;
185: END IF; --end if l_action_type <>'INCLUDE'
199: x_return_status := FND_API.G_RET_STS_SUCCESS;
200: ELSE
201: -- Error, check the msg level and added an error message to the
202: -- API message list
203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
204: THEN
205: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DUPE_ACTION');
206: FND_MESSAGE.set_token('ACT_SOURCE', p_action_rec.arc_incl_object_from ||'-->'|| p_action_rec.incl_object_id );
207: FND_MSG_PUB.Add;
203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
204: THEN
205: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DUPE_ACTION');
206: FND_MESSAGE.set_token('ACT_SOURCE', p_action_rec.arc_incl_object_from ||'-->'|| p_action_rec.incl_object_id );
207: FND_MSG_PUB.Add;
208: END IF;
209:
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: -- If any errors happen abort API/Procedure.
218:
219: IF(p_action_rec.DISTRIBUTION_PCT IS NOT NULL AND p_action_rec.DISTRIBUTION_PCT <> FND_API.G_MISS_NUM ) THEN
220: IF (p_action_rec.DISTRIBUTION_PCT > 100 )THEN
221: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DIST_PCT_INVALID');
222: FND_MSG_PUB.Add;
223: x_return_status := FND_API.G_RET_STS_ERROR;
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226: IF (p_action_rec.DISTRIBUTION_PCT <= 0 )THEN
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226: IF (p_action_rec.DISTRIBUTION_PCT <= 0 )THEN
227: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DIST_PCT_INVALID');
228: FND_MSG_PUB.Add;
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232: END IF;
233:
234: IF(p_action_rec.list_action_type <> 'INCLUDE' ) THEN
235: IF(p_action_rec.DISTRIBUTION_PCT IS NOT NULL AND p_action_rec.DISTRIBUTION_PCT <> FND_API.G_MISS_NUM ) THEN
236: FND_MESSAGE.set_name('AMS', 'AMS_DIST_PCT_NULL');
237: FND_MSG_PUB.Add;
238: x_return_status := FND_API.G_RET_STS_ERROR;
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: END IF;
277: 'ams_list_select_actions',
278: 'list_select_action_id = ' || p_action_rec.list_select_action_id
279: ) = FND_API.g_false
280: THEN
281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
282: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DUPE_ACTION');
283: FND_MSG_PUB.add;
284: END IF;
285: x_return_status := FND_API.g_ret_sts_error;
279: ) = FND_API.g_false
280: THEN
281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
282: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DUPE_ACTION');
283: FND_MSG_PUB.add;
284: END IF;
285: x_return_status := FND_API.g_ret_sts_error;
286: RETURN;
287: END IF;
296: ' and action_used_by_id = '||p_action_rec.action_used_by_id
297: ||' and arc_action_used_by = '||p_action_rec.arc_action_used_by
298: ) = FND_API.g_false
299: THEN
300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
301: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_ORD_NUM');
302: FND_MSG_PUB.add;
303: END IF;
304: 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) THEN
301: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_ORD_NUM');
302: FND_MSG_PUB.add;
303: END IF;
304: x_return_status := FND_API.g_ret_sts_error;
305: RETURN;
306: END IF;
317: ||' and arc_action_used_by = '||
318: p_action_rec.arc_action_used_by
319: ) = FND_API.g_false
320: THEN
321: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
322: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_RANK_NUM');
323: FND_MSG_PUB.add;
324: END IF;
325: x_return_status := FND_API.g_ret_sts_error;
319: ) = FND_API.g_false
320: THEN
321: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
322: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_RANK_NUM');
323: FND_MSG_PUB.add;
324: END IF;
325: x_return_status := FND_API.g_ret_sts_error;
326: RETURN;
327: END IF;
371: THEN
372: x_return_status := FND_API.G_RET_STS_SUCCESS;
373:
374: ELSE
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
376: THEN
377: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
378: FND_MSG_PUB.Add;
379: END IF;
374: ELSE
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
376: THEN
377: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
378: FND_MSG_PUB.Add;
379: END IF;
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF; -- end AMS_Utility_PVT.Check_FK_Exists
411: THEN
412: x_return_status := FND_API.G_RET_STS_SUCCESS;
413:
414: ELSE
415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
416: THEN
417: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
418: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from ||'-->'|| p_action_rec.incl_object_id );
419: FND_MSG_PUB.Add;
415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
416: THEN
417: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
418: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from ||'-->'|| p_action_rec.incl_object_id );
419: FND_MSG_PUB.Add;
420: END IF;
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF; -- end AMS_Utility_PVT.Check_FK_Exists
442: IF p_action_rec.order_number <> FND_API.g_miss_num THEN
443: if p_action_rec.order_number < 1 then
444: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ORDER_NUMBER_RANK');
445: FND_MESSAGE.set_token('FIELD', 'ORDER_NUMBER');
446: FND_MSG_PUB.add;
447: x_return_status := FND_API.g_ret_sts_error;
448: return ;
449: end if;
450: if trunc(p_action_rec.order_number) <> p_action_rec.order_number then
449: end if;
450: if trunc(p_action_rec.order_number) <> p_action_rec.order_number then
451: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ORDER_NUMBER_RANK');
452: FND_MESSAGE.set_token('FIELD', 'ORDER_NUMBER');
453: FND_MSG_PUB.add;
454: x_return_status := FND_API.g_ret_sts_error;
455: return ;
456: end if;
457:
461: IF p_action_rec.rank <> FND_API.g_miss_num AND p_action_rec.arc_action_used_by NOT IN ('MODL', 'SCOR') THEN
462: if p_action_rec.rank < 1 then
463: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ORDER_NUMBER_RANK');
464: FND_MESSAGE.set_token('FIELD', 'RANK');
465: FND_MSG_PUB.add;
466: x_return_status := FND_API.g_ret_sts_error;
467: return ;
468: end if;
469: if trunc(p_action_rec.rank) <> p_action_rec.rank then
468: end if;
469: if trunc(p_action_rec.rank) <> p_action_rec.rank then
470: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ORDER_NUMBER_RANK');
471: FND_MESSAGE.set_token('FIELD', 'RANK');
472: FND_MSG_PUB.add;
473: x_return_status := FND_API.g_ret_sts_error;
474: return ;
475: end if;
476:
478:
479: IF (p_action_rec.list_action_type = 'INCLUDE' AND p_action_rec.arc_action_used_by NOT IN ('MODL', 'SCOR')) THEN
480: IF (p_action_rec.rank = FND_API.g_miss_num ) THEN
481: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_RANK_MISSING');
482: FND_MSG_PUB.add;
483: x_return_status := FND_API.g_ret_sts_error;
484: return ;
485: end if;
486: IF (p_action_rec.rank is null ) THEN
484: return ;
485: end if;
486: IF (p_action_rec.rank is null ) THEN
487: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_RANK_MISSING');
488: FND_MSG_PUB.add;
489: x_return_status := FND_API.g_ret_sts_error;
490: return ;
491: end if;
492:
495:
496: IF p_action_rec.incl_control_group <> FND_API.g_miss_char
497: AND p_action_rec.incl_control_group IS NOT NULL THEN
498: IF AMS_Utility_PVT.is_Y_or_N(p_action_rec.incl_control_group) = FND_API.g_false THEN
499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
500: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_FLAG');
501: FND_MSG_PUB.add;
502: END IF;
503: x_return_status := FND_API.g_ret_sts_error;
497: AND p_action_rec.incl_control_group IS NOT NULL THEN
498: IF AMS_Utility_PVT.is_Y_or_N(p_action_rec.incl_control_group) = FND_API.g_false THEN
499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
500: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_FLAG');
501: FND_MSG_PUB.add;
502: END IF;
503: x_return_status := FND_API.g_ret_sts_error;
504: RETURN;
505: END IF;
530: p_lookup_type => 'AMS_SELECT_ACTION_USED_BY',
531: p_lookup_code => p_action_rec.arc_action_used_by
532: ) = FND_API.g_false
533: THEN
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
535: THEN
536: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTION_USEDBY_INVALID');
537: FND_MESSAGE.set_token('ACTION_USED_BY', p_action_rec.arc_action_used_by);
538: FND_MSG_PUB.add;
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
535: THEN
536: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTION_USEDBY_INVALID');
537: FND_MESSAGE.set_token('ACTION_USED_BY', p_action_rec.arc_action_used_by);
538: FND_MSG_PUB.add;
539: END IF;
540:
541: x_return_status := FND_API.g_ret_sts_error;
542: RETURN;
549: p_lookup_type => 'AMS_LIST_SELECT_ACTION',
550: p_lookup_code => p_action_rec.list_action_type
551: ) = FND_API.g_false
552: THEN
553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
554: THEN
555: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_TYPE');
556: FND_MSG_PUB.add;
557: END IF;
552: THEN
553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
554: THEN
555: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_BAD_TYPE');
556: FND_MSG_PUB.add;
557: END IF;
558:
559: x_return_status := FND_API.g_ret_sts_error;
560: RETURN;
568: p_lookup_type => 'AMS_LIST_SELECT_TYPE',
569: p_lookup_code => p_action_rec.arc_incl_object_from
570: ) = FND_API.g_false
571: THEN
572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
573: THEN
574: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
575: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from);
576: FND_MSG_PUB.add;
572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
573: THEN
574: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
575: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from);
576: FND_MSG_PUB.add;
577: END IF;
578:
579: x_return_status := FND_API.g_ret_sts_error;
580: RETURN;
587: p_lookup_type => 'AMS_DM_SOURCE_TYPE',
588: p_lookup_code => p_action_rec.arc_incl_object_from
589: ) = FND_API.g_false
590: THEN
591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
592: THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
594: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from);
595: FND_MSG_PUB.add;
591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
592: THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_SRC_INVALID');
594: FND_MESSAGE.set_token('LIST_SOURCE', p_action_rec.arc_incl_object_from);
595: FND_MSG_PUB.add;
596: END IF;
597:
598: x_return_status := FND_API.g_ret_sts_error;
599: END IF;
635: --Initialize API/Procedure return status to success
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
637:
638: IF (p_action_rec.arc_action_used_by IS NULL) THEN
639: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
640: FND_MESSAGE.Set_Name('AMS', 'AMS_ACTION_USEDBY_MISSING');
641: FND_MSG_PUB.Add;
642: END IF;
643: x_return_status := FND_API.G_RET_STS_ERROR;
637:
638: IF (p_action_rec.arc_action_used_by IS NULL) THEN
639: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
640: FND_MESSAGE.Set_Name('AMS', 'AMS_ACTION_USEDBY_MISSING');
641: FND_MSG_PUB.Add;
642: END IF;
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: return;
645: END IF;
644: return;
645: END IF;
646:
647: IF (p_action_rec.action_used_by_id IS NULL) THEN
648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
649: FND_MESSAGE.Set_Name('AMS', 'AMS_USEDBY_ID_MISSING');
650: FND_MSG_PUB.Add;
651: END IF;
652: x_return_status := FND_API.G_RET_STS_ERROR;
646:
647: IF (p_action_rec.action_used_by_id IS NULL) THEN
648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
649: FND_MESSAGE.Set_Name('AMS', 'AMS_USEDBY_ID_MISSING');
650: FND_MSG_PUB.Add;
651: END IF;
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: return;
654: END IF;
653: return;
654: END IF;
655:
656: IF (p_action_rec.order_number IS NULL) THEN
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_ORDNO_MISSING');
659: FND_MSG_PUB.Add;
660: END IF;
661: x_return_status := FND_API.G_RET_STS_ERROR;
655:
656: IF (p_action_rec.order_number IS NULL) THEN
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_ORDNO_MISSING');
659: FND_MSG_PUB.Add;
660: END IF;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: return;
663: END IF;
662: return;
663: END IF;
664:
665: IF (p_action_rec.list_action_type IS NULL) THEN
666: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
667: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_TYPE_MISSING');
668: FND_MSG_PUB.Add;
669: END IF;
670: x_return_status := FND_API.G_RET_STS_ERROR;
664:
665: IF (p_action_rec.list_action_type IS NULL) THEN
666: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
667: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_TYPE_MISSING');
668: FND_MSG_PUB.Add;
669: END IF;
670: x_return_status := FND_API.G_RET_STS_ERROR;
671: return;
672: END IF;
671: return;
672: END IF;
673:
674: -- IF(p_action_rec.incl_object_name IS NULL) THEN
675: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: -- FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_SRC_NAME_MISSING');
677: -- FND_MSG_PUB.Add;
678: -- END IF;
679: -- x_return_status := FND_API.G_RET_STS_ERROR;
673:
674: -- IF(p_action_rec.incl_object_name IS NULL) THEN
675: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: -- FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ACT_SRC_NAME_MISSING');
677: -- FND_MSG_PUB.Add;
678: -- END IF;
679: -- x_return_status := FND_API.G_RET_STS_ERROR;
680: -- return;
681: -- END IF;
680: -- return;
681: -- END IF;
682:
683: IF (p_action_rec.arc_incl_object_from IS NULL) THEN
684: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
685: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ARC_INCLUDE_FROM');
686: FND_MSG_PUB.Add;
687: END IF;
688: x_return_status := FND_API.G_RET_STS_ERROR;
682:
683: IF (p_action_rec.arc_incl_object_from IS NULL) THEN
684: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
685: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ARC_INCLUDE_FROM');
686: FND_MSG_PUB.Add;
687: END IF;
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: return;
690: END IF;
689: return;
690: END IF;
691:
692: IF (p_action_rec.incl_object_id IS NULL) THEN
693: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
694: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ARC_INCLUDE_FROM_ID');
695: FND_MSG_PUB.Add;
696: END IF;
697: x_return_status := FND_API.G_RET_STS_ERROR;
691:
692: IF (p_action_rec.incl_object_id IS NULL) THEN
693: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
694: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ARC_INCLUDE_FROM_ID');
695: FND_MSG_PUB.Add;
696: END IF;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: return;
699: END IF;
821: END IF;
822:
823: -- Initialize message list if p_init_msg_list is set to TRUE.
824: IF FND_API.to_Boolean( p_init_msg_list ) THEN
825: FND_MSG_PUB.initialize;
826: END IF;
827:
828: -- Debug Message
829: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
825: FND_MSG_PUB.initialize;
826: END IF;
827:
828: -- Debug Message
829: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
830: THEN
831: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
832: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListAction_Record: Start', TRUE);
833: FND_MSG_PUB.Add;
829: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
830: THEN
831: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
832: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListAction_Record: Start', TRUE);
833: FND_MSG_PUB.Add;
834: END IF; */
835:
836: IF (AMS_DEBUG_HIGH_ON) THEN
837: AMS_Utility_PVT.debug_message(l_api_name||': Start ');
874:
875: IF(p_action_rec.DISTRIBUTION_PCT IS NOT NULL) THEN
876: IF (p_action_rec.DISTRIBUTION_PCT > 100 )THEN
877: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DIST_PCT_INVALID');
878: FND_MSG_PUB.Add;
879: x_return_status := FND_API.G_RET_STS_ERROR;
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: IF (p_action_rec.DISTRIBUTION_PCT <= 0 )THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: IF (p_action_rec.DISTRIBUTION_PCT <= 0 )THEN
883: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACT_DIST_PCT_INVALID');
884: FND_MSG_PUB.Add;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888: END IF;
889:
890:
891: -- Success Message
892: -- MMSG
893: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
894: THEN
895: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
896: -- bmuthukr changes for bug 5185128. Implemented changes as suggested in bug 5191606.
897: -- FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListAction_Record', TRUE);
895: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
896: -- bmuthukr changes for bug 5185128. Implemented changes as suggested in bug 5191606.
897: -- FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListAction_Record', TRUE);
898: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListAction_Record', FALSE);
899: FND_MSG_PUB.Add;
900: END IF;
901:
902:
903: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
899: FND_MSG_PUB.Add;
900: END IF;
901:
902:
903: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
904: THEN
905: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
906: FND_MESSAGE.Set_Token('ROW',
907: 'AMS_ListHeader_PVT.Validate_ListAction_Record: END', TRUE);
904: THEN
905: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
906: FND_MESSAGE.Set_Token('ROW',
907: 'AMS_ListHeader_PVT.Validate_ListAction_Record: END', TRUE);
908: FND_MSG_PUB.Add;
909: END IF; */
910:
911:
912: IF (AMS_DEBUG_HIGH_ON) THEN
914: END IF;
915:
916:
917: -- Standard call to get message count AND IF count is 1, get message info.
918: FND_MSG_PUB.Count_AND_Get
919: ( p_count => x_msg_count,
920: p_data => x_msg_data,
921: p_encoded => FND_API.G_FALSE
922: );
926: EXCEPTION
927: WHEN FND_API.G_EXC_ERROR THEN
928: x_return_status := FND_API.G_RET_STS_ERROR ;
929:
930: FND_MSG_PUB.Count_AND_Get
931: ( p_count => x_msg_count,
932: p_data => x_msg_data,
933: p_encoded => FND_API.G_FALSE
934: );
935:
936:
937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
939: FND_MSG_PUB.Count_AND_Get
940: ( p_count => x_msg_count,
941: p_data => x_msg_data,
942: p_encoded => FND_API.G_FALSE
943: );
943: );
944:
945: WHEN OTHERS THEN
946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
947: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
948: THEN
949: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
950: END IF;
951:
945: WHEN OTHERS THEN
946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
947: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
948: THEN
949: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
950: END IF;
951:
952: FND_MSG_PUB.Count_AND_Get
953: ( p_count => x_msg_count,
948: THEN
949: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
950: END IF;
951:
952: FND_MSG_PUB.Count_AND_Get
953: ( p_count => x_msg_count,
954: p_data => x_msg_data,
955: p_encoded => FND_API.G_FALSE
956: );
1030: END IF;
1031:
1032: -- Initialize message list IF p_init_msg_list is set to TRUE.
1033: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1034: FND_MSG_PUB.initialize;
1035: END IF;
1036:
1037: -- Debug Message
1038: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1034: FND_MSG_PUB.initialize;
1035: END IF;
1036:
1037: -- Debug Message
1038: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1039: THEN
1040: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1041: FND_MESSAGE.Set_Token('ROW','AMS_ListAction_PVT.Create_ListAction: Start', TRUE);
1042: FND_MSG_PUB.Add;
1038: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1039: THEN
1040: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1041: FND_MESSAGE.Set_Token('ROW','AMS_ListAction_PVT.Create_ListAction: Start', TRUE);
1042: FND_MSG_PUB.Add;
1043: END IF; */
1044:
1045: IF (AMS_DEBUG_HIGH_ON) THEN
1046: AMS_Utility_PVT.debug_message(l_api_name||': Start ');
1176: END IF;
1177:
1178: -- Success Message
1179: -- MMSG
1180: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1181: THEN
1182: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1183: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Create_ListAction', TRUE);
1184: FND_MSG_PUB.Add;
1180: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1181: THEN
1182: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1183: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Create_ListAction', TRUE);
1184: FND_MSG_PUB.Add;
1185: END IF;
1186:
1187: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1188: THEN
1183: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Create_ListAction', TRUE);
1184: FND_MSG_PUB.Add;
1185: END IF;
1186:
1187: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1188: THEN
1189: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1190: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Create_ListAction: END', TRUE);
1191: FND_MSG_PUB.Add;
1187: /*ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1188: THEN
1189: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1190: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Create_ListAction: END', TRUE);
1191: FND_MSG_PUB.Add;
1192: END IF; */
1193:
1194:
1195: -- Standard call to get message count AND IF count is 1, get message info.
1192: END IF; */
1193:
1194:
1195: -- Standard call to get message count AND IF count is 1, get message info.
1196: FND_MSG_PUB.Count_AND_Get
1197: ( p_count => x_msg_count,
1198: p_data => x_msg_data,
1199: p_encoded => FND_API.G_FALSE
1200: );
1207: x_return_status := FND_API.G_RET_STS_ERROR ;
1208: l_sqlerrm := SQLERRM;
1209: l_sqlcode := SQLCODE;
1210:
1211: FND_MSG_PUB.Count_AND_Get
1212: ( p_count => x_msg_count,
1213: p_data => x_msg_data,
1214: p_encoded => FND_API.G_FALSE
1215: );
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1222: l_sqlerrm := SQLERRM;
1223: l_sqlcode := SQLCODE;
1224:
1225: FND_MSG_PUB.Count_AND_Get
1226: ( p_count => x_msg_count,
1227: p_data => x_msg_data,
1228: p_encoded => FND_API.G_FALSE
1229: );
1234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1235: l_sqlerrm := SQLERRM;
1236: l_sqlcode := SQLCODE;
1237:
1238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1239: THEN
1240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1241: END IF;
1242:
1236: l_sqlcode := SQLCODE;
1237:
1238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1239: THEN
1240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1241: END IF;
1242:
1243: FND_MSG_PUB.Count_AND_Get
1244: ( p_count => x_msg_count,
1239: THEN
1240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1241: END IF;
1242:
1243: FND_MSG_PUB.Count_AND_Get
1244: ( p_count => x_msg_count,
1245: p_data => x_msg_data,
1246: p_encoded => FND_API.G_FALSE
1247: );
1304: END IF;
1305:
1306: -- Initialize message list IF p_init_msg_list is set to TRUE.
1307: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310:
1311: -- Debug Message
1312: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310:
1311: -- Debug Message
1312: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1313: THEN
1314: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1315: FND_MESSAGE.Set_Token('ROW','AMS_ListAction_PVT.Update_ListAction: Start', TRUE);
1316: FND_MSG_PUB.Add;
1312: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1313: THEN
1314: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1315: FND_MESSAGE.Set_Token('ROW','AMS_ListAction_PVT.Update_ListAction: Start', TRUE);
1316: FND_MSG_PUB.Add;
1317: END IF; */
1318:
1319:
1320: IF (AMS_DEBUG_HIGH_ON) THEN
1359:
1360:
1361: -- Perform the database operation
1362:
1363: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1364: THEN
1365: -------------------------------------------
1366: -- choang 07-jan-2000
1367: -- Replace the dbms_output with create_log
1414:
1415: IF (SQL%NOTFOUND) THEN
1416: -- Error, check the msg level and added an error message to the
1417: -- API message list
1418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1419: THEN -- MMSG
1420: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
1421: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction API', TRUE);
1422: FND_MSG_PUB.Add;
1418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1419: THEN -- MMSG
1420: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
1421: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction API', TRUE);
1422: FND_MSG_PUB.Add;
1423: END IF;
1424:
1425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1426: END IF;
1450:
1451:
1452: -- Success Message
1453: -- MMSG
1454: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1455: THEN
1456: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1457: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction', TRUE);
1458: FND_MSG_PUB.Add;
1454: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1455: THEN
1456: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1457: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction', TRUE);
1458: FND_MSG_PUB.Add;
1459: END IF;
1460:
1461:
1462: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1458: FND_MSG_PUB.Add;
1459: END IF;
1460:
1461:
1462: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1463: THEN
1464: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1465: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction: END', TRUE);
1466: FND_MSG_PUB.Add;
1462: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1463: THEN
1464: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1465: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Update_ListAction: END', TRUE);
1466: FND_MSG_PUB.Add;
1467: END IF; */
1468:
1469:
1470: -- Standard call to get message count AND IF count is 1, get message info.
1467: END IF; */
1468:
1469:
1470: -- Standard call to get message count AND IF count is 1, get message info.
1471: FND_MSG_PUB.Count_AND_Get
1472: ( p_count => x_msg_count,
1473: p_data => x_msg_data,
1474: p_encoded => FND_API.G_FALSE
1475: );
1483: l_sqlerrm := SQLERRM;
1484: l_sqlcode := SQLCODE;
1485: --dbms_output.put_line('AMS_ListAction_PVT.Update_listaction:'||l_sqlerrm||l_sqlcode);
1486:
1487: FND_MSG_PUB.Count_AND_Get
1488: ( p_count => x_msg_count,
1489: p_data => x_msg_data,
1490: p_encoded => FND_API.G_FALSE
1491: );
1498: l_sqlerrm := SQLERRM;
1499: l_sqlcode := SQLCODE;
1500: --dbms_output.put_line('AMS_ListAction_PVT.Update_listaction:'||l_sqlerrm||l_sqlcode);
1501:
1502: FND_MSG_PUB.Count_AND_Get
1503: ( p_count => x_msg_count,
1504: p_data => x_msg_data,
1505: p_encoded => FND_API.G_FALSE
1506: );
1513: l_sqlerrm := SQLERRM;
1514: l_sqlcode := SQLCODE;
1515: --dbms_output.put_line('AMS_ListAction_PVT.Update_listaction:'||l_sqlerrm||l_sqlcode);
1516:
1517: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1518: THEN
1519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1520: END IF;
1521:
1515: --dbms_output.put_line('AMS_ListAction_PVT.Update_listaction:'||l_sqlerrm||l_sqlcode);
1516:
1517: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1518: THEN
1519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1520: END IF;
1521:
1522: FND_MSG_PUB.Count_AND_Get
1523: ( p_count => x_msg_count,
1518: THEN
1519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1520: END IF;
1521:
1522: FND_MSG_PUB.Count_AND_Get
1523: ( p_count => x_msg_count,
1524: p_data => x_msg_data,
1525: p_encoded => FND_API.G_FALSE
1526: );
1582:
1583:
1584: -- Initialize message list IF p_init_msg_list is set to TRUE.
1585: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1586: FND_MSG_PUB.initialize;
1587: END IF;
1588:
1589: -- Debug Message
1590: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1586: FND_MSG_PUB.initialize;
1587: END IF;
1588:
1589: -- Debug Message
1590: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1591: THEN
1592: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1593: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction: Start', TRUE);
1594: FND_MSG_PUB.Add;
1590: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1591: THEN
1592: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1593: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction: Start', TRUE);
1594: FND_MSG_PUB.Add;
1595: END IF; */
1596:
1597: IF (AMS_DEBUG_HIGH_ON) THEN
1598: AMS_Utility_PVT.debug_message(l_api_name||': Start ');
1604:
1605:
1606: -- Perform the database operation
1607:
1608: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1609: THEN
1610: NULL;
1611: --dbms_output.put_line('AMS_List_SelectAction_PVT - DELETE FROM ams_list_select_actions');
1612: END IF;
1649: (l_complete_list_header_rec.status_code='LOCKED') OR
1650: (l_complete_list_header_rec.status_code='ARCHIVED') OR
1651: (l_complete_list_header_rec.status_code='EXPIRED')
1652: THEN
1653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1654: THEN
1655: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTION_NO_DEL');
1656: FND_MSG_PUB.add;
1657: END IF;
1652: THEN
1653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1654: THEN
1655: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTION_NO_DEL');
1656: FND_MSG_PUB.add;
1657: END IF;
1658:
1659: x_return_status := FND_API.g_ret_sts_error;
1660: RAISE FND_API.G_EXC_ERROR;
1694: END IF;
1695:
1696: -- Success Message
1697: -- MMSG
1698: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1699: THEN
1700: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1701: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction', TRUE);
1702: FND_MSG_PUB.Add;
1698: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1699: THEN
1700: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1701: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction', TRUE);
1702: FND_MSG_PUB.Add;
1703: END IF;
1704:
1705:
1706: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1702: FND_MSG_PUB.Add;
1703: END IF;
1704:
1705:
1706: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1707: THEN
1708: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1709: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction: END', TRUE);
1710: FND_MSG_PUB.Add;
1706: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1707: THEN
1708: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1709: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Delete_ListAction: END', TRUE);
1710: FND_MSG_PUB.Add;
1711: END IF; */
1712:
1713:
1714: -- Standard call to get message count AND IF count is 1, get message info.
1711: END IF; */
1712:
1713:
1714: -- Standard call to get message count AND IF count is 1, get message info.
1715: FND_MSG_PUB.Count_AND_Get
1716: ( p_count => x_msg_count,
1717: p_data => x_msg_data,
1718: p_encoded => FND_API.G_FALSE
1719: );
1724:
1725: ROLLBACK TO Delete_ListAction_PVT;
1726: x_return_status := FND_API.G_RET_STS_ERROR ;
1727:
1728: FND_MSG_PUB.Count_AND_Get
1729: ( p_count => x_msg_count,
1730: p_data => x_msg_data,
1731: p_encoded => FND_API.G_FALSE
1732: );
1735:
1736: ROLLBACK TO Delete_ListAction_PVT;
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1738:
1739: FND_MSG_PUB.Count_AND_Get
1740: ( p_count => x_msg_count,
1741: p_data => x_msg_data,
1742: p_encoded => FND_API.G_FALSE
1743: );
1747:
1748: ROLLBACK TO Delete_ListAction_PVT;
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1750:
1751: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1752: THEN
1753: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1754: END IF;
1755:
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1750:
1751: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1752: THEN
1753: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1754: END IF;
1755:
1756: FND_MSG_PUB.Count_AND_Get
1757: ( p_count => x_msg_count,
1752: THEN
1753: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1754: END IF;
1755:
1756: FND_MSG_PUB.Count_AND_Get
1757: ( p_count => x_msg_count,
1758: p_data => x_msg_data,
1759: p_encoded => FND_API.G_FALSE
1760: );
1822:
1823:
1824: -- Initialize message list if p_init_msg_list is set to TRUE.
1825: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1826: FND_MSG_PUB.initialize;
1827: END IF;
1828:
1829:
1830: -- Debug Message
1827: END IF;
1828:
1829:
1830: -- Debug Message
1831: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1832: THEN
1833: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1834: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Lock_ListAction: Start', TRUE);
1835: FND_MSG_PUB.Add;
1831: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1832: THEN
1833: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1834: FND_MESSAGE.Set_Token('ROW', 'AMS_ListAction_PVT.Lock_ListAction: Start', TRUE);
1835: FND_MSG_PUB.Add;
1836: END IF; */
1837:
1838: IF (AMS_DEBUG_HIGH_ON) THEN
1839: AMS_Utility_PVT.debug_message(l_api_name||': Start ');
1845: OPEN c_list_actions;
1846: FETCH c_list_actions INTO l_list_select_action_id;
1847: IF (c_list_actions%NOTFOUND) THEN
1848: CLOSE c_list_actions;
1849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1850: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1851: FND_MSG_PUB.add;
1852: END IF;
1853: RAISE FND_API.g_exc_error;
1847: IF (c_list_actions%NOTFOUND) THEN
1848: CLOSE c_list_actions;
1849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1850: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1851: FND_MSG_PUB.add;
1852: END IF;
1853: RAISE FND_API.g_exc_error;
1854: END IF;
1855: CLOSE c_list_actions;
1856:
1857:
1858: -- Success Message
1859: -- MMSG
1860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1861: THEN
1862: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1863: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Lock_ListAction', TRUE);
1864: FND_MSG_PUB.Add;
1860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1861: THEN
1862: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1863: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Lock_ListAction', TRUE);
1864: FND_MSG_PUB.Add;
1865: END IF;
1866:
1867:
1868: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1864: FND_MSG_PUB.Add;
1865: END IF;
1866:
1867:
1868: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1869: THEN
1870: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1871: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Lock_ListAction: END', TRUE);
1872: FND_MSG_PUB.Add;
1868: /* ckapoor IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH)
1869: THEN
1870: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1871: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Lock_ListAction: END', TRUE);
1872: FND_MSG_PUB.Add;
1873: END IF; */
1874:
1875: -- Standard call to get message count AND IF count is 1, get message info.
1876: FND_MSG_PUB.Count_AND_Get
1872: FND_MSG_PUB.Add;
1873: END IF; */
1874:
1875: -- Standard call to get message count AND IF count is 1, get message info.
1876: FND_MSG_PUB.Count_AND_Get
1877: ( p_count => x_msg_count,
1878: p_data => x_msg_data,
1879: p_encoded => FND_API.G_FALSE
1880: );
1886: WHEN FND_API.G_EXC_ERROR THEN
1887:
1888: x_return_status := FND_API.G_RET_STS_ERROR ;
1889:
1890: FND_MSG_PUB.Count_AND_Get
1891: ( p_count => x_msg_count,
1892: p_data => x_msg_data,
1893: p_encoded => FND_API.G_FALSE
1894: );
1897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1898:
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1900:
1901: FND_MSG_PUB.Count_AND_Get
1902: ( p_count => x_msg_count,
1903: p_data => x_msg_data,
1904: p_encoded => FND_API.G_FALSE
1905: );
1907: WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
1908:
1909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1910:
1911: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1912: THEN -- MMSG
1913: FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
1914: FND_MSG_PUB.Add;
1915: END IF;
1910:
1911: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1912: THEN -- MMSG
1913: FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
1914: FND_MSG_PUB.Add;
1915: END IF;
1916:
1917: FND_MSG_PUB.Count_AND_Get
1918: ( p_count => x_msg_count,
1913: FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
1914: FND_MSG_PUB.Add;
1915: END IF;
1916:
1917: FND_MSG_PUB.Count_AND_Get
1918: ( p_count => x_msg_count,
1919: p_data => x_msg_data,
1920: p_encoded => FND_API.G_FALSE
1921: );
1923: WHEN OTHERS THEN
1924:
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1926:
1927: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1928: THEN
1929: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1930: END IF;
1931:
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1926:
1927: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1928: THEN
1929: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1930: END IF;
1931:
1932: FND_MSG_PUB.Count_AND_Get
1933: ( p_count => x_msg_count,
1928: THEN
1929: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1930: END IF;
1931:
1932: FND_MSG_PUB.Count_AND_Get
1933: ( p_count => x_msg_count,
1934: p_data => x_msg_data,
1935: p_encoded => FND_API.G_FALSE
1936: );
2008: OPEN c_action;
2009: FETCH c_action INTO l_action_rec;
2010: IF c_action%NOTFOUND THEN
2011: CLOSE c_action;
2012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2013: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2014: FND_MSG_PUB.add;
2015: END IF;
2016: RAISE FND_API.g_exc_error;
2010: IF c_action%NOTFOUND THEN
2011: CLOSE c_action;
2012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2013: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2014: FND_MSG_PUB.add;
2015: END IF;
2016: RAISE FND_API.g_exc_error;
2017: END IF;
2018: CLOSE c_action;