8: --
9: -- History
10: -- 11/29/1999 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_cust_setup
9: -- History
10: -- 11/29/1999 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_cust_setup
17: (
10: -- 11/29/1999 julou created
11: -------------------------------------------------------------------------------
12: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
13: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
14: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
15:
16: PROCEDURE create_cust_setup
17: (
18: p_api_version IN NUMBER,
49: -- initialize
50: SAVEPOINT create_cust_setup;
51:
52: IF FND_API.to_boolean(p_init_msg_list) THEN
53: FND_MSG_PUB.initialize;
54: END IF;
55:
56: IF (AMS_DEBUG_HIGH_ON) THEN
57:
532: IF FND_API.to_boolean(p_commit) THEN
533: COMMIT;
534: END IF;
535:
536: FND_MSG_PUB.count_and_get
537: (
538: p_encoded => FND_API.g_false,
539: p_count => x_msg_count,
540: p_data => x_msg_data
552:
553: WHEN FND_API.g_exc_error THEN
554: ROLLBACK TO create_cust_setup;
555: x_return_status := FND_API.g_ret_sts_error;
556: FND_MSG_PUB.count_and_get
557: (
558: p_encoded => FND_API.g_false,
559: p_count => x_msg_count,
560: p_data => x_msg_data
562:
563: WHEN FND_API.g_exc_unexpected_error THEN
564: ROLLBACK TO create_cust_setup;
565: x_return_status := FND_API.g_ret_sts_unexp_error;
566: FND_MSG_PUB.count_and_get
567: (
568: p_encoded => FND_API.g_false,
569: p_count => x_msg_count,
570: p_data => x_msg_data
572:
573: WHEN OTHERS THEN
574: ROLLBACK TO create_cust_setup;
575: x_return_status :=FND_API.g_ret_sts_unexp_error;
576: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
578: END IF;
579: FND_MSG_PUB.count_and_get
580: (
573: WHEN OTHERS THEN
574: ROLLBACK TO create_cust_setup;
575: x_return_status :=FND_API.g_ret_sts_unexp_error;
576: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
578: END IF;
579: FND_MSG_PUB.count_and_get
580: (
581: p_encoded => FND_API.g_false,
575: x_return_status :=FND_API.g_ret_sts_unexp_error;
576: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
578: END IF;
579: FND_MSG_PUB.count_and_get
580: (
581: p_encoded => FND_API.g_false,
582: p_count => x_msg_count,
583: p_data => x_msg_data
617: -- initialize
618: SAVEPOINT update_cust_setup;
619:
620: IF FND_API.to_boolean(p_init_msg_list) THEN
621: FND_MSG_PUB.initialize;
622: END IF;
623:
624: IF (AMS_DEBUG_HIGH_ON) THEN
625:
644:
645: -- check custom_setup_id, dont update setups if id < 10000 as they are seed data
646: /**
647: IF l_cust_setup_rec.custom_setup_id < 10000 THEN
648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
649: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_SEED_DATA');
650: FND_MSG_PUB.add;
651: END IF;
652: RAISE FND_API.g_exc_error;
646: /**
647: IF l_cust_setup_rec.custom_setup_id < 10000 THEN
648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
649: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_SEED_DATA');
650: FND_MSG_PUB.add;
651: END IF;
652: RAISE FND_API.g_exc_error;
653: END IF;
654: **/
705: WHERE custom_setup_id = l_cust_setup_rec.custom_setup_id
706: AND object_version_number = l_cust_setup_rec.object_version_number;
707:
708: IF (SQL%NOTFOUND) THEN
709: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
710: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
711: FND_MSG_PUB.add;
712: END IF;
713: RAISE FND_API.g_exc_error;
707:
708: IF (SQL%NOTFOUND) THEN
709: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
710: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
711: FND_MSG_PUB.add;
712: END IF;
713: RAISE FND_API.g_exc_error;
714: END IF;
715:
723: WHERE custom_setup_id = l_cust_setup_rec.custom_setup_id
724: AND USERENV('LANG') IN (language, source_lang);
725:
726: IF (SQL%NOTFOUND) THEN
727: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
728: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
729: FND_MSG_PUB.add;
730: END IF;
731: RAISE FND_API.g_exc_error;
725:
726: IF (SQL%NOTFOUND) THEN
727: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
728: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
729: FND_MSG_PUB.add;
730: END IF;
731: RAISE FND_API.g_exc_error;
732: END IF;
733:
735: IF FND_API.to_boolean(p_commit) THEN
736: COMMIT;
737: END IF;
738:
739: FND_MSG_PUB.count_and_get
740: (
741: P_ENCODED => FND_API.g_false,
742: p_count => x_msg_count,
743: p_data => x_msg_data
755:
756: WHEN FND_API.g_exc_error THEN
757: ROLLBACK TO update_cust_setup;
758: x_return_status := FND_API.g_ret_sts_error;
759: FND_MSG_PUB.count_and_get
760: (
761: p_encoded => FND_API.g_false,
762: p_count => x_msg_count,
763: p_data => x_msg_data
765:
766: WHEN FND_API.g_exc_unexpected_error THEN
767: ROLLBACK TO update_cust_setup;
768: x_return_status := FND_API.g_ret_sts_unexp_error;
769: FND_MSG_PUB.count_and_get
770: (
771: p_encoded => FND_API.g_false,
772: p_count => x_msg_count,
773: p_data => x_msg_data
775:
776: WHEN OTHERS THEN
777: ROLLBACK TO update_cust_setup;
778: x_return_status :=FND_API.g_ret_sts_unexp_error;
779: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
780: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
781: END IF;
782: FND_MSG_PUB.count_and_get
783: (
776: WHEN OTHERS THEN
777: ROLLBACK TO update_cust_setup;
778: x_return_status :=FND_API.g_ret_sts_unexp_error;
779: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
780: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
781: END IF;
782: FND_MSG_PUB.count_and_get
783: (
784: p_encoded => FND_API.g_false,
778: x_return_status :=FND_API.g_ret_sts_unexp_error;
779: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
780: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
781: END IF;
782: FND_MSG_PUB.count_and_get
783: (
784: p_encoded => FND_API.g_false,
785: p_count => x_msg_count,
786: p_data => x_msg_data
830: -- initialize
831: SAVEPOINT delete_cust_setup;
832:
833: IF FND_API.to_boolean(p_init_msg_list) THEN
834: FND_MSG_PUB.initialize;
835: END IF;
836:
837: IF (AMS_DEBUG_HIGH_ON) THEN
838:
856: x_return_status := FND_API.g_ret_sts_success;
857:
858: -- check custom_setup_id, dont delete setups if id < 10000 as they are seed data
859: IF p_cust_setup_id < 10000 THEN
860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
861: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_SEED_DATA');
862: FND_MSG_PUB.add;
863: END IF;
864: RAISE FND_API.g_exc_error;
858: -- check custom_setup_id, dont delete setups if id < 10000 as they are seed data
859: IF p_cust_setup_id < 10000 THEN
860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
861: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_SEED_DATA');
862: FND_MSG_PUB.add;
863: END IF;
864: RAISE FND_API.g_exc_error;
865: END IF;
866:
886: DELETE FROM AMS_CUSTOM_SETUPS_TL
887: WHERE custom_setup_id = p_cust_setup_id;
888:
889: IF (SQL%NOTFOUND) THEN
890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
891: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
892: FND_MSG_PUB.add;
893: END IF;
894: RAISE FND_API.g_exc_error;
888:
889: IF (SQL%NOTFOUND) THEN
890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
891: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
892: FND_MSG_PUB.add;
893: END IF;
894: RAISE FND_API.g_exc_error;
895: END IF;
896:
898: WHERE custom_setup_id = p_cust_setup_id
899: AND object_version_number = p_object_version;
900:
901: IF (SQL%NOTFOUND) THEN
902: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
903: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
904: FND_MSG_PUB.add;
905: END IF;
906: RAISE FND_API.g_exc_error;
900:
901: IF (SQL%NOTFOUND) THEN
902: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
903: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
904: FND_MSG_PUB.add;
905: END IF;
906: RAISE FND_API.g_exc_error;
907: END IF;
908: ELSE
905: END IF;
906: RAISE FND_API.g_exc_error;
907: END IF;
908: ELSE
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
910: FND_MESSAGE.set_name('AMS', 'AMS_API_VERS_DONT_MATCH');
911: FND_MSG_PUB.add;
912: END IF;
913: RAISE FND_API.g_exc_error;
907: END IF;
908: ELSE
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
910: FND_MESSAGE.set_name('AMS', 'AMS_API_VERS_DONT_MATCH');
911: FND_MSG_PUB.add;
912: END IF;
913: RAISE FND_API.g_exc_error;
914: END IF;
915: ELSE
918: enabled_flag = 'N'
919: WHERE custom_setup_id = p_cust_setup_id
920: AND object_version_number = p_object_version;
921: /*
922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
923: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_IN_USE');
924: FND_MSG_PUB.add;
925: END IF;
926: RAISE FND_API.g_exc_error;
920: AND object_version_number = p_object_version;
921: /*
922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
923: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_IN_USE');
924: FND_MSG_PUB.add;
925: END IF;
926: RAISE FND_API.g_exc_error;
927: */
928: END IF;
931: IF FND_API.to_boolean(p_commit) THEN
932: COMMIT;
933: END IF;
934:
935: FND_MSG_PUB.count_and_get
936: (
937: P_ENCODED => FND_API.g_false,
938: p_count => x_msg_count,
939: p_data => x_msg_data
951:
952: WHEN FND_API.g_exc_error THEN
953: ROLLBACK TO delete_cust_setup;
954: x_return_status := FND_API.g_ret_sts_error;
955: FND_MSG_PUB.count_and_get
956: (
957: p_encoded => FND_API.g_false,
958: p_count => x_msg_count,
959: p_data => x_msg_data
961:
962: WHEN FND_API.g_exc_unexpected_error THEN
963: ROLLBACK TO delete_cust_setup;
964: x_return_status := FND_API.g_ret_sts_unexp_error;
965: FND_MSG_PUB.count_and_get
966: (
967: p_encoded => FND_API.g_false,
968: p_count => x_msg_count,
969: p_data => x_msg_data
971:
972: WHEN OTHERS THEN
973: ROLLBACK TO delete_cust_setup;
974: x_return_status :=FND_API.g_ret_sts_unexp_error;
975: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
976: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
977: END IF;
978: FND_MSG_PUB.count_and_get
979: (
972: WHEN OTHERS THEN
973: ROLLBACK TO delete_cust_setup;
974: x_return_status :=FND_API.g_ret_sts_unexp_error;
975: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
976: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
977: END IF;
978: FND_MSG_PUB.count_and_get
979: (
980: p_encoded => FND_API.g_false,
974: x_return_status :=FND_API.g_ret_sts_unexp_error;
975: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
976: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
977: END IF;
978: FND_MSG_PUB.count_and_get
979: (
980: p_encoded => FND_API.g_false,
981: p_count => x_msg_count,
982: p_data => x_msg_data
1031: AMS_Utility_PVT.debug_message(l_full_name || ': start');
1032: END IF;
1033:
1034: IF FND_API.to_boolean(p_init_msg_list) THEN
1035: FND_MSG_PUB.initialize;
1036: END IF;
1037:
1038: IF NOT FND_API.compatible_api_call
1039: (
1057: OPEN c_cust_setup_b;
1058: FETCH c_cust_setup_b INTO l_cust_setup_id;
1059: IF (c_cust_setup_b%NOTFOUND) THEN
1060: CLOSE c_cust_setup_b;
1061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1062: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1063: FND_MSG_PUB.add;
1064: END IF;
1065: RAISE FND_API.g_exc_error;
1059: IF (c_cust_setup_b%NOTFOUND) THEN
1060: CLOSE c_cust_setup_b;
1061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1062: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1063: FND_MSG_PUB.add;
1064: END IF;
1065: RAISE FND_API.g_exc_error;
1066: END IF;
1067: CLOSE c_cust_setup_b;
1069: OPEN c_cust_setup_tl;
1070: FETCH c_cust_setup_tl INTO l_cust_setup_id;
1071: IF (c_cust_setup_tl%NOTFOUND) THEN
1072: CLOSE c_cust_setup_tl;
1073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1074: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1075: FND_MSG_PUB.add;
1076: END IF;
1077: RAISE FND_API.g_exc_error;
1071: IF (c_cust_setup_tl%NOTFOUND) THEN
1072: CLOSE c_cust_setup_tl;
1073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1074: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1075: FND_MSG_PUB.add;
1076: END IF;
1077: RAISE FND_API.g_exc_error;
1078: END IF;
1079: CLOSE c_cust_setup_tl;
1078: END IF;
1079: CLOSE c_cust_setup_tl;
1080:
1081: -- finish
1082: FND_MSG_PUB.count_and_get
1083: (
1084: p_encoded => FND_API.g_false,
1085: p_count => x_msg_count,
1086: p_data => x_msg_data
1097: EXCEPTION
1098:
1099: WHEN AMS_Utility_PVT.resource_locked THEN
1100: x_return_status := FND_API.g_ret_sts_error;
1101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1102: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1103: FND_MSG_PUB.add;
1104: END IF;
1105: FND_MSG_PUB.count_and_get
1099: WHEN AMS_Utility_PVT.resource_locked THEN
1100: x_return_status := FND_API.g_ret_sts_error;
1101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1102: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1103: FND_MSG_PUB.add;
1104: END IF;
1105: FND_MSG_PUB.count_and_get
1106: (
1107: p_encoded => FND_API.g_false,
1101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1102: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1103: FND_MSG_PUB.add;
1104: END IF;
1105: FND_MSG_PUB.count_and_get
1106: (
1107: p_encoded => FND_API.g_false,
1108: p_count => x_msg_count,
1109: p_data => x_msg_data
1110: );
1111:
1112: WHEN FND_API.g_exc_error THEN
1113: x_return_status := FND_API.g_ret_sts_error;
1114: FND_MSG_PUB.count_and_get
1115: (
1116: p_encoded => FND_API.g_false,
1117: p_count => x_msg_count,
1118: p_data => x_msg_data
1119: );
1120:
1121: WHEN FND_API.g_exc_unexpected_error THEN
1122: x_return_status := FND_API.g_ret_sts_unexp_error;
1123: FND_MSG_PUB.count_and_get
1124: (
1125: p_encoded => FND_API.g_false,
1126: p_count => x_msg_count,
1127: p_data => x_msg_data
1128: );
1129:
1130: WHEN OTHERS THEN
1131: x_return_status :=FND_API.g_ret_sts_unexp_error;
1132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1133: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1134: END IF;
1135: FND_MSG_PUB.count_and_get
1136: (
1129:
1130: WHEN OTHERS THEN
1131: x_return_status :=FND_API.g_ret_sts_unexp_error;
1132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1133: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1134: END IF;
1135: FND_MSG_PUB.count_and_get
1136: (
1137: p_encoded => FND_API.g_false,
1131: x_return_status :=FND_API.g_ret_sts_unexp_error;
1132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1133: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1134: END IF;
1135: FND_MSG_PUB.count_and_get
1136: (
1137: p_encoded => FND_API.g_false,
1138: p_count => x_msg_count,
1139: p_data => x_msg_data
1177: AMS_Utility_PVT.debug_message(l_full_name||': start');
1178: END IF;
1179:
1180: -- IF FND_API.to_boolean(p_init_msg_list) THEN
1181: -- FND_MSG_PUB.initialize;
1182: -- END IF;
1183:
1184: IF NOT FND_API.compatible_api_call
1185: (
1214: END IF;
1215: END IF;
1216:
1217: -------------------- finish --------------------------
1218: FND_MSG_PUB.count_and_get
1219: (
1220: p_encoded => FND_API.g_false,
1221: p_count => x_msg_count,
1222: p_data => x_msg_data
1232:
1233: EXCEPTION
1234: WHEN FND_API.g_exc_error THEN
1235: x_return_status := FND_API.g_ret_sts_error;
1236: FND_MSG_PUB.count_and_get
1237: (
1238: p_encoded => FND_API.g_false,
1239: p_count => x_msg_count,
1240: p_data => x_msg_data
1241: );
1242:
1243: WHEN FND_API.g_exc_unexpected_error THEN
1244: x_return_status := FND_API.g_ret_sts_unexp_error ;
1245: FND_MSG_PUB.count_and_get
1246: (
1247: p_encoded => FND_API.g_false,
1248: p_count => x_msg_count,
1249: p_data => x_msg_data
1250: );
1251:
1252: WHEN OTHERS THEN
1253: x_return_status := FND_API.g_ret_sts_unexp_error;
1254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1255: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1256: END IF;
1257:
1258: FND_MSG_PUB.count_and_get
1251:
1252: WHEN OTHERS THEN
1253: x_return_status := FND_API.g_ret_sts_unexp_error;
1254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1255: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1256: END IF;
1257:
1258: FND_MSG_PUB.count_and_get
1259: (
1254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1255: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1256: END IF;
1257:
1258: FND_MSG_PUB.count_and_get
1259: (
1260: p_encoded => FND_API.g_false,
1261: p_count => x_msg_count,
1262: p_data => x_msg_data
1380: -- check custom_setup_id
1381: IF p_cust_setup_rec.custom_setup_id IS NULL
1382: AND p_validation_mode = JTF_PLSQL_API.g_update
1383: THEN
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_CUS_SETUP_ID');
1386: FND_MSG_PUB.add;
1387: END IF;
1388:
1382: AND p_validation_mode = JTF_PLSQL_API.g_update
1383: THEN
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_CUS_SETUP_ID');
1386: FND_MSG_PUB.add;
1387: END IF;
1388:
1389: x_return_status := FND_API.g_ret_sts_error;
1390: RETURN;
1393: -- check object_version_number
1394: IF p_cust_setup_rec.object_version_number IS NULL
1395: AND p_validation_mode = JTF_PLSQL_API.g_update
1396: THEN
1397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_API_NO_OBJ_VER_NUM');
1399: FND_MSG_PUB.add;
1400: END IF;
1401:
1395: AND p_validation_mode = JTF_PLSQL_API.g_update
1396: THEN
1397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_API_NO_OBJ_VER_NUM');
1399: FND_MSG_PUB.add;
1400: END IF;
1401:
1402: x_return_status := FND_API.g_ret_sts_error;
1403: RETURN;
1404: END IF;
1405:
1406: -- check object_type
1407: /* IF p_cust_setup_rec.object_type NOT IN ('CAMP','ECAM','RCAM','EVEH','EVEO') THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_OBJ_TYPE');
1410: FND_MSG_PUB.add;
1411: END IF;
1412:
1406: -- check object_type
1407: /* IF p_cust_setup_rec.object_type NOT IN ('CAMP','ECAM','RCAM','EVEH','EVEO') THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_OBJ_TYPE');
1410: FND_MSG_PUB.add;
1411: END IF;
1412:
1413: x_return_status := FND_API.g_ret_sts_error;
1414: RETURN;
1420: -- IF p_cust_setup_rec.object_type IN ('CAMP','ECAM','RCAM')
1421: IF p_cust_setup_rec.object_type IN ('CAMP','ECAM')
1422: AND p_cust_setup_rec.activity_type_code IS NULL
1423: THEN
1424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1425: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_ACT_TP_CODE');
1426: FND_MSG_PUB.add;
1427: END IF;
1428:
1422: AND p_cust_setup_rec.activity_type_code IS NULL
1423: THEN
1424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1425: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_ACT_TP_CODE');
1426: FND_MSG_PUB.add;
1427: END IF;
1428:
1429: x_return_status := FND_API.g_ret_sts_error;
1430: RETURN;
1435: THEN
1436: IF p_cust_setup_rec.activity_type_code IS NOT NULL
1437: OR p_cust_setup_rec.media_id IS NOT NULL
1438: THEN
1439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1440: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_ACT_TP_CODE');
1441: FND_MSG_PUB.add;
1442: END IF;
1443:
1437: OR p_cust_setup_rec.media_id IS NOT NULL
1438: THEN
1439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1440: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_ACT_TP_CODE');
1441: FND_MSG_PUB.add;
1442: END IF;
1443:
1444: x_return_status := FND_API.g_ret_sts_error;
1445: RETURN;
1447: END IF; */
1448:
1449: -- check setup_name
1450: IF p_cust_setup_rec.setup_name IS NULL THEN
1451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1452: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_SETUP_NAME');
1453: FND_MSG_PUB.add;
1454: END IF;
1455:
1449: -- check setup_name
1450: IF p_cust_setup_rec.setup_name IS NULL THEN
1451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1452: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_NO_SETUP_NAME');
1453: FND_MSG_PUB.add;
1454: END IF;
1455:
1456: x_return_status := FND_API.g_ret_sts_error;
1457: RETURN;
1508: );
1509: END IF;
1510:
1511: IF l_uk_flag = FND_API.g_false THEN
1512: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1513: FND_MESSAGE.set_name('AMS', 'AMS_CUSTOM_SETUP_DUPLICATE_ID');
1514: FND_MSG_PUB.add;
1515: END IF;
1516:
1510:
1511: IF l_uk_flag = FND_API.g_false THEN
1512: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1513: FND_MESSAGE.set_name('AMS', 'AMS_CUSTOM_SETUP_DUPLICATE_ID');
1514: FND_MSG_PUB.add;
1515: END IF;
1516:
1517: x_return_status := FND_API.g_ret_sts_error;
1518: RETURN;
1537: );
1538: END IF;
1539:
1540: IF l_uk_flag = FND_API.g_false THEN
1541: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1542: FND_MESSAGE.set_name('AMS', 'AMS_CUST_SETUP_DUP_NAME_LANG');
1543: FND_MSG_PUB.add;
1544: END IF;
1545:
1539:
1540: IF l_uk_flag = FND_API.g_false THEN
1541: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1542: FND_MESSAGE.set_name('AMS', 'AMS_CUST_SETUP_DUP_NAME_LANG');
1543: FND_MSG_PUB.add;
1544: END IF;
1545:
1546: x_return_status := FND_API.g_ret_sts_error;
1547: RETURN;
1571:
1572: END IF;
1573:
1574: IF (l_flag = 'Y') THEN
1575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1576: FND_MESSAGE.set_name('AMS', 'AMS_CUST_SETUP_DUP_NAME_LANG');
1577: FND_MSG_PUB.add;
1578: END IF;
1579:
1573:
1574: IF (l_flag = 'Y') THEN
1575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1576: FND_MESSAGE.set_name('AMS', 'AMS_CUST_SETUP_DUP_NAME_LANG');
1577: FND_MSG_PUB.add;
1578: END IF;
1579:
1580: x_return_status := FND_API.g_ret_sts_error;
1581: RETURN;
1622: );
1623: END IF;
1624: -- end change. 07/21/01
1625: IF l_fk_flag = FND_API.g_false THEN
1626: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1627: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_MEDIA_ID');
1628: FND_MSG_PUB.add;
1629: END IF;
1630:
1624: -- end change. 07/21/01
1625: IF l_fk_flag = FND_API.g_false THEN
1626: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1627: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_MEDIA_ID');
1628: FND_MSG_PUB.add;
1629: END IF;
1630:
1631: x_return_status := FND_API.g_ret_sts_error;
1632: RETURN;
1657: -- enabled_flag
1658: IF p_cust_setup_rec.enabled_flag NOT IN ('Y','N',FND_API.g_miss_char)
1659: AND p_cust_setup_rec.enabled_flag IS NOT NULL
1660: THEN
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1662: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_ENBL_FLAG');
1663: FND_MSG_PUB.add;
1664: END IF;
1665:
1659: AND p_cust_setup_rec.enabled_flag IS NOT NULL
1660: THEN
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1662: FND_MESSAGE.set_name('AMS', 'AMS_CUS_SETUP_BAD_ENBL_FLAG');
1663: FND_MSG_PUB.add;
1664: END IF;
1665:
1666: x_return_status := FND_API.g_ret_sts_error;
1667: RETURN;
1696: OPEN c_cust_setup;
1697: FETCH c_cust_setup INTO l_cust_setup_rec;
1698: IF (c_cust_setup%NOTFOUND) THEN
1699: CLOSE c_cust_setup;
1700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1701: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1702: FND_MSG_PUB.add;
1703: END IF;
1704: RAISE FND_API.g_exc_error;
1698: IF (c_cust_setup%NOTFOUND) THEN
1699: CLOSE c_cust_setup;
1700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1701: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1702: FND_MSG_PUB.add;
1703: END IF;
1704: RAISE FND_API.g_exc_error;
1705: END IF;
1706: CLOSE c_cust_setup;