8: --
9: -- History
10: -- 01/24/2000 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_list_rule
9: -- History
10: -- 01/24/2000 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_list_rule
17: (
10: -- 01/24/2000 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_list_rule
17: (
18: p_api_version IN NUMBER,
49: -- initialize
50: SAVEPOINT create_list_rule;
51:
52: IF FND_API.to_boolean(p_init_msg_list) THEN
53: FND_MSG_PUB.initialize;
54: END IF;
55:
56:
57: IF (AMS_DEBUG_HIGH_ON) THEN
164: IF FND_API.to_boolean(p_commit) THEN
165: COMMIT;
166: END IF;
167:
168: FND_MSG_PUB.count_and_get
169: (
170: p_encoded => FND_API.g_false,
171: p_count => x_msg_count,
172: p_data => x_msg_data
184:
185: WHEN FND_API.g_exc_error THEN
186: ROLLBACK TO create_list_rule;
187: x_return_status := FND_API.g_ret_sts_error;
188: FND_MSG_PUB.count_and_get
189: (
190: p_encoded => FND_API.g_false,
191: p_count => x_msg_count,
192: p_data => x_msg_data
194:
195: WHEN FND_API.g_exc_unexpected_error THEN
196: ROLLBACK TO create_list_rule;
197: x_return_status := FND_API.g_ret_sts_unexp_error;
198: FND_MSG_PUB.count_and_get
199: (
200: p_encoded => FND_API.g_false,
201: p_count => x_msg_count,
202: p_data => x_msg_data
204:
205: WHEN OTHERS THEN
206: ROLLBACK TO create_list_rule;
207: x_return_status :=FND_API.g_ret_sts_unexp_error;
208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
209: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
210: END IF;
211: FND_MSG_PUB.count_and_get
212: (
205: WHEN OTHERS THEN
206: ROLLBACK TO create_list_rule;
207: x_return_status :=FND_API.g_ret_sts_unexp_error;
208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
209: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
210: END IF;
211: FND_MSG_PUB.count_and_get
212: (
213: p_encoded => FND_API.g_false,
207: x_return_status :=FND_API.g_ret_sts_unexp_error;
208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
209: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
210: END IF;
211: FND_MSG_PUB.count_and_get
212: (
213: p_encoded => FND_API.g_false,
214: p_count => x_msg_count,
215: p_data => x_msg_data
250: -- initialize
251: SAVEPOINT update_list_rule;
252:
253: IF FND_API.to_boolean(p_init_msg_list) THEN
254: FND_MSG_PUB.initialize;
255: END IF;
256:
257: IF (AMS_DEBUG_HIGH_ON) THEN
258:
347: WHERE list_rule_id = l_list_rule_rec.list_rule_id
348: AND object_version_number = l_list_rule_rec.object_version_number;
349:
350: IF (SQL%NOTFOUND) THEN
351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
352: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
353: FND_MSG_PUB.add;
354: END IF;
355: RAISE FND_API.g_exc_error;
349:
350: IF (SQL%NOTFOUND) THEN
351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
352: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
353: FND_MSG_PUB.add;
354: END IF;
355: RAISE FND_API.g_exc_error;
356: END IF;
357:
359: IF FND_API.to_boolean(p_commit) THEN
360: COMMIT;
361: END IF;
362:
363: FND_MSG_PUB.count_and_get
364: (
365: P_ENCODED => FND_API.g_false,
366: p_count => x_msg_count,
367: p_data => x_msg_data
379:
380: WHEN FND_API.g_exc_error THEN
381: ROLLBACK TO update_list_rule;
382: x_return_status := FND_API.g_ret_sts_error;
383: FND_MSG_PUB.count_and_get
384: (
385: p_encoded => FND_API.g_false,
386: p_count => x_msg_count,
387: p_data => x_msg_data
389:
390: WHEN FND_API.g_exc_unexpected_error THEN
391: ROLLBACK TO update_list_rule;
392: x_return_status := FND_API.g_ret_sts_unexp_error;
393: FND_MSG_PUB.count_and_get
394: (
395: p_encoded => FND_API.g_false,
396: p_count => x_msg_count,
397: p_data => x_msg_data
399:
400: WHEN OTHERS THEN
401: ROLLBACK TO update_list_rule;
402: x_return_status :=FND_API.g_ret_sts_unexp_error;
403: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
404: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
405: END IF;
406: FND_MSG_PUB.count_and_get
407: (
400: WHEN OTHERS THEN
401: ROLLBACK TO update_list_rule;
402: x_return_status :=FND_API.g_ret_sts_unexp_error;
403: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
404: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
405: END IF;
406: FND_MSG_PUB.count_and_get
407: (
408: p_encoded => FND_API.g_false,
402: x_return_status :=FND_API.g_ret_sts_unexp_error;
403: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
404: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
405: END IF;
406: FND_MSG_PUB.count_and_get
407: (
408: p_encoded => FND_API.g_false,
409: p_count => x_msg_count,
410: p_data => x_msg_data
458:
459: END IF;
460:
461: IF FND_API.to_boolean(p_init_msg_list) THEN
462: FND_MSG_PUB.initialize;
463: END IF;
464:
465: IF NOT FND_API.compatible_api_call
466: (
482: FETCH c_list_rule_count INTO l_list_rule_count;
483: CLOSE c_list_rule_count;
484:
485: IF l_list_rule_count > 0 THEN
486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
487: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULE_BEING_USED');
488: FND_MSG_PUB.add;
489: END IF;
490: RAISE FND_API.g_exc_error;
484:
485: IF l_list_rule_count > 0 THEN
486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
487: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULE_BEING_USED');
488: FND_MSG_PUB.add;
489: END IF;
490: RAISE FND_API.g_exc_error;
491: END IF;
492:
494: WHERE list_rule_id = p_list_rule_id
495: AND object_version_number = p_object_version;
496:
497: IF (SQL%NOTFOUND) THEN
498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
499: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
500: FND_MSG_PUB.add;
501: END IF;
502: RAISE FND_API.g_exc_error;
496:
497: IF (SQL%NOTFOUND) THEN
498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
499: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
500: FND_MSG_PUB.add;
501: END IF;
502: RAISE FND_API.g_exc_error;
503: END IF;
504:
511: IF FND_API.to_boolean(p_commit) THEN
512: COMMIT;
513: END IF;
514:
515: FND_MSG_PUB.count_and_get
516: (
517: P_ENCODED => FND_API.g_false,
518: p_count => x_msg_count,
519: p_data => x_msg_data
531:
532: WHEN FND_API.g_exc_error THEN
533: ROLLBACK TO delete_list_rule;
534: x_return_status := FND_API.g_ret_sts_error;
535: FND_MSG_PUB.count_and_get
536: (
537: p_encoded => FND_API.g_false,
538: p_count => x_msg_count,
539: p_data => x_msg_data
541:
542: WHEN FND_API.g_exc_unexpected_error THEN
543: ROLLBACK TO delete_list_rule;
544: x_return_status := FND_API.g_ret_sts_unexp_error;
545: FND_MSG_PUB.count_and_get
546: (
547: p_encoded => FND_API.g_false,
548: p_count => x_msg_count,
549: p_data => x_msg_data
551:
552: WHEN OTHERS THEN
553: ROLLBACK TO delete_list_rule;
554: x_return_status :=FND_API.g_ret_sts_unexp_error;
555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
556: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
557: END IF;
558: FND_MSG_PUB.count_and_get
559: (
552: WHEN OTHERS THEN
553: ROLLBACK TO delete_list_rule;
554: x_return_status :=FND_API.g_ret_sts_unexp_error;
555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
556: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
557: END IF;
558: FND_MSG_PUB.count_and_get
559: (
560: p_encoded => FND_API.g_false,
554: x_return_status :=FND_API.g_ret_sts_unexp_error;
555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
556: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
557: END IF;
558: FND_MSG_PUB.count_and_get
559: (
560: p_encoded => FND_API.g_false,
561: p_count => x_msg_count,
562: p_data => x_msg_data
604: AMS_Utility_PVT.debug_message(l_full_name || ': start');
605: END IF;
606:
607: IF FND_API.to_boolean(p_init_msg_list) THEN
608: FND_MSG_PUB.initialize;
609: END IF;
610:
611: IF NOT FND_API.compatible_api_call
612: (
630: OPEN c_list_rule;
631: FETCH c_list_rule INTO l_list_rule_id;
632: IF (c_list_rule%NOTFOUND) THEN
633: CLOSE c_list_rule;
634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
635: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
636: FND_MSG_PUB.add;
637: END IF;
638: RAISE FND_API.g_exc_error;
632: IF (c_list_rule%NOTFOUND) THEN
633: CLOSE c_list_rule;
634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
635: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
636: FND_MSG_PUB.add;
637: END IF;
638: RAISE FND_API.g_exc_error;
639: END IF;
640: CLOSE c_list_rule;
639: END IF;
640: CLOSE c_list_rule;
641:
642: -- finish
643: FND_MSG_PUB.count_and_get
644: (
645: p_encoded => FND_API.g_false,
646: p_count => x_msg_count,
647: p_data => x_msg_data
658: EXCEPTION
659:
660: WHEN AMS_Utility_PVT.resource_locked THEN
661: x_return_status := FND_API.g_ret_sts_error;
662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
663: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
664: FND_MSG_PUB.add;
665: END IF;
666: FND_MSG_PUB.count_and_get
660: WHEN AMS_Utility_PVT.resource_locked THEN
661: x_return_status := FND_API.g_ret_sts_error;
662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
663: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
664: FND_MSG_PUB.add;
665: END IF;
666: FND_MSG_PUB.count_and_get
667: (
668: p_encoded => FND_API.g_false,
662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
663: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
664: FND_MSG_PUB.add;
665: END IF;
666: FND_MSG_PUB.count_and_get
667: (
668: p_encoded => FND_API.g_false,
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
673: WHEN FND_API.g_exc_error THEN
674: x_return_status := FND_API.g_ret_sts_error;
675: FND_MSG_PUB.count_and_get
676: (
677: p_encoded => FND_API.g_false,
678: p_count => x_msg_count,
679: p_data => x_msg_data
680: );
681:
682: WHEN FND_API.g_exc_unexpected_error THEN
683: x_return_status := FND_API.g_ret_sts_unexp_error;
684: FND_MSG_PUB.count_and_get
685: (
686: p_encoded => FND_API.g_false,
687: p_count => x_msg_count,
688: p_data => x_msg_data
689: );
690:
691: WHEN OTHERS THEN
692: x_return_status :=FND_API.g_ret_sts_unexp_error;
693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
694: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
695: END IF;
696: FND_MSG_PUB.count_and_get
697: (
690:
691: WHEN OTHERS THEN
692: x_return_status :=FND_API.g_ret_sts_unexp_error;
693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
694: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
695: END IF;
696: FND_MSG_PUB.count_and_get
697: (
698: p_encoded => FND_API.g_false,
692: x_return_status :=FND_API.g_ret_sts_unexp_error;
693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
694: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
695: END IF;
696: FND_MSG_PUB.count_and_get
697: (
698: p_encoded => FND_API.g_false,
699: p_count => x_msg_count,
700: p_data => x_msg_data
791: END IF;
792: END IF;
793:
794: -------------------- finish --------------------------
795: FND_MSG_PUB.count_and_get
796: (
797: p_encoded => FND_API.g_false,
798: p_count => x_msg_count,
799: p_data => x_msg_data
809:
810: EXCEPTION
811: WHEN FND_API.g_exc_error THEN
812: x_return_status := FND_API.g_ret_sts_error;
813: FND_MSG_PUB.count_and_get
814: (
815: p_encoded => FND_API.g_false,
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819:
820: WHEN FND_API.g_exc_unexpected_error THEN
821: x_return_status := FND_API.g_ret_sts_unexp_error ;
822: FND_MSG_PUB.count_and_get
823: (
824: p_encoded => FND_API.g_false,
825: p_count => x_msg_count,
826: p_data => x_msg_data
827: );
828:
829: WHEN OTHERS THEN
830: x_return_status := FND_API.g_ret_sts_unexp_error;
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
832: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
833: END IF;
834:
835: FND_MSG_PUB.count_and_get
828:
829: WHEN OTHERS THEN
830: x_return_status := FND_API.g_ret_sts_unexp_error;
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
832: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
833: END IF;
834:
835: FND_MSG_PUB.count_and_get
836: (
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
832: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
833: END IF;
834:
835: FND_MSG_PUB.count_and_get
836: (
837: p_encoded => FND_API.g_false,
838: p_count => x_msg_count,
839: p_data => x_msg_data
938:
939: -- check list_rule_id
940: IF p_list_rule_rec.list_rule_id IS NULL
941: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
943: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_ID');
944: FND_MSG_PUB.add;
945: END IF;
946:
940: IF p_list_rule_rec.list_rule_id IS NULL
941: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
943: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_ID');
944: FND_MSG_PUB.add;
945: END IF;
946:
947: x_return_status := FND_API.g_ret_sts_error;
948: RETURN;
951: -- check object_version_number
952: IF p_list_rule_rec.object_version_number IS NULL
953: AND p_validation_mode = JTF_PLSQL_API.g_update
954: THEN
955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
956: FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJ_VER_NUM');
957: FND_MSG_PUB.add;
958: END IF;
959:
953: AND p_validation_mode = JTF_PLSQL_API.g_update
954: THEN
955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
956: FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJ_VER_NUM');
957: FND_MSG_PUB.add;
958: END IF;
959:
960: x_return_status := FND_API.g_ret_sts_error;
961: RETURN;
962: END IF;
963:
964: -- check list_rule_name
965: IF p_list_rule_rec.list_rule_name IS NULL THEN
966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
967: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_NAME');
968: FND_MSG_PUB.add;
969: END IF;
970:
964: -- check list_rule_name
965: IF p_list_rule_rec.list_rule_name IS NULL THEN
966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
967: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_NAME');
968: FND_MSG_PUB.add;
969: END IF;
970:
971: x_return_status := FND_API.g_ret_sts_error;
972: RETURN;
974:
975: -- check weightage_for_dedupe
976: --commented by vb 08/30/2001 after we made this column nullable
977: /* IF p_list_rule_rec.weightage_for_dedupe IS NULL THEN
978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
979: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_DEDUPE');
980: FND_MSG_PUB.add;
981: END IF;
982:
976: --commented by vb 08/30/2001 after we made this column nullable
977: /* IF p_list_rule_rec.weightage_for_dedupe IS NULL THEN
978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
979: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_DEDUPE');
980: FND_MSG_PUB.add;
981: END IF;
982:
983: x_return_status := FND_API.g_ret_sts_error;
984: RETURN;
985: END IF;
986:
987: -- check active_from_date
988: IF p_list_rule_rec.active_from_date IS NULL THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_STRT_DT');
991: FND_MSG_PUB.add;
992: END IF;
993:
987: -- check active_from_date
988: IF p_list_rule_rec.active_from_date IS NULL THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_STRT_DT');
991: FND_MSG_PUB.add;
992: END IF;
993:
994: x_return_status := FND_API.g_ret_sts_error;
995: RETURN;
1029: );
1030: END IF;
1031:
1032: IF l_uk_flag = FND_API.g_false THEN
1033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1034: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_ID');
1035: FND_MSG_PUB.add;
1036: END IF;
1037:
1031:
1032: IF l_uk_flag = FND_API.g_false THEN
1033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1034: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_ID');
1035: FND_MSG_PUB.add;
1036: END IF;
1037:
1038: x_return_status := FND_API.g_ret_sts_error;
1039: RETURN;
1055: );
1056: END IF;
1057:
1058: IF l_uk_flag = FND_API.g_false THEN
1059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1060: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_DUP_NAME');
1061: FND_MSG_PUB.add;
1062: END IF;
1063:
1057:
1058: IF l_uk_flag = FND_API.g_false THEN
1059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1060: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_DUP_NAME');
1061: FND_MSG_PUB.add;
1062: END IF;
1063:
1064: x_return_status := FND_API.g_ret_sts_error;
1065: RETURN;
1094: p_lookup_type => 'AMS_LIST_DEDUP_TYPE',
1095: p_lookup_code => p_list_rule_rec.list_rule_type
1096: ) = FND_API.g_false
1097: THEN
1098: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1099: THEN
1100: FND_MESSAGE.set_name('AMS', 'AMS_LST_RULE_BAD_LST_RULE_TYPE');
1101: FND_MSG_PUB.add;
1102: END IF;
1097: THEN
1098: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1099: THEN
1100: FND_MESSAGE.set_name('AMS', 'AMS_LST_RULE_BAD_LST_RULE_TYPE');
1101: FND_MSG_PUB.add;
1102: END IF;
1103: x_return_status := FND_API.g_ret_sts_error;
1104: RETURN;
1105: END IF;
1138: THEN
1139: l_from_date := p_complete_rec.active_from_date;
1140: l_to_date := p_complete_rec.active_to_date;
1141: IF l_from_date > l_to_date THEN
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('AMS', 'AMS_DATE_FROM_AFTER_DATE_TO');
1144: FND_MSG_PUB.add;
1145: END IF;
1146:
1140: l_to_date := p_complete_rec.active_to_date;
1141: IF l_from_date > l_to_date THEN
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('AMS', 'AMS_DATE_FROM_AFTER_DATE_TO');
1144: FND_MSG_PUB.add;
1145: END IF;
1146:
1147: x_return_status := FND_API.g_ret_sts_error;
1148: RETURN;
1178: OPEN c_list_rule;
1179: FETCH c_list_rule INTO l_list_rule_rec;
1180: IF (c_list_rule%NOTFOUND) THEN
1181: CLOSE c_list_rule;
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1183: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: RAISE FND_API.g_exc_error;
1180: IF (c_list_rule%NOTFOUND) THEN
1181: CLOSE c_list_rule;
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1183: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: RAISE FND_API.g_exc_error;
1187: END IF;
1188: CLOSE c_list_rule;