[Home] [Help]
1101: begin
1102: begin
1103: select 1
1104: into temp
1105: from sys.dual where
1106: exists ( select 1 from pa_resource_list_members p,pa_project_accum_headers h
1107: where p.resource_list_member_id = h.resource_list_member_id
1108: and p.parent_member_id = p_resource_id
1109: and h.project_id = p_project_id
1127: --Check for Resource List Members OTHER THAN UNclassified
1128: CURSOR l_members_csr (l_resource_list_id NUMBER)
1129: IS
1130: SELECT 'x'
1131: FROM dual
1132: WHERE exists
1133: (select 'x'
1134: from pa_resource_list_members rlm
1135: , pa_resources r
1144: -- Check for Resource List in Resource List Assignments
1145: CURSOR l_list_assignments_csr (l_resource_list_id NUMBER)
1146: IS
1147: SELECT 'x'
1148: FROM dual
1149: WHERE exists
1150: (select 'x'
1151: from pa_resource_list_assignments rla
1152: where rla.resource_list_id = l_resource_list_id);
1156: -- Modified for perf bug 4887375
1157: Cursor check_resource_list_csr (l_resource_list_id NUMBER)
1158: IS
1159: Select 'X'
1160: From dual
1161: Where exists
1162: (Select null
1163: From pa_project_types_all pa
1164: Where pa.DEFAULT_RESOURCE_LIST_ID = l_resource_list_id
1170: -- Modified for perf bug 4887375
1171: Cursor check_resource_budget_list (l_resource_list_id NUMBER)
1172: IS
1173: Select 'X'
1174: From dual
1175: Where exists
1176: (Select null
1177: From pa_budget_versions
1178: Where resource_list_id = l_resource_list_id);
1280: CURSOR l_accum_headers_csr (l_resource_list_id NUMBER,
1281: l_resource_list_member_id NUMBER)
1282: IS
1283: SELECT 'x'
1284: FROM dual
1285: WHERE exists
1286: (select 'x'
1287: from pa_resource_list_assignments rla, pa_project_accum_headers pah
1288: where rla.resource_list_id = l_resource_list_id
1296: l_resource_list_member_id NUMBER)
1297: IS
1298: /* Modified for perf bug 4887375
1299: SELECT 'x'
1300: FROM dual
1301: WHERE exists
1302: (select 'x'
1303: from pa_resource_list_assignments rla
1304: , pa_budget_versions bv
1309: and bv.budget_version_id = ra.budget_version_id
1310: and bv.project_id = ra.project_id
1311: and ra.resource_list_member_id = l_resource_list_member_id);*/
1312: SELECT 'x'
1313: FROM dual
1314: WHERE exists
1315: (select 'x'
1316: from pa_resource_assignments ra
1317: where ra.resource_list_member_id = l_resource_list_member_id);
1321: -- Bug 5199763 - pa_fp_elements is obsolete in R12. Hence, commenting out.
1322: -- CURSOR l_elements_csr
1323: -- IS
1324: -- SELECT 'x'
1325: -- FROM dual
1326: -- WHERE exists
1327: -- (select 'x'
1328: -- from pa_fp_elements pfe
1329: -- where pfe.resource_list_member_id = l_resource_list_member_id);