[Home] [Help]
4754: CLOSE l_orig_baselined_ver_csr;
4755:
4756: END IF;
4757:
4758: pa_fin_plan_pub.Baseline
4759: ( p_project_id => l_project_id
4760: ,p_budget_version_id => l_curr_working_version_id
4761: ,p_record_version_number => l_CW_record_version_number
4762: ,p_orig_budget_version_id => l_baselined_version_id
4815:
4816: -- dbms_output.put_line('The verid to be marked as orig is '||l_baselined_version_id);
4817: -- dbms_output.put_line('The orig verid to be marked as orig is '||l_orig_baselined_ver_rec.budget_version_id);
4818:
4819: pa_fin_plan_pub.Mark_As_Original
4820: ( p_project_id => l_project_id
4821: ,p_budget_version_id => l_baselined_version_id
4822: ,p_record_version_number => l_Cb_record_version_number
4823: ,p_orig_budget_version_id => l_orig_baselined_ver_rec.budget_version_id
6763:
6764: --Delete the version
6765: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
6766: (p_budget_version_id => l_budget_version_id);
6767: PA_FIN_PLAN_PUB.Delete_Version
6768: ( p_project_id => l_project_id
6769: ,p_budget_version_id => l_budget_version_id
6770: ,p_record_version_number => l_record_version_number
6771: ,x_return_status => p_return_status
6967: -- PA_FIN_PLAN_UTILS.get_version_type
6968: -- PA_FIN_PLAN_UTILS.is_orgforecast_plan
6969: -- PA_FIN_PLAN_UTILS.retrieve_record_version_number
6970: -- PA_FIN_PLAN_PVT.lock_unlock_version
6971: -- PA_FIN_PLAN_PUB.delete_version
6972: --
6973: --History:
6974: -- 05-APR-2005 Rishukla Created.
6975:
7676:
7677: --Delete the version
7678: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
7679: (p_budget_version_id => l_budget_version_id);
7680: PA_FIN_PLAN_PUB.delete_version
7681: ( p_project_id => l_project_id
7682: ,p_budget_version_id => l_budget_version_id
7683: ,p_record_version_number => l_record_version_number
7684: ,x_return_status => p_return_status
10333:
10334: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10335: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10336:
10337: pa_fin_plan_pub.Set_Current_Working
10338: (p_project_id => l_project_id,
10339: p_budget_version_id => l_budget_version_id,
10340: p_record_version_number => l_record_version_number,
10341: p_orig_budget_version_id => l_CW_version_id,
17705: END IF;
17706: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17707: END IF;
17708:
17709: pa_fin_plan_pub.delete_version
17710: ( p_project_id => l_project_id
17711: ,p_budget_version_id => l_curr_work_version_id
17712: ,p_record_version_number => l_record_version_number
17713: ,x_return_status => x_return_status
17885: pa_debug.write(l_procedure_name ||
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17889: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
17890: pa_fin_plan_pub.Create_Version (
17891: p_project_id => l_project_id
17892: ,p_fin_plan_type_id => l_fin_plan_type_id
17893: ,p_element_type => l_version_type
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17889: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
17890: pa_fin_plan_pub.Create_Version (
17891: p_project_id => l_project_id
17892: ,p_fin_plan_type_id => l_fin_plan_type_id
17893: ,p_element_type => l_version_type
17894: ,p_version_name => p_budget_version_name
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17946: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
17947: /*========================================================+
17948: | Prepare to call pa_budget_pvt.validate_budget_lines() |
17949: *========================================================*/
17950: IF ( p_finplan_trans_tab.COUNT > 0 )
18563: END IF;
18564:
18565:
18566: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18567: --dbms_output.put_line('pa_fin_plan_pub.Set_Current_Working');
18568: pa_fin_plan_pub.Set_Current_Working
18569: (p_project_id => l_project_id,
18570: p_budget_version_id => l_created_version_id,
18571: p_record_version_number => l_created_ver_rec_ver_num,
18564:
18565:
18566: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18567: --dbms_output.put_line('pa_fin_plan_pub.Set_Current_Working');
18568: pa_fin_plan_pub.Set_Current_Working
18569: (p_project_id => l_project_id,
18570: p_budget_version_id => l_created_version_id,
18571: p_record_version_number => l_created_ver_rec_ver_num,
18572: p_orig_budget_version_id => l_CW_version_id,
18950: l_finplan_trans_tab(i).ATTRIBUTE29 := G_ATTRIBUTE29_TBL(i);
18951: l_finplan_trans_tab(i).ATTRIBUTE30 := G_ATTRIBUTE30_TBL(i);
18952: END LOOP;
18953:
18954: --dbms_output.put_line('Before calling PA_FIN_PLAN_PUB.CREATE_DRAFT_FINPLAN');
18955: PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN
18956: ( p_api_version_number => p_api_version_number
18957: ,p_commit => p_commit
18958: ,p_init_msg_list => p_init_msg_list
19001: ,x_return_status => x_return_status
19002: ,x_msg_count => x_msg_count
19003: ,x_msg_data => x_msg_data
19004: );
19005: --dbms_output.put_line('after call to PA_FIN_PLAN_PUB.CREATE_DRAFT_FINPLAN');
19006:
19007: /*
19008: * Empty the tables after each call to CREATE_DRAFT_FINPLAN
19009: */