[Home] [Help]
7207: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'l_as_of_date='||l_as_of_date, x_Log_Level=> 3);
7208: END IF;
7209:
7210: -- Set B and F package variable.
7211: PA_FP_CALC_PLAN_PKG.G_SPREAD_FROM_DATE := l_max_as_of_date;
7212: l_track_wp_cost_flag := pa_fp_wp_gen_amt_utils.get_wp_track_cost_amt_flag(p_project_id); --Bug 3801745
7213:
7214: --moved from below to use it in % complete recalculation.
7215: OPEN cur_proj_prog_attr;
8156: -- IF (l_planned_ppl_effort_tbl_assgn.exists(1) OR l_planned_eqp_effort_tbl_assgn.exists(1) OR l_planned_qty_tbl_assgn.exists(1)) THEN
8157: IF (l_res_assgn_id_tbl_assgn.count > 0) then
8158: BEGIN
8159: IF g1_debug_mode = 'Y' THEN
8160: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'Before PA_FP_CALC_PLAN_PKG.calculate', x_Log_Level=> 3);
8161: END IF;
8162: /* Commnted for Perf Bug 4189762 and added Calculate API
8163: pa_fp_planning_transaction_pub.update_planning_transactions
8164: (p_context => 'TASK_ASSIGNMENT'
8174: ,x_msg_data => l_msg_data
8175: );
8176: */
8177:
8178: PA_FP_CALC_PLAN_PKG.calculate
8179: (
8180: p_project_id => p_project_id
8181: ,p_budget_version_id => PA_PLANNING_TRANSACTION_UTILS.Get_Wp_Budget_Version_Id(p_working_str_version_id)
8182: ,p_source_context => 'RESOURCE_ASSIGNMENT'
8189: ,x_return_status => l_return_status
8190: ,x_msg_count => l_msg_count
8191: ,x_msg_data => l_msg_data);
8192: IF g1_debug_mode = 'Y' THEN
8193: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV', x_Msg => 'After PA_FP_CALC_PLAN_PKG.calculate l_return_status='||l_return_status, x_Log_Level=> 3);
8194: END IF;
8195: EXCEPTION
8196: WHEN OTHERS THEN
8197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8195: EXCEPTION
8196: WHEN OTHERS THEN
8197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8198: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8199: p_error_text => SUBSTRB('Call of PA_FP_CALC_PLAN_PKG.calculate Failed:'||SQLERRM,1,120));
8200: RAISE FND_API.G_EXC_ERROR;
8201: END;
8202:
8203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN