[Home] [Help]
434: ppr.estimated_finish_date,
435: ppc.record_version_number ,
436: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_rawcost_to_date_tc,
437: 'EQUIPMENT', ppr.eqpmt_act_rawcost_to_date_tc,ppr.oth_act_rawcost_to_date_tc)
438: - nvl(pa_progress_utils.get_act_for_prev_asofdate(ppr.as_of_date,ppr.project_id,ppr.object_id,ppr.object_version_id,ppr.proj_element_id,'C','R','T'),0)
439: actual_rawcost_this_period,
440: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_effort_to_date,
441: 'EQUIPMENT', ppr.eqpmt_act_effort_to_date, ppr.oth_quantity_to_date)
442: - nvl(pa_progress_utils.get_act_for_prev_asofdate(ppr.as_of_date,ppr.project_id,ppr.object_id,ppr.object_version_id,ppr.proj_element_id,'E',null,null),0)
438: - nvl(pa_progress_utils.get_act_for_prev_asofdate(ppr.as_of_date,ppr.project_id,ppr.object_id,ppr.object_version_id,ppr.proj_element_id,'C','R','T'),0)
439: actual_rawcost_this_period,
440: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_effort_to_date,
441: 'EQUIPMENT', ppr.eqpmt_act_effort_to_date, ppr.oth_quantity_to_date)
442: - nvl(pa_progress_utils.get_act_for_prev_asofdate(ppr.as_of_date,ppr.project_id,ppr.object_id,ppr.object_version_id,ppr.proj_element_id,'E',null,null),0)
443: actual_effort_this_period,
444: asgn.rate_based_flag,
445: asgn.resource_class_code,
446: nvl(ppr.ppl_act_rawcost_to_date_tc,0)+ nvl(ppr.eqpmt_act_rawcost_to_date_tc,0)+ nvl(ppr.oth_act_rawcost_to_date_tc,0) actual_rawcost,
689: --bug 4320365, changed to p_calling_mode from p_calling_module
690: --the code to set prog_as_of_date is needed.
691: IF (p_calling_mode = 'TEAM_MEM_HOME' AND p_action='PUBLISH' )
692: THEN
693: pa_progress_utils.set_prog_as_of_Date(
694: p_project_id =>p_project_id,
695: p_task_id =>p_object_id,
696: p_as_of_date => p_as_of_date
697: );
783: END IF ; -- p_calling_module='TEAM_MEM_HOME'
784: --end add by rtarway for BUG 4085882
785:
786: l_structure_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
787: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_object_version_id,p_object_type); -- Bug 3784904
788: l_track_wp_cost_flag := pa_fp_wp_gen_amt_utils.get_wp_track_cost_amt_flag(p_project_id); --Bug 3801745
789:
790: --bug 3824042
791: SELECT project_currency_code, projfunc_currency_code
852: l_lowest_level_task := 'Y';
853: END IF;
854: END IF;
855:
856: l_task_status2 := PA_PROGRESS_UTILS.get_system_task_status( p_task_status );
857: l_task_status2_temp := l_task_status2; -- Bug#5374114
858: l_task_status_temp := p_task_status; -- Bug#5374114
859:
860: ---4457403, added begin/end block to handle no_data_found exception
858: l_task_status_temp := p_task_status; -- Bug#5374114
859:
860: ---4457403, added begin/end block to handle no_data_found exception
861: BEGIN
862: l_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
863: l_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
864: EXCEPTION
865: WHEN OTHERS THEN
866: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
859:
860: ---4457403, added begin/end block to handle no_data_found exception
861: BEGIN
862: l_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
863: l_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
864: EXCEPTION
865: WHEN OTHERS THEN
866: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
867: p_msg_name => 'PA_FP_INVALID_DATE_RANGE');
930: l_task_id := p_object_id;
931: END IF;
932:
933: ---- if status is CANCELLED
934: IF PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_object_id)) = 'CANCELLED'
935: AND p_progress_mode <> 'BACKDATED'
936: AND l_element_struc_type = 'WORKPLAN'
937: THEN
938: IF p_pm_product_code = 'MSPROJECT' OR p_calling_module <> 'AMG' --Bug:14537482
966: IF g1_debug_mode = 'Y' THEN
967: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'Calling get_progress_defaults', x_Log_Level=> 3);
968: END IF;
969:
970: PA_PROGRESS_UTILS.get_progress_defaults(
971: p_project_id => p_project_id
972: ,p_object_version_id => p_object_version_id
973: ,p_object_type => p_object_type
974: ,p_object_id => p_object_id
1109: --End Add for BUG 3819619
1110:
1111: ----- Wrong STATUS
1112: -- Bug 4429929 : Added OR condition below
1113: IF ((p_task_status = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR p_task_status IS NULL)OR(PA_PROGRESS_UTILS.get_system_task_status(p_task_status)= 'CANCELLED'))
1114: THEN
1115: IF p_object_type = 'PA_TASKS'
1116: THEN
1117: IF p_pm_product_code = 'MSPROJECT'
1666: AND l_element_struc_type = 'WORKPLAN'
1667: THEN
1668: IF l_wq_enabled_flag = 'Y'
1669: THEN
1670: l_last_cumulative_wrk_qty := PA_PROGRESS_UTILS.get_last_cumulative(
1671: p_project_id => p_project_id
1672: ,p_object_id => p_object_id
1673: ,p_object_type => p_object_type
1674: ,p_as_of_date => p_as_of_date );
1679: l_incremental_work_qty := l_actual_work_quantity;
1680:
1681: IF l_base_percent_comp_deriv_code= 'WQ_DERIVED' --maansari5/6 3614860
1682: THEN
1683: l_base_percent_complete := PA_PROGRESS_UTILS.Calc_base_percent(
1684: p_task_id => p_object_id
1685: ,p_incr_work_qty => l_incremental_work_qty
1686: ,p_cuml_work_qty => l_last_cumulative_wrk_qty
1687: ,p_est_remaining_effort => l_est_remaining_effort
1693: l_incremental_work_qty := l_actual_work_quantity - NVL( l_last_cumulative_wrk_qty, 0 );
1694: l_cumulative_work_qty := l_actual_work_quantity;
1695: IF l_base_percent_comp_deriv_code= 'WQ_DERIVED' --maansari5/6 bug 3614860
1696: THEN
1697: l_base_percent_complete := PA_PROGRESS_UTILS.Calc_base_percent(
1698: p_task_id => p_object_id
1699: ,p_incr_work_qty => l_incremental_work_qty
1700: ,p_cuml_work_qty => l_cumulative_work_qty
1701: ,p_est_remaining_effort => l_est_remaining_effort
1752: -- Added For Bug 3630743
1753: --It is added here so that previous checks do not get affected by the changed value of l_est_remaining_effort
1754: IF p_est_remaining_effort = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1755: AND NVL( l_lowest_level_task, 'N' ) <> 'N'
1756: AND ( PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_object_version_id,p_object_type) <> 'N' ) -- Bug 3784904 Changed from object_id to object_version_id
1757: AND l_element_struc_type = 'WORKPLAN'
1758: AND l_est_remaining_eff_flag <> 'N'
1759: THEN
1760: ----5726773 l_est_remaining_effort := l_planned_effort - l_actual_effort;
1783:
1784: IF l_element_struc_type = 'WORKPLAN'
1785: THEN
1786: -- Moved outside if block for bug 8277820
1787: /*l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
1788: p_task_id => l_task_id
1789: ,p_project_id => p_project_id
1790: ,p_object_id => p_object_id
1791: ,p_object_type => p_object_type
1790: ,p_object_id => p_object_id
1791: ,p_object_type => p_object_type
1792: ,p_structure_type => p_structure_type); */
1793:
1794: l_working_aod := PA_PROGRESS_UTILS.Working_version_exist(
1795: p_object_id => p_object_id -- Bug 3764224
1796: ,p_task_id => p_object_id
1797: ,p_project_id => p_project_id
1798: ,p_object_type => p_object_type
1799: ,p_as_of_date => p_as_of_date); --bug 4185364
1800: END IF;
1801:
1802: -- Moved outside if block for bug 8277820
1803: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
1804: p_task_id => l_task_id
1805: ,p_project_id => p_project_id
1806: ,p_object_id => p_object_id
1807: ,p_object_type => p_object_type
1807: ,p_object_type => p_object_type
1808: ,p_structure_type => p_structure_type);
1809:
1810:
1811: l_progress_exists_on_aod := PA_PROGRESS_UTILS.check_prog_exists_on_aod(
1812: p_task_id => p_object_id
1813: ,p_object_id => p_object_id -- Bug 3764224
1814: ,p_as_of_date => p_as_of_date
1815: ,p_project_id => p_project_id
1969: -- Beacuse from both the places we submit progress for all objects against one cycle date
1970: IF l_element_struc_type = 'WORKPLAN'
1971: AND p_calling_module <> 'AMG' -- Bug 3627315
1972: -- AND p_calling_module <> 'TASK_PROG_DET_PAGE' -- Bug 3627315 maansari this is not required here.
1973: AND PA_PROGRESS_UTILS.CHECK_VALID_AS_OF_DATE( p_as_of_date, p_project_id, p_object_id,p_object_type,p_object_id/*Bug 3764224 */) = 'N'
1974: AND nvl(l_last_progress_date,p_as_of_date + 1 ) <> p_as_of_date
1975: THEN
1976: --Add message
1977: --Invalid as of date
2216: OPEN c_previous_task_status;
2217: FETCH c_previous_task_status INTO l_previous_status_code;
2218: CLOSE c_previous_task_status;
2219:
2220: l_prev_sys_status_code := PA_PROGRESS_UTILS.get_system_task_status( l_previous_status_code );
2221: IF g1_debug_mode = 'Y' THEN
2222: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'l_previous_status_code='||l_previous_status_code, x_Log_Level=> 3);
2223: END IF;
2224: END IF;
2803: l_progress_rollup_id := null;
2804: --Create record in progress rollup
2805:
2806: --check whether there already exists progress record for this task.
2807: l_progress_rollup_id := PA_PROGRESS_UTILS.get_prog_rollup_id(
2808: p_project_id => p_project_id
2809: ,p_object_id => p_object_id
2810: ,p_object_type => p_object_type
2811: ,p_object_version_id => p_object_version_id
3264:
3265: ---- call api to copy attachments if any
3266: IF (l_process = 'CORRECT' and p_progress_mode = 'BACKDATED')
3267: THEN
3268: pa_progress_utils.copy_attachments (
3269: p_project_id => p_project_id,
3270: p_object_id => p_object_id,
3271: p_object_type => p_object_type,
3272: p_from_pc_id => l_att_pc_id,
3290: END IF;
3291:
3292: IF p_percent_complete_id IS NULL OR p_percent_complete_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR l_working_aod IS NULL --- 4245168
3293: THEN
3294: l_percent_complete_id := PA_PROGRESS_UTILS.get_ppc_id(
3295: p_project_id => p_project_id
3296: ,p_object_id => p_object_id
3297: ,p_object_type => p_object_type
3298: ,p_object_version_id => p_object_version_id
3366: END IF;
3367:
3368:
3369: --update progress rollup
3370: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
3371: p_project_id => p_project_id
3372: ,p_object_id => p_object_id
3373: ,p_object_type => p_object_type
3374: ,p_object_version_id => p_object_version_id
3905: THEN
3906: -- Bug 4429929 : Now Cancel Status can only be changed thru Update Task
3907: /*
3908: --- call apis if the status is 'CANCELLED'
3909: IF PA_PROGRESS_UTILS.get_system_task_status( l_TASK_STATUS ) = 'CANCELLED'
3910: AND l_element_struc_type = 'WORKPLAN' --maansari: fpm changes
3911: THEN
3912: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok (
3913: p_task_id => p_object_id
4083:
4084:
4085: -- Bug 4429929 : Now Cancel Status can only be changed thru Update Task
4086: /*
4087: IF PA_PROGRESS_UTILS.get_system_task_status( l_TASK_STATUS ) = 'CANCELLED'
4088: THEN
4089: PA_TASK_PVT1.set_new_tasks_to_TBD(
4090: p_project_id => p_project_id
4091: ,p_task_id => p_object_id
4989: */
4990:
4991: /* Start commenting out as per Majid's email : 07-APR-2004.
4992:
4993: IF PA_PROGRESS_UTILS.PROJ_TASK_PROG_EXISTS( p_project_id, 0 ) = 'Y'
4994: THEN
4995: OPEN cur_prg_attr;
4996: FETCH cur_prg_attr INTO l_old_enable_wq_flag,
4997: l_old_REMAIN_EFF_ENABLE_FLAG ,
5726:
5727: IF g1_debug_mode = 'Y' THEN
5728: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Log_Level=> 3);
5729: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_task_status='||p_task_status, x_Log_Level=> 3);
5730: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_system_task_status='||PA_PROGRESS_UTILS.get_system_task_status( p_task_status ), x_Log_Level=> 3);
5731: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_project_id='||p_project_id, x_Log_Level=> 3);
5732: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_object_id='||p_object_id, x_Log_Level=> 3);
5733: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_object_version_id='||p_object_version_id, x_Log_Level=> 3);
5734: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_object_type='||p_object_type, x_Log_Level=> 3);
5771: END;
5772: -- Bug 3878024 : End;
5773: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_structure_version_id='||l_structure_version_id, x_Log_Level=> 3);
5774:
5775: l_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,p_object_id);
5776:
5777: ------------------ Added for FP_M changes : BEGIN
5778:
5779: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'COMPLETED' )
5775: l_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,p_object_id);
5776:
5777: ------------------ Added for FP_M changes : BEGIN
5778:
5779: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'COMPLETED' )
5780: THEN
5781:
5782:
5783: -- Bug 3878024 : The following code is not needed. Now the passed task is taken in the cursosr itself.
5835: l_prog_stats_code := 'PROGRESS_STAT_ON_TRACK';
5836: END IF;
5837: -- Bug 4282618 End
5838:
5839: l_cur_task_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,cur_tasks_rec.proj_element_id);
5840: -- Bug 3878024 : Begin
5841: FOR cur_task_assignments_rec in cur_task_assignments(cur_tasks_rec.object_id_to1, cur_tasks_rec.proj_element_id) LOOP
5842: IF g1_debug_mode = 'Y' THEN
5843: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'Looping cur_task_assignments', x_Log_Level=> 3);
5984: l_etc_pfc_raw_cost_this_period := cur_task_assignments_rec.planned_raw_cost_projfunc;
5985:
5986: -- This below code is under discussion with PM's.
5987: l_PROGRESS_ROLLUP_ID := null;
5988: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5989: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5990:
5991: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5992: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5985:
5986: -- This below code is under discussion with PM's.
5987: l_PROGRESS_ROLLUP_ID := null;
5988: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5989: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5990:
5991: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5992: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5993: ,X_PROJECT_ID => p_project_id
6128: l_etc_prj_raw_cost_this_period := l_etc_prj_raw_cost_this_period * (-1);
6129: l_etc_pfc_raw_cost_this_period := l_etc_pfc_raw_cost_this_period * (-1);
6130:
6131: -- Bug 4144845 : Removed Completed check from push workplan actuals.
6132: --IF PA_PROGRESS_UTILS.get_system_task_status(l_cur_task_old_status_code) <> 'COMPLETED' THEN
6133: IF g1_debug_mode = 'Y' THEN
6134: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'Pushing Negative Amounts To PJI', x_Log_Level=> 3);
6135: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_etc_txn_bur_cost_this_period='||l_etc_txn_bur_cost_this_period, x_Log_Level=> 3);
6136: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_etc_prj_bur_cost_this_period='||l_etc_prj_bur_cost_this_period, x_Log_Level=> 3);
6174: x_return_status => x_return_status,
6175: x_msg_count => x_msg_count,
6176: x_msg_data => x_msg_data
6177: );
6178: --END IF;-- PA_PROGRESS_UTILS.get_system_task_status(l_old_status_code) <> 'COMPLETED' THEN
6179: END IF; -- IF cur_task_assignments_rec.current_flag = 'Y' OR cur_task_assignments_rec.current_flag = 'X' THEN
6180:
6181: -- Update Percent complete --
6182: UPDATE pa_percent_completes
6232: l_lowest_level_task := 'N';
6233: ELSE
6234: l_lowest_level_task := 'Y';
6235: END IF;
6236: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,cur_tasks_rec.object_id_to1,'PA_TASKS');
6237: IF NVL(l_lowest_level_task, 'N') = 'Y' AND NVL(l_assignment_exists,'Y') = 'N' THEN
6238: -- Find the hidden assignment and push the task progress value against it
6239: FOR cur_task_assignments_rec in cur_system_assignment(cur_tasks_rec.object_id_to1, cur_tasks_rec.proj_element_id) LOOP
6240: IF g1_debug_mode = 'Y' THEN
6305: l_etc_pfc_raw_cost_this_period := cur_task_assignments_rec.planned_raw_cost_projfunc;
6306:
6307: -- This below code is under discussion with PM's.
6308: l_PROGRESS_ROLLUP_ID := null;
6309: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6310: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6311:
6312: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6313: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6306:
6307: -- This below code is under discussion with PM's.
6308: l_PROGRESS_ROLLUP_ID := null;
6309: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6310: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6311:
6312: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6313: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6314: ,X_PROJECT_ID => p_project_id
6584: l_etc_prj_raw_cost_this_period := l_etc_prj_raw_cost_this_period * (-1);
6585: l_etc_pfc_raw_cost_this_period := l_etc_pfc_raw_cost_this_period * (-1);
6586:
6587: -- Bug 4144845 : Removed Completed check from push workplan actuals.
6588: --IF PA_PROGRESS_UTILS.get_system_task_status(l_cur_task_old_status_code) <> 'COMPLETED' THEN
6589: IF g1_debug_mode = 'Y' THEN
6590: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'Pushing Negative Amounts To PJI for Task', x_Log_Level=> 3);
6591: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_etc_txn_bur_cost_this_period='||l_etc_txn_bur_cost_this_period, x_Log_Level=> 3);
6592: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_etc_prj_bur_cost_this_period='||l_etc_prj_bur_cost_this_period, x_Log_Level=> 3);
6630: x_return_status => x_return_status,
6631: x_msg_count => x_msg_count,
6632: x_msg_data => x_msg_data
6633: );
6634: --END IF;-- PA_PROGRESS_UTILS.get_system_task_status(l_old_status_code) <> 'COMPLETED' THEN
6635: END IF; -- IF cur_task_assignments_rec.current_flag = 'Y' OR cur_task_assignments_rec.current_flag = 'X' THEN
6636: -- Bug 3922325 : Hidden Assignment records also shd be updated
6637: UPDATE pa_progress_rollup
6638: SET actual_start_date = decode(actual_start_date, null, cur_task_assignments_rec.assignment_start_date, actual_start_date),
6675: ,last_update_login = decode(status_code,p_task_status,last_update_login,l_login_id) --Bug 5978904
6676: ,last_updated_by = decode(status_code,p_task_status,last_updated_by,l_user_id) --Bug 5978904
6677: WHERE proj_element_id = cur_tasks_rec.proj_element_id
6678: AND project_id = p_project_id
6679: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6680: NOT IN ( 'CANCELLED', 'COMPLETED' );
6681:
6682:
6683: -- Update Percent complete --
6692: AND object_type = 'PA_TASKS'
6693: AND structure_type = p_structure_type
6694: AND ((current_flag = 'Y' and published_flag = 'Y') or
6695: (current_flag = 'N' and published_flag = 'N'))
6696: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6697: NOT IN ( 'CANCELLED', 'COMPLETED' )
6698: ;
6699:
6700: --Update pa_progress_rollup
6739:
6740: l_percent_complete := 100;
6741: l_PROGRESS_ROLLUP_ID := null;
6742: l_push_as_of_date := p_as_of_date;
6743: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6744: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6745:
6746: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6747: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6740: l_percent_complete := 100;
6741: l_PROGRESS_ROLLUP_ID := null;
6742: l_push_as_of_date := p_as_of_date;
6743: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6744: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6745:
6746: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6747: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6748: ,X_PROJECT_ID =>p_project_id
6925: */
6926: END IF;
6927: ------------------ Added for FP_M changes : END
6928:
6929: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'CANCELLED', 'ON_HOLD' )
6930: THEN
6931: -- Bug 3878024 : Commented the below code. Now cursor cur_tasks_rec will select the passed task too
6932: /*
6933: --Update pa_proj_elementso
6966: WHERE proj_element_id = cur_tasks_rec.proj_element_id
6967: AND project_id = p_project_id
6968: and object_type = 'PA_TASKS'
6969: -- Taks Status does not drill down to Delievrables IN ('PA_TASKS', 'PA_DELIVERABLES')
6970: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6971: NOT IN ( 'CANCELLED', 'COMPLETED' );
6972:
6973: UPDATE pa_percent_completes
6974: SET status_code = p_task_status
6976: AND project_id = p_project_id
6977: and object_type = 'PA_TASKS'
6978: and structure_type = p_structure_type -- FPM Dev CR 3
6979: -- Taks Status does not drill down to Delievrables IN ('PA_TASKS', 'PA_DELIVERABLES')
6980: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6981: NOT IN ( 'CANCELLED', 'COMPLETED' )
6982: AND ((current_flag = 'Y' and published_flag = 'Y') or
6983: (current_flag = 'N' and published_flag = 'N'));
6984:
7001: -- FP M : 3491609 : Project Execution Workflow
7002: END LOOP;
7003: ELSE
7004:
7005: IF PA_PROGRESS_UTILS.get_system_task_status ( l_old_status_code ) = 'ON_HOLD'
7006: THEN
7007: FOR cur_tasks_rec in cur_tasks LOOP
7008: IF p_object_id <> cur_tasks_rec.proj_element_id THEN -- Bug 3878024
7009:
7041: ,last_updated_by = decode(status_code,l_status_code,last_updated_by,l_user_id) --Bug 5978904
7042: WHERE proj_element_id = cur_tasks_rec.proj_element_id
7043: AND project_id = p_project_id
7044: and Object_Type = 'PA_TASKS' -- Bhumesh
7045: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
7046: NOT IN ( 'CANCELLED', 'COMPLETED' );
7047:
7048: end if;
7049:
7053: WHERE object_id = cur_tasks_rec.proj_element_id
7054: AND project_id = p_project_id
7055: and Object_Type = 'PA_TASKS' -- Bhumesh
7056: and structure_type = p_structure_type -- FPM Dev CR 3
7057: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
7058: NOT IN ( 'CANCELLED', 'COMPLETED' )
7059: AND current_flag = 'Y' and published_flag = 'Y';
7060: elsif (get_task_pc_info_rec.published_flag = 'N' and get_task_pc_info_rec.current_flag = 'N') then
7061: UPDATE pa_percent_completes
7063: WHERE object_id = cur_tasks_rec.proj_element_id
7064: AND project_id = p_project_id
7065: and Object_Type = 'PA_TASKS' -- Bhumesh
7066: and structure_type = p_structure_type -- FPM Dev CR 3
7067: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
7068: NOT IN ( 'CANCELLED', 'COMPLETED' )
7069: AND current_flag = 'N' and published_flag = 'N';
7070: end if;
7071: END IF;-- p_object_id <> cur_tasks_rec.proj_element_id THEN -- Bug 3878024
7581: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'p_working_str_version_id='||p_working_str_version_id, x_Log_Level=> 3);
7582: END IF;
7583:
7584: -- Bug 3786612 : Added check_txn_currency_diff call
7585: PA_PROGRESS_UTILS.check_txn_currency_diff
7586: (
7587: p_structure_version_id => p_working_str_version_id,
7588: p_context => 'APPLY_PROGRESS',
7589: x_return_status => x_return_status
7649: -- assignments or not.
7650: -- Bug 3834339 : Using function to decide whether assignment exists on task or not
7651: l_assignment_exists := 'N';
7652: IF l_c1rec.object_type = 'PA_TASKS' THEN
7653: l_assignment_exists := NVL(PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_c1rec.object_version_id,l_c1rec.object_type),'N');
7654: l_lowest_level_task := NVL(pa_proj_elements_utils.is_lowest_task(l_c1rec.object_version_id),'N'); --bug 4050532
7655: END IF;
7656:
7657:
8049: THEN
8050: --bug 4191360, moved this from below
8051: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
8052: THEN
8053: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
8054: p_task_id => l_c1rec.object_id
8055: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
8056: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
8057: ,p_est_remaining_effort => null
8109: END IF; -- IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
8110: --bug 4191360, moved this code above
8111: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
8112: THEN
8113: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
8114: p_task_id => l_c1rec.object_id
8115: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
8116: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
8117: ,p_est_remaining_effort => null
8225: THEN
8226: --bug 4191360, moved this code from below
8227: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
8228: THEN
8229: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
8230: p_task_id => l_c1rec.object_id
8231: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
8232: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
8233: ,p_est_remaining_effort => null
8282: END IF; --IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
8283: --bug 4191360, moved this code above
8284: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
8285: THEN
8286: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
8287: p_task_id => l_c1rec.object_id
8288: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
8289: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
8290: ,p_est_remaining_effort => null
9595: IF g1_debug_mode = 'Y' THEN
9596: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'Structure Type Financial ', x_Log_Level=> 3);
9597: END IF;
9598:
9599: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
9600: p_task_id => p_task_id
9601: ,p_project_id => p_project_id
9602: ,p_object_id => p_object_id
9603: ,p_object_type => p_object_type
9801: -- FPM Dev CR 1 : Call of cursor c_get_latest_pub_task_ver
9802: IF p_object_type = 'PA_DELIVERABLES' AND (p_task_id IS NOT NULL AND p_task_id <>PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )THEN
9803: -- In deliverable case, we may not get task's structure version id. So we need to derive it.
9804: -- Bug 3957792 -- Proceed for roll-up only if task is not in cancelled status
9805: IF ( PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_task_id)) <> 'CANCELLED' ) THEN
9806: OPEN c_get_latest_pub_task_ver(p_task_id, p_project_id);
9807: FETCH c_get_latest_pub_task_ver INTO l_task_version_id, l_structure_version_id;
9808: CLOSE c_get_latest_pub_task_ver;
9809: END IF;
10329: /* Begin Fix for Bug # 4115607. */
10330:
10331: -- l_plan_version_id := PA_FIN_PLAN_UTILS.Get_app_budget_cost_cb_ver(p_project_id);
10332:
10333: l_plan_version_id := pa_progress_utils.get_app_cost_budget_cb_wor_ver(p_project_id);
10334:
10335: /* End fix for Bug # 4115607. */
10336:
10337: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(p_project_id);
10669: THEN
10670: l_PERIOD_NAME := p_pa_period_name;
10671: ELSIF l_period_type = 'P' AND p_pa_period_name IS NULL
10672: THEN
10673: l_PERIOD_NAME := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
10674: END IF;
10675:
10676: IF l_period_type = 'G' AND p_gl_period_name IS NOT NULL
10677: THEN
10677: THEN
10678: l_PERIOD_NAME := p_gl_period_name;
10679: ELSIF l_period_type = 'G' AND p_gl_period_name IS NULL
10680: THEN
10681: l_PERIOD_NAME := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
10682: END IF;
10683:
10684: --bug 3675107
10685:
11408: IF g1_debug_mode = 'Y' THEN
11409: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.TRANSFER_WP_PERCENT_TO_FIN', x_Msg => 'wp element version id : '||cur_per.element_version_id, x_Log_Level=> 3);
11410: END IF;
11411: l_bac_task := null; -- Bug 3952006
11412: l_bac_task := PA_PROGRESS_UTILS.Get_BAC_Value(
11413: p_project_id => p_project_id
11414: ,p_task_weight_method => l_wp_rollup_method
11415: ,p_proj_element_id => cur_per.proj_element_id
11416: ,p_structure_version_id => l_structure_version_id
11867: and ppr.structure_version_id is null
11868: and ppr.object_type = 'PA_TASKS'
11869: and structure_type = 'WORKPLAN'
11870: and pa_proj_elements_utils.is_lowest_task(ppr.object_version_id) = 'Y' -- Bug 3627315 issue 8 Added this condition
11871: and pa_progress_utils.check_assignment_exists(p_project_id,ppr.object_version_id,ppr.object_type) = 'N' -- Bug 3627315 issue 8 Added this condition
11872: and current_flag = 'Y'
11873: Union
11874: select *
11875: from pa_progress_rollup ppr
12127: if (l_max_as_of_date >= trunc(sysdate)) then
12128: l_as_of_date := l_max_as_of_date;
12129: l_upd_rollup_prog := 'Y';
12130: else
12131: l_as_of_date := pa_progress_utils.get_next_progress_cycle(
12132: p_project_id => p_project_id
12133: ,p_task_id => null
12134: ,p_start_date => l_max_as_of_date);
12135: l_as_of_date := trunc(l_as_of_date); -- 5294838
12152: CLOSE cur_proj_prog_attr;
12153:
12154: -- ETC Changes Begin
12155: l_index := 0;
12156: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_as_of_date);
12157: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_as_of_date);
12158:
12159: -- Bug 4111107 : Delete all Working Progress Records
12160: -- Previously it was getting deleted inside the curosr
12153:
12154: -- ETC Changes Begin
12155: l_index := 0;
12156: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_as_of_date);
12157: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_as_of_date);
12158:
12159: -- Bug 4111107 : Delete all Working Progress Records
12160: -- Previously it was getting deleted inside the curosr
12161:
12171: and current_flag = 'W';
12172:
12173: --Bug 5027965. If the latest progress is applied on current working version then the ETC cost should be
12174: --copied from the working version. Otherwise, it shoule be derived based on the rate setup on as_of_date
12175: l_latest_prog_applied_flag := pa_progress_utils.check_wwp_prog_publishing_ok(p_project_id =>p_project_id,
12176: p_structure_version_id =>p_working_str_ver_id);
12177: IF (l_latest_prog_applied_flag = 'Y') THEN
12178:
12179: l_etc_cost_calc_mode := 'COPY';
12314: OPEN c_get_task_status(p_project_id,l_rec.proj_element_id);
12315: FETCH c_get_task_status INTO l_task_status;
12316: CLOSE c_get_task_status;
12317: END IF;
12318: l_system_status_code := PA_PROGRESS_UTILS.get_system_task_status(l_task_status);
12319:
12320: IF (NVL(l_rec.completed_percentage,l_rec.EFF_ROLLUP_PERCENT_COMP) = 100 AND l_system_status_code <> 'COMPLETED')
12321: THEN
12322: l_task_status := '127';
12333: OPEN c_get_task_status(p_project_id,l_rec.proj_element_id);
12334: FETCH c_get_task_status INTO l_task_status;
12335: CLOSE c_get_task_status;
12336: END IF;
12337: l_system_status_code := PA_PROGRESS_UTILS.get_system_task_status(l_task_status,'PA_DELIVERABLES');
12338: END IF;
12339: -- Bug 4343997 rtarway End
12340:
12341: IF g1_debug_mode = 'Y' THEN
12460: END IF; */
12461: END IF;
12462: l_EFF_ROLLUP_PERCENT_COMP := l_rec.eff_rollup_percent_comp; --bug 3906362
12463: --bug 4191360, consider for lowest level task only
12464: --ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type),'N') = 'N' THEN
12465: ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(pa_proj_elements_utils.is_lowest_task(l_object_version_id),'N') = 'Y' THEN
12466: l_ptav_rec := null;
12467: --bug 4191360, added IF NVL(l_assignment_exists, 'N')
12468: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type);
12464: --ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type),'N') = 'N' THEN
12465: ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(pa_proj_elements_utils.is_lowest_task(l_object_version_id),'N') = 'Y' THEN
12466: l_ptav_rec := null;
12467: --bug 4191360, added IF NVL(l_assignment_exists, 'N')
12468: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type);
12469: IF NVL(l_assignment_exists, 'N') = 'N'
12470: THEN
12471: OPEN c_ptav_cur_task(p_project_id, l_rec.object_id, l_rec.proj_element_id, l_object_version_id, l_latest_pub_wp_version_id, 'N',l_rec.cbs_element_id);
12472: FETCH c_ptav_cur_task INTO l_ptav_rec;
12515: THEN
12516: --bug 4191360, for lowest level task calculate percent complete if der code is WQ based, irrespective of assignment
12517: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
12518: THEN
12519: l_EFF_ROLLUP_PERCENT_COMP := PA_PROGRESS_UTILS.Calc_base_percent(
12520: p_task_id => l_rec.object_id
12521: --4617909 ,p_incr_work_qty => l_rec.INCREMENTAL_WORK_QUANTITY
12522: --4617909 ,p_cuml_work_qty => l_rec.CUMULATIVE_WORK_QUANTITY
12523: -- Using l_last_ppr_rec values as working ver progress might be old
12576: END IF; -- IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
12577: --bug 4191360, moved this code above
12578: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
12579: THEN
12580: l_EFF_ROLLUP_PERCENT_COMP := PA_PROGRESS_UTILS.Calc_base_percent(
12581: p_task_id => l_rec.object_id
12582: ,p_incr_work_qty => l_rec.INCREMENTAL_WORK_QUANTITY
12583: ,p_cuml_work_qty => l_rec.CUMULATIVE_WORK_QUANTITY
12584: ,p_est_remaining_effort => null
12636: l_plan_version_id := l_curr_workplan_ver_bv_id;
12637: ELSE
12638: l_plan_version_id := l_ptav_rec.budget_version_id;
12639: END IF;
12640: pa_progress_utils.get_plan_costs_for_qty
12641: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12642: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12643: ,p_project_id => p_project_id
12644: ,p_task_id => l_rec.proj_element_id
12677: l_plan_version_id := l_curr_workplan_ver_bv_id;
12678: ELSE
12679: l_plan_version_id := l_ptav_rec.budget_version_id;
12680: END IF;
12681: pa_progress_utils.get_plan_costs_for_qty
12682: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12683: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12684: ,p_project_id => p_project_id
12685: ,p_task_id => l_rec.proj_element_id
12718: l_plan_version_id := l_curr_workplan_ver_bv_id;
12719: ELSE
12720: l_plan_version_id := l_ptav_rec.budget_version_id;
12721: END IF;
12722: pa_progress_utils.get_plan_costs_for_qty
12723: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12724: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12725: ,p_project_id => p_project_id
12726: ,p_task_id => l_rec.proj_element_id
14504: if (l_max_as_of_date >= trunc(sysdate)) then
14505: l_temp_as_of_date := l_max_as_of_date;
14506: else
14507: --- get next cycle date after l_max_as_of_date
14508: l_temp_as_of_date := trunc(pa_progress_utils.get_next_progress_cycle(p_project_id => l_project_id,
14509: p_task_id => to_number(null),
14510: p_start_date => l_max_as_of_date));
14511: end if;
14512: proj_ids_tbl.extend;
14524: latest_wp_struct_ver_ids_tbl(l_index) := l_latest_wp_struct_ver_id;
14525: res_list_ids_tbl(l_index) := pa_fin_plan_utils.Get_wp_bv_res_list_id(l_latest_wp_struct_ver_id);
14526: proj_org_ids_tbl(l_index) := l_org_id;
14527: proj_thru_dates_tbl(l_index) := trunc(l_temp_as_of_date);
14528: calendar_type_tbl(l_index) := pa_progress_utils.get_time_phase_period(l_latest_wp_struct_ver_id, l_project_id);
14529: proj_curr_code_tbl(l_index) := l_proj_curr_code;
14530: proj_func_curr_code_tbl(l_index) := l_proj_func_curr_code;
14531: if (p_proj_pgm_level.exists(l_index2)) then
14532: proj_pgm_level_tbl(l_index) := p_proj_pgm_level(l_index2);
14989: l_txn_brdn_cost_tot := all_objects_in_temp_rec.act_txn_brdn_cost;
14990: l_txn_raw_cost_tot := all_objects_in_temp_rec.act_txn_raw_cost;
14991: -- convert both raw and burdened costs
14992: begin
14993: pa_progress_utils.convert_currency_amounts(
14994: p_project_id => l_project_id
14995: ,p_task_id => all_objects_in_temp_rec.project_element_id
14996: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
14997: ,p_as_of_date => l_conv_rate_date
15010: ,x_return_status => x_return_status
15011: ,x_msg_count => x_msg_count
15012: ,x_msg_data => x_msg_data) ;
15013:
15014: pa_progress_utils.convert_currency_amounts(
15015: p_project_id => l_project_id
15016: ,p_task_id => all_objects_in_temp_rec.project_element_id
15017: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
15018: ,p_as_of_date => l_conv_rate_date
15031: ,x_return_status => x_return_status
15032: ,x_msg_count => x_msg_count
15033: ,x_msg_data => x_msg_data) ;
15034:
15035: pa_progress_utils.convert_currency_amounts(
15036: p_project_id => l_project_id
15037: ,p_task_id => all_objects_in_temp_rec.project_element_id
15038: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
15039: ,p_as_of_date => l_conv_rate_date
15052: ,x_return_status => x_return_status
15053: ,x_msg_count => x_msg_count
15054: ,x_msg_data => x_msg_data) ;
15055:
15056: pa_progress_utils.convert_currency_amounts(
15057: p_project_id => l_project_id
15058: ,p_task_id => all_objects_in_temp_rec.project_element_id
15059: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
15060: ,p_as_of_date => l_conv_rate_date
15151: l_object_type := 'PA_TASKS';
15152: --- here get the planned value if task is lowest level and PC deriv is EFFORT based and no assignments for the task
15153: if (l_base_pc_deriv_code = 'EFFORT' or l_base_pc_deriv_code = 'COST') and
15154: (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => l_object_version_id ) = 'Y') and
15155: (PA_PROGRESS_UTILS.check_assignment_exists(l_project_id,l_object_version_id,'PA_TASKS') <> 'Y') then
15156: open get_planned_val_for_task;
15157: fetch get_planned_val_for_task into l_planned_eff, l_planned_cost;
15158: close get_planned_val_for_task;
15159: end if;
15678: u_OTH_ETC_RAWCOST_to_date_PC(l_index3) := l_w_rollup_rec_asofdate.OTH_ETC_RAWCOST_PC;
15679: if l_object_type = 'PA_ASSIGNMENTS' and
15680: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS') then
15681: ---5726773
15682: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.oth_quantity_to_date,l_w_rollup_rec_asofdate.oth_etc_quantity) = 'N') then
15683: u_oth_etc_qty(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_oth_qty(l_index3));
15684: if (u_oth_etc_qty(l_index3) <> 0) then
15685: u_oth_etc_qty(l_index3) := l_asgn_plan_quantity - u_oth_qty(l_index3);
15686: pa_progress_utils.get_plan_costs_for_qty
15682: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.oth_quantity_to_date,l_w_rollup_rec_asofdate.oth_etc_quantity) = 'N') then
15683: u_oth_etc_qty(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_oth_qty(l_index3));
15684: if (u_oth_etc_qty(l_index3) <> 0) then
15685: u_oth_etc_qty(l_index3) := l_asgn_plan_quantity - u_oth_qty(l_index3);
15686: pa_progress_utils.get_plan_costs_for_qty
15687: ( p_resource_list_mem_id => l_object_id
15688: ,p_project_id => l_project_id
15689: ,p_task_id => all_objects_in_temp_rec.project_element_id
15690: ,p_as_of_date => l_temp_as_of_date
15773: --Bug 13823145 changes end here
15774: if l_object_type = 'PA_ASSIGNMENTS' and
15775: l_res_class_code = 'PEOPLE' then
15776: ---5726773
15777: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.ppl_act_effort_to_date,l_w_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
15778: u_ppl_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_ppl_act_effort_to_date(l_index3));
15779: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15780: pa_progress_utils.get_plan_costs_for_qty
15781: (p_resource_list_mem_id => l_object_id
15776: ---5726773
15777: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.ppl_act_effort_to_date,l_w_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
15778: u_ppl_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_ppl_act_effort_to_date(l_index3));
15779: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15780: pa_progress_utils.get_plan_costs_for_qty
15781: (p_resource_list_mem_id => l_object_id
15782: ,p_project_id => l_project_id
15783: ,p_task_id => all_objects_in_temp_rec.project_element_id
15784: ,p_as_of_date => l_temp_as_of_date
15866: --Bug 13823145 changes end here
15867: if l_object_type = 'PA_ASSIGNMENTS' and
15868: l_res_class_code = 'EQUIPMENT' then
15869: ---5726773
15870: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_w_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
15871: u_eqpmt_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_eqpmt_act_effort_to_date(l_index3));
15872: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
15873: pa_progress_utils.get_plan_costs_for_qty
15874: (p_resource_list_mem_id => l_object_id
15869: ---5726773
15870: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_w_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_w_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
15871: u_eqpmt_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_eqpmt_act_effort_to_date(l_index3));
15872: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
15873: pa_progress_utils.get_plan_costs_for_qty
15874: (p_resource_list_mem_id => l_object_id
15875: ,p_project_id => l_project_id
15876: ,p_task_id => all_objects_in_temp_rec.project_element_id
15877: ,p_as_of_date => l_temp_as_of_date
16050: ---5726773
16051: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
16052: if (oth_etc_qty(l_index2) <> 0) then
16053: oth_etc_qty(l_index2) := l_asgn_plan_quantity - oth_qty(l_index2);
16054: pa_progress_utils.get_plan_costs_for_qty
16055: ( p_resource_list_mem_id => l_object_id
16056: ,p_project_id => l_project_id
16057: ,p_task_id => all_objects_in_temp_rec.project_element_id
16058: ,p_as_of_date => l_temp_as_of_date
16178: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'PEOPLE' then
16179: ---5726773
16180: ESTIMATED_REMAINING_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,ppl_act_effort_to_date(l_index2));
16181: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
16182: pa_progress_utils.get_plan_costs_for_qty
16183: ( p_resource_list_mem_id => l_object_id
16184: ,p_project_id => l_project_id
16185: ,p_task_id => all_objects_in_temp_rec.project_element_id
16186: ,p_as_of_date => l_temp_as_of_date
16307: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'EQUIPMENT' then
16308: ---5726773
16309: EQPMT_ETC_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,eqpmt_act_effort_to_date(l_index2));
16310: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
16311: pa_progress_utils.get_plan_costs_for_qty
16312: ( p_resource_list_mem_id => l_object_id
16313: ,p_project_id => l_project_id
16314: ,p_task_id => all_objects_in_temp_rec.project_element_id
16315: ,p_as_of_date => l_temp_as_of_date
16533: u_OTH_ETC_RAWCOST_to_date_PC(l_index3) := l_rollup_rec_asofdate.oth_etc_rawcost_pc;
16534: if (l_object_type = 'PA_ASSIGNMENTS' and
16535: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS')) then
16536: ---5726773
16537: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.oth_quantity_to_date,l_rollup_rec_asofdate.oth_etc_quantity) = 'N') then
16538: u_oth_etc_qty(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_oth_qty(l_index3));
16539: if (u_oth_etc_qty(l_index3) <> 0) then
16540: pa_progress_utils.get_plan_costs_for_qty
16541: ( p_resource_list_mem_id => l_object_id
16536: ---5726773
16537: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.oth_quantity_to_date,l_rollup_rec_asofdate.oth_etc_quantity) = 'N') then
16538: u_oth_etc_qty(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_oth_qty(l_index3));
16539: if (u_oth_etc_qty(l_index3) <> 0) then
16540: pa_progress_utils.get_plan_costs_for_qty
16541: ( p_resource_list_mem_id => l_object_id
16542: ,p_project_id => l_project_id
16543: ,p_task_id => all_objects_in_temp_rec.project_element_id
16544: ,p_as_of_date => l_temp_as_of_date
16747: --Bug 13823145 changes end here
16748: if l_object_type = 'PA_ASSIGNMENTS' and
16749: l_res_class_code = 'PEOPLE' then
16750: ---5726773
16751: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.ppl_act_effort_to_date,l_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
16752: u_ppl_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_ppl_act_effort_to_date(l_index3));
16753: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
16754: pa_progress_utils.get_plan_costs_for_qty
16755: (p_resource_list_mem_id => l_object_id
16750: ---5726773
16751: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.ppl_act_effort_to_date,l_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
16752: u_ppl_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_ppl_act_effort_to_date(l_index3));
16753: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
16754: pa_progress_utils.get_plan_costs_for_qty
16755: (p_resource_list_mem_id => l_object_id
16756: ,p_project_id => l_project_id
16757: ,p_task_id => all_objects_in_temp_rec.project_element_id
16758: ,p_as_of_date => l_temp_as_of_date
16964: --Bug 13823145 changes end here
16965: if l_object_type = 'PA_ASSIGNMENTS' and
16966: l_res_class_code = 'EQUIPMENT' then
16967: ---5726773
16968: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
16969: u_eqpmt_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_eqpmt_act_effort_to_date(l_index3));
16970: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
16971: pa_progress_utils.get_plan_costs_for_qty
16972: (p_resource_list_mem_id => l_object_id
16967: ---5726773
16968: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
16969: u_eqpmt_etc_effort_to_date(l_index3) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,u_eqpmt_act_effort_to_date(l_index3));
16970: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
16971: pa_progress_utils.get_plan_costs_for_qty
16972: (p_resource_list_mem_id => l_object_id
16973: ,p_project_id => l_project_id
16974: ,p_task_id => all_objects_in_temp_rec.project_element_id
16975: ,p_as_of_date => l_temp_as_of_date
17256: OTH_ETC_RAWCOST_PC(l_index2) := l_rollup_rec_asofdate.OTH_ETC_RAWCOST_PC;
17257: if l_object_type = 'PA_ASSIGNMENTS' and
17258: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS') then
17259: ---5726773
17260: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.oth_quantity_to_date,l_rollup_rec_asofdate.OTH_ETC_QUANTITY) = 'N') then
17261: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
17262: if (oth_etc_qty(l_index2) <> 0) then
17263: pa_progress_utils.get_plan_costs_for_qty
17264: ( p_resource_list_mem_id => l_object_id
17259: ---5726773
17260: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.oth_quantity_to_date,l_rollup_rec_asofdate.OTH_ETC_QUANTITY) = 'N') then
17261: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
17262: if (oth_etc_qty(l_index2) <> 0) then
17263: pa_progress_utils.get_plan_costs_for_qty
17264: ( p_resource_list_mem_id => l_object_id
17265: ,p_project_id => l_project_id
17266: ,p_task_id => all_objects_in_temp_rec.project_element_id
17267: ,p_as_of_date => l_temp_as_of_date
17468: end if;
17469: --Bug 13823145 changes end here
17470: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'PEOPLE' then
17471: ---5726773
17472: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.ppl_act_effort_to_date,l_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
17473: ESTIMATED_REMAINING_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,ppl_act_effort_to_date(l_index2));
17474: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
17475: pa_progress_utils.get_plan_costs_for_qty
17476: ( p_resource_list_mem_id => l_object_id
17471: ---5726773
17472: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.ppl_act_effort_to_date,l_rollup_rec_asofdate.estimated_remaining_effort) = 'N') then
17473: ESTIMATED_REMAINING_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,ppl_act_effort_to_date(l_index2));
17474: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
17475: pa_progress_utils.get_plan_costs_for_qty
17476: ( p_resource_list_mem_id => l_object_id
17477: ,p_project_id => l_project_id
17478: ,p_task_id => all_objects_in_temp_rec.project_element_id
17479: ,p_as_of_date => l_temp_as_of_date
17682: end if;
17683: --Bug 13823145 changes end here
17684: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'EQUIPMENT' then
17685: ---5726773
17686: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
17687: EQPMT_ETC_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,eqpmt_act_effort_to_date(l_index2));
17688: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
17689: pa_progress_utils.get_plan_costs_for_qty
17690: ( p_resource_list_mem_id => l_object_id
17685: ---5726773
17686: if (pa_progress_utils.check_etc_overridden(l_asgn_plan_quantity,l_rollup_rec_asofdate.eqpmt_act_effort_to_date,l_rollup_rec_asofdate.eqpmt_etc_effort) = 'N') then
17687: EQPMT_ETC_EFFORT(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,eqpmt_act_effort_to_date(l_index2));
17688: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
17689: pa_progress_utils.get_plan_costs_for_qty
17690: ( p_resource_list_mem_id => l_object_id
17691: ,p_project_id => l_project_id
17692: ,p_task_id => all_objects_in_temp_rec.project_element_id
17693: ,p_as_of_date => l_temp_as_of_date
20115: END IF;
20116:
20117:
20118: ---- if status is CANCELLED
20119: IF PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_task_id)) = 'CANCELLED'
20120: THEN
20121: IF p_pm_product_code = 'MSPROJECT' OR p_calling_module <> 'AMG' --Bug:14537482
20122: THEN
20123: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
20155: END IF;
20156: ----- Wrong DATE
20157:
20158:
20159: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
20160: p_task_id => l_task_id--p_task_id Bug 3876091
20161: ,p_project_id => p_project_id
20162: ,p_object_id => l_object_id
20163: ,p_object_type => l_object_type
20168: IF g1_debug_mode = 'Y' THEN
20169: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'l_last_progress_date: '||l_last_progress_date, x_Log_Level=> 3);
20170: END IF;
20171:
20172: l_progress_exists_on_aod := PA_PROGRESS_UTILS.check_prog_exists_on_aod(
20173: p_project_id => p_project_id
20174: ,p_object_type => l_object_type
20175: ,p_object_version_id => l_object_version_id
20176: ,p_task_id => l_task_id -- l_object_id Bug 3876091
20228: IF g1_debug_mode = 'Y' THEN
20229: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'l_db_action: '||l_db_action, x_Log_Level=> 3);
20230: END IF;
20231:
20232: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
20233: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(p_as_of_date);
20234:
20235:
20236: IF l_db_action = 'CREATE'
20229: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'l_db_action: '||l_db_action, x_Log_Level=> 3);
20230: END IF;
20231:
20232: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
20233: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(p_as_of_date);
20234:
20235:
20236: IF l_db_action = 'CREATE'
20237: THEN
20299: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'INSERTING IN PPR', x_Log_Level=> 3);
20300: END IF;
20301:
20302:
20303: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
20304: p_project_id => p_project_id
20305: ,p_object_id => l_object_id
20306: ,p_object_type => l_object_type
20307: ,p_object_version_id => l_object_version_id
20579: THEN
20580:
20581: IF p_percent_complete_id IS NULL OR p_percent_complete_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
20582: THEN
20583: l_percent_complete_id := PA_PROGRESS_UTILS.get_ppc_id(
20584: p_project_id => p_project_id
20585: ,p_object_id => l_object_id
20586: ,p_task_id => l_task_id -- l_object_id -- Bug 3764224 Bug 3876091
20587: ,p_object_type => l_object_type
20658:
20659:
20660:
20661: --update progress rollup
20662: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
20663: p_project_id => p_project_id
20664: ,p_object_id => l_object_id
20665: ,p_object_type => l_object_type
20666: ,p_object_version_id => l_object_version_id
23254: l_structure_version_id_tbl(i) := null;
23255:
23256: IF p_object_type_tbl(i) = 'PA_DELIVERABLES' AND (p_task_id_tbl(i) IS NOT NULL)THEN
23257: -- In deliverable case, we may not get task's structure version id. So we need to derive it.
23258: IF ( PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id_tbl(i), p_task_id_tbl(i))) <> 'CANCELLED' ) THEN
23259: OPEN c_get_latest_pub_task_ver(p_task_id_tbl(i), p_project_id_tbl(i));
23260: FETCH c_get_latest_pub_task_ver INTO l_task_version_id_tbl(i), l_structure_version_id_tbl(i);
23261: CLOSE c_get_latest_pub_task_ver;
23262: END IF;