[Home] [Help]
349:
350: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
351: IS
352: SELECT STATUS_CODE
353: FROM PA_PROJ_ELEMENTS
354: WHERE PROJ_ELEMENT_ID = l_proj_element_id
355: AND PROJECT_ID = l_project_id;
356:
357: CURSOR cur_status( c_status_weight VARCHAR2 )
594: pa_object_relationships pobj,
595: pa_proj_element_versions ppev1,
596: pa_proj_element_versions ppev2,
597: pa_progress_rollup ppr,
598: pa_proj_elements ppe,
599: pa_project_statuses pps1,
600: pa_project_statuses pps2,
601: pa_project_statuses pps3,
602: pa_project_statuses pps4,
834: FROM
835: pa_object_relationships pobj,
836: pa_proj_element_versions ppev1,
837: pa_proj_element_versions ppev2,
838: pa_proj_elements ppe,
839: pa_project_statuses pps4,
840: pa_task_types ttype ,
841: pa_proj_rollup_temp temp
842: WHERE --BUG 4355204 rtarway, removed in clause and added pa_proj_rollup_temp in FROM
1184: , elem.progress_weight weighting_percentage
1185: , ppr.base_percent_complete
1186: , pps2.project_status_weight override_weight ---override progress status code
1187: , pps3.project_status_weight base_weight --base prog status
1188: FROM pa_proj_elements elem
1189: , pa_object_relationships obj
1190: , pa_progress_rollup ppr
1191: , pa_project_statuses pps2
1192: , pa_project_statuses pps3
1354: ,pa_project_statuses pps1
1355: ,pa_project_statuses pps2
1356: ,pa_project_statuses pps3
1357: ,pa_project_statuses pps4
1358: ,pa_proj_elements ppe
1359: WHERE
1360: ppr.project_id = c_sub_project_id
1361: AND ppe.project_id = c_sub_project_id
1362: AND ppe.object_type = 'PA_STRUCTURES'
1579: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
1580: FROM pa_proj_element_versions
1581: WHERE project_id = p_project_id
1582: AND parent_structure_version_id = p_structure_version_id
1583: --AND PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(element_version_id) = 'N'
1584: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
1585: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
1586: AND object_type = 'PA_TASKS'
1587: UNION
1581: WHERE project_id = p_project_id
1582: AND parent_structure_version_id = p_structure_version_id
1583: --AND PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(element_version_id) = 'N'
1584: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
1585: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
1586: AND object_type = 'PA_TASKS'
1587: UNION
1588: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
1589: FROM dual
1725: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT', x_Msg =>'l_tsk_base_prog_stat_code_tab('||k||')='||l_tsk_base_prog_stat_code_tab(k), x_Log_Level=> 3);
1726: END IF;
1727: l_tsk_progress_exists := 'N';
1728: l_parent_count := l_parent_count + 1;
1729: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
1730: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
1731:
1732:
1733: IF g1_debug_mode = 'Y' THEN
1726: END IF;
1727: l_tsk_progress_exists := 'N';
1728: l_parent_count := l_parent_count + 1;
1729: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
1730: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
1731:
1732:
1733: IF g1_debug_mode = 'Y' THEN
1734: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
2114: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
2115:
2116: -- Deliverable Status will not get rolled up for deliverable
2117:
2118: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
2119:
2120: IF nvl( l_tsk_weighting_percent_tab(k), 0 ) = 0 THEN
2121: l_action_allowed := 'N';
2122: END IF;
2311: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
2312: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
2313: -- END IF;
2314:
2315: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
2316:
2317: IF nvl(l_tsk_weighting_percent_tab(k), 0) = 0 THEN
2318: l_action_allowed := 'N';
2319: END IF;
2365: IF g1_debug_mode = 'Y' THEN
2366: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT', x_Msg => 'Second task cursor for summary task with assignments', x_Log_Level=> 3);
2367: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT', x_Msg => 'cur_tasks_rec.object_id_to1='||cur_tasks_rec.object_id_to1, x_Log_Level=> 3);
2368: END IF;
2369: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
2370:
2371: l_index := l_index + 1;
2372:
2373: l_rollup_table1(l_index).OBJECT_TYPE := cur_tasks_rec.object_type;
2479: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
2480: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
2481: -- END IF;
2482:
2483: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
2484:
2485: IF nvl( cur_tasks_rec.weighting_percentage, 0 ) = 0 THEN
2486: l_action_allowed := 'N';
2487: END IF;
3296: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT', x_Msg => 'After Defaulting l_system_status_code='||l_system_status_code, x_Log_Level=> 3);
3297: END IF;
3298:
3299: IF l_structure_version_id IS NULL THEN -- Bug 3922325 : This does not make sense for working wp version rollup
3300: UPDATE pa_proj_elements
3301: SET status_code = l_status_code
3302: WHERE project_id = p_project_id
3303: AND proj_element_id = cur_reverse_tree_rec.proj_element_id;
3304: END IF;
4144: , pa_object_relationships obj
4145: WHERE ever.project_id = p_project_id
4146: and ever.parent_structure_version_id = p_structure_version_id
4147: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
4148: -- and PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(ever.element_version_id) = 'N'
4149: and PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(ever.element_version_id) = 'Y'
4150: and ever.object_type = 'PA_TASKS'
4151: AND obj.object_id_to1 = ever.element_version_id
4152: AND obj.relationship_type = 'S'
4145: WHERE ever.project_id = p_project_id
4146: and ever.parent_structure_version_id = p_structure_version_id
4147: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
4148: -- and PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(ever.element_version_id) = 'N'
4149: and PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(ever.element_version_id) = 'Y'
4150: and ever.object_type = 'PA_TASKS'
4151: AND obj.object_id_to1 = ever.element_version_id
4152: AND obj.relationship_type = 'S'
4153: and p_rollup_entire_wbs='Y';
4425:
4426: CURSOR c_get_parent_base_per_comp_der(c_project_id number, c_task_id number) IS
4427: SELECT base_percent_comp_deriv_code
4428: ,status_code --bug 4033869
4429: FROM pa_proj_elements
4430: WHERE project_id = c_project_id
4431: AND proj_element_id = c_task_id;
4432:
4433: CURSOR c_get_task_weightage_method(c_project_id number) IS
5520: j NUMBER ;
5521: l_wbs_level NUMBER ;
5522: l_action_allowed VARCHAR2(1) ;
5523: l_sharing_Enabled VARCHAR2(1) ;
5524: L_TASK_DERIVATION_CODE pa_proj_elements.base_percent_comp_deriv_code%TYPE ;
5525: l_split_workplan VARCHAR2(1) ;
5526: l_structure_version_id NUMBER ;
5527: g1_debug_mode VARCHAR2(1) ;
5528: l_Rollup_Method pa_proj_progress_attr.task_weight_basis_code%TYPE ;
5654: pa_progress_rollup ppr,
5655: pa_project_statuses pps1,
5656: pa_project_statuses pps2,
5657: pa_project_statuses pps3,
5658: pa_proj_elements ppe -- 4392189
5659: WHERE ppev.element_version_id = c_task_ver_id
5660: AND ppev.element_version_id = obj.object_id_to1
5661: AND obj.relationship_type = 'S'
5662: AND ppev.object_type = 'PA_TASKS'
5959: pa_progress_rollup ppr,
5960: pa_project_statuses pps1,
5961: pa_project_statuses pps2,
5962: pa_project_statuses pps3,
5963: pa_proj_elements ppe -- 4392189
5964: WHERE obj.object_id_from1 = c_task_ver_id
5965: AND obj.object_id_from1 = ppev1.element_version_id
5966: AND obj.object_id_to1 = ppev2.element_version_id
5967: AND obj.relationship_type = 'S'
6123: FROM pa_proj_element_versions ppev1,
6124: pa_proj_element_versions ppev2,
6125: pa_object_relationships obj,
6126: pji_fm_xbs_accum_tmp1 pfxat,
6127: pa_proj_elements ppe -- 4392189
6128: WHERE obj.object_id_from1 = c_task_ver_id
6129: AND obj.object_id_from1 = ppev1.element_version_id
6130: AND obj.object_id_to1 = ppev2.element_version_id
6131: AND obj.relationship_type = 'S'
6434: , elem.progress_weight weighting_percentage
6435: , ppr.base_percent_complete
6436: , pps2.project_status_weight override_weight ---override progress status code
6437: , pps3.project_status_weight base_weight --base prog status
6438: FROM pa_proj_elements elem
6439: , pa_object_relationships obj
6440: , pa_progress_rollup ppr
6441: , pa_project_statuses pps2
6442: , pa_project_statuses pps3
6494:
6495: CURSOR cur_base_p_comp_deriv_code(c_task_proj_elem_id NUMBER, c_project_id NUMBER)
6496: IS
6497: SELECT elem.status_code, stat.project_system_status_code, decode(elem.base_percent_comp_deriv_code, null, ttype.base_percent_comp_deriv_code,'^',ttype.base_percent_comp_deriv_code,elem.base_percent_comp_deriv_code), ttype.prog_entry_enable_flag
6498: FROM pa_proj_elements elem
6499: , pa_task_types ttype
6500: , pa_project_statuses stat
6501: where elem.proj_element_id = c_task_proj_elem_id
6502: AND elem.project_id = c_project_id
6636: -- Bug 3879461 Begin
6637: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
6638: IS
6639: SELECT STATUS_CODE
6640: FROM PA_PROJ_ELEMENTS
6641: WHERE PROJ_ELEMENT_ID=l_proj_element_id
6642: AND PROJECT_ID = l_project_id;
6643:
6644: L_EXISTING_OBJECT_STATUS pa_project_statuses.project_status_code%TYPE ;
6780: ,pa_project_statuses pps1
6781: ,pa_project_statuses pps2
6782: ,pa_project_statuses pps3
6783: ,pa_project_statuses pps4
6784: ,pa_proj_elements ppe
6785: ,pji_fm_xbs_accum_tmp1 pfxat
6786: WHERE
6787: ppr.project_id = c_sub_project_id
6788: AND ppe.project_id = c_sub_project_id
6931: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'Inside Tasks Loop', x_Log_Level=> 3);
6932: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'cur_tasks_rec.base_progress_status_code='||cur_tasks_rec.base_progress_status_code, x_Log_Level=> 3);
6933: END IF;
6934:
6935: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
6936:
6937: -- We only populate the asssignment and deliverable records n the PL/SQL table for the input task
6938: -- , assignments and deliverables of the sub-tasks are not considered. -- Fix for Bug # 4032987.
6939:
7309: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
7310:
7311: -- Deliverable Status will not get rolled up for deliverable
7312:
7313: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
7314:
7315: IF nvl( l_task_weighting_percentage, 0 ) = 0 THEN
7316: l_action_allowed := 'N';
7317: END IF;
7344: l_rollup_table1(l_index).PARENT_OBJECT_ID := cur_tasks_rec.object_id_from1; --Parent Task Version Id
7345: l_rollup_table1(l_index).WBS_LEVEL := NVL( cur_tasks_rec.wbs_level, 0 );
7346:
7347: -- 4582956 Begin
7348: -- l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(cur_tasks_rec.object_id_to1);--4370746
7349: IF cur_tasks_rec.object_id_to1 = nvl(l_subproj_task_version_id, -789) THEN
7350: -- 4586449 : Passing L for link tasks
7351: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'L'; --Link task shd be treated as summary task
7352: --l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'Y'; --Link task shd be treated as summary task
7350: -- 4586449 : Passing L for link tasks
7351: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'L'; --Link task shd be treated as summary task
7352: --l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'Y'; --Link task shd be treated as summary task
7353: ELSE
7354: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(cur_tasks_rec.object_id_to1);
7355: END IF;
7356: -- 4582956 end
7357:
7358: -- Rollup Percent Complete Rollup
7553:
7554: /*
7555: --bug 3951982
7556: --populate scheduling pl/sql table with sub-tasks of a summary tasks if it has assignments.
7557: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id ) = 'N'
7558: AND pa_progress_utils.check_assignment_exists(p_project_id,p_task_version_id, 'PA_TASKS') = 'Y'
7559: THEN
7560: -- Loop thru all tasks of a passed task
7561: FOR cur_tasks_rec in cur_tasks( p_task_version_id ) LOOP
7565: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'Inside Tasks Loop: Second pass', x_Log_Level=> 3);
7566: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'p_task_version_id='||p_task_version_id, x_Log_Level=> 3);
7567: END IF;
7568:
7569: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
7570:
7571: IF g1_debug_mode = 'Y' THEN
7572: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'l_index='||l_index, x_Log_Level=> 3);
7573: END IF;
8054: END IF;
8055: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
8056: -- 4533112 : Now base_progress_status_code is not used
8057: /*
8058: IF PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(p_task_version_id )= 'Y'
8059: THEN
8060: -- l_rolled_up_base_per_comp := nvl(l_cur_pa_rollup1_rec.base_percent_complete,0);
8061: l_rolled_up_base_prog_stat := l_cur_pa_rollup1_rec.base_progress_status_code;
8062: ELSE
8664: );
8665:
8666: /* commenting out the code for bug 3851528
8667: IF l_progress_exists_on_aod = 'PUBLISHED' THEN
8668: UPDATE pa_proj_elements
8669: SET progress_outdated_flag = 'Y'
8670: WHERE proj_element_id = p_task_id
8671: AND project_id = p_project_id
8672: AND object_type = l_rollup_table1(i).object_type;
8876: -- Bug 3879461 End
8877:
8878: /* commenting out the code for bug 3851528
8879: IF l_progress_exists_on_aod = 'PUBLISHED' THEN
8880: UPDATE pa_proj_elements
8881: SET progress_outdated_flag = 'Y'
8882: WHERE proj_element_id = p_task_id
8883: AND project_id = p_project_id
8884: AND object_type = l_rollup_table1(i).object_type;