[Home] [Help]
333: WHERE PROJECT_ID = c_project_id
334: AND element_version_id = c_element_version_id;
335:
336: CURSOR c_get_dlv_status(c_task_id NUMBER) IS
337: SELECT 'Y' FROM DUAL
338: WHERE EXISTS
339: (SELECT 'xyz'
340: FROM pa_percent_completes
341: WHERE project_id = p_project_id
1538: --l_lowest_task := p_lowest_task;
1539: -- Loop thru all the parents of the passed task
1540:
1541: SELECT PA_PROJ_ROLLUP_TEMP_S.nextval
1542: INTO l_process_number_temp FROM dual;
1543:
1544: IF p_rollup_entire_wbs = 'N' THEN
1545: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
1546: SELECT distinct l_process_number_temp, object_id_from1, 'PA_TASKS', 1
1551: CONNECT BY PRIOR object_id_from1 = object_id_to1
1552: AND relationship_type = 'S'
1553: UNION ALL -- 4563049 : Rollup Structure also if passed, so that it can populate ETC from PJI
1554: SELECT distinct l_process_number_temp, l_task_version_id object_id_from1, 'PA_TASKS', 1
1555: FROM dual
1556: WHERE l_task_version_id = p_structure_version_id
1557: ;
1558: ELSE
1559: IF g1_debug_mode = 'Y' THEN
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
1599: ;
1600: END IF;
1601: END IF;
1602:
2393: AND l_actual_lowest_task = 'N' -- Bug 4392189
2394: THEN
2395: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
2396: SELECT l_process_number_temp, p_task_version_id, 'PA_TASKS', 1
2397: FROM dual;
2398:
2399: FOR cur_tasks_rec in cur_tasks(1) LOOP
2400: IF cur_tasks_rec.object_type = 'PA_TASKS' THEN
2401: IF g1_debug_mode = 'Y' THEN
2786: l_child_rollup_rec_exists := 'N';
2787: IF p_rollup_entire_wbs='Y' THEN
2788: BEGIN
2789: SELECT 'Y' into l_child_rollup_rec_exists
2790: FROM dual
2791: WHERE exists
2792: (
2793: SELECT 'xyz'
2794: from pa_proj_rollup_temp
3900: , l_tsk_prog_pa_period_name_tab(i)
3901: , l_tsk_prog_gl_period_name_tab(i)
3902: , l_tsk_base_percent_comp_tab(i) -- 4392189 : Program Reporting Changes - Phase 2
3903: FROM
3904: DUAL
3905: WHERE l_tsk_create_required(i) = 'Y'
3906: ;
3907: END IF; -- IF p_calling_mode <> 'FUTURE_ROLLUP' OR p_calling_mode IS NULL THEN
3908:
4831: CLOSE cur_get_status_weight;
4832:
4833: SELECT GREATEST(l_par_progress_status_weight, l_child_progress_status_weight)
4834: INTO l_progress_status_weight
4835: FROM DUAL;
4836:
4837: IF g1_debug_mode = 'Y' THEN
4838: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT', x_Msg => 'l_par_progress_status_weight='||l_par_progress_status_weight, x_Log_Level=> 3);
4839: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT', x_Msg => 'l_child_progress_status_weight='||l_child_progress_status_weight, x_Log_Level=> 3);
4862:
4863: IF l_sub_project_rec.ACTUAL_START_DATE IS NOT NULL AND l_parent_task_rec.ACTUAL_START_DATE IS NOT NULL THEN
4864: SELECT LEAST(l_sub_project_rec.ACTUAL_START_DATE, l_parent_task_rec.ACTUAL_START_DATE)
4865: INTO l_actual_start_date
4866: FROM DUAL;
4867: ELSIF l_sub_project_rec.ACTUAL_START_DATE IS NULL AND l_parent_task_rec.ACTUAL_START_DATE IS NOT NULL THEN
4868: l_actual_start_date := l_parent_task_rec.ACTUAL_START_DATE;
4869: ELSIF l_sub_project_rec.ACTUAL_START_DATE IS NOT NULL AND l_parent_task_rec.ACTUAL_START_DATE IS NULL THEN
4870: l_actual_start_date := l_sub_project_rec.ACTUAL_START_DATE;
4874:
4875: IF l_sub_project_rec.ACTUAL_FINISH_DATE IS NOT NULL AND l_parent_task_rec.ACTUAL_FINISH_DATE IS NOT NULL THEN
4876: SELECT GREATEST(l_sub_project_rec.ACTUAL_FINISH_DATE, l_parent_task_rec.ACTUAL_FINISH_DATE)
4877: INTO l_actual_finish_date
4878: FROM DUAL;
4879: ELSIF l_sub_project_rec.ACTUAL_FINISH_DATE IS NULL AND l_parent_task_rec.ACTUAL_FINISH_DATE IS NOT NULL THEN
4880: l_actual_finish_date := l_parent_task_rec.ACTUAL_FINISH_DATE;
4881: ELSIF l_sub_project_rec.ACTUAL_FINISH_DATE IS NOT NULL AND l_parent_task_rec.ACTUAL_FINISH_DATE IS NULL THEN
4882: l_actual_finish_date := l_sub_project_rec.ACTUAL_FINISH_DATE;
4886:
4887: IF l_sub_project_rec.ESTIMATED_START_DATE IS NOT NULL AND l_parent_task_rec.ESTIMATED_START_DATE IS NOT NULL THEN
4888: SELECT LEAST(l_sub_project_rec.ESTIMATED_START_DATE, l_parent_task_rec.ESTIMATED_START_DATE)
4889: INTO l_estimated_start_date
4890: FROM DUAL;
4891: ELSIF l_sub_project_rec.ESTIMATED_START_DATE IS NULL AND l_parent_task_rec.ESTIMATED_START_DATE IS NOT NULL THEN
4892: l_estimated_start_date := l_parent_task_rec.ESTIMATED_START_DATE;
4893: ELSIF l_sub_project_rec.ESTIMATED_START_DATE IS NOT NULL AND l_parent_task_rec.ESTIMATED_START_DATE IS NULL THEN
4894: l_estimated_start_date := l_sub_project_rec.ESTIMATED_START_DATE;
4898:
4899: IF l_sub_project_rec.ESTIMATED_FINISH_DATE IS NOT NULL AND l_parent_task_rec.ESTIMATED_FINISH_DATE IS NOT NULL THEN
4900: SELECT GREATEST(l_sub_project_rec.ESTIMATED_FINISH_DATE, l_parent_task_rec.ESTIMATED_FINISH_DATE)
4901: INTO l_estimated_finish_date
4902: FROM DUAL;
4903: ELSIF l_sub_project_rec.ESTIMATED_FINISH_DATE IS NULL AND l_parent_task_rec.ESTIMATED_FINISH_DATE IS NOT NULL THEN
4904: l_estimated_finish_date := l_parent_task_rec.ESTIMATED_FINISH_DATE;
4905: ELSIF l_sub_project_rec.ESTIMATED_START_DATE IS NOT NULL AND l_parent_task_rec.ESTIMATED_FINISH_DATE IS NULL THEN
4906: l_estimated_finish_date := l_sub_project_rec.ESTIMATED_FINISH_DATE;
6732: -- Bug 3956299 End
6733:
6734: -- Bug 3922325 Begin
6735: CURSOR c_get_dlv_status IS
6736: SELECT 'Y' FROM DUAL
6737: WHERE EXISTS
6738: (SELECT 'xyz'
6739: FROM pa_percent_completes
6740: WHERE project_id = p_project_id
9377:
9378:
9379: select PA_PERCENT_COMPLETES_S.nextval
9380: into x_percent_complete_id
9381: from dual;
9382:
9383: select PA_PROGRESS_ROLLUP_S.nextval
9384: into X_PROGRESS_ROLLUP_ID
9385: from dual;
9381: from dual;
9382:
9383: select PA_PROGRESS_ROLLUP_S.nextval
9384: into X_PROGRESS_ROLLUP_ID
9385: from dual;
9386: IF g1_debug_mode = 'Y' THEN
9387: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.convert_task_prog_to_assgn', x_Msg => 'Before Inserting into pa_percent_completes', x_Log_Level=> 3);
9388: END IF;
9389: INSERT INTO pa_percent_completes(
10844: WHERE PROJECT_ID = c_project_id
10845: AND element_version_id = c_element_version_id;
10846:
10847: CURSOR c_get_dlv_status(c_task_id NUMBER) IS
10848: SELECT 'Y' FROM DUAL
10849: WHERE EXISTS
10850: (SELECT 'xyz'
10851: FROM pa_percent_completes
10852: WHERE project_id = p_project_id
11842: --l_lowest_task := p_lowest_task;
11843: -- Loop thru all the parents of the passed task
11844:
11845: SELECT PA_PROJ_ROLLUP_TEMP_S.nextval
11846: INTO l_process_number_temp FROM dual;
11847:
11848: IF p_rollup_entire_wbs = 'N' THEN
11849: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
11850: SELECT distinct l_process_number_temp, object_id_from1, 'PA_TASKS', 1
11855: CONNECT BY PRIOR object_id_from1 = object_id_to1
11856: AND relationship_type = 'S'
11857: UNION ALL -- 4563049 : Rollup Structure also if passed, so that it can populate ETC from PJI
11858: SELECT distinct l_process_number_temp, l_task_version_id object_id_from1, 'PA_TASKS', 1
11859: FROM dual
11860: WHERE l_task_version_id = p_structure_version_id;
11861: ELSE
11862: IF g1_debug_mode = 'Y' THEN
11863: pa_debug.write(x_Module=>'PA_PROGRESS_PVT.ROLLUP_PVT', x_Msg => 'Mass Rollup Case', x_Log_Level=> 3);
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;
11900:
11901:
11902: l_tmp_prog.delete;
11903: OPEN c_progress_parent(p_project_id);
12625: AND l_actual_lowest_task = 'N' -- Bug 4392189
12626: THEN
12627: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
12628: SELECT l_process_number_temp, p_task_version_id, 'PA_TASKS', 1
12629: FROM dual;
12630:
12631: FOR cur_tasks_rec in cur_tasks(1) LOOP
12632: IF cur_tasks_rec.object_type = 'PA_TASKS' THEN
12633: IF g1_debug_mode = 'Y' THEN
13014: l_child_rollup_rec_exists := 'N';
13015: IF p_rollup_entire_wbs='Y' THEN
13016: BEGIN
13017: SELECT 'Y' into l_child_rollup_rec_exists
13018: FROM dual
13019: WHERE exists
13020: (
13021: SELECT 'xyz'
13022: from pa_proj_rollup_temp
13985: , l_tsk_prog_pa_period_name_tab(i)
13986: , l_tsk_prog_gl_period_name_tab(i)
13987: , l_tsk_base_percent_comp_tab(i) -- 4392189 : Program Reporting Changes - Phase 2
13988: FROM
13989: DUAL
13990: WHERE l_tsk_create_required(i) = 'Y';
13991: END IF; -- IF p_calling_mode <> 'FUTURE_ROLLUP' OR p_calling_mode IS NULL THEN
13992:
13993: -- Bug 4242787
14404: WHERE PROJECT_ID = c_project_id
14405: AND element_version_id = c_element_version_id;
14406:
14407: CURSOR c_get_dlv_status(c_task_id NUMBER) IS
14408: SELECT 'Y' FROM DUAL
14409: WHERE EXISTS
14410: (SELECT 'xyz'
14411: FROM pa_percent_completes
14412: WHERE project_id = p_project_id
15413: --l_lowest_task := p_lowest_task;
15414: -- Loop thru all the parents of the passed task
15415:
15416: SELECT PA_PROJ_ROLLUP_TEMP_S.nextval
15417: INTO l_process_number_temp FROM dual;
15418:
15419: IF p_rollup_entire_wbs = 'N' THEN
15420: -- sridhar_rollup
15421: null;
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;*/
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
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
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
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
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
16212: AND l_actual_lowest_task = 'N' -- Bug 4392189
16213: THEN
16214: INSERT INTO pa_proj_rollup_temp(process_number, object_id, object_type, wbs_level)
16215: SELECT l_process_number_temp, p_task_version_id, 'PA_TASKS', 1
16216: FROM dual;
16217:
16218: FOR cur_tasks_rec in cur_tasks(1) LOOP
16219: IF cur_tasks_rec.object_type = 'PA_TASKS' THEN
16220: IF g1_debug_mode = 'Y' THEN
16624: /*
16625: IF p_rollup_entire_wbs='Y' THEN
16626: BEGIN
16627: SELECT 'Y' into l_child_rollup_rec_exists
16628: FROM dual
16629: WHERE exists
16630: (
16631: SELECT 'xyz'
16632: from pa_proj_rollup_temp
17617: , l_tsk_prog_pa_period_name_tab(i)
17618: , l_tsk_prog_gl_period_name_tab(i)
17619: , l_tsk_base_percent_comp_tab(i) -- 4392189 : Program Reporting Changes - Phase 2
17620: FROM
17621: DUAL
17622: WHERE l_tsk_create_required(i) = 'Y';
17623: END IF; -- IF p_calling_mode <> 'FUTURE_ROLLUP' OR p_calling_mode IS NULL THEN
17624:
17625: -- Bug 4242787