[Home] [Help]
433: ppr.estimated_finish_date,
434: ppc.record_version_number ,
435: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_rawcost_to_date_tc,
436: 'EQUIPMENT', ppr.eqpmt_act_rawcost_to_date_tc,ppr.oth_act_rawcost_to_date_tc)
437: - 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)
438: actual_rawcost_this_period,
439: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_effort_to_date,
440: 'EQUIPMENT', ppr.eqpmt_act_effort_to_date, ppr.oth_quantity_to_date)
441: - 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)
437: - 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)
438: actual_rawcost_this_period,
439: decode(asgn.resource_class_code, 'PEOPLE', ppr.ppl_act_effort_to_date,
440: 'EQUIPMENT', ppr.eqpmt_act_effort_to_date, ppr.oth_quantity_to_date)
441: - 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)
442: actual_effort_this_period,
443: asgn.rate_based_flag,
444: asgn.resource_class_code,
445: 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,
688: --bug 4320365, changed to p_calling_mode from p_calling_module
689: --the code to set prog_as_of_date is needed.
690: IF (p_calling_mode = 'TEAM_MEM_HOME' AND p_action='PUBLISH' )
691: THEN
692: pa_progress_utils.set_prog_as_of_Date(
693: p_project_id =>p_project_id,
694: p_task_id =>p_object_id,
695: p_as_of_date => p_as_of_date
696: );
782: END IF ; -- p_calling_module='TEAM_MEM_HOME'
783: --end add by rtarway for BUG 4085882
784:
785: l_structure_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
786: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_object_version_id,p_object_type); -- Bug 3784904
787: l_track_wp_cost_flag := pa_fp_wp_gen_amt_utils.get_wp_track_cost_amt_flag(p_project_id); --Bug 3801745
788:
789: --bug 3824042
790: SELECT project_currency_code, projfunc_currency_code
832: l_lowest_level_task := 'Y';
833: END IF;
834: END IF;
835:
836: l_task_status2 := PA_PROGRESS_UTILS.get_system_task_status( p_task_status );
837: l_task_status2_temp := l_task_status2; -- Bug#5374114
838: l_task_status_temp := p_task_status; -- Bug#5374114
839:
840: ---4457403, added begin/end block to handle no_data_found exception
838: l_task_status_temp := p_task_status; -- Bug#5374114
839:
840: ---4457403, added begin/end block to handle no_data_found exception
841: BEGIN
842: l_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
843: l_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
844: EXCEPTION
845: WHEN OTHERS THEN
846: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
839:
840: ---4457403, added begin/end block to handle no_data_found exception
841: BEGIN
842: l_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
843: l_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
844: EXCEPTION
845: WHEN OTHERS THEN
846: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
847: p_msg_name => 'PA_FP_INVALID_DATE_RANGE');
910: l_task_id := p_object_id;
911: END IF;
912:
913: ---- if status is CANCELLED
914: IF PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_object_id)) = 'CANCELLED'
915: AND p_progress_mode <> 'BACKDATED'
916: AND l_element_struc_type = 'WORKPLAN'
917: THEN
918: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
930: IF g1_debug_mode = 'Y' THEN
931: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'Calling get_progress_defaults', x_Log_Level=> 3);
932: END IF;
933:
934: PA_PROGRESS_UTILS.get_progress_defaults(
935: p_project_id => p_project_id
936: ,p_object_version_id => p_object_version_id
937: ,p_object_type => p_object_type
938: ,p_object_id => p_object_id
1026: --End Add for BUG 3819619
1027:
1028: ----- Wrong STATUS
1029: -- Bug 4429929 : Added OR condition below
1030: 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'))
1031: THEN
1032: IF p_object_type = 'PA_TASKS'
1033: THEN
1034: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1435: AND l_element_struc_type = 'WORKPLAN'
1436: THEN
1437: IF l_wq_enabled_flag = 'Y'
1438: THEN
1439: l_last_cumulative_wrk_qty := PA_PROGRESS_UTILS.get_last_cumulative(
1440: p_project_id => p_project_id
1441: ,p_object_id => p_object_id
1442: ,p_object_type => p_object_type
1443: ,p_as_of_date => p_as_of_date );
1448: l_incremental_work_qty := l_actual_work_quantity;
1449:
1450: IF l_base_percent_comp_deriv_code= 'WQ_DERIVED' --maansari5/6 3614860
1451: THEN
1452: l_base_percent_complete := PA_PROGRESS_UTILS.Calc_base_percent(
1453: p_task_id => p_object_id
1454: ,p_incr_work_qty => l_incremental_work_qty
1455: ,p_cuml_work_qty => l_last_cumulative_wrk_qty
1456: ,p_est_remaining_effort => l_est_remaining_effort
1462: l_incremental_work_qty := l_actual_work_quantity - NVL( l_last_cumulative_wrk_qty, 0 );
1463: l_cumulative_work_qty := l_actual_work_quantity;
1464: IF l_base_percent_comp_deriv_code= 'WQ_DERIVED' --maansari5/6 bug 3614860
1465: THEN
1466: l_base_percent_complete := PA_PROGRESS_UTILS.Calc_base_percent(
1467: p_task_id => p_object_id
1468: ,p_incr_work_qty => l_incremental_work_qty
1469: ,p_cuml_work_qty => l_cumulative_work_qty
1470: ,p_est_remaining_effort => l_est_remaining_effort
1521: -- Added For Bug 3630743
1522: --It is added here so that previous checks do not get affected by the changed value of l_est_remaining_effort
1523: IF p_est_remaining_effort = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1524: AND NVL( l_lowest_level_task, 'N' ) <> 'N'
1525: 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
1526: AND l_element_struc_type = 'WORKPLAN'
1527: AND l_est_remaining_eff_flag <> 'N'
1528: THEN
1529: ----5726773 l_est_remaining_effort := l_planned_effort - l_actual_effort;
1551: --bug 3851528
1552:
1553: IF l_element_struc_type = 'WORKPLAN'
1554: THEN
1555: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
1556: p_task_id => l_task_id
1557: ,p_project_id => p_project_id
1558: ,p_object_id => p_object_id
1559: ,p_object_type => p_object_type
1558: ,p_object_id => p_object_id
1559: ,p_object_type => p_object_type
1560: ,p_structure_type => p_structure_type);
1561:
1562: l_working_aod := PA_PROGRESS_UTILS.Working_version_exist(
1563: p_object_id => p_object_id -- Bug 3764224
1564: ,p_task_id => p_object_id
1565: ,p_project_id => p_project_id
1566: ,p_object_type => p_object_type
1566: ,p_object_type => p_object_type
1567: ,p_as_of_date => p_as_of_date); --bug 4185364
1568: END IF;
1569:
1570: l_progress_exists_on_aod := PA_PROGRESS_UTILS.check_prog_exists_on_aod(
1571: p_task_id => p_object_id
1572: ,p_object_id => p_object_id -- Bug 3764224
1573: ,p_as_of_date => p_as_of_date
1574: ,p_project_id => p_project_id
1696: -- Beacuse from both the places we submit progress for all objects against one cycle date
1697: IF l_element_struc_type = 'WORKPLAN'
1698: AND p_calling_module <> 'AMG' -- Bug 3627315
1699: -- AND p_calling_module <> 'TASK_PROG_DET_PAGE' -- Bug 3627315 maansari this is not required here.
1700: 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'
1701: AND nvl(l_last_progress_date,p_as_of_date + 1 ) <> p_as_of_date
1702: THEN
1703: --Add message
1704: --Invalid as of date
1941: OPEN c_previous_task_status;
1942: FETCH c_previous_task_status INTO l_previous_status_code;
1943: CLOSE c_previous_task_status;
1944:
1945: l_prev_sys_status_code := PA_PROGRESS_UTILS.get_system_task_status( l_previous_status_code );
1946: IF g1_debug_mode = 'Y' THEN
1947: 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);
1948: END IF;
1949: END IF;
2496: l_progress_rollup_id := null;
2497: --Create record in progress rollup
2498:
2499: --check whether there already exists progress record for this task.
2500: l_progress_rollup_id := PA_PROGRESS_UTILS.get_prog_rollup_id(
2501: p_project_id => p_project_id
2502: ,p_object_id => p_object_id
2503: ,p_object_type => p_object_type
2504: ,p_object_version_id => p_object_version_id
2957:
2958: ---- call api to copy attachments if any
2959: IF (l_process = 'CORRECT' and p_progress_mode = 'BACKDATED')
2960: THEN
2961: pa_progress_utils.copy_attachments (
2962: p_project_id => p_project_id,
2963: p_object_id => p_object_id,
2964: p_object_type => p_object_type,
2965: p_from_pc_id => l_att_pc_id,
2983: END IF;
2984:
2985: 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
2986: THEN
2987: l_percent_complete_id := PA_PROGRESS_UTILS.get_ppc_id(
2988: p_project_id => p_project_id
2989: ,p_object_id => p_object_id
2990: ,p_object_type => p_object_type
2991: ,p_object_version_id => p_object_version_id
3059: END IF;
3060:
3061:
3062: --update progress rollup
3063: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
3064: p_project_id => p_project_id
3065: ,p_object_id => p_object_id
3066: ,p_object_type => p_object_type
3067: ,p_object_version_id => p_object_version_id
3590: THEN
3591: -- Bug 4429929 : Now Cancel Status can only be changed thru Update Task
3592: /*
3593: --- call apis if the status is 'CANCELLED'
3594: IF PA_PROGRESS_UTILS.get_system_task_status( l_TASK_STATUS ) = 'CANCELLED'
3595: AND l_element_struc_type = 'WORKPLAN' --maansari: fpm changes
3596: THEN
3597: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok (
3598: p_task_id => p_object_id
3679:
3680:
3681: -- Bug 4429929 : Now Cancel Status can only be changed thru Update Task
3682: /*
3683: IF PA_PROGRESS_UTILS.get_system_task_status( l_TASK_STATUS ) = 'CANCELLED'
3684: THEN
3685: PA_TASK_PVT1.set_new_tasks_to_TBD(
3686: p_project_id => p_project_id
3687: ,p_task_id => p_object_id
4585: */
4586:
4587: /* Start commenting out as per Majid's email : 07-APR-2004.
4588:
4589: IF PA_PROGRESS_UTILS.PROJ_TASK_PROG_EXISTS( p_project_id, 0 ) = 'Y'
4590: THEN
4591: OPEN cur_prg_attr;
4592: FETCH cur_prg_attr INTO l_old_enable_wq_flag,
4593: l_old_REMAIN_EFF_ENABLE_FLAG ,
5322:
5323: IF g1_debug_mode = 'Y' THEN
5324: 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);
5325: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_task_status='||p_task_status, x_Log_Level=> 3);
5326: 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);
5327: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_project_id='||p_project_id, x_Log_Level=> 3);
5328: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_object_id='||p_object_id, x_Log_Level=> 3);
5329: 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);
5330: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'p_object_type='||p_object_type, x_Log_Level=> 3);
5367: END;
5368: -- Bug 3878024 : End;
5369: 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);
5370:
5371: l_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,p_object_id);
5372:
5373: ------------------ Added for FP_M changes : BEGIN
5374:
5375: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'COMPLETED' )
5371: l_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,p_object_id);
5372:
5373: ------------------ Added for FP_M changes : BEGIN
5374:
5375: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'COMPLETED' )
5376: THEN
5377:
5378:
5379: -- Bug 3878024 : The following code is not needed. Now the passed task is taken in the cursosr itself.
5431: l_prog_stats_code := 'PROGRESS_STAT_ON_TRACK';
5432: END IF;
5433: -- Bug 4282618 End
5434:
5435: l_cur_task_old_status_code := PA_PROGRESS_UTILS.get_task_status(p_project_id,cur_tasks_rec.proj_element_id);
5436: -- Bug 3878024 : Begin
5437: FOR cur_task_assignments_rec in cur_task_assignments(cur_tasks_rec.object_id_to1, cur_tasks_rec.proj_element_id) LOOP
5438: IF g1_debug_mode = 'Y' THEN
5439: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'Looping cur_task_assignments', x_Log_Level=> 3);
5580: l_etc_pfc_raw_cost_this_period := cur_task_assignments_rec.planned_raw_cost_projfunc;
5581:
5582: -- This below code is under discussion with PM's.
5583: l_PROGRESS_ROLLUP_ID := null;
5584: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5585: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5586:
5587: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5588: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5581:
5582: -- This below code is under discussion with PM's.
5583: l_PROGRESS_ROLLUP_ID := null;
5584: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5585: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5586:
5587: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5588: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5589: ,X_PROJECT_ID => p_project_id
5724: l_etc_prj_raw_cost_this_period := l_etc_prj_raw_cost_this_period * (-1);
5725: l_etc_pfc_raw_cost_this_period := l_etc_pfc_raw_cost_this_period * (-1);
5726:
5727: -- Bug 4144845 : Removed Completed check from push workplan actuals.
5728: --IF PA_PROGRESS_UTILS.get_system_task_status(l_cur_task_old_status_code) <> 'COMPLETED' THEN
5729: IF g1_debug_mode = 'Y' THEN
5730: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'Pushing Negative Amounts To PJI', x_Log_Level=> 3);
5731: 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);
5732: 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);
5770: x_return_status => x_return_status,
5771: x_msg_count => x_msg_count,
5772: x_msg_data => x_msg_data
5773: );
5774: --END IF;-- PA_PROGRESS_UTILS.get_system_task_status(l_old_status_code) <> 'COMPLETED' THEN
5775: END IF; -- IF cur_task_assignments_rec.current_flag = 'Y' OR cur_task_assignments_rec.current_flag = 'X' THEN
5776:
5777: -- Update Percent complete --
5778: UPDATE pa_percent_completes
5828: l_lowest_level_task := 'N';
5829: ELSE
5830: l_lowest_level_task := 'Y';
5831: END IF;
5832: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,cur_tasks_rec.object_id_to1,'PA_TASKS');
5833: IF NVL(l_lowest_level_task, 'N') = 'Y' AND NVL(l_assignment_exists,'Y') = 'N' THEN
5834: -- Find the hidden assignment and push the task progress value against it
5835: FOR cur_task_assignments_rec in cur_system_assignment(cur_tasks_rec.object_id_to1, cur_tasks_rec.proj_element_id) LOOP
5836: IF g1_debug_mode = 'Y' THEN
5901: l_etc_pfc_raw_cost_this_period := cur_task_assignments_rec.planned_raw_cost_projfunc;
5902:
5903: -- This below code is under discussion with PM's.
5904: l_PROGRESS_ROLLUP_ID := null;
5905: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5906: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5907:
5908: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5909: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5902:
5903: -- This below code is under discussion with PM's.
5904: l_PROGRESS_ROLLUP_ID := null;
5905: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
5906: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
5907:
5908: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
5909: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
5910: ,X_PROJECT_ID => p_project_id
6180: l_etc_prj_raw_cost_this_period := l_etc_prj_raw_cost_this_period * (-1);
6181: l_etc_pfc_raw_cost_this_period := l_etc_pfc_raw_cost_this_period * (-1);
6182:
6183: -- Bug 4144845 : Removed Completed check from push workplan actuals.
6184: --IF PA_PROGRESS_UTILS.get_system_task_status(l_cur_task_old_status_code) <> 'COMPLETED' THEN
6185: IF g1_debug_mode = 'Y' THEN
6186: 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);
6187: 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);
6188: 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);
6226: x_return_status => x_return_status,
6227: x_msg_count => x_msg_count,
6228: x_msg_data => x_msg_data
6229: );
6230: --END IF;-- PA_PROGRESS_UTILS.get_system_task_status(l_old_status_code) <> 'COMPLETED' THEN
6231: END IF; -- IF cur_task_assignments_rec.current_flag = 'Y' OR cur_task_assignments_rec.current_flag = 'X' THEN
6232: -- Bug 3922325 : Hidden Assignment records also shd be updated
6233: UPDATE pa_progress_rollup
6234: SET actual_start_date = decode(actual_start_date, null, cur_task_assignments_rec.assignment_start_date, actual_start_date),
6271: ,last_update_login = decode(status_code,p_task_status,last_update_login,l_login_id) --Bug 5978904
6272: ,last_updated_by = decode(status_code,p_task_status,last_updated_by,l_user_id) --Bug 5978904
6273: WHERE proj_element_id = cur_tasks_rec.proj_element_id
6274: AND project_id = p_project_id
6275: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6276: NOT IN ( 'CANCELLED', 'COMPLETED' );
6277:
6278:
6279: -- Update Percent complete --
6288: AND object_type = 'PA_TASKS'
6289: AND structure_type = p_structure_type
6290: AND ((current_flag = 'Y' and published_flag = 'Y') or
6291: (current_flag = 'N' and published_flag = 'N'))
6292: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6293: NOT IN ( 'CANCELLED', 'COMPLETED' )
6294: ;
6295:
6296: --Update pa_progress_rollup
6335:
6336: l_percent_complete := 100;
6337: l_PROGRESS_ROLLUP_ID := null;
6338: l_push_as_of_date := p_as_of_date;
6339: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6340: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6341:
6342: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6343: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6336: l_percent_complete := 100;
6337: l_PROGRESS_ROLLUP_ID := null;
6338: l_push_as_of_date := p_as_of_date;
6339: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_push_as_of_date);
6340: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_push_as_of_date);
6341:
6342: PA_PROGRESS_ROLLUP_PKG.INSERT_ROW(
6343: X_PROGRESS_ROLLUP_ID => l_PROGRESS_ROLLUP_ID
6344: ,X_PROJECT_ID =>p_project_id
6521: */
6522: END IF;
6523: ------------------ Added for FP_M changes : END
6524:
6525: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) in ( 'CANCELLED', 'ON_HOLD' )
6526: THEN
6527: -- Bug 3878024 : Commented the below code. Now cursor cur_tasks_rec will select the passed task too
6528: /*
6529: --Update pa_proj_elementso
6562: WHERE proj_element_id = cur_tasks_rec.proj_element_id
6563: AND project_id = p_project_id
6564: and object_type = 'PA_TASKS'
6565: -- Taks Status does not drill down to Delievrables IN ('PA_TASKS', 'PA_DELIVERABLES')
6566: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6567: NOT IN ( 'CANCELLED', 'COMPLETED' );
6568:
6569: UPDATE pa_percent_completes
6570: SET status_code = p_task_status
6572: AND project_id = p_project_id
6573: and object_type = 'PA_TASKS'
6574: and structure_type = p_structure_type -- FPM Dev CR 3
6575: -- Taks Status does not drill down to Delievrables IN ('PA_TASKS', 'PA_DELIVERABLES')
6576: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6577: NOT IN ( 'CANCELLED', 'COMPLETED' )
6578: AND ((current_flag = 'Y' and published_flag = 'Y') or
6579: (current_flag = 'N' and published_flag = 'N'));
6580:
6597: -- FP M : 3491609 : Project Execution Workflow
6598: END LOOP;
6599: ELSE
6600:
6601: IF PA_PROGRESS_UTILS.get_system_task_status ( l_old_status_code ) = 'ON_HOLD'
6602: THEN
6603: FOR cur_tasks_rec in cur_tasks LOOP
6604: IF p_object_id <> cur_tasks_rec.proj_element_id THEN -- Bug 3878024
6605:
6637: ,last_updated_by = decode(status_code,l_status_code,last_updated_by,l_user_id) --Bug 5978904
6638: WHERE proj_element_id = cur_tasks_rec.proj_element_id
6639: AND project_id = p_project_id
6640: and Object_Type = 'PA_TASKS' -- Bhumesh
6641: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6642: NOT IN ( 'CANCELLED', 'COMPLETED' );
6643:
6644: end if;
6645:
6649: WHERE object_id = cur_tasks_rec.proj_element_id
6650: AND project_id = p_project_id
6651: and Object_Type = 'PA_TASKS' -- Bhumesh
6652: and structure_type = p_structure_type -- FPM Dev CR 3
6653: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6654: NOT IN ( 'CANCELLED', 'COMPLETED' )
6655: AND current_flag = 'Y' and published_flag = 'Y';
6656: elsif (get_task_pc_info_rec.published_flag = 'N' and get_task_pc_info_rec.current_flag = 'N') then
6657: UPDATE pa_percent_completes
6659: WHERE object_id = cur_tasks_rec.proj_element_id
6660: AND project_id = p_project_id
6661: and Object_Type = 'PA_TASKS' -- Bhumesh
6662: and structure_type = p_structure_type -- FPM Dev CR 3
6663: AND PA_PROGRESS_UTILS.get_system_task_status( status_code )
6664: NOT IN ( 'CANCELLED', 'COMPLETED' )
6665: AND current_flag = 'N' and published_flag = 'N';
6666: end if;
6667: END IF;-- p_object_id <> cur_tasks_rec.proj_element_id THEN -- Bug 3878024
7168: 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);
7169: END IF;
7170:
7171: -- Bug 3786612 : Added check_txn_currency_diff call
7172: PA_PROGRESS_UTILS.check_txn_currency_diff
7173: (
7174: p_structure_version_id => p_working_str_version_id,
7175: p_context => 'APPLY_PROGRESS',
7176: x_return_status => x_return_status
7236: -- assignments or not.
7237: -- Bug 3834339 : Using function to decide whether assignment exists on task or not
7238: l_assignment_exists := 'N';
7239: IF l_c1rec.object_type = 'PA_TASKS' THEN
7240: l_assignment_exists := NVL(PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_c1rec.object_version_id,l_c1rec.object_type),'N');
7241: l_lowest_level_task := NVL(pa_proj_elements_utils.is_lowest_task(l_c1rec.object_version_id),'N'); --bug 4050532
7242: END IF;
7243:
7244:
7634: THEN
7635: --bug 4191360, moved this from below
7636: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
7637: THEN
7638: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
7639: p_task_id => l_c1rec.object_id
7640: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
7641: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
7642: ,p_est_remaining_effort => null
7694: END IF; -- IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
7695: --bug 4191360, moved this code above
7696: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
7697: THEN
7698: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
7699: p_task_id => l_c1rec.object_id
7700: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
7701: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
7702: ,p_est_remaining_effort => null
7809: THEN
7810: --bug 4191360, moved this code from below
7811: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
7812: THEN
7813: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
7814: p_task_id => l_c1rec.object_id
7815: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
7816: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
7817: ,p_est_remaining_effort => null
7866: END IF; --IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
7867: --bug 4191360, moved this code above
7868: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
7869: THEN
7870: l_EFF_ROLLUP_PERCENT_COMP := round(PA_PROGRESS_UTILS.Calc_base_percent(
7871: p_task_id => l_c1rec.object_id
7872: ,p_incr_work_qty => l_c1rec.INCREMENTAL_WORK_QUANTITY
7873: ,p_cuml_work_qty => l_c1rec.CUMULATIVE_WORK_QUANTITY
7874: ,p_est_remaining_effort => null
9162: IF g1_debug_mode = 'Y' THEN
9163: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'Structure Type Financial ', x_Log_Level=> 3);
9164: END IF;
9165:
9166: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
9167: p_task_id => p_task_id
9168: ,p_project_id => p_project_id
9169: ,p_object_id => p_object_id
9170: ,p_object_type => p_object_type
9368: -- FPM Dev CR 1 : Call of cursor c_get_latest_pub_task_ver
9369: 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
9370: -- In deliverable case, we may not get task's structure version id. So we need to derive it.
9371: -- Bug 3957792 -- Proceed for roll-up only if task is not in cancelled status
9372: IF ( PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_task_id)) <> 'CANCELLED' ) THEN
9373: OPEN c_get_latest_pub_task_ver(p_task_id, p_project_id);
9374: FETCH c_get_latest_pub_task_ver INTO l_task_version_id, l_structure_version_id;
9375: CLOSE c_get_latest_pub_task_ver;
9376: END IF;
9896: /* Begin Fix for Bug # 4115607. */
9897:
9898: -- l_plan_version_id := PA_FIN_PLAN_UTILS.Get_app_budget_cost_cb_ver(p_project_id);
9899:
9900: l_plan_version_id := pa_progress_utils.get_app_cost_budget_cb_wor_ver(p_project_id);
9901:
9902: /* End fix for Bug # 4115607. */
9903:
9904: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(p_project_id);
10234: THEN
10235: l_PERIOD_NAME := p_pa_period_name;
10236: ELSIF l_period_type = 'P' AND p_pa_period_name IS NULL
10237: THEN
10238: l_PERIOD_NAME := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
10239: END IF;
10240:
10241: IF l_period_type = 'G' AND p_gl_period_name IS NOT NULL
10242: THEN
10242: THEN
10243: l_PERIOD_NAME := p_gl_period_name;
10244: ELSIF l_period_type = 'G' AND p_gl_period_name IS NULL
10245: THEN
10246: l_PERIOD_NAME := PA_PROGRESS_UTILS.Prog_Get_gl_Period_Name(p_as_of_date);
10247: END IF;
10248:
10249: --bug 3675107
10250:
10966: IF g1_debug_mode = 'Y' THEN
10967: 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);
10968: END IF;
10969: l_bac_task := null; -- Bug 3952006
10970: l_bac_task := PA_PROGRESS_UTILS.Get_BAC_Value(
10971: p_project_id => p_project_id
10972: ,p_task_weight_method => l_wp_rollup_method
10973: ,p_proj_element_id => cur_per.proj_element_id
10974: ,p_structure_version_id => l_structure_version_id
11417: and ppr.structure_version_id is null
11418: and ppr.object_type = 'PA_TASKS'
11419: and structure_type = 'WORKPLAN'
11420: and pa_proj_elements_utils.is_lowest_task(ppr.object_version_id) = 'Y' -- Bug 3627315 issue 8 Added this condition
11421: 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
11422: and current_flag = 'Y'
11423: Union
11424: select *
11425: from pa_progress_rollup ppr
11674: if (l_max_as_of_date >= trunc(sysdate)) then
11675: l_as_of_date := l_max_as_of_date;
11676: l_upd_rollup_prog := 'Y';
11677: else
11678: l_as_of_date := pa_progress_utils.get_next_progress_cycle(
11679: p_project_id => p_project_id
11680: ,p_task_id => null
11681: ,p_start_date => l_max_as_of_date);
11682: l_as_of_date := trunc(l_as_of_date); -- 5294838
11699: CLOSE cur_proj_prog_attr;
11700:
11701: -- ETC Changes Begin
11702: l_index := 0;
11703: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_as_of_date);
11704: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_as_of_date);
11705:
11706: -- Bug 4111107 : Delete all Working Progress Records
11707: -- Previously it was getting deleted inside the curosr
11700:
11701: -- ETC Changes Begin
11702: l_index := 0;
11703: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(l_as_of_date);
11704: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(l_as_of_date);
11705:
11706: -- Bug 4111107 : Delete all Working Progress Records
11707: -- Previously it was getting deleted inside the curosr
11708:
11718: and current_flag = 'W';
11719:
11720: --Bug 5027965. If the latest progress is applied on current working version then the ETC cost should be
11721: --copied from the working version. Otherwise, it shoule be derived based on the rate setup on as_of_date
11722: l_latest_prog_applied_flag := pa_progress_utils.check_wwp_prog_publishing_ok(p_project_id =>p_project_id,
11723: p_structure_version_id =>p_working_str_ver_id);
11724: IF (l_latest_prog_applied_flag = 'Y') THEN
11725:
11726: l_etc_cost_calc_mode := 'COPY';
11861: OPEN c_get_task_status(p_project_id,l_rec.proj_element_id);
11862: FETCH c_get_task_status INTO l_task_status;
11863: CLOSE c_get_task_status;
11864: END IF;
11865: l_system_status_code := PA_PROGRESS_UTILS.get_system_task_status(l_task_status);
11866:
11867: IF (NVL(l_rec.completed_percentage,l_rec.EFF_ROLLUP_PERCENT_COMP) = 100 AND l_system_status_code <> 'COMPLETED')
11868: THEN
11869: l_task_status := '127';
11880: OPEN c_get_task_status(p_project_id,l_rec.proj_element_id);
11881: FETCH c_get_task_status INTO l_task_status;
11882: CLOSE c_get_task_status;
11883: END IF;
11884: l_system_status_code := PA_PROGRESS_UTILS.get_system_task_status(l_task_status,'PA_DELIVERABLES');
11885: END IF;
11886: -- Bug 4343997 rtarway End
11887:
11888: IF g1_debug_mode = 'Y' THEN
12004: END IF; */
12005: END IF;
12006: l_EFF_ROLLUP_PERCENT_COMP := l_rec.eff_rollup_percent_comp; --bug 3906362
12007: --bug 4191360, consider for lowest level task only
12008: --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
12009: ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(pa_proj_elements_utils.is_lowest_task(l_object_version_id),'N') = 'Y' THEN
12010: l_ptav_rec := null;
12011: --bug 4191360, added IF NVL(l_assignment_exists, 'N')
12012: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type);
12008: --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
12009: ELSIF l_rec.object_type = 'PA_TASKS' AND NVL(pa_proj_elements_utils.is_lowest_task(l_object_version_id),'N') = 'Y' THEN
12010: l_ptav_rec := null;
12011: --bug 4191360, added IF NVL(l_assignment_exists, 'N')
12012: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,l_object_version_id,l_rec.object_type);
12013: IF NVL(l_assignment_exists, 'N') = 'N'
12014: THEN
12015: 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');
12016: FETCH c_ptav_cur_task INTO l_ptav_rec;
12059: THEN
12060: --bug 4191360, for lowest level task calculate percent complete if der code is WQ based, irrespective of assignment
12061: IF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
12062: THEN
12063: l_EFF_ROLLUP_PERCENT_COMP := PA_PROGRESS_UTILS.Calc_base_percent(
12064: p_task_id => l_rec.object_id
12065: --4617909 ,p_incr_work_qty => l_rec.INCREMENTAL_WORK_QUANTITY
12066: --4617909 ,p_cuml_work_qty => l_rec.CUMULATIVE_WORK_QUANTITY
12067: -- Using l_last_ppr_rec values as working ver progress might be old
12120: END IF; -- IF l_BASE_PERCENT_COMP_DERIV_CODE in( 'EFFORT')
12121: --bug 4191360, moved this code above
12122: /*ELSIF l_BASE_PERCENT_COMP_DERIV_CODE = 'WQ_DERIVED'
12123: THEN
12124: l_EFF_ROLLUP_PERCENT_COMP := PA_PROGRESS_UTILS.Calc_base_percent(
12125: p_task_id => l_rec.object_id
12126: ,p_incr_work_qty => l_rec.INCREMENTAL_WORK_QUANTITY
12127: ,p_cuml_work_qty => l_rec.CUMULATIVE_WORK_QUANTITY
12128: ,p_est_remaining_effort => null
12180: l_plan_version_id := l_curr_workplan_ver_bv_id;
12181: ELSE
12182: l_plan_version_id := l_ptav_rec.budget_version_id;
12183: END IF;
12184: pa_progress_utils.get_plan_costs_for_qty
12185: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12186: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12187: ,p_project_id => p_project_id
12188: ,p_task_id => l_rec.proj_element_id
12221: l_plan_version_id := l_curr_workplan_ver_bv_id;
12222: ELSE
12223: l_plan_version_id := l_ptav_rec.budget_version_id;
12224: END IF;
12225: pa_progress_utils.get_plan_costs_for_qty
12226: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12227: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12228: ,p_project_id => p_project_id
12229: ,p_task_id => l_rec.proj_element_id
12262: l_plan_version_id := l_curr_workplan_ver_bv_id;
12263: ELSE
12264: l_plan_version_id := l_ptav_rec.budget_version_id;
12265: END IF;
12266: pa_progress_utils.get_plan_costs_for_qty
12267: ( p_etc_cost_calc_mode => l_etc_cost_calc_mode --Bug 5027965
12268: ,p_resource_list_mem_id => l_ptav_rec.resource_list_member_id
12269: ,p_project_id => p_project_id
12270: ,p_task_id => l_rec.proj_element_id
13986: if (l_max_as_of_date >= trunc(sysdate)) then
13987: l_temp_as_of_date := l_max_as_of_date;
13988: else
13989: --- get next cycle date after l_max_as_of_date
13990: l_temp_as_of_date := trunc(pa_progress_utils.get_next_progress_cycle(p_project_id => l_project_id,
13991: p_task_id => to_number(null),
13992: p_start_date => l_max_as_of_date));
13993: end if;
13994: proj_ids_tbl.extend;
14006: latest_wp_struct_ver_ids_tbl(l_index) := l_latest_wp_struct_ver_id;
14007: res_list_ids_tbl(l_index) := pa_fin_plan_utils.Get_wp_bv_res_list_id(l_latest_wp_struct_ver_id);
14008: proj_org_ids_tbl(l_index) := l_org_id;
14009: proj_thru_dates_tbl(l_index) := trunc(l_temp_as_of_date);
14010: calendar_type_tbl(l_index) := pa_progress_utils.get_time_phase_period(l_latest_wp_struct_ver_id, l_project_id);
14011: proj_curr_code_tbl(l_index) := l_proj_curr_code;
14012: proj_func_curr_code_tbl(l_index) := l_proj_func_curr_code;
14013: if (p_proj_pgm_level.exists(l_index2)) then
14014: proj_pgm_level_tbl(l_index) := p_proj_pgm_level(l_index2);
14436: l_txn_brdn_cost_tot := all_objects_in_temp_rec.act_txn_brdn_cost;
14437: l_txn_raw_cost_tot := all_objects_in_temp_rec.act_txn_raw_cost;
14438: -- convert both raw and burdened costs
14439: begin
14440: pa_progress_utils.convert_currency_amounts(
14441: p_project_id => l_project_id
14442: ,p_task_id => all_objects_in_temp_rec.project_element_id
14443: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
14444: ,p_as_of_date => l_conv_rate_date
14457: ,x_return_status => x_return_status
14458: ,x_msg_count => x_msg_count
14459: ,x_msg_data => x_msg_data) ;
14460:
14461: pa_progress_utils.convert_currency_amounts(
14462: p_project_id => l_project_id
14463: ,p_task_id => all_objects_in_temp_rec.project_element_id
14464: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
14465: ,p_as_of_date => l_conv_rate_date
14478: ,x_return_status => x_return_status
14479: ,x_msg_count => x_msg_count
14480: ,x_msg_data => x_msg_data) ;
14481:
14482: pa_progress_utils.convert_currency_amounts(
14483: p_project_id => l_project_id
14484: ,p_task_id => all_objects_in_temp_rec.project_element_id
14485: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
14486: ,p_as_of_date => l_conv_rate_date
14499: ,x_return_status => x_return_status
14500: ,x_msg_count => x_msg_count
14501: ,x_msg_data => x_msg_data) ;
14502:
14503: pa_progress_utils.convert_currency_amounts(
14504: p_project_id => l_project_id
14505: ,p_task_id => all_objects_in_temp_rec.project_element_id
14506: ,p_structure_version_id => all_objects_in_temp_rec.struct_version_id
14507: ,p_as_of_date => l_conv_rate_date
14559: l_object_type := 'PA_TASKS';
14560: --- here get the planned value if task is lowest level and PC deriv is EFFORT based and no assignments for the task
14561: if (l_base_pc_deriv_code = 'EFFORT' or l_base_pc_deriv_code = 'COST') and
14562: (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => l_object_version_id ) = 'Y') and
14563: (PA_PROGRESS_UTILS.check_assignment_exists(l_project_id,l_object_version_id,'PA_TASKS') <> 'Y') then
14564: open get_planned_val_for_task;
14565: fetch get_planned_val_for_task into l_planned_eff, l_planned_cost;
14566: close get_planned_val_for_task;
14567: end if;
15041: u_OTH_ETC_RAWCOST_to_date_PC(l_index3) := l_w_rollup_rec_asofdate.OTH_ETC_RAWCOST_PC;
15042: if l_object_type = 'PA_ASSIGNMENTS' and
15043: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS') then
15044: ---5726773
15045: 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
15046: 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));
15047: if (u_oth_etc_qty(l_index3) <> 0) then
15048: u_oth_etc_qty(l_index3) := l_asgn_plan_quantity - u_oth_qty(l_index3);
15049: pa_progress_utils.get_plan_costs_for_qty
15045: 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
15046: 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));
15047: if (u_oth_etc_qty(l_index3) <> 0) then
15048: u_oth_etc_qty(l_index3) := l_asgn_plan_quantity - u_oth_qty(l_index3);
15049: pa_progress_utils.get_plan_costs_for_qty
15050: ( p_resource_list_mem_id => l_object_id
15051: ,p_project_id => l_project_id
15052: ,p_task_id => all_objects_in_temp_rec.project_element_id
15053: ,p_as_of_date => l_temp_as_of_date
15113: u_ppl_ETC_RAWCOST_to_date_PC(l_index3) := l_w_rollup_rec_asofdate.ppl_etc_rawcost_pc;
15114: if l_object_type = 'PA_ASSIGNMENTS' and
15115: l_res_class_code = 'PEOPLE' then
15116: ---5726773
15117: 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
15118: 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));
15119: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15120: pa_progress_utils.get_plan_costs_for_qty
15121: (p_resource_list_mem_id => l_object_id
15116: ---5726773
15117: 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
15118: 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));
15119: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15120: pa_progress_utils.get_plan_costs_for_qty
15121: (p_resource_list_mem_id => l_object_id
15122: ,p_project_id => l_project_id
15123: ,p_task_id => all_objects_in_temp_rec.project_element_id
15124: ,p_as_of_date => l_temp_as_of_date
15184: u_eqpmt_ETC_RAWCOST_to_date_PC(l_index3) := l_w_rollup_rec_asofdate.eqpmt_etc_rawcost_pc;
15185: if l_object_type = 'PA_ASSIGNMENTS' and
15186: l_res_class_code = 'EQUIPMENT' then
15187: ---5726773
15188: 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
15189: 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));
15190: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
15191: pa_progress_utils.get_plan_costs_for_qty
15192: (p_resource_list_mem_id => l_object_id
15187: ---5726773
15188: 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
15189: 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));
15190: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
15191: pa_progress_utils.get_plan_costs_for_qty
15192: (p_resource_list_mem_id => l_object_id
15193: ,p_project_id => l_project_id
15194: ,p_task_id => all_objects_in_temp_rec.project_element_id
15195: ,p_as_of_date => l_temp_as_of_date
15348: ---5726773
15349: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
15350: if (oth_etc_qty(l_index2) <> 0) then
15351: oth_etc_qty(l_index2) := l_asgn_plan_quantity - oth_qty(l_index2);
15352: pa_progress_utils.get_plan_costs_for_qty
15353: ( p_resource_list_mem_id => l_object_id
15354: ,p_project_id => l_project_id
15355: ,p_task_id => all_objects_in_temp_rec.project_element_id
15356: ,p_as_of_date => l_temp_as_of_date
15438: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'PEOPLE' then
15439: ---5726773
15440: 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));
15441: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
15442: pa_progress_utils.get_plan_costs_for_qty
15443: ( p_resource_list_mem_id => l_object_id
15444: ,p_project_id => l_project_id
15445: ,p_task_id => all_objects_in_temp_rec.project_element_id
15446: ,p_as_of_date => l_temp_as_of_date
15527: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'EQUIPMENT' then
15528: ---5726773
15529: 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));
15530: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
15531: pa_progress_utils.get_plan_costs_for_qty
15532: ( p_resource_list_mem_id => l_object_id
15533: ,p_project_id => l_project_id
15534: ,p_task_id => all_objects_in_temp_rec.project_element_id
15535: ,p_as_of_date => l_temp_as_of_date
15720: u_OTH_ETC_RAWCOST_to_date_PC(l_index3) := l_rollup_rec_asofdate.oth_etc_rawcost_pc;
15721: if (l_object_type = 'PA_ASSIGNMENTS' and
15722: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS')) then
15723: ---5726773
15724: 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
15725: 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));
15726: if (u_oth_etc_qty(l_index3) <> 0) then
15727: pa_progress_utils.get_plan_costs_for_qty
15728: ( p_resource_list_mem_id => l_object_id
15723: ---5726773
15724: 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
15725: 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));
15726: if (u_oth_etc_qty(l_index3) <> 0) then
15727: pa_progress_utils.get_plan_costs_for_qty
15728: ( p_resource_list_mem_id => l_object_id
15729: ,p_project_id => l_project_id
15730: ,p_task_id => all_objects_in_temp_rec.project_element_id
15731: ,p_as_of_date => l_temp_as_of_date
15878: u_ppl_ETC_RAWCOST_to_date_PC(l_index3) := l_rollup_rec_asofdate.ppl_etc_rawcost_pc;
15879: if l_object_type = 'PA_ASSIGNMENTS' and
15880: l_res_class_code = 'PEOPLE' then
15881: ---5726773
15882: 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
15883: 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));
15884: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15885: pa_progress_utils.get_plan_costs_for_qty
15886: (p_resource_list_mem_id => l_object_id
15881: ---5726773
15882: 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
15883: 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));
15884: if (u_ppl_etc_effort_to_date(l_index3) <> 0) then
15885: pa_progress_utils.get_plan_costs_for_qty
15886: (p_resource_list_mem_id => l_object_id
15887: ,p_project_id => l_project_id
15888: ,p_task_id => all_objects_in_temp_rec.project_element_id
15889: ,p_as_of_date => l_temp_as_of_date
16036: u_eqpmt_ETC_RAWCOST_to_date_PC(l_index3) := l_rollup_rec_asofdate.eqpmt_etc_rawcost_pc;
16037: if l_object_type = 'PA_ASSIGNMENTS' and
16038: l_res_class_code = 'EQUIPMENT' then
16039: ---5726773
16040: 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
16041: 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));
16042: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
16043: pa_progress_utils.get_plan_costs_for_qty
16044: (p_resource_list_mem_id => l_object_id
16039: ---5726773
16040: 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
16041: 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));
16042: if (u_eqpmt_etc_effort_to_date(l_index3) <> 0) then
16043: pa_progress_utils.get_plan_costs_for_qty
16044: (p_resource_list_mem_id => l_object_id
16045: ,p_project_id => l_project_id
16046: ,p_task_id => all_objects_in_temp_rec.project_element_id
16047: ,p_as_of_date => l_temp_as_of_date
16277: OTH_ETC_RAWCOST_PC(l_index2) := l_rollup_rec_asofdate.OTH_ETC_RAWCOST_PC;
16278: if l_object_type = 'PA_ASSIGNMENTS' and
16279: l_res_class_code in ('FINANCIAL_ELEMENTS', 'MATERIAL_ITEMS') then
16280: ---5726773
16281: 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
16282: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
16283: if (oth_etc_qty(l_index2) <> 0) then
16284: pa_progress_utils.get_plan_costs_for_qty
16285: ( p_resource_list_mem_id => l_object_id
16280: ---5726773
16281: 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
16282: oth_etc_qty(l_index2) := PA_FP_FCST_GEN_AMT_UTILS.get_etc_from_plan_act(l_asgn_plan_quantity,oth_qty(l_index2));
16283: if (oth_etc_qty(l_index2) <> 0) then
16284: pa_progress_utils.get_plan_costs_for_qty
16285: ( p_resource_list_mem_id => l_object_id
16286: ,p_project_id => l_project_id
16287: ,p_task_id => all_objects_in_temp_rec.project_element_id
16288: ,p_as_of_date => l_temp_as_of_date
16434: PPL_ETC_COST_FC(l_index2) := l_rollup_rec_asofdate.PPL_ETC_COST_FC;
16435: PPL_ETC_RAWCOST_FC(l_index2) := l_rollup_rec_asofdate.PPL_ETC_RAWCOST_FC;
16436: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'PEOPLE' then
16437: ---5726773
16438: 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
16439: 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));
16440: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
16441: pa_progress_utils.get_plan_costs_for_qty
16442: ( p_resource_list_mem_id => l_object_id
16437: ---5726773
16438: 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
16439: 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));
16440: if (ESTIMATED_REMAINING_EFFORT(l_index2) <> 0) then
16441: pa_progress_utils.get_plan_costs_for_qty
16442: ( p_resource_list_mem_id => l_object_id
16443: ,p_project_id => l_project_id
16444: ,p_task_id => all_objects_in_temp_rec.project_element_id
16445: ,p_as_of_date => l_temp_as_of_date
16592: EQPMT_ETC_COST_FC(l_index2) := l_rollup_rec_asofdate.EQPMT_ETC_COST_FC;
16593: EQPMT_ETC_RAWCOST_FC(l_index2) := l_rollup_rec_asofdate.EQPMT_ETC_RAWCOST_FC;
16594: if l_object_type = 'PA_ASSIGNMENTS' and l_res_class_code = 'EQUIPMENT' then
16595: ---5726773
16596: 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
16597: 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));
16598: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
16599: pa_progress_utils.get_plan_costs_for_qty
16600: ( p_resource_list_mem_id => l_object_id
16595: ---5726773
16596: 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
16597: 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));
16598: if (EQPMT_ETC_EFFORT(l_index2) <> 0) then
16599: pa_progress_utils.get_plan_costs_for_qty
16600: ( p_resource_list_mem_id => l_object_id
16601: ,p_project_id => l_project_id
16602: ,p_task_id => all_objects_in_temp_rec.project_element_id
16603: ,p_as_of_date => l_temp_as_of_date
18670: END IF;
18671:
18672:
18673: ---- if status is CANCELLED
18674: IF PA_PROGRESS_UTILS.get_system_task_status(PA_PROGRESS_UTILS.get_task_status( p_project_id, p_task_id)) = 'CANCELLED'
18675: THEN
18676: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
18677: ,p_msg_name => 'PA_TP_CANT_NTER_PRG_CANCEL');
18678: x_msg_data := 'PA_TP_CANT_NTER_PRG_CANCEL';
18692: END IF;
18693: ----- Wrong DATE
18694:
18695:
18696: l_last_progress_date := PA_PROGRESS_UTILS.GET_LATEST_AS_OF_DATE(
18697: p_task_id => l_task_id--p_task_id Bug 3876091
18698: ,p_project_id => p_project_id
18699: ,p_object_id => l_object_id
18700: ,p_object_type => l_object_type
18705: IF g1_debug_mode = 'Y' THEN
18706: 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);
18707: END IF;
18708:
18709: l_progress_exists_on_aod := PA_PROGRESS_UTILS.check_prog_exists_on_aod(
18710: p_project_id => p_project_id
18711: ,p_object_type => l_object_type
18712: ,p_object_version_id => l_object_version_id
18713: ,p_task_id => l_task_id -- l_object_id Bug 3876091
18765: IF g1_debug_mode = 'Y' THEN
18766: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'l_db_action: '||l_db_action, x_Log_Level=> 3);
18767: END IF;
18768:
18769: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
18770: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(p_as_of_date);
18771:
18772:
18773: IF l_db_action = 'CREATE'
18766: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'l_db_action: '||l_db_action, x_Log_Level=> 3);
18767: END IF;
18768:
18769: l_prog_pa_period_name := PA_PROGRESS_UTILS.Prog_Get_Pa_Period_Name(p_as_of_date);
18770: l_prog_gl_period_name := PA_PROGRESS_UTILS.Prog_Get_GL_Period_Name(p_as_of_date);
18771:
18772:
18773: IF l_db_action = 'CREATE'
18774: THEN
18836: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'INSERTING IN PPR', x_Log_Level=> 3);
18837: END IF;
18838:
18839:
18840: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
18841: p_project_id => p_project_id
18842: ,p_object_id => l_object_id
18843: ,p_object_type => l_object_type
18844: ,p_object_version_id => l_object_version_id
19116: THEN
19117:
19118: IF p_percent_complete_id IS NULL OR p_percent_complete_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19119: THEN
19120: l_percent_complete_id := PA_PROGRESS_UTILS.get_ppc_id(
19121: p_project_id => p_project_id
19122: ,p_object_id => l_object_id
19123: ,p_task_id => l_task_id -- l_object_id -- Bug 3764224 Bug 3876091
19124: ,p_object_type => l_object_type
19195:
19196:
19197:
19198: --update progress rollup
19199: l_PROGRESS_ROLLUP_ID := PA_PROGRESS_UTILS.get_prog_rollup_id(
19200: p_project_id => p_project_id
19201: ,p_object_id => l_object_id
19202: ,p_object_type => l_object_type
19203: ,p_object_version_id => l_object_version_id
21771: l_structure_version_id_tbl(i) := null;
21772:
21773: IF p_object_type_tbl(i) = 'PA_DELIVERABLES' AND (p_task_id_tbl(i) IS NOT NULL)THEN
21774: -- In deliverable case, we may not get task's structure version id. So we need to derive it.
21775: 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
21776: OPEN c_get_latest_pub_task_ver(p_task_id_tbl(i), p_project_id_tbl(i));
21777: FETCH c_get_latest_pub_task_ver INTO l_task_version_id_tbl(i), l_structure_version_id_tbl(i);
21778: CLOSE c_get_latest_pub_task_ver;
21779: END IF;