[Home] [Help]
3083: OPEN get_latest_task_ver_id;
3084: FETCH get_latest_task_ver_id INTO l_latest_task_ver_rec;
3085: CLOSE get_latest_task_ver_id;
3086: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
3087: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
3088: then
3089: PA_PROGRESS_PUB.push_down_task_status(
3090: p_task_status => p_STATUS_CODE
3091: ,p_project_id => l_project_id
3154: raise FND_API.G_EXC_ERROR;
3155: END IF;
3156: --maansari
3157: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
3158: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
3159: THEN
3160: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
3161: p_structure_version_id => l_latest_task_ver_rec.parent_structure_version_id
3162: ,p_element_version_id => l_latest_task_ver_rec.element_version_id
3554: /*As 4046026 code fix is not correct,Commented it : Bug 4057190*/
3555: /* Uncommented the code again **/
3556: IF v_cur_proj_elems_rec.object_type = 'PA_STRUCTURES'
3557: THEN
3558: IF NVL(PA_PROJECT_PUB.G_MASS_ADD_TASKS,'N') = 'Y' THEN -- Added this if for performance improvement as display sequence is done in refresh structure api.:DJ:
3559: l_display_sequence := x_task_version_id;
3560: ELSE
3561: -- Moved cursor here for bug 13923366 : Huawei enhancement
3562: OPEN cur_proj_elem_ver;
3741: -- skkoppul added below IF condition for Huawei enhancemnet - bug 13923366
3742: -- When add_tasks api is being used to add large volumne of tasks
3743: -- we are skipping updating display sequence and wbs numbers for performance
3744: -- Once all tasks are added, we re-order them just ONCE
3745: IF NVL(PA_PROJECT_PUB.G_MASS_ADD_TASKS,'N') = 'Y' THEN
3746: -- skkkoppul added if block for Huawei bug 13923366
3747: /*IF v_cur_proj_elems_rec.object_type = 'PA_TASKS' THEN
3748: Update PA_PROJ_ELEMENT_VERSIONS
3749: set display_sequence = l_ref_seq_no,
3769: END IF;
3770: END IF;
3771: -- Sridhar Huawei 18-Sept end
3772:
3773: ELSE -- PA_PROJECT_PUB.G_MASS_ADD_TASKS = 'N'
3774:
3775: IF l_wbs_level <> 1 THEN
3776:
3777: --This IF/ELSE condition is added for BUg 4046026.
3849: --dbms_output.put_line( 'Before WBS_NUMBER' );
3850: -- skkoppul - Added the condition below for bug 13923366
3851: -- In add_tasks amg api flow, we want to update wbs_numbers once all the tasks
3852: -- are added once - not after each task addition.
3853: IF NVL(PA_PROJECT_PUB.G_MASS_ADD_TASKS,'N') = 'N' THEN
3854:
3855: --Do not update wbs_number if the task is a linking task.
3856: IF l_link_task_flag = 'N'
3857: THEN
4600: CLOSE cur_ref_task;
4601:
4602: -- Sridhar Huawei 18-Sept Add the below If statement
4603:
4604: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='N') THEN
4605: --14556729:Huawei Code change for Move Task API. For Fully shared structure this change has better performance in updateing WBS_LEVEL and display sequence .
4606: -- We have called REFRESH_STRUCTURE_VERSION at the end to update Display Sequence and WBS level
4607: IF (l_Share_Code='SHARE_FULL') THEN
4608: if (p_peer_or_sub = 'SUB' and p_action = 'MOVE' ) then
4686: END IF;
4687: -- Sridhar Huawei 18-Sept , add above end if
4688:
4689: -- Sridhar Huawei 18-Sept , START add below if statement and procedure call.
4690: IF PA_PROJECT_PUB.G_ROLLUP_DEFER='Y' then
4691: if ( p_action = 'MOVE' ) then
4692: PA_TASK_PVT1.DISP_SEQ_NUM_LEVEL_DEFER
4693: (
4694: p_project_id => l2_project_id
4721: --14556729:Huawei Code change for Move Task API. For Fully shared structure this change has better performance in updateing WBS_LEVEL and display sequence .
4722: -- We have called REFRESH_STRUCTURE_VERSION at the end to update Display Sequence and WBS level
4723:
4724: -- 14556729:Huawei code change :get the Sharing code and process below code only if its not fully shared
4725: IF p_action = 'MOVE' and l_Share_Code <> 'SHARE_FULL' and PA_PROJECT_PUB.G_ROLLUP_DEFER='N' -- Sridhar Huawei 18-Sept add G_ROLLUP_DEFER
4726: THEN
4727: DECLARE
4728: CURSOR cur_update_with_null
4729: IS
5007: -- END Sridhar Huawei 18-Sept add the below if statement and the code . Moved the below DELETE and insert to here
5008:
5009:
5010: -- 14556729:Huawei code change :get the Sharing code and process below code only if its fully shared
5011: IF p_action = 'MOVE' and l_Share_Code <> 'SHARE_FULL' and PA_PROJECT_PUB.G_ROLLUP_DEFER='N' -- Sridhar Huawei 18-Sept add G_ROLLUP_DEFER
5012: THEN
5013: --Update the display sequence of the affected tasks other than
5014: --the p_task_version and p_task_version children.
5015:
6321:
6322: -- Added condition for Huawei enhancement bug 13923366
6323: -- defering the wbs_numbers update in bulk mode
6324: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6325: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' THEN
6326:
6327: --Ansari
6328: --Call update wbs number
6329: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
6607: -- Hence commenting out the update of RVN here.
6608: -- Added condition for Huawei enhancement bug 13923355
6609: -- Defer updating the display sequence in bulk mode
6610: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6611: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' THEN
6612:
6613: BEGIN
6614: UPDATE PA_PROJ_ELEMENT_VERSIONS
6615: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
6630: --IF PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(x_parent_struc_ver_id, 'WORKPLAN') = 'Y' then -- 4201927 commented
6631:
6632: IF l_structure_type_wp = 'Y' then -- 4201927 Added
6633: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6634: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N'
6635: then
6636: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6637: p_commit => FND_API.G_FALSE,
6638: p_element_versions => l_tasks_ver_ids,
6658: END IF;
6659:
6660: ELSE
6661: -- 14556729::Added for performance improvement by cache the task count
6662: IF PA_PROJECT_PUB.G_PROJECT_ID IS NOT NULL OR PA_PROJECT_PUB.G_STRUC_VERSION_ID IS NOT NULL
6663: THEN
6664: IF PA_PROJECT_PUB.G_TASK_COUNT IS NOT NULL THEN
6665: l_tsk_ver_cnt:=PA_PROJECT_PUB.G_TASK_COUNT;
6666: ELSE
6660: ELSE
6661: -- 14556729::Added for performance improvement by cache the task count
6662: IF PA_PROJECT_PUB.G_PROJECT_ID IS NOT NULL OR PA_PROJECT_PUB.G_STRUC_VERSION_ID IS NOT NULL
6663: THEN
6664: IF PA_PROJECT_PUB.G_TASK_COUNT IS NOT NULL THEN
6665: l_tsk_ver_cnt:=PA_PROJECT_PUB.G_TASK_COUNT;
6666: ELSE
6667: OPEN get_tsk_cnt(p_structure_version_id);
6668: FETCH get_tsk_cnt Into l_tsk_ver_cnt;
6661: -- 14556729::Added for performance improvement by cache the task count
6662: IF PA_PROJECT_PUB.G_PROJECT_ID IS NOT NULL OR PA_PROJECT_PUB.G_STRUC_VERSION_ID IS NOT NULL
6663: THEN
6664: IF PA_PROJECT_PUB.G_TASK_COUNT IS NOT NULL THEN
6665: l_tsk_ver_cnt:=PA_PROJECT_PUB.G_TASK_COUNT;
6666: ELSE
6667: OPEN get_tsk_cnt(p_structure_version_id);
6668: FETCH get_tsk_cnt Into l_tsk_ver_cnt;
6669: CLOSE get_tsk_cnt;
6666: ELSE
6667: OPEN get_tsk_cnt(p_structure_version_id);
6668: FETCH get_tsk_cnt Into l_tsk_ver_cnt;
6669: CLOSE get_tsk_cnt;
6670: PA_PROJECT_PUB.G_TASK_COUNT:=l_tsk_ver_cnt;
6671: END IF;
6672:
6673:
6674: ELSE
6734: NULL;
6735: ELSE
6736: --Rollup structure
6737: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6738: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N'
6739: then
6740: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
6741: p_structure_version_id => p_structure_version_id
6742: ,x_return_status => l_return_status
6768: --hsiu
6769: --added for task weighting
6770: --IF (PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS( x_project_id ) ='MANUAL') THEN --bug 3051413 --commenting this line for bug 3058051 issue # 1.
6771: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6772: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N'
6773: then
6774: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
6775: p_task_version_id => l_old_parent_ver_id
6776: ,x_return_status => l_return_status
8079: l_old_sch_date := cur_val_rec.scheduled_Start_Date;
8080:
8081: -- Added following code for Huawei enhancement - bug 13923366 by skkoppul
8082: -- Caching the subproject association check
8083: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
8084: IF PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED IS NULL THEN
8085: l_task_has_sub_proj_flag := PA_RELATIONSHIP_UTILS.check_task_has_sub_proj( cur_val_rec.project_id,
8086: cur_val_rec.proj_element_id, cur_val_rec.element_version_id);
8087: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := l_task_has_sub_proj_flag;
8080:
8081: -- Added following code for Huawei enhancement - bug 13923366 by skkoppul
8082: -- Caching the subproject association check
8083: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
8084: IF PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED IS NULL THEN
8085: l_task_has_sub_proj_flag := PA_RELATIONSHIP_UTILS.check_task_has_sub_proj( cur_val_rec.project_id,
8086: cur_val_rec.proj_element_id, cur_val_rec.element_version_id);
8087: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := l_task_has_sub_proj_flag;
8088: ELSE
8083: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
8084: IF PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED IS NULL THEN
8085: l_task_has_sub_proj_flag := PA_RELATIONSHIP_UTILS.check_task_has_sub_proj( cur_val_rec.project_id,
8086: cur_val_rec.proj_element_id, cur_val_rec.element_version_id);
8087: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := l_task_has_sub_proj_flag;
8088: ELSE
8089: l_task_has_sub_proj_flag := PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED;
8090: END IF;
8091: ELSE
8085: l_task_has_sub_proj_flag := PA_RELATIONSHIP_UTILS.check_task_has_sub_proj( cur_val_rec.project_id,
8086: cur_val_rec.proj_element_id, cur_val_rec.element_version_id);
8087: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := l_task_has_sub_proj_flag;
8088: ELSE
8089: l_task_has_sub_proj_flag := PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED;
8090: END IF;
8091: ELSE
8092: --bug 4620492 do not update sch dates and planned effort of a linked task if called from AMG.
8093: l_task_has_sub_proj_flag := PA_RELATIONSHIP_UTILS.check_task_has_sub_proj( cur_val_rec.project_id,
8784: WHERE element_version_id = PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(cur_proj_elem_ver_sch_rec.project_id);
8785: ELSE
8786: -- Added the code below for Huawei enhancement - bug 13923366
8787: -- Caching structure element ID
8788: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
8789: IF PA_PROJECT_PUB.G_STRUC_ELEMENT_ID IS NULL THEN
8790: SELECT pev.proj_element_id
8791: INTO l_proj_element_id_temp
8792: FROM pa_proj_element_versions pev, pa_proj_structure_types pst
8785: ELSE
8786: -- Added the code below for Huawei enhancement - bug 13923366
8787: -- Caching structure element ID
8788: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
8789: IF PA_PROJECT_PUB.G_STRUC_ELEMENT_ID IS NULL THEN
8790: SELECT pev.proj_element_id
8791: INTO l_proj_element_id_temp
8792: FROM pa_proj_element_versions pev, pa_proj_structure_types pst
8793: WHERE pev.proj_element_id = pst.proj_element_id
8793: WHERE pev.proj_element_id = pst.proj_element_id
8794: AND pst.structure_type_id = 1
8795: AND pev.project_id = cur_proj_elem_ver_sch_rec.project_id;
8796:
8797: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := l_proj_element_id_temp;
8798: ELSE
8799: l_proj_element_id_temp := PA_PROJECT_PUB.G_STRUC_ELEMENT_ID;
8800: END IF;
8801: ELSE
8795: AND pev.project_id = cur_proj_elem_ver_sch_rec.project_id;
8796:
8797: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := l_proj_element_id_temp;
8798: ELSE
8799: l_proj_element_id_temp := PA_PROJECT_PUB.G_STRUC_ELEMENT_ID;
8800: END IF;
8801: ELSE
8802: /* Commented and added below caching logic for huawei
8803: SELECT pev.proj_element_id