[Home] [Help]
350:
351: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
352: IS
353: SELECT STATUS_CODE
354: FROM PA_PROJ_ELEMENTS
355: WHERE PROJ_ELEMENT_ID = l_proj_element_id
356: AND PROJECT_ID = l_project_id;
357:
358: CURSOR cur_status( c_status_weight VARCHAR2 )
596: pa_object_relationships pobj,
597: pa_proj_element_versions ppev1,
598: pa_proj_element_versions ppev2,
599: pa_progress_rollup ppr,
600: pa_proj_elements ppe,
601: pa_project_statuses pps1,
602: pa_project_statuses pps2,
603: pa_project_statuses pps3,
604: pa_project_statuses pps4,
838: FROM
839: pa_object_relationships pobj,
840: pa_proj_element_versions ppev1,
841: pa_proj_element_versions ppev2,
842: pa_proj_elements ppe,
843: pa_project_statuses pps4,
844: pa_task_types ttype ,
845: pa_proj_rollup_temp temp
846: WHERE --BUG 4355204 rtarway, removed in clause and added pa_proj_rollup_temp in FROM
1189: , elem.progress_weight weighting_percentage
1190: , ppr.base_percent_complete
1191: , pps2.project_status_weight override_weight ---override progress status code
1192: , pps3.project_status_weight base_weight --base prog status
1193: FROM pa_proj_elements elem
1194: , pa_object_relationships obj
1195: , pa_progress_rollup ppr
1196: , pa_project_statuses pps2
1197: , pa_project_statuses pps3
1360: ,pa_project_statuses pps1
1361: ,pa_project_statuses pps2
1362: ,pa_project_statuses pps3
1363: ,pa_project_statuses pps4
1364: ,pa_proj_elements ppe
1365: WHERE
1366: ppr.project_id = c_sub_project_id
1367: AND ppe.project_id = c_sub_project_id
1368: AND ppe.object_type = 'PA_STRUCTURES'
1588: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
1589: FROM pa_proj_element_versions
1590: WHERE project_id = p_project_id
1591: AND parent_structure_version_id = p_structure_version_id
1592: --AND PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(element_version_id) = 'N'
1593: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
1594: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
1595: AND object_type = 'PA_TASKS'
1596: UNION
1590: WHERE project_id = p_project_id
1591: AND parent_structure_version_id = p_structure_version_id
1592: --AND PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(element_version_id) = 'N'
1593: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
1594: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
1595: AND object_type = 'PA_TASKS'
1596: UNION
1597: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
1598: FROM dual
1734: 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);
1735: END IF;
1736: l_tsk_progress_exists := 'N';
1737: l_parent_count := l_parent_count + 1;
1738: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
1739: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
1740:
1741:
1742: IF g1_debug_mode = 'Y' THEN
1735: END IF;
1736: l_tsk_progress_exists := 'N';
1737: l_parent_count := l_parent_count + 1;
1738: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
1739: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
1740:
1741:
1742: IF g1_debug_mode = 'Y' THEN
1743: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
2143: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
2144:
2145: -- Deliverable Status will not get rolled up for deliverable
2146:
2147: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
2148:
2149: IF nvl( l_tsk_weighting_percent_tab(k), 0 ) = 0 THEN
2150: l_action_allowed := 'N';
2151: END IF;
2347: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
2348: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
2349: -- END IF;
2350:
2351: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
2352:
2353: IF nvl(l_tsk_weighting_percent_tab(k), 0) = 0 THEN
2354: l_action_allowed := 'N';
2355: END IF;
2401: IF g1_debug_mode = 'Y' THEN
2402: 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);
2403: 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);
2404: END IF;
2405: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
2406:
2407: l_index := l_index + 1;
2408:
2409: l_rollup_table1(l_index).OBJECT_TYPE := cur_tasks_rec.object_type;
2522: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
2523: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
2524: -- END IF;
2525:
2526: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
2527:
2528: IF nvl( cur_tasks_rec.weighting_percentage, 0 ) = 0 THEN
2529: l_action_allowed := 'N';
2530: END IF;
3339: 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);
3340: END IF;
3341:
3342: IF l_structure_version_id IS NULL THEN -- Bug 3922325 : This does not make sense for working wp version rollup
3343: UPDATE pa_proj_elements
3344: SET status_code = l_status_code
3345: WHERE project_id = p_project_id
3346: AND proj_element_id = cur_reverse_tree_rec.proj_element_id;
3347: END IF;
4187: , pa_object_relationships obj
4188: WHERE ever.project_id = p_project_id
4189: and ever.parent_structure_version_id = p_structure_version_id
4190: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
4191: -- and PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(ever.element_version_id) = 'N'
4192: and PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(ever.element_version_id) = 'Y'
4193: and ever.object_type = 'PA_TASKS'
4194: AND obj.object_id_to1 = ever.element_version_id
4195: AND obj.relationship_type = 'S'
4188: WHERE ever.project_id = p_project_id
4189: and ever.parent_structure_version_id = p_structure_version_id
4190: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
4191: -- and PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(ever.element_version_id) = 'N'
4192: and PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(ever.element_version_id) = 'Y'
4193: and ever.object_type = 'PA_TASKS'
4194: AND obj.object_id_to1 = ever.element_version_id
4195: AND obj.relationship_type = 'S'
4196: and p_rollup_entire_wbs='Y';
4468:
4469: CURSOR c_get_parent_base_per_comp_der(c_project_id number, c_task_id number) IS
4470: SELECT base_percent_comp_deriv_code
4471: ,status_code --bug 4033869
4472: FROM pa_proj_elements
4473: WHERE project_id = c_project_id
4474: AND proj_element_id = c_task_id;
4475:
4476: CURSOR c_get_task_weightage_method(c_project_id number) IS
5586: j NUMBER ;
5587: l_wbs_level NUMBER ;
5588: l_action_allowed VARCHAR2(1) ;
5589: l_sharing_Enabled VARCHAR2(1) ;
5590: L_TASK_DERIVATION_CODE pa_proj_elements.base_percent_comp_deriv_code%TYPE ;
5591: l_split_workplan VARCHAR2(1) ;
5592: l_structure_version_id NUMBER ;
5593: g1_debug_mode VARCHAR2(1) ;
5594: l_Rollup_Method pa_proj_progress_attr.task_weight_basis_code%TYPE ;
5720: pa_progress_rollup ppr,
5721: pa_project_statuses pps1,
5722: pa_project_statuses pps2,
5723: pa_project_statuses pps3,
5724: pa_proj_elements ppe -- 4392189
5725: WHERE ppev.element_version_id = c_task_ver_id
5726: AND ppev.element_version_id = obj.object_id_to1
5727: AND obj.relationship_type = 'S'
5728: AND ppev.object_type = 'PA_TASKS'
6025: pa_progress_rollup ppr,
6026: pa_project_statuses pps1,
6027: pa_project_statuses pps2,
6028: pa_project_statuses pps3,
6029: pa_proj_elements ppe -- 4392189
6030: WHERE obj.object_id_from1 = c_task_ver_id
6031: AND obj.object_id_from1 = ppev1.element_version_id
6032: AND obj.object_id_to1 = ppev2.element_version_id
6033: AND obj.relationship_type = 'S'
6189: FROM pa_proj_element_versions ppev1,
6190: pa_proj_element_versions ppev2,
6191: pa_object_relationships obj,
6192: pji_fm_xbs_accum_tmp1 pfxat,
6193: pa_proj_elements ppe -- 4392189
6194: WHERE obj.object_id_from1 = c_task_ver_id
6195: AND obj.object_id_from1 = ppev1.element_version_id
6196: AND obj.object_id_to1 = ppev2.element_version_id
6197: AND obj.relationship_type = 'S'
6500: , elem.progress_weight weighting_percentage
6501: , ppr.base_percent_complete
6502: , pps2.project_status_weight override_weight ---override progress status code
6503: , pps3.project_status_weight base_weight --base prog status
6504: FROM pa_proj_elements elem
6505: , pa_object_relationships obj
6506: , pa_progress_rollup ppr
6507: , pa_project_statuses pps2
6508: , pa_project_statuses pps3
6560:
6561: CURSOR cur_base_p_comp_deriv_code(c_task_proj_elem_id NUMBER, c_project_id NUMBER)
6562: IS
6563: 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
6564: FROM pa_proj_elements elem
6565: , pa_task_types ttype
6566: , pa_project_statuses stat
6567: where elem.proj_element_id = c_task_proj_elem_id
6568: AND elem.project_id = c_project_id
6702: -- Bug 3879461 Begin
6703: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
6704: IS
6705: SELECT STATUS_CODE
6706: FROM PA_PROJ_ELEMENTS
6707: WHERE PROJ_ELEMENT_ID=l_proj_element_id
6708: AND PROJECT_ID = l_project_id;
6709:
6710: L_EXISTING_OBJECT_STATUS pa_project_statuses.project_status_code%TYPE ;
6846: ,pa_project_statuses pps1
6847: ,pa_project_statuses pps2
6848: ,pa_project_statuses pps3
6849: ,pa_project_statuses pps4
6850: ,pa_proj_elements ppe
6851: ,pji_fm_xbs_accum_tmp1 pfxat
6852: WHERE
6853: ppr.project_id = c_sub_project_id
6854: AND ppe.project_id = c_sub_project_id
6997: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'Inside Tasks Loop', x_Log_Level=> 3);
6998: 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);
6999: END IF;
7000:
7001: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
7002:
7003: -- We only populate the asssignment and deliverable records n the PL/SQL table for the input task
7004: -- , assignments and deliverables of the sub-tasks are not considered. -- Fix for Bug # 4032987.
7005:
7375: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
7376:
7377: -- Deliverable Status will not get rolled up for deliverable
7378:
7379: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
7380:
7381: IF nvl( l_task_weighting_percentage, 0 ) = 0 THEN
7382: l_action_allowed := 'N';
7383: END IF;
7410: l_rollup_table1(l_index).PARENT_OBJECT_ID := cur_tasks_rec.object_id_from1; --Parent Task Version Id
7411: l_rollup_table1(l_index).WBS_LEVEL := NVL( cur_tasks_rec.wbs_level, 0 );
7412:
7413: -- 4582956 Begin
7414: -- l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(cur_tasks_rec.object_id_to1);--4370746
7415: IF cur_tasks_rec.object_id_to1 = nvl(l_subproj_task_version_id, -789) THEN
7416: -- 4586449 : Passing L for link tasks
7417: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'L'; --Link task shd be treated as summary task
7418: --l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'Y'; --Link task shd be treated as summary task
7416: -- 4586449 : Passing L for link tasks
7417: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'L'; --Link task shd be treated as summary task
7418: --l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := 'Y'; --Link task shd be treated as summary task
7419: ELSE
7420: l_rollup_table1(l_index).SUMMARY_OBJECT_FLAG := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(cur_tasks_rec.object_id_to1);
7421: END IF;
7422: -- 4582956 end
7423:
7424: -- Rollup Percent Complete Rollup
7619:
7620: /*
7621: --bug 3951982
7622: --populate scheduling pl/sql table with sub-tasks of a summary tasks if it has assignments.
7623: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id ) = 'N'
7624: AND pa_progress_utils.check_assignment_exists(p_project_id,p_task_version_id, 'PA_TASKS') = 'Y'
7625: THEN
7626: -- Loop thru all tasks of a passed task
7627: FOR cur_tasks_rec in cur_tasks( p_task_version_id ) LOOP
7631: 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);
7632: 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);
7633: END IF;
7634:
7635: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
7636:
7637: IF g1_debug_mode = 'Y' THEN
7638: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'l_index='||l_index, x_Log_Level=> 3);
7639: END IF;
8120: END IF;
8121: -- 4490532 : changed from IS_LOWEST_TASK to is_summary_task_or_structure
8122: -- 4533112 : Now base_progress_status_code is not used
8123: /*
8124: IF PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(p_task_version_id )= 'Y'
8125: THEN
8126: -- l_rolled_up_base_per_comp := nvl(l_cur_pa_rollup1_rec.base_percent_complete,0);
8127: l_rolled_up_base_prog_stat := l_cur_pa_rollup1_rec.base_progress_status_code;
8128: ELSE
8730: );
8731:
8732: /* commenting out the code for bug 3851528
8733: IF l_progress_exists_on_aod = 'PUBLISHED' THEN
8734: UPDATE pa_proj_elements
8735: SET progress_outdated_flag = 'Y'
8736: WHERE proj_element_id = p_task_id
8737: AND project_id = p_project_id
8738: AND object_type = l_rollup_table1(i).object_type;
8942: -- Bug 3879461 End
8943:
8944: /* commenting out the code for bug 3851528
8945: IF l_progress_exists_on_aod = 'PUBLISHED' THEN
8946: UPDATE pa_proj_elements
8947: SET progress_outdated_flag = 'Y'
8948: WHERE proj_element_id = p_task_id
8949: AND project_id = p_project_id
8950: AND object_type = l_rollup_table1(i).object_type;
10861:
10862: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
10863: IS
10864: SELECT STATUS_CODE
10865: FROM PA_PROJ_ELEMENTS
10866: WHERE PROJ_ELEMENT_ID = l_proj_element_id
10867: AND PROJECT_ID = l_project_id;
10868:
10869: CURSOR cur_status( c_status_weight VARCHAR2 )
11107: pa_object_relationships pobj,
11108: pa_proj_element_versions ppev1,
11109: pa_proj_element_versions ppev2,
11110: pa_progress_rollup ppr,
11111: pa_proj_elements ppe,
11112: pa_project_statuses pps1,
11113: pa_project_statuses pps2,
11114: pa_project_statuses pps3,
11115: pa_project_statuses pps4,
11349: FROM
11350: pa_object_relationships pobj,
11351: pa_proj_element_versions ppev1,
11352: pa_proj_element_versions ppev2,
11353: pa_proj_elements ppe,
11354: pa_project_statuses pps4,
11355: pa_task_types ttype ,
11356: pa_proj_rollup_temp temp
11357: WHERE --BUG 4355204 rtarway, removed in clause and added pa_proj_rollup_temp in FROM
11458: , elem.progress_weight weighting_percentage
11459: , ppr.base_percent_complete
11460: , pps2.project_status_weight override_weight ---override progress status code
11461: , pps3.project_status_weight base_weight --base prog status
11462: FROM pa_proj_elements elem
11463: , pa_object_relationships obj
11464: , pa_progress_rollup ppr
11465: , pa_project_statuses pps2
11466: , pa_project_statuses pps3
11629: ,pa_project_statuses pps1
11630: ,pa_project_statuses pps2
11631: ,pa_project_statuses pps3
11632: ,pa_project_statuses pps4
11633: ,pa_proj_elements ppe
11634: WHERE
11635: ppr.project_id = c_sub_project_id
11636: AND ppe.project_id = c_sub_project_id
11637: AND ppe.object_type = 'PA_STRUCTURES'
11891: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
11892: FROM pa_proj_element_versions
11893: WHERE project_id = p_project_id
11894: AND parent_structure_version_id = p_structure_version_id
11895: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
11896: AND object_type = 'PA_TASKS'
11897: UNION
11898: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
11899: FROM dual;
12043: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg =>'l_tsk_base_prog_stat_code_tab('||k||')='||l_tsk_base_prog_stat_code_tab(k), x_Log_Level=> 3);
12044: END IF;
12045: l_tsk_progress_exists := 'N';
12046: l_parent_count := l_parent_count + 1;
12047: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
12048: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
12049:
12050: IF g1_debug_mode = 'Y' THEN
12051: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
12044: END IF;
12045: l_tsk_progress_exists := 'N';
12046: l_parent_count := l_parent_count + 1;
12047: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
12048: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
12049:
12050: IF g1_debug_mode = 'Y' THEN
12051: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
12052: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_summary_object_flag='||l_summary_object_flag, x_Log_Level=> 3);
12409: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
12410:
12411: -- Deliverable Status will not get rolled up for deliverable
12412:
12413: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
12414:
12415: IF nvl( l_tsk_weighting_percent_tab(k), 0 ) = 0 THEN
12416: l_action_allowed := 'N';
12417: END IF;
12577: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
12578: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
12579: -- END IF;
12580:
12581: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
12582:
12583: IF nvl(l_tsk_weighting_percent_tab(k), 0) = 0 THEN
12584: l_action_allowed := 'N';
12585: END IF;
12633: IF g1_debug_mode = 'Y' THEN
12634: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'Second task cursor for summary task with assignments', x_Log_Level=> 3);
12635: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'cur_tasks_rec.object_id_to1='||cur_tasks_rec.object_id_to1, x_Log_Level=> 3);
12636: END IF;
12637: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
12638:
12639: l_index := l_index + 1;
12640:
12641: l_rollup_table1(l_index).OBJECT_TYPE := cur_tasks_rec.object_type;
12751: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
12752: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
12753: -- END IF;
12754:
12755: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
12756:
12757: IF nvl( cur_tasks_rec.weighting_percentage, 0 ) = 0 THEN
12758: l_action_allowed := 'N';
12759: END IF;
13424: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'After Defaulting l_system_status_code='||l_system_status_code, x_Log_Level=> 3);
13425: END IF;
13426:
13427: IF l_structure_version_id IS NULL THEN -- Bug 3922325 : This does not make sense for working wp version rollup
13428: UPDATE pa_proj_elements
13429: SET status_code = l_status_code
13430: WHERE project_id = p_project_id
13431: AND proj_element_id = cur_reverse_tree_rec.proj_element_id;
13432: END IF;
14421:
14422: CURSOR c_get_object_status (l_project_id NUMBER, l_proj_element_id NUMBER)
14423: IS
14424: SELECT STATUS_CODE
14425: FROM PA_PROJ_ELEMENTS
14426: WHERE PROJ_ELEMENT_ID = l_proj_element_id
14427: AND PROJECT_ID = l_project_id;
14428:
14429: CURSOR cur_status( c_status_weight VARCHAR2 )
14667: pa_object_relationships pobj,
14668: pa_proj_element_versions ppev1,
14669: pa_proj_element_versions ppev2,
14670: pa_progress_rollup ppr,
14671: pa_proj_elements ppe,
14672: pa_project_statuses pps1,
14673: pa_project_statuses pps2,
14674: pa_project_statuses pps3,
14675: pa_project_statuses pps4,
14909: FROM
14910: pa_object_relationships pobj,
14911: pa_proj_element_versions ppev1,
14912: pa_proj_element_versions ppev2,
14913: pa_proj_elements ppe,
14914: pa_project_statuses pps4,
14915: pa_task_types ttype ,
14916: pa_proj_rollup_temp temp
14917: WHERE --BUG 4355204 rtarway, removed in clause and added pa_proj_rollup_temp in FROM
15019: , elem.progress_weight weighting_percentage
15020: , ppr.base_percent_complete
15021: , pps2.project_status_weight override_weight ---override progress status code
15022: , pps3.project_status_weight base_weight --base prog status
15023: FROM pa_proj_elements elem
15024: , pa_object_relationships obj
15025: , pa_progress_rollup ppr
15026: , pa_project_statuses pps2
15027: , pa_project_statuses pps3
15190: ,pa_project_statuses pps1
15191: ,pa_project_statuses pps2
15192: ,pa_project_statuses pps3
15193: ,pa_project_statuses pps4
15194: ,pa_proj_elements ppe
15195: WHERE
15196: 1 = 2 and --sridhar_rollup
15197: ppr.project_id = c_sub_project_id
15198: AND ppe.project_id = c_sub_project_id
15275: */
15276: cursor c_progress_parent(c_project_id number)
15277: IS
15278: SELECT /*+ CONNECT_BY_FILTERING */ element_version_id object_id_from1
15279: FROM PA_PROJ_ELEMENTS_TMP r
15280: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'P' ) CONNECT BY
15281: r.TASK_ID = prior r.PARENT_TASK_ID;
15282:
15283: type NumberArray
15276: cursor c_progress_parent(c_project_id number)
15277: IS
15278: SELECT /*+ CONNECT_BY_FILTERING */ element_version_id object_id_from1
15279: FROM PA_PROJ_ELEMENTS_TMP r
15280: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'P' ) CONNECT BY
15281: r.TASK_ID = prior r.PARENT_TASK_ID;
15282:
15283: type NumberArray
15284: IS
15436: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15437: FROM pa_proj_element_versions
15438: WHERE project_id = p_project_id
15439: AND parent_structure_version_id = p_structure_version_id
15440: AND PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(element_version_id) = 'Y'
15441: AND object_type = 'PA_TASKS'
15442: UNION
15443: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15444: FROM dual;*/
15443: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15444: FROM dual;*/
15445: /*INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
15446: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15447: FROM PA_PROJ_ELEMENTS_TMP r
15448: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'P' ) CONNECT BY
15449: r.TASK_ID = prior r.PARENT_TASK_ID
15450: UNION
15451: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15444: FROM dual;*/
15445: /*INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
15446: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15447: FROM PA_PROJ_ELEMENTS_TMP r
15448: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'P' ) CONNECT BY
15449: r.TASK_ID = prior r.PARENT_TASK_ID
15450: UNION
15451: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15452: FROM dual
15451: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15452: FROM dual
15453: UNION
15454: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15455: FROM PA_PROJ_ELEMENTS_TMP r where connect_by_isleaf = 0
15456: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'S' ) CONNECT BY
15457: prior r.TASK_ID = r.PARENT_TASK_ID
15458: UNION
15459: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15452: FROM dual
15453: UNION
15454: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15455: FROM PA_PROJ_ELEMENTS_TMP r where connect_by_isleaf = 0
15456: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'S' ) CONNECT BY
15457: prior r.TASK_ID = r.PARENT_TASK_ID
15458: UNION
15459: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15460: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code = 'S' ;*/
15456: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code = 'S' ) CONNECT BY
15457: prior r.TASK_ID = r.PARENT_TASK_ID
15458: UNION
15459: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15460: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code = 'S' ;*/
15461: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
15462: SELECT /*+ CONNECT_BY_FILTERING */ l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15463: FROM PA_PROJ_ELEMENTS_TMP r
15464: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ( 'P','C') ) CONNECT BY
15459: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15460: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code = 'S' ;*/
15461: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
15462: SELECT /*+ CONNECT_BY_FILTERING */ l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15463: FROM PA_PROJ_ELEMENTS_TMP r
15464: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ( 'P','C') ) CONNECT BY
15465: r.TASK_ID = prior r.PARENT_TASK_ID
15466: UNION
15467: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15460: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code = 'S' ;*/
15461: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
15462: SELECT /*+ CONNECT_BY_FILTERING */ l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15463: FROM PA_PROJ_ELEMENTS_TMP r
15464: START WITH r.TASK_ID in ( select distinct parent_task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ( 'P','C') ) CONNECT BY
15465: r.TASK_ID = prior r.PARENT_TASK_ID
15466: UNION
15467: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15468: FROM dual
15467: SELECT l_process_number_temp, p_structure_version_id object_id_from1, 'PA_TASKS', 1
15468: FROM dual
15469: UNION
15470: SELECT /*+ CONNECT_BY_FILTERING */ l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15471: FROM PA_PROJ_ELEMENTS_TMP r where connect_by_isleaf = 0
15472: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ('D', 'S' )) CONNECT BY
15473: r.TASK_ID = Prior r.PARENT_TASK_ID
15474: UNION
15475: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15468: FROM dual
15469: UNION
15470: SELECT /*+ CONNECT_BY_FILTERING */ l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15471: FROM PA_PROJ_ELEMENTS_TMP r where connect_by_isleaf = 0
15472: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ('D', 'S' )) CONNECT BY
15473: r.TASK_ID = Prior r.PARENT_TASK_ID
15474: UNION
15475: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15476: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code in ('D','S')
15472: START WITH r.TASK_ID in ( select distinct task_id from PA_PROJ_ELEMENTS_TMP t1 where t1.defer_code in ('D', 'S' )) CONNECT BY
15473: r.TASK_ID = Prior r.PARENT_TASK_ID
15474: UNION
15475: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15476: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code in ('D','S')
15477: UNION
15478: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15479: FROM PA_PROJ_ELEMENTS_TMP r where r.task_id in ( select distinct tt.top_task_id from PA_PROJ_ELEMENTS_TMP tt where tt.defer_code in ('D','S','C','P') ) ;
15480:
15475: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15476: FROM PA_PROJ_ELEMENTS_TMP r where r.defer_code in ('D','S')
15477: UNION
15478: SELECT l_process_number_temp, element_version_id object_id_from1, 'PA_TASKS', 1
15479: FROM PA_PROJ_ELEMENTS_TMP r where r.task_id in ( select distinct tt.top_task_id from PA_PROJ_ELEMENTS_TMP tt where tt.defer_code in ('D','S','C','P') ) ;
15480:
15481:
15482: l_tmp_prog.delete;
15483: OPEN c_progress_parent(p_project_id);
15629: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg =>'l_tsk_base_prog_stat_code_tab('||k||')='||l_tsk_base_prog_stat_code_tab(k), x_Log_Level=> 3);
15630: END IF;
15631: l_tsk_progress_exists := 'N';
15632: l_parent_count := l_parent_count + 1;
15633: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
15634: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
15635:
15636: IF g1_debug_mode = 'Y' THEN
15637: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
15630: END IF;
15631: l_tsk_progress_exists := 'N';
15632: l_parent_count := l_parent_count + 1;
15633: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
15634: l_summary_object_flag := PA_PROJ_ELEMENTS_UTILS.is_summary_task_or_structure(l_tsk_object_id_to1_tab(k)); -- 4370746
15635:
15636: IF g1_debug_mode = 'Y' THEN
15637: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_action_allowed='||l_action_allowed, x_Log_Level=> 3);
15638: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT',x_Msg => 'l_summary_object_flag='||l_summary_object_flag, x_Log_Level=> 3);
15995: l_rollup_table1(l_index).DIRTY_FLAG2 := 'Y';
15996:
15997: -- Deliverable Status will not get rolled up for deliverable
15998:
15999: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
16000:
16001: IF nvl( l_tsk_weighting_percent_tab(k), 0 ) = 0 THEN
16002: l_action_allowed := 'N';
16003: END IF;
16163: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
16164: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
16165: -- END IF;
16166:
16167: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(l_tsk_status_code_tab(k), 'PROGRESS_ROLLUP' );
16168:
16169: IF nvl(l_tsk_weighting_percent_tab(k), 0) = 0 THEN
16170: l_action_allowed := 'N';
16171: END IF;
16220: IF g1_debug_mode = 'Y' THEN
16221: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'Second task cursor for summary task with assignments', x_Log_Level=> 3);
16222: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'cur_tasks_rec.object_id_to1='||cur_tasks_rec.object_id_to1, x_Log_Level=> 3);
16223: END IF;
16224: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED( cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
16225:
16226: l_index := l_index + 1;
16227:
16228: l_rollup_table1(l_index).OBJECT_TYPE := cur_tasks_rec.object_type;
16338: -- l_rollup_table1(l_index).DIRTY_FLAG1 := 'N';
16339: -- l_rollup_table1(l_index).DIRTY_FLAG2 := 'N';
16340: -- END IF;
16341:
16342: l_action_allowed := PA_PROJ_ELEMENTS_UTILS.CHECK_TASK_STUS_ACTION_ALLOWED(cur_tasks_rec.status_code, 'PROGRESS_ROLLUP' );
16343:
16344: IF nvl( cur_tasks_rec.weighting_percentage, 0 ) = 0 THEN
16345: l_action_allowed := 'N';
16346: END IF;
17039: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'After Defaulting l_system_status_code='||l_system_status_code, x_Log_Level=> 3);
17040: END IF;
17041:
17042: IF l_structure_version_id IS NULL THEN -- Bug 3922325 : This does not make sense for working wp version rollup
17043: UPDATE pa_proj_elements
17044: SET status_code = l_status_code
17045: WHERE project_id = p_project_id
17046: /* AND proj_element_id = cur_reverse_tree_rec.proj_element_id; */ -- sridhar_rollup
17047: AND proj_element_id = l_task_id;