[Home] [Help]
665: CLOSE func_acess_count_c;
666:
667: IF l_func_access_count = 0 THEN
668: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
669: FND_FILE.put_line(fnd_file.log, '----fail on constraint - ALL = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
670: x_has_violation := 'Y';
671: EXIT;
672: END IF;
673: END IF;
746: -- in ME type: if user can access at least two entries of this constraint,
747: -- he violates this constraint
748: IF l_func_access_count >= 2 THEN
749: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
750: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - ME = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
751: x_has_violation := 'Y';
752: exit;
753: END IF;
754: END IF;
823: -- in SET type: if user can access at least two distinct groups(set) of this constraint,
824: -- he violates this constraint
825: IF l_group_access_count >= 2 THEN
826: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
827: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - SET = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
828: x_has_violation := 'Y';
829: END IF;
830: END IF;
831:
900: CLOSE resp_acess_count_c;
901:
902: IF l_resp_access_count = 0 THEN
903: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
904: FND_FILE.put_line(fnd_file.log, '----fail on constraint - ALL = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
905: x_has_violation := 'Y';
906:
907: OPEN violating_new_resps_c FOR l_violating_new_roles_sql USING
908: l_all_valid_constraints.constraint_rev_id;
1063:
1064:
1065: IF l_resp_access_count = 0 THEN
1066: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
1067: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - ME = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
1068: x_has_violation := 'Y';
1069:
1070: IF l_new_violation_table IS NOT NULL AND l_new_violation_table.FIRST IS NOT NULL THEN
1071: x_new_resp_name := l_new_violation_table(1);
1196: -- in SET type: if user can access at least two distinct groups(set) of this constraint,
1197: -- he violates this constraint
1198: IF l_resp_access_count >= 2 THEN
1199: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
1200: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - SET = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
1201: x_has_violation := 'Y';
1202:
1203:
1204: IF l_new_violation_table IS NOT NULL AND l_new_violation_table.FIRST IS NOT NULL THEN
1452: -- in ALL type: if user can access to all entries of this constraint,
1453: -- he violates this constraint
1454: IF l_func_access_count = l_constraint_entries_count THEN
1455: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
1456: FND_FILE.put_line(fnd_file.log, '------------ fail on constraint - ALL = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
1457: has_violation := 'Y';
1458: return has_violation;
1459: END IF;
1460:
1476: -- in ME type: if user can access at least two entries of this constraint,
1477: -- he violates this constraint
1478: IF l_func_access_count >= 2 THEN
1479: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
1480: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - ME = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
1481: has_violation := 'Y';
1482: return has_violation;
1483: END IF;
1484:
1500: -- in SET type: if user can access at least two distinct groups(set) of this constraint,
1501: -- he violates this constraint
1502: IF l_group_access_count >= 2 THEN
1503: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
1504: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - SET = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
1505: has_violation := 'Y';
1506: return has_violation;
1507: END IF;
1508: ELSE
1543: L_API_NAME CONSTANT VARCHAR2(30) := 'Clear_List';
1544: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1545:
1546: BEGIN
1547: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1548: G_ROLE_NAME_LIST.DELETE();
1549: G_RESPONSIBILITY_ID_LIST.DELETE();
1550: G_MENU_ID_LIST.DELETE();
1551: G_FUNCTION_ID_LIST.DELETE();
1688: i number;
1689: z number;
1690:
1691: BEGIN
1692: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1693:
1694: if(p_appl_id is not NULL) then
1695: /* Select the list of exclusion rules into our cache */
1696: OPEN excl_c FOR l_excl_dynamic_sql USING
3234: END LOOP; --end of for :associated_cont_ids_list.COUNT
3235: END LOOP; --end of for: violated_cst_rev_id_list.COUNT
3236: EXCEPTION
3237: WHEN OTHERS THEN
3238: fnd_file.put_line(fnd_file.LOG,'unexpected error in Send_Notif_To_Affected_Process: '||sqlerrm);
3239: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3240: END Send_Notif_To_Affected_Process;
3241:
3242: -- ===============================================================
3324:
3325: x_return_status := FND_API.G_RET_STS_ERROR;
3326: FND_MESSAGE.set_name('AMW','AMW_APPR_INVALID_ROLE');
3327: FND_MSG_PUB.ADD;
3328: fnd_file.put_line(fnd_file.LOG, 'to_role is null');
3329: ELSE
3330:
3331: OPEN c_user_dynamic_sql FOR l_user_dynamic_sql USING
3332: p_user_id;
3354: END IF; --end of if: l_to_role_name IS NULL
3355: END LOOP; --end of for: emp_id_list.COUNT
3356: EXCEPTION
3357: WHEN OTHERS THEN
3358: fnd_file.put_line(fnd_file.LOG,'unexpected error in Send_Notif_To_Process_Owner: '||sqlerrm);
3359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3360: END;
3361:
3362:
3594: -- in ALL type: if user can access to all entries of this constraint,
3595: -- he violates this constraint
3596: IF l_func_access_count = l_constraint_entries_count THEN
3597: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
3598: FND_FILE.put_line(fnd_file.log, '------------ fail on constraint - ALL = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
3599: l_violat_existing_resp := Get_Violat_Existing_Resp_List (
3600: p_user_id => p_user_id,
3601: p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
3602: p_constraint_type_code => l_all_valid_constraints.type_code);
3654: -- in ME type: if user can access at least two entries of this constraint,
3655: -- he violates this constraint
3656: IF l_func_access_count >= 2 THEN
3657: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
3658: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - ME = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
3659: l_violat_existing_resp := Get_Violat_Existing_Resp_List (
3660: p_user_id => p_user_id,
3661: p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
3662: p_constraint_type_code => l_all_valid_constraints.type_code);
3714: -- in SET type: if user can access at least two distinct groups(set) of this constraint,
3715: -- he violates this constraint
3716: IF l_group_access_count >= 2 THEN
3717: -- once he violates at least one constraint, break the loop and inform FALSE to the caller
3718: FND_FILE.put_line(fnd_file.log,'------------ fail on constraint - SET = '||l_all_valid_constraints.constraint_rev_id ||' ---------------');
3719: l_violat_existing_resp := Get_Violat_Existing_Resp_List (
3720: p_user_id => p_user_id,
3721: p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
3722: p_constraint_type_code => l_all_valid_constraints.type_code);