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,
116:
117: END IF;
118:
119: IF FND_API.to_boolean(p_init_msg_list) THEN
120: FND_MSG_PUB.initialize;
121: END IF;
122:
123: IF NOT FND_API.compatible_api_call(
124: l_api_version,
168: OPEN c_group_exists;
169: FETCH c_group_exists INTO l_group_exists;
170: IF p_access_rec.arc_user_or_role_type = 'GROUP' AND c_group_exists%NOTFOUND THEN
171: FND_MESSAGE.set_name('AMS', 'AMS_RUN_ACCESS_REFRESH_PROGRAM');
172: FND_MSG_PUB.add;
173: RAISE FND_API.g_exc_error;
174: END IF;
175: CLOSE c_group_exists;
176: IF l_access_rec.activity_access_id IS NULL THEN
243:
244: IF l_return_status = FND_API.g_ret_sts_error THEN
245: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
246: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
247: FND_MSG_PUB.add;
248: RAISE FND_API.g_exc_error;
249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
250: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
251: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
248: RAISE FND_API.g_exc_error;
249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
250: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
251: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
252: FND_MSG_PUB.add;
253: RAISE FND_API.g_exc_unexpected_error;
254: END IF;
255:
256: END IF;
351:
352: IF l_return_status = FND_API.g_ret_sts_error THEN
353: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
354: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
355: FND_MSG_PUB.add;
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
359: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
359: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
360: FND_MSG_PUB.add;
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
363:
364: END IF;
456:
457: IF l_return_status = FND_API.g_ret_sts_error THEN
458: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
459: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
460: FND_MSG_PUB.add;
461: RAISE FND_API.g_exc_error;
462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
463: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
464: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
461: RAISE FND_API.g_exc_error;
462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
463: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
464: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
465: FND_MSG_PUB.add;
466: RAISE FND_API.g_exc_unexpected_error;
467: END IF;
468: END IF; --for arc_user_or_role_type = 'USER'
469: END IF; --for l_qp_list_header_id IS NOT NULL
484: IF FND_API.to_boolean(p_commit) THEN
485: COMMIT;
486: END IF;
487:
488: FND_MSG_PUB.count_and_get(
489: p_encoded => FND_API.g_false,
490: p_count => x_msg_count,
491: p_data => x_msg_data
492: );
503:
504: WHEN FND_API.g_exc_error THEN
505: ROLLBACK TO create_access;
506: x_return_status := FND_API.g_ret_sts_error;
507: FND_MSG_PUB.count_and_get(
508: p_encoded => FND_API.g_false,
509: p_count => x_msg_count,
510: p_data => x_msg_data
511: );
512:
513: WHEN FND_API.g_exc_unexpected_error THEN
514: ROLLBACK TO create_access;
515: x_return_status := FND_API.g_ret_sts_unexp_error ;
516: FND_MSG_PUB.count_and_get(
517: p_encoded => FND_API.g_false,
518: p_count => x_msg_count,
519: p_data => x_msg_data
520: );
523: WHEN OTHERS THEN
524: ROLLBACK TO create_access;
525: x_return_status := FND_API.g_ret_sts_unexp_error ;
526:
527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
528: THEN
529: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
530: END IF;
531:
525: x_return_status := FND_API.g_ret_sts_unexp_error ;
526:
527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
528: THEN
529: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
530: END IF;
531:
532: FND_MSG_PUB.count_and_get(
533: p_encoded => FND_API.g_false,
528: THEN
529: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
530: END IF;
531:
532: FND_MSG_PUB.count_and_get(
533: p_encoded => FND_API.g_false,
534: p_count => x_msg_count,
535: p_data => x_msg_data
536: );
650:
651: END IF;
652:
653: IF FND_API.to_boolean(p_init_msg_list) THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656:
657: IF NOT FND_API.compatible_api_call(
658: l_api_version,
686: WHERE activity_access_id = p_access_id
687: AND object_version_number = p_object_version;
688:
689: IF (SQL%NOTFOUND) THEN
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
691: THEN
692: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
693: FND_MSG_PUB.add;
694: END IF;
689: IF (SQL%NOTFOUND) THEN
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
691: THEN
692: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
693: FND_MSG_PUB.add;
694: END IF;
695: RAISE FND_API.g_exc_error;
696: END IF;
697:
721: AND user_or_role_id = l_role_id
722: AND arc_user_or_role_type = l_role_type;
723:
724: IF (SQL%NOTFOUND) THEN
725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
726: THEN
727: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
728: FND_MSG_PUB.add;
729: END IF;
724: IF (SQL%NOTFOUND) THEN
725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
726: THEN
727: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
728: FND_MSG_PUB.add;
729: END IF;
730: RAISE FND_API.g_exc_error;
731: END IF;
732:
742:
743: IF l_return_status = FND_API.g_ret_sts_error THEN
744: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
745: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
746: FND_MSG_PUB.add;
747: RAISE FND_API.g_exc_error;
748: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
749: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
750: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
747: RAISE FND_API.g_exc_error;
748: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
749: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
750: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
751: FND_MSG_PUB.add;
752: RAISE FND_API.g_exc_unexpected_error;
753: END IF;
754: END LOOP;
755: CLOSE c_access_camp_schedules;
769: AND user_or_role_id = l_role_id
770: AND arc_user_or_role_type = l_role_type;
771:
772: IF (SQL%NOTFOUND) THEN
773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
774: THEN
775: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
776: FND_MSG_PUB.add;
777: END IF;
772: IF (SQL%NOTFOUND) THEN
773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
774: THEN
775: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
776: FND_MSG_PUB.add;
777: END IF;
778: RAISE FND_API.g_exc_error;
779: END IF;
780:
790:
791: IF l_return_status = FND_API.g_ret_sts_error THEN
792: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
793: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
794: FND_MSG_PUB.add;
795: RAISE FND_API.g_exc_error;
796: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
797: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
798: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
795: RAISE FND_API.g_exc_error;
796: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
797: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
798: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
799: FND_MSG_PUB.add;
800: RAISE FND_API.g_exc_unexpected_error;
801: END IF;
802:
803: END IF; --for l_qp_list_header_id IS NOT NULL
820:
821: IF l_return_status = FND_API.g_ret_sts_error THEN
822: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
823: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
824: FND_MSG_PUB.add;
825: RAISE FND_API.g_exc_error;
826: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
827: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
828: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
825: RAISE FND_API.g_exc_error;
826: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
827: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
828: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
829: FND_MSG_PUB.add;
830: RAISE FND_API.g_exc_unexpected_error;
831: END IF;
832:
833: ELSIF l_role_type = 'GROUP' THEN
840: WHERE activity_access_id = p_access_id
841: AND object_version_number = p_object_version;
842:
843: IF (SQL%NOTFOUND) THEN
844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
845: THEN
846: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
847: FND_MSG_PUB.add;
848: END IF;
843: IF (SQL%NOTFOUND) THEN
844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
845: THEN
846: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
847: FND_MSG_PUB.add;
848: END IF;
849: RAISE FND_API.g_exc_error;
850: END IF;
851:
878: AND user_or_role_id = l_role_id
879: AND arc_user_or_role_type = l_role_type;
880:
881: IF (SQL%NOTFOUND) THEN
882: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
883: THEN
884: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
885: FND_MSG_PUB.add;
886: END IF;
881: IF (SQL%NOTFOUND) THEN
882: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
883: THEN
884: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
885: FND_MSG_PUB.add;
886: END IF;
887: RAISE FND_API.g_exc_error;
888: END IF;
889: END LOOP;
911: AND user_or_role_id = l_role_id
912: AND arc_user_or_role_type = l_role_type;
913:
914: IF (SQL%NOTFOUND) THEN
915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
916: THEN
917: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
918: FND_MSG_PUB.add;
919: END IF;
914: IF (SQL%NOTFOUND) THEN
915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
916: THEN
917: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
918: FND_MSG_PUB.add;
919: END IF;
920: RAISE FND_API.g_exc_error;
921: END IF;
922: END IF; --for l_qp_list_header_id IS NOT NULL
966: IF FND_API.to_boolean(p_commit) THEN
967: COMMIT;
968: END IF;
969:
970: FND_MSG_PUB.count_and_get(
971: p_encoded => FND_API.g_false,
972: p_count => x_msg_count,
973: p_data => x_msg_data
974: );
985:
986: WHEN FND_API.g_exc_error THEN
987: ROLLBACK TO delete_access;
988: x_return_status := FND_API.g_ret_sts_error;
989: FND_MSG_PUB.count_and_get(
990: p_encoded => FND_API.g_false,
991: p_count => x_msg_count,
992: p_data => x_msg_data
993: );
994:
995: WHEN FND_API.g_exc_unexpected_error THEN
996: ROLLBACK TO delete_access;
997: x_return_status := FND_API.g_ret_sts_unexp_error ;
998: FND_MSG_PUB.count_and_get(
999: p_encoded => FND_API.g_false,
1000: p_count => x_msg_count,
1001: p_data => x_msg_data
1002: );
1004: WHEN OTHERS THEN
1005: ROLLBACK TO delete_access;
1006: x_return_status := FND_API.g_ret_sts_unexp_error ;
1007:
1008: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1009: THEN
1010: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1011: END IF;
1012:
1006: x_return_status := FND_API.g_ret_sts_unexp_error ;
1007:
1008: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1009: THEN
1010: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1011: END IF;
1012:
1013: FND_MSG_PUB.count_and_get(
1014: p_encoded => FND_API.g_false,
1009: THEN
1010: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1011: END IF;
1012:
1013: FND_MSG_PUB.count_and_get(
1014: p_encoded => FND_API.g_false,
1015: p_count => x_msg_count,
1016: p_data => x_msg_data
1017: );
1061: AMS_Utility_PVT.debug_message(l_full_name||': start');
1062: END IF;
1063:
1064: IF FND_API.to_boolean(p_init_msg_list) THEN
1065: FND_MSG_PUB.initialize;
1066: END IF;
1067:
1068: IF NOT FND_API.compatible_api_call(
1069: l_api_version,
1085: OPEN c_access_b;
1086: FETCH c_access_b INTO l_access_id;
1087: IF (c_access_b%NOTFOUND) THEN
1088: CLOSE c_access_b;
1089: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1090: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1091: FND_MSG_PUB.add;
1092: END IF;
1093: RAISE FND_API.g_exc_error;
1087: IF (c_access_b%NOTFOUND) THEN
1088: CLOSE c_access_b;
1089: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1090: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1091: FND_MSG_PUB.add;
1092: END IF;
1093: RAISE FND_API.g_exc_error;
1094: END IF;
1095: CLOSE c_access_b;
1093: RAISE FND_API.g_exc_error;
1094: END IF;
1095: CLOSE c_access_b;
1096: -------------------- finish --------------------------
1097: FND_MSG_PUB.count_and_get(
1098: p_encoded => FND_API.g_false,
1099: p_count => x_msg_count,
1100: p_data => x_msg_data
1101: );
1111: EXCEPTION
1112:
1113: WHEN AMS_Utility_PVT.resource_locked THEN
1114: x_return_status := FND_API.g_ret_sts_error;
1115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1116: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1117: FND_MSG_PUB.add;
1118: END IF;
1119:
1113: WHEN AMS_Utility_PVT.resource_locked THEN
1114: x_return_status := FND_API.g_ret_sts_error;
1115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1116: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1117: FND_MSG_PUB.add;
1118: END IF;
1119:
1120: FND_MSG_PUB.count_and_get(
1121: p_encoded => FND_API.g_false,
1116: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1117: FND_MSG_PUB.add;
1118: END IF;
1119:
1120: FND_MSG_PUB.count_and_get(
1121: p_encoded => FND_API.g_false,
1122: p_count => x_msg_count,
1123: p_data => x_msg_data
1124: );
1124: );
1125:
1126: WHEN FND_API.g_exc_error THEN
1127: x_return_status := FND_API.g_ret_sts_error;
1128: FND_MSG_PUB.count_and_get(
1129: p_encoded => FND_API.g_false,
1130: p_count => x_msg_count,
1131: p_data => x_msg_data
1132: );
1132: );
1133:
1134: WHEN FND_API.g_exc_unexpected_error THEN
1135: x_return_status := FND_API.g_ret_sts_unexp_error ;
1136: FND_MSG_PUB.count_and_get(
1137: p_encoded => FND_API.g_false,
1138: p_count => x_msg_count,
1139: p_data => x_msg_data
1140: );
1140: );
1141:
1142: WHEN OTHERS THEN
1143: x_return_status := FND_API.g_ret_sts_unexp_error ;
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1145: THEN
1146: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1147: END IF;
1148:
1142: WHEN OTHERS THEN
1143: x_return_status := FND_API.g_ret_sts_unexp_error ;
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1145: THEN
1146: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1147: END IF;
1148:
1149: FND_MSG_PUB.count_and_get(
1150: p_encoded => FND_API.g_false,
1145: THEN
1146: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1147: END IF;
1148:
1149: FND_MSG_PUB.count_and_get(
1150: p_encoded => FND_API.g_false,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1251:
1252: END IF;
1253:
1254: IF FND_API.to_boolean(p_init_msg_list) THEN
1255: FND_MSG_PUB.initialize;
1256: END IF;
1257:
1258: IF NOT FND_API.compatible_api_call(
1259: l_api_version,
1315: WHERE activity_access_id = l_access_rec.activity_access_id
1316: AND object_version_number = l_access_rec.object_version_number;
1317:
1318: IF (SQL%NOTFOUND) THEN
1319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1320: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1321: FND_MSG_PUB.add;
1322: END IF;
1323: RAISE FND_API.g_exc_error;
1317:
1318: IF (SQL%NOTFOUND) THEN
1319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1320: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1321: FND_MSG_PUB.add;
1322: END IF;
1323: RAISE FND_API.g_exc_error;
1324: END IF;
1325:
1350: approver_flag = l_access_rec.approver_flag
1351: WHERE activity_access_id = l_key_id;
1352:
1353: IF (SQL%NOTFOUND) THEN
1354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1355: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1356: FND_MSG_PUB.add;
1357: END IF;
1358: RAISE FND_API.g_exc_error;
1352:
1353: IF (SQL%NOTFOUND) THEN
1354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1355: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1356: FND_MSG_PUB.add;
1357: END IF;
1358: RAISE FND_API.g_exc_error;
1359: END IF;
1360:
1370:
1371: IF l_return_status = FND_API.g_ret_sts_error THEN
1372: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1373: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1374: FND_MSG_PUB.add;
1375: RAISE FND_API.g_exc_error;
1376: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1377: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1378: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1375: RAISE FND_API.g_exc_error;
1376: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1377: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1378: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1379: FND_MSG_PUB.add;
1380: RAISE FND_API.g_exc_unexpected_error;
1381: END IF;
1382:
1383: END LOOP;
1421: approver_flag = l_access_rec.approver_flag
1422: WHERE activity_access_id = l_key_id;
1423:
1424: IF (SQL%NOTFOUND) THEN
1425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1426: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1427: FND_MSG_PUB.add;
1428: END IF;
1429: RAISE FND_API.g_exc_error;
1423:
1424: IF (SQL%NOTFOUND) THEN
1425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1426: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1427: FND_MSG_PUB.add;
1428: END IF;
1429: RAISE FND_API.g_exc_error;
1430: END IF;
1431:
1441:
1442: IF l_return_status = FND_API.g_ret_sts_error THEN
1443: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1444: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1445: FND_MSG_PUB.add;
1446: RAISE FND_API.g_exc_error;
1447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1448: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1449: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1446: RAISE FND_API.g_exc_error;
1447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1448: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1449: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1450: FND_MSG_PUB.add;
1451: RAISE FND_API.g_exc_unexpected_error;
1452: END IF;
1453: END IF; --for l_qp_list_header_id IS NOT NULL
1454: END IF; -- for l_fund_type = 'FULLY_ACCRUED'
1472:
1473: IF l_return_status = FND_API.g_ret_sts_error THEN
1474: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1475: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1476: FND_MSG_PUB.add;
1477: RAISE FND_API.g_exc_error;
1478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1479: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1480: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1477: RAISE FND_API.g_exc_error;
1478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1479: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1480: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1481: FND_MSG_PUB.add;
1482: RAISE FND_API.g_exc_unexpected_error;
1483: END IF;
1484:
1485: ELSIF l_access_rec.owner_flag = 'Y' THEN
1496:
1497: IF l_return_status = FND_API.g_ret_sts_error THEN
1498: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1499: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1500: FND_MSG_PUB.add;
1501: RAISE FND_API.g_exc_error;
1502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1503: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1504: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1501: RAISE FND_API.g_exc_error;
1502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1503: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1504: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1505: FND_MSG_PUB.add;
1506: RAISE FND_API.g_exc_unexpected_error;
1507: END IF;
1508:
1509: ams_access_denorm_pvt.insert_resource (
1518:
1519: IF l_return_status = FND_API.g_ret_sts_error THEN
1520: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1521: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1522: FND_MSG_PUB.add;
1523: RAISE FND_API.g_exc_error;
1524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1525: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1526: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1523: RAISE FND_API.g_exc_error;
1524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1525: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1526: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1527: FND_MSG_PUB.add;
1528: RAISE FND_API.g_exc_unexpected_error;
1529: END IF;
1530: END IF;
1531: END IF;
1533: IF FND_API.to_boolean(p_commit) THEN
1534: COMMIT;
1535: END IF;
1536:
1537: FND_MSG_PUB.count_and_get(
1538: p_encoded => FND_API.g_false,
1539: p_count => x_msg_count,
1540: p_data => x_msg_data
1541: );
1552:
1553: WHEN FND_API.g_exc_error THEN
1554: ROLLBACK TO update_access;
1555: x_return_status := FND_API.g_ret_sts_error;
1556: FND_MSG_PUB.count_and_get(
1557: p_encoded => FND_API.g_false,
1558: p_count => x_msg_count,
1559: p_data => x_msg_data
1560: );
1561:
1562: WHEN FND_API.g_exc_unexpected_error THEN
1563: ROLLBACK TO update_access;
1564: x_return_status := FND_API.g_ret_sts_unexp_error ;
1565: FND_MSG_PUB.count_and_get(
1566: p_encoded => FND_API.g_false,
1567: p_count => x_msg_count,
1568: p_data => x_msg_data
1569: );
1571: WHEN OTHERS THEN
1572: ROLLBACK TO update_access;
1573: x_return_status := FND_API.g_ret_sts_unexp_error ;
1574:
1575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1576: THEN
1577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1578: END IF;
1579:
1573: x_return_status := FND_API.g_ret_sts_unexp_error ;
1574:
1575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1576: THEN
1577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1578: END IF;
1579:
1580: FND_MSG_PUB.count_and_get(
1581: p_encoded => FND_API.g_false,
1576: THEN
1577: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1578: END IF;
1579:
1580: FND_MSG_PUB.count_and_get(
1581: p_encoded => FND_API.g_false,
1582: p_count => x_msg_count,
1583: p_data => x_msg_data
1584: );
1634:
1635: END IF;
1636:
1637: IF FND_API.to_boolean(p_init_msg_list) THEN
1638: FND_MSG_PUB.initialize;
1639: END IF;
1640:
1641: IF NOT FND_API.compatible_api_call(
1642: l_api_version,
1691: AND user_or_role_id = p_old_resource_id
1692: AND owner_flag = 'Y';
1693:
1694: IF (SQL%NOTFOUND) THEN
1695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1696: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1697: FND_MSG_PUB.add;
1698: END IF;
1699: RAISE FND_API.g_exc_error;
1693:
1694: IF (SQL%NOTFOUND) THEN
1695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1696: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1697: FND_MSG_PUB.add;
1698: END IF;
1699: RAISE FND_API.g_exc_error;
1700: END IF;
1701: -- END IF;
1712:
1713: IF l_return_status = FND_API.g_ret_sts_error THEN
1714: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1715: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1716: FND_MSG_PUB.add;
1717: RAISE FND_API.g_exc_error;
1718: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1719: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1720: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1717: RAISE FND_API.g_exc_error;
1718: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1719: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1720: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1721: FND_MSG_PUB.add;
1722: RAISE FND_API.g_exc_unexpected_error;
1723: END IF;
1724:
1725: ams_access_denorm_pvt.insert_resource (
1734:
1735: IF l_return_status = FND_API.g_ret_sts_error THEN
1736: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1737: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1738: FND_MSG_PUB.add;
1739: RAISE FND_API.g_exc_error;
1740: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1741: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1742: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1739: RAISE FND_API.g_exc_error;
1740: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1741: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1742: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1743: FND_MSG_PUB.add;
1744: RAISE FND_API.g_exc_unexpected_error;
1745: END IF;
1746:
1747: -------------------- finish --------------------------
1748: IF FND_API.to_boolean(p_commit) THEN
1749: COMMIT;
1750: END IF;
1751:
1752: FND_MSG_PUB.count_and_get(
1753: p_encoded => FND_API.g_false,
1754: p_count => x_msg_count,
1755: p_data => x_msg_data
1756: );
1767:
1768: WHEN FND_API.g_exc_error THEN
1769: ROLLBACK TO update_owner;
1770: x_return_status := FND_API.g_ret_sts_error;
1771: FND_MSG_PUB.count_and_get(
1772: p_encoded => FND_API.g_false,
1773: p_count => x_msg_count,
1774: p_data => x_msg_data
1775: );
1776:
1777: WHEN FND_API.g_exc_unexpected_error THEN
1778: ROLLBACK TO update_owner;
1779: x_return_status := FND_API.g_ret_sts_unexp_error ;
1780: FND_MSG_PUB.count_and_get(
1781: p_encoded => FND_API.g_false,
1782: p_count => x_msg_count,
1783: p_data => x_msg_data
1784: );
1786: WHEN OTHERS THEN
1787: ROLLBACK TO update_owner;
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1791: THEN
1792: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1793: END IF;
1794:
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1791: THEN
1792: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1793: END IF;
1794:
1795: FND_MSG_PUB.count_and_get(
1796: p_encoded => FND_API.g_false,
1791: THEN
1792: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1793: END IF;
1794:
1795: FND_MSG_PUB.count_and_get(
1796: p_encoded => FND_API.g_false,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1847: AMS_Utility_PVT.debug_message(l_full_name||': start validate');
1848: END IF;
1849:
1850: IF FND_API.to_boolean(p_init_msg_list) THEN
1851: FND_MSG_PUB.initialize;
1852: END IF;
1853:
1854: IF NOT FND_API.compatible_api_call(
1855: l_api_version,
1899:
1900: FETCH c_check_dup into l_local_x;
1901:
1902: IF (c_check_dup%FOUND) THEN
1903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1904: THEN
1905: IF (p_access_rec.arc_user_or_role_type = 'USER')
1906: THEN
1907: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
1907: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
1908: ELSE
1909: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_GRP');
1910: END IF;
1911: FND_MSG_PUB.add;
1912: END IF;
1913: CLOSE c_check_dup;
1914: RAISE FND_API.g_exc_error;
1915: END IF;
1923: EXCEPTION
1924:
1925: WHEN FND_API.g_exc_error THEN
1926: x_return_status := FND_API.g_ret_sts_error;
1927: FND_MSG_PUB.count_and_get(
1928: p_encoded => FND_API.g_false,
1929: p_count => x_msg_count,
1930: p_data => x_msg_data
1931: );
1931: );
1932:
1933: WHEN FND_API.g_exc_unexpected_error THEN
1934: x_return_status := FND_API.g_ret_sts_unexp_error ;
1935: FND_MSG_PUB.count_and_get(
1936: p_encoded => FND_API.g_false,
1937: p_count => x_msg_count,
1938: p_data => x_msg_data
1939: );
1939: );
1940:
1941: WHEN OTHERS THEN
1942: x_return_status := FND_API.g_ret_sts_unexp_error;
1943: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1944: THEN
1945: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1946: END IF;
1947:
1941: WHEN OTHERS THEN
1942: x_return_status := FND_API.g_ret_sts_unexp_error;
1943: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1944: THEN
1945: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1946: END IF;
1947:
1948: FND_MSG_PUB.count_and_get(
1949: p_encoded => FND_API.g_false,
1944: THEN
1945: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1946: END IF;
1947:
1948: FND_MSG_PUB.count_and_get(
1949: p_encoded => FND_API.g_false,
1950: p_count => x_msg_count,
1951: p_data => x_msg_data
1952: );
2412: x_return_status := FND_API.g_ret_sts_success;
2413:
2414: ------------------------ user_status_id --------------------------
2415: IF p_Access_rec.act_access_to_object_id IS NULL THEN
2416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2417: THEN
2418: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT_ID');
2419: FND_MSG_PUB.add;
2420: END IF;
2415: IF p_Access_rec.act_access_to_object_id IS NULL THEN
2416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2417: THEN
2418: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT_ID');
2419: FND_MSG_PUB.add;
2420: END IF;
2421:
2422: x_return_status := FND_API.g_ret_sts_error;
2423: RETURN;
2423: RETURN;
2424: END IF;
2425:
2426: IF p_Access_rec.arc_act_access_to_object IS NULL THEN
2427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2428: THEN
2429: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT');
2430: FND_MSG_PUB.add;
2431: END IF;
2426: IF p_Access_rec.arc_act_access_to_object IS NULL THEN
2427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2428: THEN
2429: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT');
2430: FND_MSG_PUB.add;
2431: END IF;
2432:
2433: x_return_status := FND_API.g_ret_sts_error;
2434: RETURN;
2434: RETURN;
2435: END IF;
2436:
2437: IF p_Access_rec.user_or_role_id IS NULL THEN
2438: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2439: THEN
2440: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_ID');
2441: FND_MSG_PUB.add;
2442: END IF;
2437: IF p_Access_rec.user_or_role_id IS NULL THEN
2438: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2439: THEN
2440: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_ID');
2441: FND_MSG_PUB.add;
2442: END IF;
2443:
2444: x_return_status := FND_API.g_ret_sts_error;
2445: RETURN;
2445: RETURN;
2446: END IF;
2447:
2448: IF p_Access_rec.arc_user_or_role_type IS NULL THEN
2449: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2450: THEN
2451: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_TYPE');
2452: FND_MSG_PUB.add;
2453: END IF;
2448: IF p_Access_rec.arc_user_or_role_type IS NULL THEN
2449: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2450: THEN
2451: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_TYPE');
2452: FND_MSG_PUB.add;
2453: END IF;
2454:
2455: x_return_status := FND_API.g_ret_sts_error;
2456: RETURN;
2464:
2465: END IF;
2466:
2467: IF p_Access_rec.user_or_role_id IS NOT NULL AND p_access_rec.object_version_number IS NULL THEN
2468: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2469: THEN
2470: OPEN c1( p_Access_rec.user_or_role_id
2471: , p_Access_rec.arc_user_or_role_type
2472: , p_Access_rec.act_access_to_object_id
2473: , p_Access_rec.arc_act_access_to_object);
2474: FETCH c1 into l_var1;
2475:
2476: if (c1%FOUND) then
2477: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2478: THEN
2479: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
2480: FND_MSG_PUB.add;
2481: END IF;
2476: if (c1%FOUND) then
2477: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2478: THEN
2479: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
2480: FND_MSG_PUB.add;
2481: END IF;
2482: x_return_status := FND_API.g_ret_sts_error;
2483: RETURN;
2484: end if;
2520: 'ams_act_access',
2521: 'activity_access_id = ' || p_Access_rec.activity_access_id
2522: ) = FND_API.g_false
2523: THEN
2524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2525: THEN
2526: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2527: FND_MSG_PUB.add;
2528: END IF;
2523: THEN
2524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2525: THEN
2526: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2527: FND_MSG_PUB.add;
2528: END IF;
2529: x_return_status := FND_API.g_ret_sts_error;
2530: RETURN;
2531: END IF;
2560: 'RESOURCE_ID',
2561: p_Access_rec.user_or_role_id
2562: ) = FND_API.g_false
2563: THEN
2564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2565: THEN
2566: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2567: FND_MSG_PUB.add;
2568: END IF;
2563: THEN
2564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2565: THEN
2566: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2567: FND_MSG_PUB.add;
2568: END IF;
2569:
2570: x_return_status := FND_API.g_ret_sts_error;
2571: RETURN;
2582: 'GROUP_ID',
2583: p_Access_rec.user_or_role_id
2584: ) = FND_API.g_false
2585: THEN
2586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2587: THEN
2588: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2589: FND_MSG_PUB.add;
2590: END IF;
2585: THEN
2586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2587: THEN
2588: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2589: FND_MSG_PUB.add;
2590: END IF;
2591:
2592: x_return_status := FND_API.g_ret_sts_error;
2593: RETURN;
2655: p_lookup_code => p_Access_rec.arc_act_access_to_object,
2656: p_view_application_id => 530
2657: ) = FND_API.g_false
2658: THEN
2659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2660: THEN
2661: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2662: FND_MSG_PUB.add;
2663: END IF;
2658: THEN
2659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2660: THEN
2661: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2662: FND_MSG_PUB.add;
2663: END IF;
2664: x_return_status := FND_API.g_ret_sts_error;
2665: RETURN;
2666: END IF;
2682: p_lookup_code => p_Access_rec.arc_user_or_role_type,
2683: p_view_application_id => 530
2684: ) = FND_API.g_false
2685: THEN
2686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2687: THEN
2688: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2689: FND_MSG_PUB.add;
2690: END IF;
2685: THEN
2686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2687: THEN
2688: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2689: FND_MSG_PUB.add;
2690: END IF;
2691:
2692: x_return_status := FND_API.g_ret_sts_error;
2693: RETURN;
2718: AND p_Access_rec.admin_flag IS NOT NULL
2719: THEN
2720: IF AMS_Utility_PVT.is_Y_or_N(p_access_rec.admin_flag) = FND_API.g_false
2721: THEN
2722: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2723: THEN
2724: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2725: FND_MSG_PUB.add;
2726: END IF;
2721: THEN
2722: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2723: THEN
2724: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2725: FND_MSG_PUB.add;
2726: END IF;
2727:
2728: x_return_status := FND_API.g_ret_sts_error;
2729: RETURN;
2866: FETCH c_user_exist INTO l_user_exist;
2867: CLOSE c_user_exist;
2868:
2869: IF l_user_exist = 1 THEN
2870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2871: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_USER_EXIST');
2872: FND_MSG_PUB.add;
2873: END IF;
2874: x_return_status := FND_API.g_ret_sts_error;
2868:
2869: IF l_user_exist = 1 THEN
2870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2871: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_USER_EXIST');
2872: FND_MSG_PUB.add;
2873: END IF;
2874: x_return_status := FND_API.g_ret_sts_error;
2875: END IF;
2876: END IF;
2912: l_end_date := p_Access_rec.active_to_date;
2913: END IF;
2914:
2915: IF l_start_date > l_end_date THEN
2916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2917: THEN
2918: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_INV_DATES');
2919: FND_MSG_PUB.add;
2920: END IF;
2915: IF l_start_date > l_end_date THEN
2916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2917: THEN
2918: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_INV_DATES');
2919: FND_MSG_PUB.add;
2920: END IF;
2921: x_return_status := FND_API.g_ret_sts_error;
2922: END IF;
2923: END IF;
2990: OPEN c_Access;
2991: FETCH c_Access INTO l_Access_rec;
2992: IF c_Access%NOTFOUND THEN
2993: CLOSE c_Access;
2994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2995: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2996: FND_MSG_PUB.add;
2997: END IF;
2998: RAISE FND_API.g_exc_error;
2992: IF c_Access%NOTFOUND THEN
2993: CLOSE c_Access;
2994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2995: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2996: FND_MSG_PUB.add;
2997: END IF;
2998: RAISE FND_API.g_exc_error;
2999: END IF;
3000: CLOSE c_access;