19: --
20: -- HISTORY
21: -- 10/12/99 abhola Create.
22: ---------------------------------------------------------------------
23: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
24: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
25: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
26:
27: PROCEDURE create_access(
20: -- HISTORY
21: -- 10/12/99 abhola Create.
22: ---------------------------------------------------------------------
23: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
24: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
25: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
26:
27: PROCEDURE create_access(
28: p_api_version IN NUMBER,
21: -- 10/12/99 abhola Create.
22: ---------------------------------------------------------------------
23: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
24: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
25: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
26:
27: PROCEDURE create_access(
28: p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
91:
92: END IF;
93:
94: IF FND_API.to_boolean(p_init_msg_list) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: IF NOT FND_API.compatible_api_call(
99: l_api_version,
143: OPEN c_group_exists;
144: FETCH c_group_exists INTO l_group_exists;
145: IF p_access_rec.arc_user_or_role_type = 'GROUP' AND c_group_exists%NOTFOUND THEN
146: FND_MESSAGE.set_name('AMS', 'AMS_RUN_ACCESS_REFRESH_PROGRAM');
147: FND_MSG_PUB.add;
148: RAISE FND_API.g_exc_error;
149: END IF;
150: CLOSE c_group_exists;
151: IF l_access_rec.activity_access_id IS NULL THEN
218:
219: IF l_return_status = FND_API.g_ret_sts_error THEN
220: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
221: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
222: FND_MSG_PUB.add;
223: RAISE FND_API.g_exc_error;
224: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
225: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
226: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
223: RAISE FND_API.g_exc_error;
224: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
225: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
226: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
227: FND_MSG_PUB.add;
228: RAISE FND_API.g_exc_unexpected_error;
229: END IF;
230:
231: END IF;
326:
327: IF l_return_status = FND_API.g_ret_sts_error THEN
328: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
329: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
330: FND_MSG_PUB.add;
331: RAISE FND_API.g_exc_error;
332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
334: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
331: RAISE FND_API.g_exc_error;
332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
334: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
335: FND_MSG_PUB.add;
336: RAISE FND_API.g_exc_unexpected_error;
337: END IF;
338:
339: END IF;
355: IF FND_API.to_boolean(p_commit) THEN
356: COMMIT;
357: END IF;
358:
359: FND_MSG_PUB.count_and_get(
360: p_encoded => FND_API.g_false,
361: p_count => x_msg_count,
362: p_data => x_msg_data
363: );
374:
375: WHEN FND_API.g_exc_error THEN
376: ROLLBACK TO create_access;
377: x_return_status := FND_API.g_ret_sts_error;
378: FND_MSG_PUB.count_and_get(
379: p_encoded => FND_API.g_false,
380: p_count => x_msg_count,
381: p_data => x_msg_data
382: );
383:
384: WHEN FND_API.g_exc_unexpected_error THEN
385: ROLLBACK TO create_access;
386: x_return_status := FND_API.g_ret_sts_unexp_error ;
387: FND_MSG_PUB.count_and_get(
388: p_encoded => FND_API.g_false,
389: p_count => x_msg_count,
390: p_data => x_msg_data
391: );
394: WHEN OTHERS THEN
395: ROLLBACK TO create_access;
396: x_return_status := FND_API.g_ret_sts_unexp_error ;
397:
398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
399: THEN
400: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
401: END IF;
402:
396: x_return_status := FND_API.g_ret_sts_unexp_error ;
397:
398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
399: THEN
400: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
401: END IF;
402:
403: FND_MSG_PUB.count_and_get(
404: p_encoded => FND_API.g_false,
399: THEN
400: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
401: END IF;
402:
403: FND_MSG_PUB.count_and_get(
404: p_encoded => FND_API.g_false,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
493:
494: END IF;
495:
496: IF FND_API.to_boolean(p_init_msg_list) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: IF NOT FND_API.compatible_api_call(
501: l_api_version,
529: WHERE activity_access_id = p_access_id
530: AND object_version_number = p_object_version;
531:
532: IF (SQL%NOTFOUND) THEN
533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
534: THEN
535: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
536: FND_MSG_PUB.add;
537: END IF;
532: IF (SQL%NOTFOUND) THEN
533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
534: THEN
535: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
536: FND_MSG_PUB.add;
537: END IF;
538: RAISE FND_API.g_exc_error;
539: END IF;
540:
564: AND user_or_role_id = l_role_id
565: AND arc_user_or_role_type = l_role_type;
566:
567: IF (SQL%NOTFOUND) THEN
568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
569: THEN
570: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
571: FND_MSG_PUB.add;
572: END IF;
567: IF (SQL%NOTFOUND) THEN
568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
569: THEN
570: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
571: FND_MSG_PUB.add;
572: END IF;
573: RAISE FND_API.g_exc_error;
574: END IF;
575:
585:
586: IF l_return_status = FND_API.g_ret_sts_error THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
588: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
589: FND_MSG_PUB.add;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
593: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
593: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
594: FND_MSG_PUB.add;
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;
597: END LOOP;
598: CLOSE c_access_camp_schedules;
611:
612: IF l_return_status = FND_API.g_ret_sts_error THEN
613: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
614: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
615: FND_MSG_PUB.add;
616: RAISE FND_API.g_exc_error;
617: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
618: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
619: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
616: RAISE FND_API.g_exc_error;
617: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
618: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
619: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
620: FND_MSG_PUB.add;
621: RAISE FND_API.g_exc_unexpected_error;
622: END IF;
623:
624: ELSIF l_role_type = 'GROUP' THEN
631: WHERE activity_access_id = p_access_id
632: AND object_version_number = p_object_version;
633:
634: IF (SQL%NOTFOUND) THEN
635: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
636: THEN
637: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
638: FND_MSG_PUB.add;
639: END IF;
634: IF (SQL%NOTFOUND) THEN
635: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
636: THEN
637: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
638: FND_MSG_PUB.add;
639: END IF;
640: RAISE FND_API.g_exc_error;
641: END IF;
642:
669: AND user_or_role_id = l_role_id
670: AND arc_user_or_role_type = l_role_type;
671:
672: IF (SQL%NOTFOUND) THEN
673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
674: THEN
675: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
676: FND_MSG_PUB.add;
677: END IF;
672: IF (SQL%NOTFOUND) THEN
673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
674: THEN
675: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
676: FND_MSG_PUB.add;
677: END IF;
678: RAISE FND_API.g_exc_error;
679: END IF;
680: END LOOP;
723: IF FND_API.to_boolean(p_commit) THEN
724: COMMIT;
725: END IF;
726:
727: FND_MSG_PUB.count_and_get(
728: p_encoded => FND_API.g_false,
729: p_count => x_msg_count,
730: p_data => x_msg_data
731: );
742:
743: WHEN FND_API.g_exc_error THEN
744: ROLLBACK TO delete_access;
745: x_return_status := FND_API.g_ret_sts_error;
746: FND_MSG_PUB.count_and_get(
747: p_encoded => FND_API.g_false,
748: p_count => x_msg_count,
749: p_data => x_msg_data
750: );
751:
752: WHEN FND_API.g_exc_unexpected_error THEN
753: ROLLBACK TO delete_access;
754: x_return_status := FND_API.g_ret_sts_unexp_error ;
755: FND_MSG_PUB.count_and_get(
756: p_encoded => FND_API.g_false,
757: p_count => x_msg_count,
758: p_data => x_msg_data
759: );
761: WHEN OTHERS THEN
762: ROLLBACK TO delete_access;
763: x_return_status := FND_API.g_ret_sts_unexp_error ;
764:
765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
766: THEN
767: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
768: END IF;
769:
763: x_return_status := FND_API.g_ret_sts_unexp_error ;
764:
765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
766: THEN
767: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
768: END IF;
769:
770: FND_MSG_PUB.count_and_get(
771: p_encoded => FND_API.g_false,
766: THEN
767: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
768: END IF;
769:
770: FND_MSG_PUB.count_and_get(
771: p_encoded => FND_API.g_false,
772: p_count => x_msg_count,
773: p_data => x_msg_data
774: );
818: AMS_Utility_PVT.debug_message(l_full_name||': start');
819: END IF;
820:
821: IF FND_API.to_boolean(p_init_msg_list) THEN
822: FND_MSG_PUB.initialize;
823: END IF;
824:
825: IF NOT FND_API.compatible_api_call(
826: l_api_version,
842: OPEN c_access_b;
843: FETCH c_access_b INTO l_access_id;
844: IF (c_access_b%NOTFOUND) THEN
845: CLOSE c_access_b;
846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
847: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
848: FND_MSG_PUB.add;
849: END IF;
850: RAISE FND_API.g_exc_error;
844: IF (c_access_b%NOTFOUND) THEN
845: CLOSE c_access_b;
846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
847: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
848: FND_MSG_PUB.add;
849: END IF;
850: RAISE FND_API.g_exc_error;
851: END IF;
852: CLOSE c_access_b;
850: RAISE FND_API.g_exc_error;
851: END IF;
852: CLOSE c_access_b;
853: -------------------- finish --------------------------
854: FND_MSG_PUB.count_and_get(
855: p_encoded => FND_API.g_false,
856: p_count => x_msg_count,
857: p_data => x_msg_data
858: );
868: EXCEPTION
869:
870: WHEN AMS_Utility_PVT.resource_locked THEN
871: x_return_status := FND_API.g_ret_sts_error;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
874: FND_MSG_PUB.add;
875: END IF;
876:
870: WHEN AMS_Utility_PVT.resource_locked THEN
871: x_return_status := FND_API.g_ret_sts_error;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
874: FND_MSG_PUB.add;
875: END IF;
876:
877: FND_MSG_PUB.count_and_get(
878: p_encoded => FND_API.g_false,
873: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
874: FND_MSG_PUB.add;
875: END IF;
876:
877: FND_MSG_PUB.count_and_get(
878: p_encoded => FND_API.g_false,
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
881: );
882:
883: WHEN FND_API.g_exc_error THEN
884: x_return_status := FND_API.g_ret_sts_error;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
889: );
890:
891: WHEN FND_API.g_exc_unexpected_error THEN
892: x_return_status := FND_API.g_ret_sts_unexp_error ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );
897: );
898:
899: WHEN OTHERS THEN
900: x_return_status := FND_API.g_ret_sts_unexp_error ;
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
902: THEN
903: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: END IF;
905:
899: WHEN OTHERS THEN
900: x_return_status := FND_API.g_ret_sts_unexp_error ;
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
902: THEN
903: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: END IF;
905:
906: FND_MSG_PUB.count_and_get(
907: p_encoded => FND_API.g_false,
902: THEN
903: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: END IF;
905:
906: FND_MSG_PUB.count_and_get(
907: p_encoded => FND_API.g_false,
908: p_count => x_msg_count,
909: p_data => x_msg_data
910: );
984:
985: END IF;
986:
987: IF FND_API.to_boolean(p_init_msg_list) THEN
988: FND_MSG_PUB.initialize;
989: END IF;
990:
991: IF NOT FND_API.compatible_api_call(
992: l_api_version,
1044: WHERE activity_access_id = l_access_rec.activity_access_id
1045: AND object_version_number = l_access_rec.object_version_number;
1046:
1047: IF (SQL%NOTFOUND) THEN
1048: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1049: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1050: FND_MSG_PUB.add;
1051: END IF;
1052: RAISE FND_API.g_exc_error;
1046:
1047: IF (SQL%NOTFOUND) THEN
1048: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1049: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1050: FND_MSG_PUB.add;
1051: END IF;
1052: RAISE FND_API.g_exc_error;
1053: END IF;
1054:
1079: approver_flag = l_access_rec.approver_flag
1080: WHERE activity_access_id = l_key_id;
1081:
1082: IF (SQL%NOTFOUND) THEN
1083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1085: FND_MSG_PUB.add;
1086: END IF;
1087: RAISE FND_API.g_exc_error;
1081:
1082: IF (SQL%NOTFOUND) THEN
1083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1085: FND_MSG_PUB.add;
1086: END IF;
1087: RAISE FND_API.g_exc_error;
1088: END IF;
1089:
1099:
1100: IF l_return_status = FND_API.g_ret_sts_error THEN
1101: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1102: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1103: FND_MSG_PUB.add;
1104: RAISE FND_API.g_exc_error;
1105: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1106: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1107: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1104: RAISE FND_API.g_exc_error;
1105: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1106: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1107: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1108: FND_MSG_PUB.add;
1109: RAISE FND_API.g_exc_unexpected_error;
1110: END IF;
1111:
1112: END LOOP;
1129:
1130: IF l_return_status = FND_API.g_ret_sts_error THEN
1131: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1132: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1133: FND_MSG_PUB.add;
1134: RAISE FND_API.g_exc_error;
1135: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1137: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1134: RAISE FND_API.g_exc_error;
1135: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1137: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1138: FND_MSG_PUB.add;
1139: RAISE FND_API.g_exc_unexpected_error;
1140: END IF;
1141:
1142: ELSIF l_access_rec.owner_flag = 'Y' THEN
1153:
1154: IF l_return_status = FND_API.g_ret_sts_error THEN
1155: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1156: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1157: FND_MSG_PUB.add;
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1161: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1161: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1162: FND_MSG_PUB.add;
1163: RAISE FND_API.g_exc_unexpected_error;
1164: END IF;
1165:
1166: ams_access_denorm_pvt.insert_resource (
1175:
1176: IF l_return_status = FND_API.g_ret_sts_error THEN
1177: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1178: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1179: FND_MSG_PUB.add;
1180: RAISE FND_API.g_exc_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1183: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1180: RAISE FND_API.g_exc_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1183: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1184: FND_MSG_PUB.add;
1185: RAISE FND_API.g_exc_unexpected_error;
1186: END IF;
1187: END IF;
1188: END IF;
1190: IF FND_API.to_boolean(p_commit) THEN
1191: COMMIT;
1192: END IF;
1193:
1194: FND_MSG_PUB.count_and_get(
1195: p_encoded => FND_API.g_false,
1196: p_count => x_msg_count,
1197: p_data => x_msg_data
1198: );
1209:
1210: WHEN FND_API.g_exc_error THEN
1211: ROLLBACK TO update_access;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: FND_MSG_PUB.count_and_get(
1214: p_encoded => FND_API.g_false,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1217: );
1218:
1219: WHEN FND_API.g_exc_unexpected_error THEN
1220: ROLLBACK TO update_access;
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222: FND_MSG_PUB.count_and_get(
1223: p_encoded => FND_API.g_false,
1224: p_count => x_msg_count,
1225: p_data => x_msg_data
1226: );
1228: WHEN OTHERS THEN
1229: ROLLBACK TO update_access;
1230: x_return_status := FND_API.g_ret_sts_unexp_error ;
1231:
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1233: THEN
1234: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1235: END IF;
1236:
1230: x_return_status := FND_API.g_ret_sts_unexp_error ;
1231:
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1233: THEN
1234: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1235: END IF;
1236:
1237: FND_MSG_PUB.count_and_get(
1238: p_encoded => FND_API.g_false,
1233: THEN
1234: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1235: END IF;
1236:
1237: FND_MSG_PUB.count_and_get(
1238: p_encoded => FND_API.g_false,
1239: p_count => x_msg_count,
1240: p_data => x_msg_data
1241: );
1291:
1292: END IF;
1293:
1294: IF FND_API.to_boolean(p_init_msg_list) THEN
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1298: IF NOT FND_API.compatible_api_call(
1299: l_api_version,
1348: AND user_or_role_id = p_old_resource_id
1349: AND owner_flag = 'Y';
1350:
1351: IF (SQL%NOTFOUND) THEN
1352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1353: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1354: FND_MSG_PUB.add;
1355: END IF;
1356: RAISE FND_API.g_exc_error;
1350:
1351: IF (SQL%NOTFOUND) THEN
1352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1353: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1354: FND_MSG_PUB.add;
1355: END IF;
1356: RAISE FND_API.g_exc_error;
1357: END IF;
1358: -- END IF;
1369:
1370: IF l_return_status = FND_API.g_ret_sts_error THEN
1371: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1372: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.g_exc_error;
1375: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1377: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1374: RAISE FND_API.g_exc_error;
1375: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1377: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1378: FND_MSG_PUB.add;
1379: RAISE FND_API.g_exc_unexpected_error;
1380: END IF;
1381:
1382: ams_access_denorm_pvt.insert_resource (
1391:
1392: IF l_return_status = FND_API.g_ret_sts_error THEN
1393: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1394: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1395: FND_MSG_PUB.add;
1396: RAISE FND_API.g_exc_error;
1397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1399: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1396: RAISE FND_API.g_exc_error;
1397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1399: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1400: FND_MSG_PUB.add;
1401: RAISE FND_API.g_exc_unexpected_error;
1402: END IF;
1403:
1404: -------------------- finish --------------------------
1405: IF FND_API.to_boolean(p_commit) THEN
1406: COMMIT;
1407: END IF;
1408:
1409: FND_MSG_PUB.count_and_get(
1410: p_encoded => FND_API.g_false,
1411: p_count => x_msg_count,
1412: p_data => x_msg_data
1413: );
1424:
1425: WHEN FND_API.g_exc_error THEN
1426: ROLLBACK TO update_owner;
1427: x_return_status := FND_API.g_ret_sts_error;
1428: FND_MSG_PUB.count_and_get(
1429: p_encoded => FND_API.g_false,
1430: p_count => x_msg_count,
1431: p_data => x_msg_data
1432: );
1433:
1434: WHEN FND_API.g_exc_unexpected_error THEN
1435: ROLLBACK TO update_owner;
1436: x_return_status := FND_API.g_ret_sts_unexp_error ;
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.g_false,
1439: p_count => x_msg_count,
1440: p_data => x_msg_data
1441: );
1443: WHEN OTHERS THEN
1444: ROLLBACK TO update_owner;
1445: x_return_status := FND_API.g_ret_sts_unexp_error ;
1446:
1447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1448: THEN
1449: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1450: END IF;
1451:
1445: x_return_status := FND_API.g_ret_sts_unexp_error ;
1446:
1447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1448: THEN
1449: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1450: END IF;
1451:
1452: FND_MSG_PUB.count_and_get(
1453: p_encoded => FND_API.g_false,
1448: THEN
1449: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1450: END IF;
1451:
1452: FND_MSG_PUB.count_and_get(
1453: p_encoded => FND_API.g_false,
1454: p_count => x_msg_count,
1455: p_data => x_msg_data
1456: );
1504: AMS_Utility_PVT.debug_message(l_full_name||': start validate');
1505: END IF;
1506:
1507: IF FND_API.to_boolean(p_init_msg_list) THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510:
1511: IF NOT FND_API.compatible_api_call(
1512: l_api_version,
1556:
1557: FETCH c_check_dup into l_local_x;
1558:
1559: IF (c_check_dup%FOUND) THEN
1560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1561: THEN
1562: IF (p_access_rec.arc_user_or_role_type = 'USER')
1563: THEN
1564: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
1564: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
1565: ELSE
1566: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_GRP');
1567: END IF;
1568: FND_MSG_PUB.add;
1569: END IF;
1570: CLOSE c_check_dup;
1571: RAISE FND_API.g_exc_error;
1572: END IF;
1580: EXCEPTION
1581:
1582: WHEN FND_API.g_exc_error THEN
1583: x_return_status := FND_API.g_ret_sts_error;
1584: FND_MSG_PUB.count_and_get(
1585: p_encoded => FND_API.g_false,
1586: p_count => x_msg_count,
1587: p_data => x_msg_data
1588: );
1588: );
1589:
1590: WHEN FND_API.g_exc_unexpected_error THEN
1591: x_return_status := FND_API.g_ret_sts_unexp_error ;
1592: FND_MSG_PUB.count_and_get(
1593: p_encoded => FND_API.g_false,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data
1596: );
1596: );
1597:
1598: WHEN OTHERS THEN
1599: x_return_status := FND_API.g_ret_sts_unexp_error;
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1601: THEN
1602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1603: END IF;
1604:
1598: WHEN OTHERS THEN
1599: x_return_status := FND_API.g_ret_sts_unexp_error;
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1601: THEN
1602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1603: END IF;
1604:
1605: FND_MSG_PUB.count_and_get(
1606: p_encoded => FND_API.g_false,
1601: THEN
1602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1603: END IF;
1604:
1605: FND_MSG_PUB.count_and_get(
1606: p_encoded => FND_API.g_false,
1607: p_count => x_msg_count,
1608: p_data => x_msg_data
1609: );
2069: x_return_status := FND_API.g_ret_sts_success;
2070:
2071: ------------------------ user_status_id --------------------------
2072: IF p_Access_rec.act_access_to_object_id IS NULL THEN
2073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2074: THEN
2075: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT_ID');
2076: FND_MSG_PUB.add;
2077: END IF;
2072: IF p_Access_rec.act_access_to_object_id IS NULL THEN
2073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2074: THEN
2075: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT_ID');
2076: FND_MSG_PUB.add;
2077: END IF;
2078:
2079: x_return_status := FND_API.g_ret_sts_error;
2080: RETURN;
2080: RETURN;
2081: END IF;
2082:
2083: IF p_Access_rec.arc_act_access_to_object IS NULL THEN
2084: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2085: THEN
2086: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT');
2087: FND_MSG_PUB.add;
2088: END IF;
2083: IF p_Access_rec.arc_act_access_to_object IS NULL THEN
2084: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2085: THEN
2086: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT');
2087: FND_MSG_PUB.add;
2088: END IF;
2089:
2090: x_return_status := FND_API.g_ret_sts_error;
2091: RETURN;
2091: RETURN;
2092: END IF;
2093:
2094: IF p_Access_rec.user_or_role_id IS NULL THEN
2095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2096: THEN
2097: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_ID');
2098: FND_MSG_PUB.add;
2099: END IF;
2094: IF p_Access_rec.user_or_role_id IS NULL THEN
2095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2096: THEN
2097: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_ID');
2098: FND_MSG_PUB.add;
2099: END IF;
2100:
2101: x_return_status := FND_API.g_ret_sts_error;
2102: RETURN;
2102: RETURN;
2103: END IF;
2104:
2105: IF p_Access_rec.arc_user_or_role_type IS NULL THEN
2106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2107: THEN
2108: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_TYPE');
2109: FND_MSG_PUB.add;
2110: END IF;
2105: IF p_Access_rec.arc_user_or_role_type IS NULL THEN
2106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2107: THEN
2108: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_TYPE');
2109: FND_MSG_PUB.add;
2110: END IF;
2111:
2112: x_return_status := FND_API.g_ret_sts_error;
2113: RETURN;
2121:
2122: END IF;
2123:
2124: IF p_Access_rec.user_or_role_id IS NOT NULL AND p_access_rec.object_version_number IS NULL THEN
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2126: THEN
2127: OPEN c1( p_Access_rec.user_or_role_id
2128: , p_Access_rec.arc_user_or_role_type
2129: , p_Access_rec.act_access_to_object_id
2130: , p_Access_rec.arc_act_access_to_object);
2131: FETCH c1 into l_var1;
2132:
2133: if (c1%FOUND) then
2134: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2135: THEN
2136: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
2137: FND_MSG_PUB.add;
2138: END IF;
2133: if (c1%FOUND) then
2134: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2135: THEN
2136: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
2137: FND_MSG_PUB.add;
2138: END IF;
2139: x_return_status := FND_API.g_ret_sts_error;
2140: RETURN;
2141: end if;
2177: 'ams_act_access',
2178: 'activity_access_id = ' || p_Access_rec.activity_access_id
2179: ) = FND_API.g_false
2180: THEN
2181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2182: THEN
2183: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2184: FND_MSG_PUB.add;
2185: END IF;
2180: THEN
2181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2182: THEN
2183: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2184: FND_MSG_PUB.add;
2185: END IF;
2186: x_return_status := FND_API.g_ret_sts_error;
2187: RETURN;
2188: END IF;
2217: 'RESOURCE_ID',
2218: p_Access_rec.user_or_role_id
2219: ) = FND_API.g_false
2220: THEN
2221: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2222: THEN
2223: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2224: FND_MSG_PUB.add;
2225: END IF;
2220: THEN
2221: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2222: THEN
2223: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2224: FND_MSG_PUB.add;
2225: END IF;
2226:
2227: x_return_status := FND_API.g_ret_sts_error;
2228: RETURN;
2239: 'GROUP_ID',
2240: p_Access_rec.user_or_role_id
2241: ) = FND_API.g_false
2242: THEN
2243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2244: THEN
2245: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2246: FND_MSG_PUB.add;
2247: END IF;
2242: THEN
2243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2244: THEN
2245: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2246: FND_MSG_PUB.add;
2247: END IF;
2248:
2249: x_return_status := FND_API.g_ret_sts_error;
2250: RETURN;
2312: p_lookup_code => p_Access_rec.arc_act_access_to_object,
2313: p_view_application_id => 530
2314: ) = FND_API.g_false
2315: THEN
2316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2317: THEN
2318: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2319: FND_MSG_PUB.add;
2320: END IF;
2315: THEN
2316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2317: THEN
2318: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2319: FND_MSG_PUB.add;
2320: END IF;
2321: x_return_status := FND_API.g_ret_sts_error;
2322: RETURN;
2323: END IF;
2339: p_lookup_code => p_Access_rec.arc_user_or_role_type,
2340: p_view_application_id => 530
2341: ) = FND_API.g_false
2342: THEN
2343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2344: THEN
2345: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2346: FND_MSG_PUB.add;
2347: END IF;
2342: THEN
2343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2344: THEN
2345: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2346: FND_MSG_PUB.add;
2347: END IF;
2348:
2349: x_return_status := FND_API.g_ret_sts_error;
2350: RETURN;
2375: AND p_Access_rec.admin_flag IS NOT NULL
2376: THEN
2377: IF AMS_Utility_PVT.is_Y_or_N(p_access_rec.admin_flag) = FND_API.g_false
2378: THEN
2379: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2380: THEN
2381: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2382: FND_MSG_PUB.add;
2383: END IF;
2378: THEN
2379: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2380: THEN
2381: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2382: FND_MSG_PUB.add;
2383: END IF;
2384:
2385: x_return_status := FND_API.g_ret_sts_error;
2386: RETURN;
2523: FETCH c_user_exist INTO l_user_exist;
2524: CLOSE c_user_exist;
2525:
2526: IF l_user_exist = 1 THEN
2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2528: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_USER_EXIST');
2529: FND_MSG_PUB.add;
2530: END IF;
2531: x_return_status := FND_API.g_ret_sts_error;
2525:
2526: IF l_user_exist = 1 THEN
2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2528: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_USER_EXIST');
2529: FND_MSG_PUB.add;
2530: END IF;
2531: x_return_status := FND_API.g_ret_sts_error;
2532: END IF;
2533: END IF;
2569: l_end_date := p_Access_rec.active_to_date;
2570: END IF;
2571:
2572: IF l_start_date > l_end_date THEN
2573: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2574: THEN
2575: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_INV_DATES');
2576: FND_MSG_PUB.add;
2577: END IF;
2572: IF l_start_date > l_end_date THEN
2573: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2574: THEN
2575: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_INV_DATES');
2576: FND_MSG_PUB.add;
2577: END IF;
2578: x_return_status := FND_API.g_ret_sts_error;
2579: END IF;
2580: END IF;
2647: OPEN c_Access;
2648: FETCH c_Access INTO l_Access_rec;
2649: IF c_Access%NOTFOUND THEN
2650: CLOSE c_Access;
2651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2652: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2653: FND_MSG_PUB.add;
2654: END IF;
2655: RAISE FND_API.g_exc_error;
2649: IF c_Access%NOTFOUND THEN
2650: CLOSE c_Access;
2651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2652: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2653: FND_MSG_PUB.add;
2654: END IF;
2655: RAISE FND_API.g_exc_error;
2656: END IF;
2657: CLOSE c_access;