[Home] [Help]
1612: CLOSE get_task_type_id;
1613: --Bug No 3450684 SMukka Commented if condition
1614: --IF NOT ( p_structure_type = 'WORKPLAN' AND
1615: -- l_shared = 'N' AND
1616: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
1617: -- pa_task_type_utils.check_tk_type_progressable(l_task_type_id)='N') )
1618: --THEN
1619:
1620: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
1739: AND project_id = p_project_id;
1740: */
1741:
1742: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
1743: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(p_project_id)) THEN
1744: IF (P_PLANNED_WORK_QUANTITY <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND P_PLANNED_WORK_QUANTITY IS NOT NULL) THEN
1745: l_wq_planned_quantity := NULL;
1746: END IF;
1747: ELSE
3002: WHERE proj_element_id = l_task_id
3003: AND project_id = p_project_id;
3004:
3005: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
3006: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(p_project_id)) THEN
3007: IF (P_PLANNED_WORK_QUANTITY <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND P_PLANNED_WORK_QUANTITY IS NOT NULL) THEN
3008: l_wq_planned_quantity := NULL;
3009: END IF;
3010: ELSE
12947: l_fn_str_ver_id NUMBER;
12948: l_wp_str_ver_id NUMBER;
12949: l_task_weight_basis PA_PROJ_PROGRESS_ATTR.task_weight_basis_code%TYPE;
12950: BEGIN
12951: l_task_weight_basis := PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS( p_dest_project_id );
12952: IF NVL( l_task_weight_basis, 'X' ) = 'DURATION'
12953: THEN
12954: FOR cur_strs_n_types_rec in cur_strs_n_types LOOP
12955: IF cur_strs_n_types_rec.structure_type_id = 1 --'WORKPLAN' structure
14125: END IF; -- End for if p_structure_version_id is null
14126:
14127: -- Bug 3075609. Determine if we want to maintain the task weightages during the program
14128: -- flow or they will be recalculated at the end of the flow.
14129: l_task_weight_basis_code := PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id => p_project_id) ;
14130:
14131: -- In the following conditions we will be recalculating the weightages completely. So we need to
14132: -- take care of the rest of the scenarios. Where we need not take care we will just set the task
14133: -- weightage to 0.
16077:
16078: -- Need to check if the project and the task type allows for planned work quantity. If not allowed then
16079: -- set the value to null so that it can be passed on to create_schedule_version api.
16080: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
16081: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(p_project_id))
16082: THEN
16083: IF (l_task_in_rec.PLANNED_WORK_QUANTITY <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
16084: l_task_in_rec.PLANNED_WORK_QUANTITY IS NOT NULL)
16085: THEN
16121: FETCH cur_task_type_id INTO l_task_type_id;
16122: CLOSE cur_task_type_id;
16123:
16124: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
16125: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(p_project_id)) THEN
16126: l_wq_planned_quantity := null;
16127: ELSE
16128: IF (l_task_in_rec.PLANNED_WORK_QUANTITY = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16129: --Added by rtarway, for 4029755
16604: --3035902: process update flag changes
16605: --Bug No 3450684 SMukka Commented if condition
16606: --IF NOT ( p_structure_type = 'WORKPLAN' AND
16607: -- p_is_wp_separate_from_fn = 'Y' AND
16608: -- ( PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id) = 'MANUAL' OR
16609: -- NVL( l_progressable_task, 'N' ) = 'N' ))
16610: --THEN
16611: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG
16612: (
16711: END IF;
16712: END IF;
16713: --Bug3802469, rtarway
16714:
16715: l_task_weight_basis_code := PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id => p_project_id) ;
16716:
16717: -- Recalculate the task weightings.
16718: IF nvl(l_task_weight_basis_code,'-1') = 'MANUAL' AND
16719: (l_new_structure_version = 'Y' OR -- Bug 3075609. Recalculate the task weightings only if it is a
17886: -- basis code is MANUAL or flag is N.
17887:
17888: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
17889: p_structure_version_id => p_structure_version_id);
17890: l_task_weighting_basis := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
17891:
17892:
17893: -- See if the structure version being processed is WORKPLAN.
17894: open cur_structure_type(p_project_id,p_structure_version_id,'WORKPLAN');
18626:
18627: IF (p_calling_context = 'ASGMT_PLAN_CHANGE') THEN ---bug 4492493
18628: --- find the as_of_date for which to rollup and
18629: --- rollup method
18630: l_task_weight_basis_code := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
18631: begin
18632: select max(as_of_date)
18633: into l_as_of_date
18634: from pa_progress_rollup ppr
19585: END IF;
19586: END IF; -- ((l_workplan_type = 'Y') AND (l_financial_type = 'Y')) THEN
19587:
19588: -- 5029112 (4925192)
19589: l_pub_wp_ok := pa_progress_utils.check_wwp_prog_publishing_ok(l_project_id,p_structure_version_id);
19590: --bug 4232150
19591:
19592: IF p_pub_prog_flag = 'Y' THEN
19593:
19823: IF l_debug_mode = 'Y' THEN
19824: pa_debug.write(G_PKG_NAME, 'Calling clear_prog_outdated_flag', 3);
19825: END IF;
19826:
19827: PA_PROGRESS_UTILS.clear_prog_outdated_flag(
19828: p_project_id => l_Project_ID
19829: ,p_structure_version_id => l_pub_ver_id
19830: ,p_object_id => null
19831: ,p_object_type => null
20539:
20540: -- Obtain the task weighting basis and do nothing if the basis is MANUAL and throw error if it is NULL.
20541: -- This is a redundant check incorporated just to ensure no processing is done in case the api
20542: -- is wrongly called.
20543: l_task_weighting_basis := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
20544:
20545: IF l_task_weighting_basis is NULL THEN
20546: IF l_debug_mode = 'Y' THEN
20547: pa_debug.g_err_stage:= 'PROCESS_TASK_WEIGHTAGE API has been called when task weighting basis is NULL';
21156: /* The following is the simple solution for this.
21157: Update the Process_WBS_flag only for WORKPLAN enabled structures
21158: if task weighting basis is DURATION.
21159: Call the concurrent wrapper for all structure versions */
21160: l_task_weight_basis := PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS( p_dest_project_id );
21161: -- IF NVL( l_task_weight_basis, 'X' ) in( 'DURATION', 'EFFORT') --3127640
21162: -- THEN
21163: FOR cur_strs_n_types_rec in cur_strs_n_types LOOP
21164: IF cur_strs_n_types_rec.structure_type_id = 1 --'WORKPLAN' structure