[Home] [Help]
189:
190: ver varchar2(255);
191:
192: begin
193: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
194:
195: begin
196: if (G_BULK_COLLECTS_SUPPORTED = 'TRUE') then
197: return TRUE;
500: L_FUNC_ID_LIST(tbl_func_id(i)) := L_RESPVIO_ENTRIES;
501: G_RESP_VIOLATIONS_LIST(listkey) := L_FUNC_ID_LIST;
502: END IF;
503:
504: /*FND_FILE.put_line(fnd_file.log,'*****************');
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
501: G_RESP_VIOLATIONS_LIST(listkey) := L_FUNC_ID_LIST;
502: END IF;
503:
504: /*FND_FILE.put_line(fnd_file.log,'*****************');
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
502: END IF;
503:
504: /*FND_FILE.put_line(fnd_file.log,'*****************');
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
503:
504: /*FND_FILE.put_line(fnd_file.log,'*****************');
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
504: /*FND_FILE.put_line(fnd_file.log,'*****************');
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
505: FND_FILE.put_line(fnd_file.log,'Responsibility_id '||p_resp_id);
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
513: FND_FILE.put_line(fnd_file.log,'l_searched_func_id_list.COUNT'||l_searched_func_id_list.COUNT); */
506: FND_FILE.put_line(fnd_file.log,'p_appl_id '||p_appl_id);
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
513: FND_FILE.put_line(fnd_file.log,'l_searched_func_id_list.COUNT'||l_searched_func_id_list.COUNT); */
514:
507: FND_FILE.put_line(fnd_file.log,'tbl_menu_id '||tbl_menu_id(i));
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
513: FND_FILE.put_line(fnd_file.log,'l_searched_func_id_list.COUNT'||l_searched_func_id_list.COUNT); */
514:
515: -- When the unexcluded function count equals searched function count,
508: FND_FILE.put_line(fnd_file.log,'p_function_id '||tbl_func_id(i));
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
513: FND_FILE.put_line(fnd_file.log,'l_searched_func_id_list.COUNT'||l_searched_func_id_list.COUNT); */
514:
515: -- When the unexcluded function count equals searched function count,
516: -- we have processed all the unexcluded function. So we need to stop
509: FND_FILE.put_line(fnd_file.log,'p_group_code '||l_group_code);
510: FND_FILE.put_line(fnd_file.log,'*****************');
511: FND_FILE.put_line(fnd_file.log,'tbl_func_id(i) '||tbl_func_id(i));
512: FND_FILE.put_line(fnd_file.log,'G_UNEXCL_FUNC_ID_LIST.COUNT'||G_UNEXCL_FUNC_ID_LIST.COUNT);
513: FND_FILE.put_line(fnd_file.log,'l_searched_func_id_list.COUNT'||l_searched_func_id_list.COUNT); */
514:
515: -- When the unexcluded function count equals searched function count,
516: -- we have processed all the unexcluded function. So we need to stop
517: -- digging into the responsibility menu hierarchy
684: i number;
685: z number;
686:
687: BEGIN
688: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
689:
690: if(p_appl_id is not NULL) then
691: /* Select the list of exclusion rules into our cache */
692: -- 11.12.2003 tsho: use dynamic sql for AMW
840: G_PV_FUNCTION_ID := p_function_id;
841: G_PV_RESPONSIBILITY_ID := p_resp_id;
842: G_PV_ACCESS_GIVEN_DATE := p_access_given_date;
843: G_PV_ACCESS_GIVEN_BY := p_access_given_by;
844: FND_FILE.put_line(fnd_file.log,'inside '||L_API_NAME || ': ');
845: FND_FILE.put_line(fnd_file.log,'G_PV_RESPONSIBILITY_ID: '||G_PV_RESPONSIBILITY_ID);
846: FND_FILE.put_line(fnd_file.log,'G_PV_MENU_ID: '||G_PV_MENU_ID);
847: FND_FILE.put_line(fnd_file.log,'G_PV_FUNCTION_ID: '||G_PV_FUNCTION_ID);
848: */
841: G_PV_RESPONSIBILITY_ID := p_resp_id;
842: G_PV_ACCESS_GIVEN_DATE := p_access_given_date;
843: G_PV_ACCESS_GIVEN_BY := p_access_given_by;
844: FND_FILE.put_line(fnd_file.log,'inside '||L_API_NAME || ': ');
845: FND_FILE.put_line(fnd_file.log,'G_PV_RESPONSIBILITY_ID: '||G_PV_RESPONSIBILITY_ID);
846: FND_FILE.put_line(fnd_file.log,'G_PV_MENU_ID: '||G_PV_MENU_ID);
847: FND_FILE.put_line(fnd_file.log,'G_PV_FUNCTION_ID: '||G_PV_FUNCTION_ID);
848: */
849: G_PV_MENU_ID_LIST(G_PV_COUNT) := tbl_menu_id(i);
842: G_PV_ACCESS_GIVEN_DATE := p_access_given_date;
843: G_PV_ACCESS_GIVEN_BY := p_access_given_by;
844: FND_FILE.put_line(fnd_file.log,'inside '||L_API_NAME || ': ');
845: FND_FILE.put_line(fnd_file.log,'G_PV_RESPONSIBILITY_ID: '||G_PV_RESPONSIBILITY_ID);
846: FND_FILE.put_line(fnd_file.log,'G_PV_MENU_ID: '||G_PV_MENU_ID);
847: FND_FILE.put_line(fnd_file.log,'G_PV_FUNCTION_ID: '||G_PV_FUNCTION_ID);
848: */
849: G_PV_MENU_ID_LIST(G_PV_COUNT) := tbl_menu_id(i);
850: G_PV_FUNCTION_ID_LIST(G_PV_COUNT) := p_function_id;
843: G_PV_ACCESS_GIVEN_BY := p_access_given_by;
844: FND_FILE.put_line(fnd_file.log,'inside '||L_API_NAME || ': ');
845: FND_FILE.put_line(fnd_file.log,'G_PV_RESPONSIBILITY_ID: '||G_PV_RESPONSIBILITY_ID);
846: FND_FILE.put_line(fnd_file.log,'G_PV_MENU_ID: '||G_PV_MENU_ID);
847: FND_FILE.put_line(fnd_file.log,'G_PV_FUNCTION_ID: '||G_PV_FUNCTION_ID);
848: */
849: G_PV_MENU_ID_LIST(G_PV_COUNT) := tbl_menu_id(i);
850: G_PV_FUNCTION_ID_LIST(G_PV_COUNT) := p_function_id;
851: G_PV_RESPONSIBILITY_ID_LIST(G_PV_COUNT) := p_resp_id;
931: ||' WHERE responsibility_id = :1 '
932: ||' AND application_id = :2 ';
933:
934: BEGIN
935: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
936:
937: if ( (P_LAST_RESP_ID = p_resp_id)
938: and (P_LAST_RESP_APPL_ID = p_appl_id)) then
939: /* If the cache is valid just use the cache */
1041: result boolean;
1042: L_TEST_MAINT_AVAILABILITY boolean;
1043:
1044: BEGIN
1045: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1046:
1047: l_function_id := function_id;
1048: l_resp_id := p_resp_id; -- 11.13.2003 thso: use passed-in
1049: l_resp_appl_id := p_appl_id; -- 11.13.2003 thso: use passed-in
1158: L_MAINTENANCE_MODE_SUPPORT varchar2(8) := MAINTENANCE_MODE_SUPPORT;
1159: L_CONTEXT_DEPENDENCE varchar2(8) := CONTEXT_DEPENDENCE;
1160:
1161: BEGIN
1162: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1163:
1164: if (TEST_ID_NO_GRANTS(function_id,
1165: p_appl_id,
1166: p_resp_id,
1250: ||' FROM '||G_AMW_FORM_FUNCTIONS_VL
1251: ||' WHERE FUNCTION_ID = :1 ';
1252:
1253: BEGIN
1254: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1255: L_MAINTENANCE_MODE_SUPPORT := NULL;
1256: L_CONTEXT_DEPENDENCE := NULL;
1257: L_FUNCTION_ID := function_id;
1258:
1275: exception
1276: when no_data_found then
1277: return FALSE; /* Bad function id passed */
1278: when others then
1279: --FND_FILE.put_line(fnd_file.log,'other exception '||SQLERRM);
1280: raise;
1281: end;
1282:
1283: return TEST_INSTANCE_ID_MAINTMODE(
1333: ||' FROM '||G_AMW_USER ||' u '
1334: ||' WHERE u.user_id = :1 ';
1335:
1336: BEGIN
1337: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1338: -- 12.12.2003 tsho: use static sql for AMW for the time being
1339: -- 04.30.2004 tsho: enable dynamic sql in AMW.C with 5.10
1340: OPEN c_user_dynamic_sql FOR l_user_dynamic_sql USING
1341: p_user_id;
1390: WHERE emp.party_id = u.person_party_id;
1391: */
1392:
1393: BEGIN
1394: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
1395:
1396: -- find all employees having corresponding user_id in g_amw_user
1397: IF (BULK_COLLECTS_SUPPORTED) THEN
1398: -- 12.12.2003 tsho: use static sql for AMW for the time being
1700: L_RESP_FUNC_ID_LIST G_FUNC_TABLE;
1701: rListkey VARCHAR2(30) := NULL;
1702: flag boolean:=true;
1703: BEGIN
1704: -- FND_FILE.put_line(fnd_file.log,'Populate_User_Vio_For_Cst Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
1705:
1706: IF (p_type_code IS NULL) THEN
1707: OPEN c_constraint(p_constraint_rev_id);
1708: FETCH c_constraint INTO l_type_code;
1990: G_UPV_ACCESS_GIVEN_DATE_LIST.delete();
1991: G_UPV_ACCESS_GIVEN_BY_LIST.delete();
1992: l_user_access_waived_resp_list.delete();
1993: END IF;
1994: -- FND_FILE.put_line(fnd_file.log,'Populate_User_Vio_For_Cst END '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
1995: END;
1996:
1997: -- ===============================================================
1998: -- Procedure name
2143:
2144:
2145:
2146: BEGIN
2147: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
2148:
2149: -- 12.21.2004 tsho: fix for performance bug 4036679, G_USER_ID_LIST is valid for one constraint
2150: G_CST_USER_ID_LIST.DELETE();
2151:
2159: CLOSE c_constraint;
2160: END IF; -- end of if: _type_code IS NULL
2161:
2162: IF (substr(l_type_code,1,4) = 'RESP') THEN
2163: --FND_FILE.put_line(fnd_file.log,'ID List for RESP '||L_API_NAME);
2164: -- for constriant type : Responsibility
2165: IF (BULK_COLLECTS_SUPPORTED) THEN
2166: -- enable dynamic sql in AMW.C with 5.10
2167: OPEN c_user_dynamic_sql FOR l_user_resp_cst_dynamic_sql USING
2184: CLOSE c_user_dynamic_sql;
2185: END IF; -- end of if: BULK_COLLECTS_SUPPORTED
2186:
2187: ELSE
2188: --FND_FILE.put_line(fnd_file.log,'ID List for FUNC '||L_API_NAME);
2189: -- for constriant type : Function
2190: IF (BULK_COLLECTS_SUPPORTED) THEN
2191: OPEN c_user_dynamic_sql FOR l_user_func_cst_dynamic_sql USING
2192: p_constraint_rev_id, p_constraint_rev_id, p_constraint_rev_id, p_constraint_rev_id;
2208: CLOSE c_user_dynamic_sql;
2209: END IF; -- end of if: BULK_COLLECTS_SUPPORTED
2210:
2211: END IF; --end of if: substr(l_type_code,1,4) = 'RESP'
2212: --FND_FILE.put_line(fnd_file.log,'Came out '||L_API_NAME);
2213:
2214: END Populate_User_Id_List_For_Cst;
2215:
2216:
2502: rListkey VARCHAR2(30) := NULL;
2503: flag BOOLEAN := TRUE;
2504: BEGIN
2505:
2506: -- FND_FILE.put_line(fnd_file.log,'Populate_User_Vio_For_Vlt Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
2507:
2508: IF (p_violation_id IS NULL) THEN
2509: RETURN;
2510: END IF;
2788: END IF;
2789: END lOOP;
2790: END IF;
2791: END IF;
2792: -- FND_FILE.put_line(fnd_file.log,'Populate_User_Vio_For_Vlt End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
2793: END;
2794:
2795:
2796: -- ===============================================================
2828: ||' WHERE vu.violation_id = :1 '
2829: ||' AND vu.violated_by_id = u.user_id ';
2830:
2831: BEGIN
2832: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
2833:
2834: -- fix for performance bug 4036679, G_USER_ID_LIST is valid for one constraint
2835: G_CST_USER_ID_LIST.DELETE();
2836:
2898: SELECT AMW_VIOLATION_S.NEXTVAL
2899: FROM dual;
2900:
2901: BEGIN
2902: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
2903:
2904: -- get violation_id from AMW_VIOLATION_S
2905: OPEN c_violation_id;
2906: FETCH c_violation_id INTO l_violation_id;
2921: x_last_update_login => G_LOGIN_ID,
2922: x_security_group_id => G_SECURITY_GROUP_ID,
2923: x_object_version_number => 1);
2924:
2925: --FND_FILE.put_line(fnd_file.log,'AMW_VIOLATIONS_PKG.insert_row: l_violation_id= '||l_violation_id);
2926:
2927: RETURN l_violation_id;
2928: END Create_Violation;
2929:
2998: AND waived_flag = 'N'
2999: AND corrected_flag = 'N';
3000:
3001: BEGIN
3002: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3003:
3004: OPEN c_violator_num(p_violation_id);
3005: FETCH c_violator_num INTO l_violator_num;
3006: CLOSE c_violator_num;
3092: WHERE violation_id = l_violation_id
3093: AND violated_by_id = l_violated_by_id;
3094:
3095: BEGIN
3096: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3097:
3098: IF (p_user_violation_id IS NULL) THEN
3099: BEGIN
3100: -- get user_violation_id from AMW_VIOLATION_USERS if not specified
3106: WHEN no_data_found THEN
3107: IF c_user_violation_id%ISOPEN THEN
3108: CLOSE c_user_violation_id;
3109: END IF;
3110: --FND_FILE.put_line(fnd_file.log,'Error in cursor c_user_violation_id'||substr(SQLERRM, 1, 200));
3111: return;
3112: END;
3113: END IF;
3114:
3124: x_corrected_flag => p_corrected_flag);
3125: DELETE FROM AMW_VIOLAT_USER_ENTRIES
3126: WHERE USER_VIOLATION_ID=l_user_violation_id;
3127:
3128: --FND_FILE.put_line(fnd_file.log,'Came out'||L_API_NAME);
3129: END Update_Violation_User;
3130:
3131:
3132: -- ===============================================================
3186: ||' WHERE user_id = :1 ';
3187: */
3188:
3189: BEGIN
3190: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3191:
3192: -- find party_id with specified user_id
3193: BEGIN
3194: -- 12.12.2003 tsho: use static sql for AMW for the time being
3236: x_creation_date => SYSDATE,
3237: x_last_update_login => G_LOGIN_ID,
3238: x_security_group_id => NULL);
3239:
3240: --FND_FILE.put_line(fnd_file.log,'AMW_VIOLATION_USERS_PKG.insert_row: l_user_violation_id= '|| l_user_violation_id);
3241:
3242: -- bulk insert to AMW_VIOLAT_USER_ENTRIES
3243: FORALL i IN 1 .. G_PV_FUNCTION_ID_LIST.COUNT
3244: INSERT INTO AMW_VIOLAT_USER_ENTRIES VALUES (
3283: L_API_NAME CONSTANT VARCHAR2(30) := 'Clear_Potential_Value_List';
3284: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
3285:
3286: BEGIN
3287: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3288: G_PV_COUNT := 1;
3289: G_PV_FUNCTION_ID_LIST.DELETE();
3290: G_PV_MENU_ID_LIST.DELETE();
3291: G_PV_RESPONSIBILITY_ID_LIST.DELETE();
3324: L_API_NAME CONSTANT VARCHAR2(30) := 'Clear_Usr_Potential_Value_List';
3325: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
3326:
3327: BEGIN
3328: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3329:
3330: G_UPV_COUNT := 1;
3331: G_UPV_FUNCTION_ID_LIST.DELETE();
3332: G_UPV_MENU_ID_LIST.DELETE();
3452: and (end_date >= sysdate or end_date is null);
3453: */
3454:
3455: BEGIN
3456: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3457:
3458: -- if no users in g_user_id_list, then no need to go further to check constraint
3459: IF ((G_USER_ID_LIST IS NULL) OR (G_USER_ID_LIST.FIRST IS NULL)) THEN
3460: RETURN;
3491: BEGIN
3492: -- for each user
3493: FOR i IN 1 .. G_USER_ID_LIST.COUNT
3494: LOOP
3495: --FND_FILE.put_line(fnd_file.log,'******* G_USER_ID_LIST('||i||') '||G_USER_ID_LIST(i)||' ******');
3496: -- clear potential violation info (valid for one user against one constraint)
3497: Clear_Potential_Value_List ();
3498:
3499: -- get user(usre i)'s responsibilities
3561: LOOP
3562: -- 05.07.2004 tsho, bug 3616058, only one function shown under user as violation, move l_accessible := FALSE to be inside of funciton Loop
3563: l_accessible := FALSE;
3564:
3565: --FND_FILE.put_line(fnd_file.log,'----------- l_function_id_list('||k||') '||l_function_id_list(k)||' --------');
3566: -- test function id under user(user i)'s all responsibilities
3567: -- l_accessible will become TRUE as long as at least one of his responsibility can access this function
3568: FOR m IN 1 .. l_user_resp_id_list.COUNT
3569: LOOP
3566: -- test function id under user(user i)'s all responsibilities
3567: -- l_accessible will become TRUE as long as at least one of his responsibility can access this function
3568: FOR m IN 1 .. l_user_resp_id_list.COUNT
3569: LOOP
3570: --FND_FILE.put_line(fnd_file.log,'............. l_user_resp_id_list('||m||') '||l_user_resp_id_list(m)||' .........');
3571: l_test_id_result := TEST_ID(function_id => l_function_id_list(k),
3572: p_appl_id => l_user_resp_app_id_list(m),
3573: p_resp_id => l_user_resp_id_list(m),
3574: p_access_given_date => l_user_resp_start_date_list(m),
3574: p_access_given_date => l_user_resp_start_date_list(m),
3575: p_access_given_by => l_user_resp_created_by_list(m));
3576: l_accessible := l_accessible OR l_test_id_result;
3577: IF (l_test_id_result) THEN
3578: --FND_FILE.put_line(fnd_file.log,'............. l_test_id_result = TRUE ');
3579: -- if TEST_ID result(final decision) has access right to function k under responsibility m,
3580: --FND_FILE.put_line(fnd_file.log,'............. G_PV_COUNT = '||G_PV_COUNT);
3581: G_PV_FUNCTION_ID_LIST(G_PV_COUNT) := G_PV_FUNCTION_ID;
3582: G_PV_MENU_ID_LIST(G_PV_COUNT) := G_PV_MENU_ID;
3576: l_accessible := l_accessible OR l_test_id_result;
3577: IF (l_test_id_result) THEN
3578: --FND_FILE.put_line(fnd_file.log,'............. l_test_id_result = TRUE ');
3579: -- if TEST_ID result(final decision) has access right to function k under responsibility m,
3580: --FND_FILE.put_line(fnd_file.log,'............. G_PV_COUNT = '||G_PV_COUNT);
3581: G_PV_FUNCTION_ID_LIST(G_PV_COUNT) := G_PV_FUNCTION_ID;
3582: G_PV_MENU_ID_LIST(G_PV_COUNT) := G_PV_MENU_ID;
3583: G_PV_RESPONSIBILITY_ID_LIST(G_PV_COUNT) := G_PV_RESPONSIBILITY_ID;
3584: G_PV_ACCESS_GIVEN_DATE_LIST(G_PV_COUNT) := G_PV_ACCESS_GIVEN_DATE;
3582: G_PV_MENU_ID_LIST(G_PV_COUNT) := G_PV_MENU_ID;
3583: G_PV_RESPONSIBILITY_ID_LIST(G_PV_COUNT) := G_PV_RESPONSIBILITY_ID;
3584: G_PV_ACCESS_GIVEN_DATE_LIST(G_PV_COUNT) := G_PV_ACCESS_GIVEN_DATE;
3585: G_PV_ACCESS_GIVEN_BY_LIST(G_PV_COUNT) := G_PV_ACCESS_GIVEN_BY;
3586: --FND_FILE.put_line(fnd_file.log,'............. G_PV_FUNCTION_ID_LIST(G_PV_FUNCTION_ID_LIST.COUNT) = '||G_PV_FUNCTION_ID_LIST(G_PV_FUNCTION_ID_LIST.COUNT));
3587: G_PV_COUNT := G_PV_COUNT +1;
3588: END IF;
3589: END LOOP; -- end of loop: l_user_resp_id_list
3590:
3591: IF (NOT l_accessible) THEN
3592: -- in 'ALL' constraint type,
3593: -- if he(user i) doesn't have access(after check for all his responsibilities) to one function,
3594: -- then he doesn't violat this constraint. exit to check for next user(user i+1)
3595: --FND_FILE.put_line(fnd_file.log,'............. l_accessible = FALSE ');
3596: EXIT;
3597: ELSE
3598: --FND_FILE.put_line(fnd_file.log,'............. l_accessible = TRUE ');
3599: l_access_function_count := l_access_function_count+1;
3594: -- then he doesn't violat this constraint. exit to check for next user(user i+1)
3595: --FND_FILE.put_line(fnd_file.log,'............. l_accessible = FALSE ');
3596: EXIT;
3597: ELSE
3598: --FND_FILE.put_line(fnd_file.log,'............. l_accessible = TRUE ');
3599: l_access_function_count := l_access_function_count+1;
3600: END IF;
3601:
3602: END LOOP; -- end of loop: l_function_id_list
3603:
3604: IF (l_access_function_count < l_function_id_list.COUNT) THEN
3605: -- user(user i) doesn't have access rights to all the incompatible functions defined in this constraint,
3606: -- it's garuanteed he doesn't violate this constraint
3607: --FND_FILE.put_line(fnd_file.log,'............. l_access_function_count < '||l_function_id_list.COUNT);
3608: null;
3609: ELSE
3610: -- write potential violation info to table
3611: --FND_FILE.put_line(fnd_file.log,'............. l_access_function_count >= '||l_function_id_list.COUNT);
3607: --FND_FILE.put_line(fnd_file.log,'............. l_access_function_count < '||l_function_id_list.COUNT);
3608: null;
3609: ELSE
3610: -- write potential violation info to table
3611: --FND_FILE.put_line(fnd_file.log,'............. l_access_function_count >= '||l_function_id_list.COUNT);
3612: Write_To_Table(p_violation_id, p_constraint_rev_id, G_USER_ID_LIST(i));
3613: END IF;
3614:
3615: END LOOP; -- end of loop: G_USER_ID_LIST
3615: END LOOP; -- end of loop: G_USER_ID_LIST
3616:
3617: EXCEPTION
3618: WHEN others THEN
3619: --FND_FILE.put_line(fnd_file.log,'............. exception ...........');
3620: RAISE;
3621: END;
3622:
3623: END IF; -- end of if: p_constraint_rev_id IS NOT NULL
3736: and (end_date >= sysdate or end_date is null);
3737: */
3738:
3739: BEGIN
3740: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3741:
3742: -- if no users in g_user_id_list, then no need to go further to check constraint
3743: IF ((G_USER_ID_LIST IS NULL) OR (G_USER_ID_LIST.FIRST IS NULL)) THEN
3744: RETURN;
3863: G_PV_MENU_ID_LIST(G_PV_COUNT) := G_PV_MENU_ID;
3864: G_PV_RESPONSIBILITY_ID_LIST(G_PV_COUNT) := G_PV_RESPONSIBILITY_ID;
3865: G_PV_ACCESS_GIVEN_DATE_LIST(G_PV_COUNT) := G_PV_ACCESS_GIVEN_DATE;
3866: G_PV_ACCESS_GIVEN_BY_LIST(G_PV_COUNT) := G_PV_ACCESS_GIVEN_BY;
3867: --FND_FILE.put_line(fnd_file.log,'............. G_PV_FUNCTION_ID_LIST(G_PV_FUNCTION_ID_LIST.COUNT) = '||G_PV_FUNCTION_ID_LIST(G_PV_FUNCTION_ID_LIST.COUNT));
3868: G_PV_COUNT := G_PV_COUNT +1;
3869: END IF;
3870:
3871: END LOOP; -- end of loop: l_user_resp_id_list
3960: counts NUMBER;
3961:
3962:
3963: BEGIN
3964: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
3965:
3966: -- clear global potential responsiblity id list and corresponding applicaiton id, menu id list (valid for one constraint)
3967: G_PNTL_RESP_ID_LIST.DELETE();
3968: G_PNTL_APPL_ID_LIST.DELETE();
4159: l_appl_id NUMBER;
4160: l_menu_id NUMBER;
4161:
4162: BEGIN
4163: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4164: --FND_FILE.put_line(fnd_file.log,'Populate_Ptnl_Access_List Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4165:
4166: -- psomanat : 06:09:2006 : fix for bug 5256720
4167: G_RESP_VIOLATIONS_LIST.delete();
4160: l_menu_id NUMBER;
4161:
4162: BEGIN
4163: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4164: --FND_FILE.put_line(fnd_file.log,'Populate_Ptnl_Access_List Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4165:
4166: -- psomanat : 06:09:2006 : fix for bug 5256720
4167: G_RESP_VIOLATIONS_LIST.delete();
4168: l_accessible := FALSE;
4177:
4178: -- clear potential violation info (valid for one constraint)
4179: Clear_Potential_Value_List();
4180:
4181: -- FND_FILE.put_line(fnd_file.log,'cp_resp_c Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4182: -- Identify the Responsibilities having access to the concurrent
4183: -- program specified as incompatible function in the constraint.
4184: OPEN cp_resp_c FOR l_cp_resp_dynamic_sql USING p_constraint_rev_id,p_constraint_rev_id;
4185: FETCH cp_resp_c
4272: L_FUNC_ID_LIST(G_PV_FUNCTION_ID_LIST(i)) := L_RESPVIO_ENTRIES;
4273: G_RESP_VIOLATIONS_LIST(listkey) := L_FUNC_ID_LIST;
4274: END lOOP; -- End of FOR i in 1 .. G_PV_RESPONSIBILITY_ID_LIST.COUNT
4275: END IF;
4276: --FND_FILE.put_line(fnd_file.log,'cp_resp_c End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4277:
4278: -- Releasing the used memory
4279: Clear_Potential_Value_List();
4280:
4277:
4278: -- Releasing the used memory
4279: Clear_Potential_Value_List();
4280:
4281: --FND_FILE.put_line(fnd_file.log,'Potential Reposnibility Start '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4282:
4283:
4284: -- psomanat : 06:09:2006 : fix for bug 5256720
4285: -- In amwvcstb.pls 120.23 version, we use the following logic
4341: l_appl_id := L_RESPVIO_ENTRIES(1).application_id;
4342: l_resp_id := L_RESPVIO_ENTRIES(1).Responsibility_id;
4343: l_menu_id := L_RESPVIO_ENTRIES(1).Menu_id;
4344:
4345: /*FND_FILE.put_line(fnd_file.log,'l_appl_id '||l_appl_id);
4346: FND_FILE.put_line(fnd_file.log,'l_resp_id '||l_resp_id);
4347: FND_FILE.put_line(fnd_file.log,'l_menu_id '||l_menu_id); */
4348:
4349: OPEN excl_func_c FOR l_excl_func_dynamic_sql USING
4342: l_resp_id := L_RESPVIO_ENTRIES(1).Responsibility_id;
4343: l_menu_id := L_RESPVIO_ENTRIES(1).Menu_id;
4344:
4345: /*FND_FILE.put_line(fnd_file.log,'l_appl_id '||l_appl_id);
4346: FND_FILE.put_line(fnd_file.log,'l_resp_id '||l_resp_id);
4347: FND_FILE.put_line(fnd_file.log,'l_menu_id '||l_menu_id); */
4348:
4349: OPEN excl_func_c FOR l_excl_func_dynamic_sql USING
4350: l_appl_id, l_resp_id;
4343: l_menu_id := L_RESPVIO_ENTRIES(1).Menu_id;
4344:
4345: /*FND_FILE.put_line(fnd_file.log,'l_appl_id '||l_appl_id);
4346: FND_FILE.put_line(fnd_file.log,'l_resp_id '||l_resp_id);
4347: FND_FILE.put_line(fnd_file.log,'l_menu_id '||l_menu_id); */
4348:
4349: OPEN excl_func_c FOR l_excl_func_dynamic_sql USING
4350: l_appl_id, l_resp_id;
4351: FETCH excl_func_c BULK COLLECT INTO l_excl_func_id_list;
4408: END IF;
4409: END LOOP;
4410: END IF;
4411:
4412: /*FND_FILE.put_line(fnd_file.log,'*************************');
4413: lkey :=G_UNEXCL_FUNC_ID_LIST.FIRST;
4414: WHILE lkey IS NOT NULL
4415: LOOP
4416: FND_FILE.put_line(fnd_file.log,G_UNEXCL_FUNC_ID_LIST(lkey));
4412: /*FND_FILE.put_line(fnd_file.log,'*************************');
4413: lkey :=G_UNEXCL_FUNC_ID_LIST.FIRST;
4414: WHILE lkey IS NOT NULL
4415: LOOP
4416: FND_FILE.put_line(fnd_file.log,G_UNEXCL_FUNC_ID_LIST(lkey));
4417: lkey:=G_UNEXCL_FUNC_ID_LIST.NEXT(lkey);
4418: end loop;
4419: FND_FILE.put_line(fnd_file.log,'*************************');*/
4420:
4415: LOOP
4416: FND_FILE.put_line(fnd_file.log,G_UNEXCL_FUNC_ID_LIST(lkey));
4417: lkey:=G_UNEXCL_FUNC_ID_LIST.NEXT(lkey);
4418: end loop;
4419: FND_FILE.put_line(fnd_file.log,'*************************');*/
4420:
4421: -- we need to dig into the responsibility menu hierarchy when we have
4422: -- atleast one unexcluded incompatible function
4423: IF G_UNEXCL_FUNC_ID_LIST.FIRST IS NOT NULL THEN
4434: G_PNTL_RESP_VIO_LIST.delete();
4435: G_UNEXCL_FUNC_ID_LIST.delete();
4436: G_UNEXCL_GRP_CODE_LIST.delete();
4437:
4438: --FND_FILE.put_line(fnd_file.log,'Potential Reposnibility End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4439:
4440: /*
4441: -- Display the responsibility
4442: listkey :=G_RESP_VIOLATIONS_LIST.FIRST;
4441: -- Display the responsibility
4442: listkey :=G_RESP_VIOLATIONS_LIST.FIRST;
4443: WHILE listkey IS NOT NULL
4444: LOOP
4445: FND_FILE.put_line(fnd_file.log,'*********************************************************');
4446: FND_FILE.put_line(fnd_file.log,' Responsibility_id '||listkey);
4447: L_FUNC_ID_LIST:=G_RESP_VIOLATIONS_LIST(listkey);
4448: FOR j IN L_FUNC_ID_LIST.FIRST .. L_FUNC_ID_LIST.LAST
4449: LOOP
4442: listkey :=G_RESP_VIOLATIONS_LIST.FIRST;
4443: WHILE listkey IS NOT NULL
4444: LOOP
4445: FND_FILE.put_line(fnd_file.log,'*********************************************************');
4446: FND_FILE.put_line(fnd_file.log,' Responsibility_id '||listkey);
4447: L_FUNC_ID_LIST:=G_RESP_VIOLATIONS_LIST(listkey);
4448: FOR j IN L_FUNC_ID_LIST.FIRST .. L_FUNC_ID_LIST.LAST
4449: LOOP
4450: IF L_FUNC_ID_LIST.EXISTS(j) THEN
4450: IF L_FUNC_ID_LIST.EXISTS(j) THEN
4451: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
4452: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4453: LOOP
4454: -- FND_FILE.put_line(fnd_file.log,'Responsibility_id '||L_RESPVIO_ENTRIES(k).Responsibility_id);
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4451: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
4452: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4453: LOOP
4454: -- FND_FILE.put_line(fnd_file.log,'Responsibility_id '||L_RESPVIO_ENTRIES(k).Responsibility_id);
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4452: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4453: LOOP
4454: -- FND_FILE.put_line(fnd_file.log,'Responsibility_id '||L_RESPVIO_ENTRIES(k).Responsibility_id);
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4460: FND_FILE.put_line(fnd_file.log,' ');
4453: LOOP
4454: -- FND_FILE.put_line(fnd_file.log,'Responsibility_id '||L_RESPVIO_ENTRIES(k).Responsibility_id);
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4460: FND_FILE.put_line(fnd_file.log,' ');
4461: END LOOP;
4454: -- FND_FILE.put_line(fnd_file.log,'Responsibility_id '||L_RESPVIO_ENTRIES(k).Responsibility_id);
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4460: FND_FILE.put_line(fnd_file.log,' ');
4461: END LOOP;
4462: END IF;
4455: -- FND_FILE.put_line(fnd_file.log,'application_id '||L_RESPVIO_ENTRIES(k).application_id);
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4460: FND_FILE.put_line(fnd_file.log,' ');
4461: END LOOP;
4462: END IF;
4463: END LOOP;
4456: FND_FILE.put_line(fnd_file.log,' Menu_id '||L_RESPVIO_ENTRIES(k).Menu_id);
4457: FND_FILE.put_line(fnd_file.log,' Function_Id '||L_RESPVIO_ENTRIES(k).Function_Id);
4458: FND_FILE.put_line(fnd_file.log,' Object_Type '||L_RESPVIO_ENTRIES(k).Object_Type);
4459: FND_FILE.put_line(fnd_file.log,' group_code '||L_RESPVIO_ENTRIES(k).group_code);
4460: FND_FILE.put_line(fnd_file.log,' ');
4461: END LOOP;
4462: END IF;
4463: END LOOP;
4464: FND_FILE.put_line(fnd_file.log,'*********************************************************');
4460: FND_FILE.put_line(fnd_file.log,' ');
4461: END LOOP;
4462: END IF;
4463: END LOOP;
4464: FND_FILE.put_line(fnd_file.log,'*********************************************************');
4465: listkey:=G_RESP_VIOLATIONS_LIST.NEXT(listkey);
4466: END LOOP;
4467: */
4468: --FND_FILE.put_line(fnd_file.log,'Comming out of '||L_API_NAME);
4464: FND_FILE.put_line(fnd_file.log,'*********************************************************');
4465: listkey:=G_RESP_VIOLATIONS_LIST.NEXT(listkey);
4466: END LOOP;
4467: */
4468: --FND_FILE.put_line(fnd_file.log,'Comming out of '||L_API_NAME);
4469: -- FND_FILE.put_line(fnd_file.log,'Populate_Ptnl_Access_List End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4470: END Populate_Ptnl_Access_List;
4471:
4472: -- ===============================================================
4465: listkey:=G_RESP_VIOLATIONS_LIST.NEXT(listkey);
4466: END LOOP;
4467: */
4468: --FND_FILE.put_line(fnd_file.log,'Comming out of '||L_API_NAME);
4469: -- FND_FILE.put_line(fnd_file.log,'Populate_Ptnl_Access_List End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4470: END Populate_Ptnl_Access_List;
4471:
4472: -- ===============================================================
4473: -- Private Procedure name
4533: l_is_user_waived VARCHAR2(1);
4534: L_USERVIO_ENTRIES G_USERVIO_ENTRIES_TABLE;
4535: L_FUNC_ID_LIST G_FUNCS_TABLE;
4536: BEGIN
4537: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4538: l_is_user_waived := p_is_user_wavied;
4539:
4540: -- find party_id with specified user_id
4541: BEGIN
4715: CURSOR c_user_violation_id IS
4716: SELECT AMW_USER_VIOLATION_S.NEXTVAL
4717: FROM dual;
4718: BEGIN
4719: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4720: l_is_user_waived := NULL;
4721:
4722: -- find party_id with specified user_id
4723: BEGIN
4883: L_FUNC_ID_LIST G_FUNC_TABLE;
4884: counts Number;
4885: listkey VARCHAR2(30) := NULL;
4886: BEGIN
4887: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4888: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table start '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4889:
4890: IF (G_RESP_VIOLATIONS_LIST.COUNT = 0) THEN
4891: RETURN;
4884: counts Number;
4885: listkey VARCHAR2(30) := NULL;
4886: BEGIN
4887: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
4888: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table start '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
4889:
4890: IF (G_RESP_VIOLATIONS_LIST.COUNT = 0) THEN
4891: RETURN;
4892: END IF;
4948:
4949: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(L_FUNC_ID_LIST.FIRST);
4950: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
4951:
4952: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation All************* ');
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4949: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(L_FUNC_ID_LIST.FIRST);
4950: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
4951:
4952: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation All************* ');
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4950: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
4951:
4952: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation All************* ');
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4958: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
4951:
4952: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation All************* ');
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4958: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
4959: INSERT INTO AMW_VIOLATION_RESP(
4952: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation All************* ');
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4958: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
4959: INSERT INTO AMW_VIOLATION_RESP(
4960: RESP_VIOLATION_ID,
4953: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4958: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
4959: INSERT INTO AMW_VIOLATION_RESP(
4960: RESP_VIOLATION_ID,
4961: VIOLATION_ID,
4954: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
4955: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
4956: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
4957: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
4958: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
4959: INSERT INTO AMW_VIOLATION_RESP(
4960: RESP_VIOLATION_ID,
4961: VIOLATION_ID,
4962: RESPONSIBILITY_ID,
4991: LOOP
4992: IF L_FUNC_ID_LIST.EXISTS(j) then
4993: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
4994:
4995: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
4996: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4997: LOOP
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
4994:
4995: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
4996: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4997: LOOP
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
4995: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
4996: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4997: LOOP
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
4996: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
4997: LOOP
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
4997: LOOP
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
4998: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5006: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
4999: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5006: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5007:
5000: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5006: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5007:
5008: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5001: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5006: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5007:
5008: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5009: VIOLAT_RESP_ENTRY_ID,
5002: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5003: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5004: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5005: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5006: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5007:
5008: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5009: VIOLAT_RESP_ENTRY_ID,
5010: RESP_VIOLATION_ID,
5055: l_is_resp_waived_count:= 0;
5056:
5057:
5058: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5059: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation ME************* ');
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5056:
5057:
5058: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5059: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation ME************* ');
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5057:
5058: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5059: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation ME************* ');
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5065: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N'); */
5058: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5059: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation ME************* ');
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5065: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N'); */
5066:
5059: /*FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation ME************* ');
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5065: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N'); */
5066:
5067: INSERT INTO AMW_VIOLATION_RESP(
5060: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5065: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N'); */
5066:
5067: INSERT INTO AMW_VIOLATION_RESP(
5068: RESP_VIOLATION_ID,
5061: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5062: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5063: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5064: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5065: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N'); */
5066:
5067: INSERT INTO AMW_VIOLATION_RESP(
5068: RESP_VIOLATION_ID,
5069: VIOLATION_ID,
5098: FOR j IN L_FUNC_ID_LIST.FIRST .. L_FUNC_ID_LIST.LAST
5099: LOOP
5100: IF L_FUNC_ID_LIST.EXISTS(j) then
5101: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
5102: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
5103: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5104: LOOP
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5101: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
5102: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
5103: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5104: LOOP
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5102: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
5103: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5104: LOOP
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5103: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5104: LOOP
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5104: LOOP
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5105: /*FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5113: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5106: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5113: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5114:
5107: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5113: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5114:
5115: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5108: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5113: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5114:
5115: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5116: VIOLAT_RESP_ENTRY_ID,
5109: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5110: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5111: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5112: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5113: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); */
5114:
5115: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5116: VIOLAT_RESP_ENTRY_ID,
5117: resp_violation_id,
5176: l_is_resp_waived := 'N';
5177: l_is_resp_waived_count:= 0;
5178:
5179: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5180: /* FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation SET************* ');
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5177: l_is_resp_waived_count:= 0;
5178:
5179: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5180: /* FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation SET************* ');
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5178:
5179: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5180: /* FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation SET************* ');
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5186: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
5179: IF (NOT l_waived_resp_appl_list.exists(listkey)) THEN
5180: /* FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation SET************* ');
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5186: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
5187:
5180: /* FND_FILE.put_line(fnd_file.log,'***************Responsibility Violation SET************* ');
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5186: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
5187:
5188: INSERT INTO AMW_VIOLATION_RESP(
5181: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5186: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
5187:
5188: INSERT INTO AMW_VIOLATION_RESP(
5189: RESP_VIOLATION_ID,
5182: FND_FILE.put_line(fnd_file.log,' VIOLATION_ID :'||P_VIOLATION_ID);
5183: FND_FILE.put_line(fnd_file.log,' RESPONSIBILITY_ID :'||L_RESPVIO_ENTRIES(1).Responsibility_id);
5184: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(1).application_id);
5185: FND_FILE.put_line(fnd_file.log,' WAIVED_FLAG :'||l_is_resp_waived);
5186: FND_FILE.put_line(fnd_file.log,' CORRECTED_FLAG :'||'N');*/
5187:
5188: INSERT INTO AMW_VIOLATION_RESP(
5189: RESP_VIOLATION_ID,
5190: VIOLATION_ID,
5219: FOR j IN L_FUNC_ID_LIST.FIRST .. L_FUNC_ID_LIST.LAST
5220: LOOP
5221: IF L_FUNC_ID_LIST.EXISTS(j) then
5222: L_RESPVIO_ENTRIES:=L_FUNC_ID_LIST(j);
5223: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
5224:
5225: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5226: LOOP
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5223: --FND_FILE.put_line(fnd_file.log,'---------------- Responsibility Violation Entries -----------');
5224:
5225: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5226: LOOP
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5224:
5225: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5226: LOOP
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5225: FOR k IN L_RESPVIO_ENTRIES.FIRST .. L_RESPVIO_ENTRIES.LAST
5226: LOOP
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5226: LOOP
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5227: /* FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5235: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');*/
5228: FND_FILE.put_line(fnd_file.log,' RESP_VIOLATION_ID :'||l_resp_violation_id);
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5235: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');*/
5236:
5229: FND_FILE.put_line(fnd_file.log,' MENU_ID :'||L_RESPVIO_ENTRIES(k).Menu_Id);
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5235: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');*/
5236:
5237: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5230: FND_FILE.put_line(fnd_file.log,' FUNCTION_ID :'||L_RESPVIO_ENTRIES(k).Function_id);
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5235: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');*/
5236:
5237: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5238: VIOLAT_RESP_ENTRY_ID,
5231: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_DATE :'||L_RESPVIO_ENTRIES(k).Access_Given_Date);
5232: FND_FILE.put_line(fnd_file.log,' ACCESS_GIVEN_BY_ID :'||L_RESPVIO_ENTRIES(k).Access_Given_By_Id);
5233: FND_FILE.put_line(fnd_file.log,' OBJECT_TYPE :'||L_RESPVIO_ENTRIES(k).Object_type);
5234: FND_FILE.put_line(fnd_file.log,' APPLICATION_ID :'||L_RESPVIO_ENTRIES(k).prog_appl_id);
5235: FND_FILE.put_line(fnd_file.log,' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');*/
5236:
5237: INSERT INTO AMW_VIOLAT_RESP_ENTRIES(
5238: VIOLAT_RESP_ENTRY_ID,
5239: RESP_VIOLATION_ID,
5273: END IF;
5274: END IF;
5275: listkey:=G_RESP_VIOLATIONS_LIST.NEXT(listkey);
5276: END LOOP;
5277: --FND_FILE.put_line(fnd_file.log,'Came out '||L_API_NAME);
5278: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table end '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5279: END;
5280:
5281: -- ===============================================================
5274: END IF;
5275: listkey:=G_RESP_VIOLATIONS_LIST.NEXT(listkey);
5276: END LOOP;
5277: --FND_FILE.put_line(fnd_file.log,'Came out '||L_API_NAME);
5278: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table end '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5279: END;
5280:
5281: -- ===============================================================
5282: -- Private Procedure name
5347: L_FUNC_ID_LIST G_FUNC_TABLE;
5348: counts Number;
5349: listkey VARCHAR2(30) := NULL;
5350: BEGIN
5351: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table_rvl start '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5352:
5353: -- Logic :
5354: -- Check if the G_RESP_VIOLATIONS_LIST count is equal to 0
5355: -- If yes ,
5612: AND APPLICATION_ID = l_existing_appl_id_list(i);
5613: END IF;
5614: END LOOP;
5615: END IF;
5616: --FND_FILE.put_line(fnd_file.log,'Wtite_Resp_Violat_to_table_rvl end '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5617: END;
5618:
5619: -- ===============================================================
5620: -- Private Procedure name
5710: Populate_User_Vio_For_Cst(p_constraint_rev_id => p_constraint_rev_id,
5711: p_type_code => p_type_code);
5712: END IF;
5713:
5714: --FND_FILE.put_line(fnd_file.log,'Populate user violation Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5715:
5716: IF (p_revalidate_flag IS NOT NULL AND p_revalidate_flag = 'Y') THEN
5717:
5718: -- When we revalidate a Constraint violation, we identify the existing
5788: END IF;
5789: END IF;
5790: END LOOP;
5791: END IF;
5792: --FND_FILE.put_line(fnd_file.log,'comming out of api '||L_API_NAME);
5793: END Check_For_Func_Cst_ALL;
5794:
5795:
5796: -- ===============================================================
5843:
5844: L_USERVIO_ENTRIES G_USERVIO_ENTRIES_TABLE;
5845: L_FUNC_ID_LIST G_FUNCS_TABLE;
5846: BEGIN
5847: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
5848:
5849: IF ((p_constraint_rev_id IS NULL) AND (p_type_code IS NULL)) THEN
5850: Return;
5851: END IF;
5873: Populate_User_Vio_For_Cst(p_constraint_rev_id => p_constraint_rev_id,
5874: p_type_code => p_type_code);
5875: END IF;
5876:
5877: --FND_FILE.put_line(fnd_file.log,'Populate user violation Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5878:
5879: IF (p_revalidate_flag IS NOT NULL AND p_revalidate_flag = 'Y') THEN
5880:
5881: -- When we revalidate a Constraint violation, we identify the existing
5952: END IF;
5953: END LOOP;
5954: END IF;
5955:
5956: --FND_FILE.put_line(fnd_file.log,'Populate user violation End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
5957: END Check_For_Func_Cst_ME;
5958:
5959:
5960: -- ===============================================================
6012: L_USERVIO_ENTRIES G_USERVIO_ENTRIES_TABLE;
6013: L_FUNC_ID_LIST G_FUNCS_TABLE;
6014:
6015: BEGIN
6016: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6017:
6018: IF ((p_constraint_rev_id IS NULL) AND (p_type_code IS NULL)) THEN
6019: Return;
6020: END IF;
6042: Populate_User_Vio_For_Cst(p_constraint_rev_id => p_constraint_rev_id,
6043: p_type_code => p_type_code);
6044: END IF;
6045:
6046: --FND_FILE.put_line(fnd_file.log,'Populate user violation Began '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
6047:
6048: IF (p_revalidate_flag IS NOT NULL AND p_revalidate_flag = 'Y') THEN
6049:
6050: -- When we revalidate a Constraint violation, we identify the existing
6120: END IF;
6121: END IF;
6122: END LOOP;
6123: END IF;
6124: --FND_FILE.put_line(fnd_file.log,'Populate user violation End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
6125: --FND_FILE.put_line(fnd_file.log,'Commit Out '||L_API_NAME);
6126: END Check_For_Func_Cst_SET;
6127:
6128:
6121: END IF;
6122: END LOOP;
6123: END IF;
6124: --FND_FILE.put_line(fnd_file.log,'Populate user violation End '||to_char(sysdate,'DD-MON-RRRR:HH24:MI:SS'));
6125: --FND_FILE.put_line(fnd_file.log,'Commit Out '||L_API_NAME);
6126: END Check_For_Func_Cst_SET;
6127:
6128:
6129: -- ===============================================================
6182: l_user_violation_id NUMBER;
6183: l_user_id NUMBER;
6184:
6185: BEGIN
6186: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6187:
6188: IF ((p_constraint_rev_id IS NULL) AND (p_type_code IS NULL)) THEN
6189: Return;
6190: END IF;
6260: END IF; -- end of if: G_UPV_RESPONSIBILITY_ID_LIST.COUNT >= 2
6261: END IF;
6262: END LOOP;
6263: END IF;
6264: --FND_FILE.put_line(fnd_file.log,'out '||L_API_NAME);
6265: END Check_For_Resp_Cst_ALL;
6266:
6267:
6268: -- ===============================================================
6312: l_user_violation_id NUMBER;
6313: l_user_id NUMBER;
6314:
6315: BEGIN
6316: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6317:
6318: IF ((p_constraint_rev_id IS NULL) AND (p_type_code IS NULL)) THEN
6319: Return;
6320: END IF;
6443: FROM amw_violation_users
6444: WHERE violation_id = l_violation_id;
6445:
6446: BEGIN
6447: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6448:
6449: IF ((p_constraint_rev_id IS NULL) AND (p_type_code IS NULL)) THEN
6450: Return;
6451: END IF;
6528: END IF; -- end of if: G_UPV_RESPONSIBILITY_ID_LIST.COUNT >= 2
6529: END IF;
6530: END LOOP;
6531: END IF;
6532: --FND_FILE.put_line(fnd_file.log,'Comming Out'||L_API_NAME);
6533: END Check_For_Resp_Cst_SET;
6534:
6535:
6536: -- ===============================================================
6580: l_constraint c_constraint%ROWTYPE;
6581:
6582:
6583: BEGIN
6584: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6585:
6586: -- create vilation record for specified constriant in AMW_VIOLATIONS
6587: l_violation_id := Create_Violation(p_constraint_rev_id);
6588: IF (l_violation_id IS NULL) THEN
6589: -- create violation in AMW_VIOLATIONS is not successful
6590: RETURN;
6591: END IF;
6592:
6593: --FND_FILE.put_line(fnd_file.log,'Violation Id '||l_violation_id);
6594:
6595: -- 12.21.2004 tsho: fix for performance bug 4036679
6596: /*
6597: -- if no users in g_user_id_list, then no need to go further to check constraint
6613: WHEN no_data_found THEN
6614: IF c_constraint%ISOPEN THEN
6615: CLOSE c_constraint;
6616: END IF;
6617: --FND_FILE.put_line(fnd_file.log,'passed-in p_constraint_rev_id not found');
6618: RETURN;
6619: END;
6620: END IF; -- end of if: l_type_code IS NULL
6621:
6645: p_constraint_rev_id => p_constraint_rev_id);
6646:
6647: -- commit for each constraint, in order to prevent the rollback segment too big
6648: COMMIT;
6649: --FND_FILE.put_line(fnd_file.log,'Came Out '||L_API_NAME);
6650: END Check_Violation_For_Constraint;
6651:
6652:
6653: -- ===============================================================
6683: BEGIN
6684: -- get party_id for G_USER_ID
6685: G_PARTY_ID := Get_Party_Id(G_USER_ID);
6686:
6687: --FND_FILE.put_line(fnd_file.log,'inside api Check_Violation_By_Name');
6688: OPEN c_all_valid_constraints;
6689: LOOP
6690: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6691: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6688: OPEN c_all_valid_constraints;
6689: LOOP
6690: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6691: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6692: --FND_FILE.put_line(fnd_file.log,'Violation Check For : '||l_all_valid_constraints.constraint_rev_id);
6693: --FND_FILE.put_line(fnd_file.log,'Violation Check For : '||l_all_valid_constraints.type_code);
6694: Check_Violation_For_Constraint (p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
6695: p_type_code => l_all_valid_constraints.type_code);
6696: END LOOP;
6689: LOOP
6690: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6691: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6692: --FND_FILE.put_line(fnd_file.log,'Violation Check For : '||l_all_valid_constraints.constraint_rev_id);
6693: --FND_FILE.put_line(fnd_file.log,'Violation Check For : '||l_all_valid_constraints.type_code);
6694: Check_Violation_For_Constraint (p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
6695: p_type_code => l_all_valid_constraints.type_code);
6696: END LOOP;
6697: CLOSE c_all_valid_constraints;
6765: AND cs.constraint_id = a.constraint_id;
6766: l_constraint_set_details c_constraint_set_details%ROWTYPE;
6767:
6768: BEGIN
6769: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6770:
6771: -- 12.21.2004 tsho: fix for performance bug 4036679
6772: /*
6773: -- populate global G_USER_ID_LIST, this should be one time work.
6781:
6782:
6783: IF p_check_all_constraint_flag = 'Y' THEN
6784: -- check all constraints
6785: --FND_FILE.put_line(fnd_file.log,'Check Violation for all constraint');
6786: OPEN c_all_valid_constraints;
6787: LOOP
6788: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6789: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6786: OPEN c_all_valid_constraints;
6787: LOOP
6788: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6789: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6790: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6791: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_all_valid_constraints.type_code);
6792: Check_Violation_For_Constraint (p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
6793: p_type_code => l_all_valid_constraints.type_code);
6794: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6787: LOOP
6788: FETCH c_all_valid_constraints INTO l_all_valid_constraints;
6789: EXIT WHEN c_all_valid_constraints%NOTFOUND;
6790: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6791: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_all_valid_constraints.type_code);
6792: Check_Violation_For_Constraint (p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
6793: p_type_code => l_all_valid_constraints.type_code);
6794: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6795: END LOOP;
6790: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6791: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_all_valid_constraints.type_code);
6792: Check_Violation_For_Constraint (p_constraint_rev_id => l_all_valid_constraints.constraint_rev_id,
6793: p_type_code => l_all_valid_constraints.type_code);
6794: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_all_valid_constraints.constraint_rev_id);
6795: END LOOP;
6796: CLOSE c_all_valid_constraints;
6797:
6798: ELSE
6796: CLOSE c_all_valid_constraints;
6797:
6798: ELSE
6799: IF (p_constraint_set IS NOT NULL) THEN
6800: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Set');
6801: OPEN c_constraint_set_details;
6802: LOOP
6803: FETCH c_constraint_set_details INTO l_constraint_set_details;
6804: EXIT WHEN c_constraint_set_details%NOTFOUND;
6809: nvl(p_constraint_rev_id3,-1),
6810: nvl(p_constraint_rev_id4,-1)
6811: )) then
6812:
6813: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6814: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_constraint_set_details.type_code);
6815: Check_Violation_For_Constraint (p_constraint_rev_id => l_constraint_set_details.constraint_rev_id,
6816: p_type_code => l_constraint_set_details.type_code);
6817: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6810: nvl(p_constraint_rev_id4,-1)
6811: )) then
6812:
6813: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6814: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_constraint_set_details.type_code);
6815: Check_Violation_For_Constraint (p_constraint_rev_id => l_constraint_set_details.constraint_rev_id,
6816: p_type_code => l_constraint_set_details.type_code);
6817: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6818: end if;
6813: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6814: --FND_FILE.put_line(fnd_file.log,'Type Code :'|| l_constraint_set_details.type_code);
6815: Check_Violation_For_Constraint (p_constraint_rev_id => l_constraint_set_details.constraint_rev_id,
6816: p_type_code => l_constraint_set_details.type_code);
6817: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||l_constraint_set_details.constraint_rev_id);
6818: end if;
6819: END LOOP;
6820: CLOSE c_constraint_set_details;
6821: END IF;
6821: END IF;
6822:
6823: -- check specified constraint
6824: IF p_constraint_rev_id1 IS NOT NULL THEN
6825: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id1);
6826: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id1);
6827: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id1);
6828: END IF;
6829: IF p_constraint_rev_id2 IS NOT NULL THEN
6823: -- check specified constraint
6824: IF p_constraint_rev_id1 IS NOT NULL THEN
6825: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id1);
6826: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id1);
6827: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id1);
6828: END IF;
6829: IF p_constraint_rev_id2 IS NOT NULL THEN
6830: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6831: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id2);
6826: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id1);
6827: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id1);
6828: END IF;
6829: IF p_constraint_rev_id2 IS NOT NULL THEN
6830: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6831: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id2);
6832: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6833: END IF;
6834: IF p_constraint_rev_id3 IS NOT NULL THEN
6828: END IF;
6829: IF p_constraint_rev_id2 IS NOT NULL THEN
6830: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6831: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id2);
6832: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6833: END IF;
6834: IF p_constraint_rev_id3 IS NOT NULL THEN
6835: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6836: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id3);
6831: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id2);
6832: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id2);
6833: END IF;
6834: IF p_constraint_rev_id3 IS NOT NULL THEN
6835: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6836: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id3);
6837: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6838: END IF;
6839: IF p_constraint_rev_id4 IS NOT NULL THEN
6833: END IF;
6834: IF p_constraint_rev_id3 IS NOT NULL THEN
6835: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6836: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id3);
6837: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6838: END IF;
6839: IF p_constraint_rev_id4 IS NOT NULL THEN
6840: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id4);
6841: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id4);
6836: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id3);
6837: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id3);
6838: END IF;
6839: IF p_constraint_rev_id4 IS NOT NULL THEN
6840: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id4);
6841: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id4);
6842: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id4);
6843: END IF;
6844:
6838: END IF;
6839: IF p_constraint_rev_id4 IS NOT NULL THEN
6840: --FND_FILE.put_line(fnd_file.log,'Start Violation Check for Constraint Rev Id :'||p_constraint_rev_id4);
6841: Check_Violation_For_Constraint(p_constraint_rev_id => p_constraint_rev_id4);
6842: --FND_FILE.put_line(fnd_file.log,'Completed Violation Check for Constraint Rev Id :'||p_constraint_rev_id4);
6843: END IF;
6844:
6845: END IF;
6846:
6882: AND v.constraint_rev_id = cst.constraint_rev_id;
6883: l_constraint c_constraint%ROWTYPE;
6884:
6885: BEGIN
6886: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6887:
6888: -- get party_id for G_USER_ID
6889: G_PARTY_ID := Get_Party_Id(G_USER_ID);
6890:
6988: where application_id = l_appl_id;
6989: */
6990:
6991: BEGIN
6992: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
6993:
6994: IF (p_appl_id IS NOT NULL) THEN
6995: -- get user(usre i)'s responsibilities
6996: IF (BULK_COLLECTS_SUPPORTED) THEN
7106: where application_id = l_appl_id;
7107: */
7108:
7109: BEGIN
7110: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
7111:
7112: IF (p_appl_id IS NOT NULL) THEN
7113: -- get user(usre i)'s responsibilities
7114: IF (BULK_COLLECTS_SUPPORTED) THEN
7273: i number;
7274: z number;
7275:
7276: BEGIN
7277: --FND_FILE.put_line(fnd_file.log,'inside api '||L_API_NAME);
7278:
7279: if(p_appl_id is not NULL) then
7280: /* Select the list of exclusion rules into our cache */
7281: -- 11.12.2003 tsho: use dynamic sql for AMW
7473: L_API_NAME CONSTANT VARCHAR2(30) := 'Purge_Violation_Before_Date';
7474: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
7475: l_date DATE;
7476: BEGIN
7477: FND_FILE.put_line(fnd_file.log,'Passed-in Delete Option is: '||p_delopt);
7478: FND_FILE.put_line(fnd_file.log,'Passed-in date is: '||p_date);
7479:
7480: IF p_date IS NOT NULL THEN
7481: l_date := trunc(to_date(p_date,'YYYY/MM/DD HH24:MI:SS')) + 1;
7474: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
7475: l_date DATE;
7476: BEGIN
7477: FND_FILE.put_line(fnd_file.log,'Passed-in Delete Option is: '||p_delopt);
7478: FND_FILE.put_line(fnd_file.log,'Passed-in date is: '||p_date);
7479:
7480: IF p_date IS NOT NULL THEN
7481: l_date := trunc(to_date(p_date,'YYYY/MM/DD HH24:MI:SS')) + 1;
7482: ELSE
7481: l_date := trunc(to_date(p_date,'YYYY/MM/DD HH24:MI:SS')) + 1;
7482: ELSE
7483: l_date := trunc(sysdate) + 1;
7484: END IF;
7485: FND_FILE.put_line(fnd_file.log,'will delete violation history prior(<) to : '||l_date);
7486:
7487: FND_FILE.put_line(fnd_file.log,'Delete Constraint Violation Start');
7488: IF p_delopt = 'ALLCSTVIO' THEN
7489: DELETE FROM amw_violat_resp_entries
7483: l_date := trunc(sysdate) + 1;
7484: END IF;
7485: FND_FILE.put_line(fnd_file.log,'will delete violation history prior(<) to : '||l_date);
7486:
7487: FND_FILE.put_line(fnd_file.log,'Delete Constraint Violation Start');
7488: IF p_delopt = 'ALLCSTVIO' THEN
7489: DELETE FROM amw_violat_resp_entries
7490: WHERE creation_date < l_date;
7491:
7544:
7545: END IF;
7546: COMMIT;
7547:
7548: FND_FILE.put_line(fnd_file.log,'Delete Constraint Violation END');
7549:
7550: END Purge_Violation_Before_Date;
7551:
7552: -- ----------------------------------------------------------------------