[Home] [Help]
4860: CLOSE l_orig_baselined_ver_csr;
4861:
4862: END IF;
4863:
4864: pa_fin_plan_pub.Baseline
4865: ( p_project_id => l_project_id
4866: ,p_budget_version_id => l_curr_working_version_id
4867: ,p_record_version_number => l_CW_record_version_number
4868: ,p_orig_budget_version_id => l_baselined_version_id
4921:
4922: -- dbms_output.put_line('The verid to be marked as orig is '||l_baselined_version_id);
4923: -- dbms_output.put_line('The orig verid to be marked as orig is '||l_orig_baselined_ver_rec.budget_version_id);
4924:
4925: pa_fin_plan_pub.Mark_As_Original
4926: ( p_project_id => l_project_id
4927: ,p_budget_version_id => l_baselined_version_id
4928: ,p_record_version_number => l_Cb_record_version_number
4929: ,p_orig_budget_version_id => l_orig_baselined_ver_rec.budget_version_id
6915:
6916: --Delete the version
6917: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
6918: (p_budget_version_id => l_budget_version_id);
6919: PA_FIN_PLAN_PUB.Delete_Version
6920: ( p_project_id => l_project_id
6921: ,p_budget_version_id => l_budget_version_id
6922: ,p_record_version_number => l_record_version_number
6923: ,x_return_status => p_return_status
7119: -- PA_FIN_PLAN_UTILS.get_version_type
7120: -- PA_FIN_PLAN_UTILS.is_orgforecast_plan
7121: -- PA_FIN_PLAN_UTILS.retrieve_record_version_number
7122: -- PA_FIN_PLAN_PVT.lock_unlock_version
7123: -- PA_FIN_PLAN_PUB.delete_version
7124: --
7125: --History:
7126: -- 05-APR-2005 Rishukla Created.
7127:
7830:
7831: --Delete the version
7832: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
7833: (p_budget_version_id => l_budget_version_id);
7834: PA_FIN_PLAN_PUB.delete_version
7835: ( p_project_id => l_project_id
7836: ,p_budget_version_id => l_budget_version_id
7837: ,p_record_version_number => l_record_version_number
7838: ,x_return_status => p_return_status
10516:
10517: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10518: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10519:
10520: pa_fin_plan_pub.Set_Current_Working
10521: (p_project_id => l_project_id,
10522: p_budget_version_id => l_budget_version_id,
10523: p_record_version_number => l_record_version_number,
10524: p_orig_budget_version_id => l_CW_version_id,
17965: END IF;
17966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17967: END IF;
17968:
17969: pa_fin_plan_pub.delete_version
17970: ( p_project_id => l_project_id
17971: ,p_budget_version_id => l_curr_work_version_id
17972: ,p_record_version_number => l_record_version_number
17973: ,x_return_status => x_return_status
18145: pa_debug.write(l_procedure_name ||
18146: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18147: END IF;
18148:
18149: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
18150: pa_fin_plan_pub.Create_Version (
18151: p_project_id => l_project_id
18152: ,p_fin_plan_type_id => l_fin_plan_type_id
18153: ,p_element_type => l_version_type
18146: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18147: END IF;
18148:
18149: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
18150: pa_fin_plan_pub.Create_Version (
18151: p_project_id => l_project_id
18152: ,p_fin_plan_type_id => l_fin_plan_type_id
18153: ,p_element_type => l_version_type
18154: ,p_version_name => p_budget_version_name
18202: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18203: END IF;
18204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18205: END IF;
18206: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
18207: /*========================================================+
18208: | Prepare to call pa_budget_pvt.validate_budget_lines() |
18209: *========================================================*/
18210: IF ( p_finplan_trans_tab.COUNT > 0 )
18835: END IF;
18836:
18837:
18838: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18839: --dbms_output.put_line('pa_fin_plan_pub.Set_Current_Working');
18840: pa_fin_plan_pub.Set_Current_Working
18841: (p_project_id => l_project_id,
18842: p_budget_version_id => l_created_version_id,
18843: p_record_version_number => l_created_ver_rec_ver_num,
18836:
18837:
18838: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18839: --dbms_output.put_line('pa_fin_plan_pub.Set_Current_Working');
18840: pa_fin_plan_pub.Set_Current_Working
18841: (p_project_id => l_project_id,
18842: p_budget_version_id => l_created_version_id,
18843: p_record_version_number => l_created_ver_rec_ver_num,
18844: p_orig_budget_version_id => l_CW_version_id,
19239: l_finplan_trans_tab(i).ATTRIBUTE29 := G_ATTRIBUTE29_TBL(i);
19240: l_finplan_trans_tab(i).ATTRIBUTE30 := G_ATTRIBUTE30_TBL(i);
19241: END LOOP;
19242:
19243: --dbms_output.put_line('Before calling PA_FIN_PLAN_PUB.CREATE_DRAFT_FINPLAN');
19244: PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN
19245: ( p_api_version_number => p_api_version_number
19246: ,p_commit => p_commit
19247: ,p_init_msg_list => p_init_msg_list
19290: ,x_return_status => x_return_status
19291: ,x_msg_count => x_msg_count
19292: ,x_msg_data => x_msg_data
19293: );
19294: --dbms_output.put_line('after call to PA_FIN_PLAN_PUB.CREATE_DRAFT_FINPLAN');
19295:
19296: /*
19297: * Empty the tables after each call to CREATE_DRAFT_FINPLAN
19298: */