[Home] [Help]
625: * changing it now, since, pa_get_resource.get_uncateg_resource_info owned by RF
626: * team, as of now, has the same performance issue of full table scans on RLM
627: * and pa_resources tables. */
628: --Get the uncategorized resource list info.
629: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
630: (x_resource_list_id => l_uncategorized_res_list_id,
631: x_resource_list_member_id => l_uncategorized_rlmid,
632: x_track_as_labor_flag => l_unc_track_as_labor_flag,
633: x_unit_of_measure => l_unc_unit_of_measure,
1993:
1994: IF (p_replace_current_working_flag = 'Y' OR
1995: p_create_new_curr_working_flag = 'Y') THEN
1996: --Get the current working version info
1997: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
1998: p_project_id => l_project_id
1999: ,p_fin_plan_type_id => l_fin_plan_type_id
2000: ,p_version_type => l_version_type
2001: ,x_fp_options_id => l_proj_fp_options_id
2069: into l_locked_by_person_id from pa_budget_versions
2070: where budget_version_id = l_CW_version_id;
2071:
2072: --Get the record version number of the current working version
2073: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2074:
2075: pa_fin_plan_pvt.lock_unlock_version
2076: (p_budget_version_id => l_CW_version_id,
2077: p_record_version_number => l_CW_record_version_number,
2174: AND p_replace_current_working_flag <> 'Y' --Bug 8617706
2175: AND l_CW_version_id IS NOT NULL
2176: AND l_locked_by_person_id IS NULL THEN
2177: --Get the record version number of the current working version
2178: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2179: pa_fin_plan_pvt.lock_unlock_version
2180: (p_budget_version_id => l_CW_version_id,
2181: p_record_version_number => l_CW_record_version_number,
2182: p_action => 'U',
3945: l_version_type := p_version_type;
3946: END IF;
3947:
3948: --Derive the version type.
3949: pa_fin_plan_utils.get_version_type
3950: ( p_project_id => l_project_id
3951: ,p_fin_plan_type_id => l_fin_plan_type_id
3952: ,px_version_type => l_version_type
3953: ,x_return_status => l_return_status
3989:
3990: END IF;
3991:
3992: -- Get the current baselined version
3993: pa_fin_plan_utils.Get_Baselined_Version_Info(
3994: p_project_id => l_project_id
3995: ,p_fin_plan_type_id => l_fin_plan_type_id
3996: ,p_version_type => l_version_type
3997: ,x_fp_options_id => l_baselined_Ver_options_id
4158: l_curr_working_version_id := l_budget_versions_rec.budget_version_id;
4159:
4160: ELSE -- Fin Plan Model. Get the current working version info
4161:
4162: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
4163: p_project_id => l_project_id
4164: ,p_fin_plan_type_id => l_fin_plan_type_id
4165: ,p_version_type => l_version_type
4166: ,x_fp_options_id => l_CW_ver_options_id
4202: END IF;
4203:
4204: END IF;
4205:
4206: pa_fin_plan_utils.return_and_vldt_plan_prc_code
4207: (p_budget_version_id => l_curr_working_version_id
4208: ,x_final_plan_prc_code => l_final_plan_prc_code
4209: ,x_targ_request_id => l_targ_request_id
4210: ,x_return_status => l_return_status
4232:
4233: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'N') THEN
4234: -- dbms_output.put_line('about to call autobaseline checks API ');
4235:
4236: pa_fin_plan_utils.perform_autobasline_checks
4237: ( p_budget_version_id => l_curr_working_version_id
4238: ,x_result => l_result
4239: ,x_return_status => p_return_status
4240: ,x_msg_count => p_msg_count
4540: ELSE -- Verify budget rules will be called by the baseline api in fin plan model.
4541: -- Lock the version in the finplan model
4542:
4543: --Get the record version number of the current working version
4544: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4545:
4546: -- Lock the current working version
4547:
4548: pa_fin_plan_pvt.lock_unlock_version
4832:
4833: --Get the record version number of the current baselined version
4834: IF l_baselined_version_id IS NOT NULL THEN
4835: --Get the record version number
4836: l_CB_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4837: ELSE
4838: l_CB_record_version_number:=NULL;
4839: END IF;
4840:
4838: l_CB_record_version_number:=NULL;
4839: END IF;
4840:
4841: --Get the record version number of the current working version (As it will be incremented by the lock_unlock_version)
4842: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4843:
4844: IF l_debug_mode = 'Y' THEN
4845: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4894: END IF;
4895:
4896: -- Fetch the details current baselined version
4897: pa_fin_plan_utils.Get_Baselined_Version_Info(
4898: p_project_id => l_project_id
4899: ,p_fin_plan_type_id => l_fin_plan_type_id
4900: ,p_version_type => l_version_type
4901: ,x_fp_options_id => l_baselined_Ver_options_id
4909: -- RAISE FND_API.G_EXC_ERROR;
4910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4911: END IF;
4912:
4913: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4914:
4915: IF l_orig_baselined_ver_rec.budget_version_id IS NOT NULL THEN
4916:
4917: l_orig_baselined_ver_rec.record_version_number:=pa_fin_plan_utils.Retrieve_Record_Version_Number
4913: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4914:
4915: IF l_orig_baselined_ver_rec.budget_version_id IS NOT NULL THEN
4916:
4917: l_orig_baselined_ver_rec.record_version_number:=pa_fin_plan_utils.Retrieve_Record_Version_Number
4918: (l_orig_baselined_ver_rec.budget_version_id);
4919:
4920: END IF;
4921:
5762: --actuals on FORECAST check
5763: l_version_info_rec.x_budget_version_id := l_budget_version_id;
5764:
5765: --Get entry method options and validate them against cost, rev and quantity passed
5766: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
5767:
5768: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
5769: P_AMOUNT_SET_ID => l_amount_set_id
5770: ,X_RAW_COST_FLAG => lx_raw_cost_flag
5764:
5765: --Get entry method options and validate them against cost, rev and quantity passed
5766: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
5767:
5768: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
5769: P_AMOUNT_SET_ID => l_amount_set_id
5770: ,X_RAW_COST_FLAG => lx_raw_cost_flag
5771: ,X_BURDENED_FLAG => lx_burdened_cost_flag
5772: ,X_REVENUE_FLAG => lx_revenue_flag
5906: l_finplan_lines_tab(1).resource_assignment_id := -1;
5907:
5908:
5909: --Lock the budget version before inserting a budget line
5910: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
5911: (p_budget_version_id => l_budget_version_id);
5912:
5913: PA_FIN_PLAN_PVT.lock_unlock_version
5914: ( p_budget_version_id => l_budget_version_id
5950: END IF;
5951:
5952:
5953: --unlock the budget version after inserting the budget line
5954: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
5955: (p_budget_version_id => l_budget_version_id);
5956:
5957: PA_FIN_PLAN_PVT.lock_unlock_version
5958: ( p_budget_version_id => l_budget_version_id
6729: l_version_type := p_version_type;
6730: END IF;
6731: --Changes Done.
6732:
6733: pa_fin_plan_utils.get_version_type
6734: ( p_project_id => l_project_id
6735: ,p_fin_plan_type_id => l_fin_plan_type_id
6736: ,px_version_type => l_version_type
6737: ,x_return_status => p_return_status
6777: --deleted. If current working version doesn't exist then error
6778: --message is thrown
6779: IF ll_version_number IS NULL THEN
6780:
6781: PA_FIN_PLAN_UTILS.get_curr_working_version_info
6782: ( p_project_id => l_project_id
6783: ,p_fin_plan_type_id => l_fin_plan_type_id
6784: ,p_version_type => l_version_type
6785: ,x_fp_options_id => l_fp_options_id
6790:
6791: ELSE --version_number not NULL
6792: --Derive the version Id depending on the parameters passed as input.
6793:
6794: PA_FIN_PLAN_UTILS.get_version_id
6795: ( p_project_id => l_project_id
6796: ,p_fin_plan_type_id => l_fin_plan_type_id
6797: ,p_version_type => l_version_type
6798: ,p_version_number => ll_version_number
6860:
6861: --Bug 4224464: Following validation has been added as part of
6862: --FP M Changes for delete_draft_budget. If the budget version
6863: --belongs to an org forecast project then throw an error
6864: IF (PA_FIN_PLAN_UTILS.is_orgforecast_plan(l_budget_version_id) = 'Y')
6865: THEN
6866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6867: THEN
6868: PA_UTILS.add_message
6879: l_any_error_occurred_flag:='Y' ;
6880: END IF; --org_forecast = 'Y'
6881:
6882: --Lock the version before deleting it
6883: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
6884: (p_budget_version_id => l_budget_version_id);
6885: pa_fin_plan_pvt.lock_unlock_version
6886: ( p_budget_version_id => l_budget_version_id
6887: ,p_record_version_number => l_record_version_number
6913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6914: END IF;
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
7115: -- PA_PROJECT_PVT.convert_pm_projref_to_id
7116: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
7117: -- PA_BUDGET_UTILS.delete_draft
7118: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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
7116: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
7117: -- PA_BUDGET_UTILS.delete_draft
7118: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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: --
7117: -- PA_BUDGET_UTILS.delete_draft
7118: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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:
7734:
7735: END IF;
7736:
7737: --Validate / get the version type
7738: PA_FIN_PLAN_UTILS.get_version_type
7739: ( p_project_id => l_project_id
7740: ,p_fin_plan_type_id => ll_fin_plan_type_id
7741: ,px_version_type => l_version_type
7742: ,x_return_status => p_return_status
7798: l_any_error_occurred_flag:='Y' ;
7799: END IF; --l_budget_version_id IS NULL
7800:
7801: --if the budget version belongs to an org forecast project then throw an error
7802: IF (PA_FIN_PLAN_UTILS.is_orgforecast_plan(l_budget_version_id) = 'Y')
7803: THEN
7804: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7805: THEN
7806: PA_UTILS.add_message
7828: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7829: END IF;
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
8897: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8898: THEN
8899:
8900: --Lock the budget version before deleting a budget line
8901: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8902: (p_budget_version_id => l_budget_version_id);
8903:
8904: PA_FIN_PLAN_PVT.lock_unlock_version
8905: ( p_budget_version_id => l_budget_version_id
8967: RAISE FND_API.G_EXC_ERROR;
8968: END IF;
8969:
8970: --unlock the budget version after deleting the budget line
8971: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8972: (p_budget_version_id => l_budget_version_id);
8973:
8974: PA_FIN_PLAN_PVT.lock_unlock_version
8975: ( p_budget_version_id => l_budget_version_id
9883: x_person_id => l_person_id,
9884: x_resource_id => l_resource_id,
9885: x_resource_name => l_resource_name);
9886:
9887: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
9888: (p_budget_version_id => l_budget_version_id);
9889:
9890: --Try to lock the version before updating the version. This is required so that nobody else can access it.
9891: pa_fin_plan_pvt.lock_unlock_version
9910: END IF;
9911: END IF; -- END IF FOR l_budget_type_code is not null
9912:
9913:
9914: l_time_phased_type_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(l_budget_version_id);
9915:
9916: IF p_multiple_task_msg = 'F' THEN
9917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9918: END IF;
9929: /*
9930: --Added after review comments
9931: IF l_budget_type_code IS NULL THEN
9932: -- dbms_output.put_line ('about to get plan amt flags ');
9933: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9934:
9935: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9936: P_AMOUNT_SET_ID => l_amount_set_id
9937: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9931: IF l_budget_type_code IS NULL THEN
9932: -- dbms_output.put_line ('about to get plan amt flags ');
9933: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9934:
9935: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9936: P_AMOUNT_SET_ID => l_amount_set_id
9937: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9938: ,X_BURDENED_FLAG => lx_burdened_cost_flag
9939: ,X_REVENUE_FLAG => lx_revenue_flag
9971: ( lx_bill_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9972: ( lx_cost_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9973: ( lx_burden_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
9974:
9975: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9976:
9977: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9978: P_AMOUNT_SET_ID => l_amount_set_id
9979: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9973: ( lx_burden_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
9974:
9975: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9976:
9977: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9978: P_AMOUNT_SET_ID => l_amount_set_id
9979: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9980: ,X_BURDENED_FLAG => lx_burdened_cost_flag
9981: ,X_REVENUE_FLAG => lx_revenue_flag
10464: nvl(l_current_working_flag,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
10465: THEN
10466: -- Get the details of the current working version so as to pass it to the
10467: -- Set Current Working API.
10468: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
10469: p_project_id => l_project_id
10470: ,p_fin_plan_type_id => l_fin_plan_type_id
10471: ,p_version_type => lx_version_type
10472: ,x_fp_options_id => l_proj_fp_options_id
10482: -- Further processing is required only if the version to be updated is not the current working verion
10483: IF l_budget_version_id <> l_CW_version_id THEN
10484:
10485: --Get the record version number of the current working version
10486: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10487:
10488: --Get the record version number of the version to be updated
10489: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_budget_version_id);
10490:
10485: --Get the record version number of the current working version
10486: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10487:
10488: --Get the record version number of the version to be updated
10489: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_budget_version_id);
10490:
10491: pa_fin_plan_pvt.lock_unlock_version
10492: (p_budget_version_id => l_CW_version_id,
10493: p_record_version_number => l_CW_record_version_number,
10514: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10515: END IF;
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,
10590: END IF;
10591:
10592:
10593: --Get the amount set id.
10594: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
10595: (
10596: p_raw_cost_flag => lx_raw_cost_flag
10597: ,p_burdened_cost_flag => lx_burdened_cost_flag
10598: ,p_revenue_flag => lx_revenue_flag
11106: END IF;
11107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11108: END IF;
11109:
11110: pa_fin_plan_utils.validate_currency_attributes
11111: (px_project_cost_rate_type => lx_project_cost_rate_type
11112: ,px_project_cost_rate_date_typ => lx_project_cost_rate_date_typ
11113: ,px_project_cost_rate_date => lx_project_cost_rate_date
11114: ,px_project_cost_exchange_rate => l_project_cost_exchange_rate
11833: --Checking it its a new budget line.
11834: IF (l_dummy <> 'X' OR l_dummy IS NULL) OR (l_new_resource_assignment) OR (lx_resource_list_id <> l_resource_list_id) THEN
11835: --This is a new line case.
11836: --Get the uncategorized resource list info.
11837: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
11838: (x_resource_list_id => l_uncategorized_res_list_id,
11839: x_resource_list_member_id => l_uncategorized_rlmid,
11840: x_track_as_labor_flag => l_unc_track_as_labor_flag,
11841: x_unit_of_measure => l_unc_unit_of_measure,
12624: END IF;
12625:
12626:
12627: -- Unlock the version now that the budget version is updated.
12628: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
12629: (p_budget_version_id => l_budget_version_id);
12630:
12631: --Try to lock the version before updating the version. This is required so that nobody else can access it.
12632: pa_fin_plan_pvt.lock_unlock_version
13703: --Get entry method options and validate them against cost, rev and quantity passed
13704: IF l_budget_type_code IS NULL AND l_fin_plan_type_id IS NOT NULL
13705: THEN
13706:
13707: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
13708:
13709: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
13710: P_AMOUNT_SET_ID => l_amount_set_id
13711: ,X_RAW_COST_FLAG => lx_raw_cost_flag
13705: THEN
13706:
13707: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
13708:
13709: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
13710: P_AMOUNT_SET_ID => l_amount_set_id
13711: ,X_RAW_COST_FLAG => lx_raw_cost_flag
13712: ,X_BURDENED_FLAG => lx_burdened_cost_flag
13713: ,X_REVENUE_FLAG => lx_revenue_flag
14077: l_finplan_lines_tab(1).budget_line_id := l_budget_line_id;
14078: l_finplan_lines_tab(1).budget_version_id := l_budget_version_id;
14079:
14080: --Lock the budget version before updating a budget line
14081: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
14082: (p_budget_version_id => l_budget_version_id);
14083:
14084: PA_FIN_PLAN_PVT.lock_unlock_version
14085: ( p_budget_version_id => l_budget_version_id
14121: END IF;
14122:
14123:
14124: --unlock the budget version after updating the budget line
14125: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
14126: (p_budget_version_id => l_budget_version_id);
14127:
14128: PA_FIN_PLAN_PVT.lock_unlock_version
14129: ( p_budget_version_id => l_budget_version_id
14531: ,bv.budget_status_code budget_status_code
14532: ,bv.ci_id ci_id -- raja
14533: ,pt.fin_plan_type_code fin_plan_type_code
14534: ,pt.name fin_plan_type_name
14535: ,pa_fin_plan_utils.get_fin_plan_level_code(bv.budget_version_id) plan_level_code
14536: ,bv.locked_by_person_id
14537: ,bv.request_id
14538: ,pt.plan_class_code
14539: ,bv.etc_start_date
14839:
14840: -- Bug 2863564 This is redundant code and thus commented out
14841: /*
14842: -- Get the project and project functional currencies so that they can be used later
14843: pa_fin_plan_utils.Get_Project_Curr_Attributes
14844: ( p_project_id => l_project_id
14845: ,x_multi_currency_billing_flag => l_multi_currency_billing_flag
14846: ,x_project_currency_code => l_project_currency_code
14847: ,x_projfunc_currency_code => l_projfunc_currency_code
15065: IF (budget_version_info_rec.locked_by_person_id is not null) then
15066: IF (l_person_id <> budget_version_info_rec.locked_by_person_id) then
15067:
15068: l_locked_by_name :=
15069: pa_fin_plan_utils.get_person_name(budget_version_info_rec.locked_by_person_id);
15070: PA_UTILS.ADD_MESSAGE
15071: ( p_app_short_name => 'PA',
15072: p_msg_name => 'PA_FP_LCK_BY_USER',
15073: p_token1 => 'PERSON_NAME',
15089: CLOSE budget_version_info_cur;
15090: RAISE FND_API.G_EXC_ERROR;
15091: END IF;
15092:
15093: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
15094:
15095: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15096:
15097: IF l_autobaseline_flag = 'N' THEN
15095: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15096:
15097: IF l_autobaseline_flag = 'N' THEN
15098:
15099: pa_fin_plan_utils.Check_if_plan_type_editable (
15100: P_project_id => l_project_id
15101: ,P_fin_plan_type_id => l_fin_plan_type_id
15102: ,P_version_type => l_version_type
15103: ,X_editable_flag => l_editable_flag
15280: -- it returns version_type if it can be fethced uniquely.
15281: -- else if passed as not null
15282: -- it validates the passed value against the fin plan preference code
15283:
15284: pa_fin_plan_utils.get_version_type
15285: ( p_project_id => l_project_id
15286: ,p_fin_plan_type_id => l_fin_plan_type_id
15287: ,px_version_type => l_version_type
15288: ,x_return_status => p_return_status
15301: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15302:
15303: IF l_autobaseline_flag = 'N' THEN
15304:
15305: pa_fin_plan_utils.Check_if_plan_type_editable (
15306: P_project_id => l_project_id
15307: ,P_fin_plan_type_id => l_fin_plan_type_id
15308: ,P_version_type => l_version_type
15309: ,X_editable_flag => l_editable_flag
15352: -- Bug 2863564
15353: -- Fetch the working budget version with the unique combination of
15354: -- l_project_id, l_finplan_type_id,l_version_type, version_number provided
15355:
15356: pa_fin_plan_utils.get_version_id
15357: ( p_project_id => l_project_id
15358: ,p_fin_plan_type_id => l_fin_plan_type_id
15359: ,p_version_type => l_version_type
15360: ,p_version_number => p_budget_version_number
15389: END IF;
15390: ELSE
15391: -- Fetch the current working version for the project, finplan type and verion type
15392:
15393: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
15394: p_project_id => l_project_id
15395: ,p_fin_plan_type_id => l_fin_plan_type_id
15396: ,p_version_type => l_version_type
15397: ,x_fp_options_id => l_dummy
15451: -- version locked by another user
15452: IF (budget_version_info_rec.locked_by_person_id is not null) then
15453: IF (l_person_id <> budget_version_info_rec.locked_by_person_id) then
15454:
15455: l_locked_by_name := pa_fin_plan_utils.get_person_name(budget_version_info_rec.locked_by_person_id);
15456: PA_UTILS.ADD_MESSAGE
15457: ( p_app_short_name => 'PA',
15458: p_msg_name => 'PA_FP_LCK_BY_USER',
15459: p_token1 => 'PERSON_NAME',
15478: END IF;
15479:
15480: IF budget_version_info_rec.plan_processing_code IN ('XLUE','XLUP') THEN
15481:
15482: pa_fin_plan_utils.return_and_vldt_plan_prc_code
15483: (p_budget_version_id => l_budget_version_id
15484: ,p_plan_processing_code => budget_version_info_rec.plan_processing_code
15485: ,x_final_plan_prc_code => budget_version_info_rec.plan_processing_code
15486: ,x_targ_request_id => l_targ_request_id
15503:
15504: -- Bug 2863564
15505: -- Fetch the planning level of the budget version
15506:
15507: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
15508:
15509: ELSIF p_budget_type_code IS NOT NULL OR p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15510: THEN
15511:
15597:
15598: -- Bug 2863564
15599: -- Call the api that performs the autobaseline checks
15600:
15601: PA_FIN_PLAN_UTILS.PERFORM_AUTOBASLINE_CHECKS (
15602: p_budget_version_id => l_budget_version_id
15603: ,x_result => l_result
15604: ,x_return_status => p_return_status
15605: ,x_msg_count => p_msg_count
15630: THEN
15631: -- Derive the version type using the budget amount code to restrict
15632: -- the users editing the 'COST' amounts if the version is 'REVENUE_ONLY'
15633:
15634: PA_FIN_PLAN_UTILS.get_version_type_for_bdgt_type
15635: ( p_budget_type_code => l_budget_type_code
15636: ,x_version_type => l_version_type
15637: ,x_return_status => p_return_status
15638: ,x_msg_count => p_msg_count
15685: IF p_update_db_flag = 'Y' AND l_context = l_context_finplan THEN
15686:
15687: -- Fetch the record version number of the plan version
15688: l_record_version_number :=
15689: PA_FIN_PLAN_UTILS.RETRIEVE_RECORD_VERSION_NUMBER(l_budget_version_id);
15690:
15691: PA_FIN_PLAN_PVT.LOCK_UNLOCK_VERSION
15692: ( p_budget_version_id => l_budget_version_id
15693: ,p_record_version_number => l_record_version_number
15831:
15832: l_line_ctr := 0;
15833:
15834: IF l_context = l_context_finplan THEN
15835: l_time_phased_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(l_budget_version_id);
15836: END IF;
15837:
15838: OPEN budget_version_info_cur(l_budget_version_id);
15839: FETCH budget_version_info_cur INTO budget_version_info_rec;
16752: -- Bug 2863564 We need to unlock the version
16753:
16754: -- Fetch the record version number of the plan version
16755: l_record_version_number :=
16756: PA_FIN_PLAN_UTILS.RETRIEVE_RECORD_VERSION_NUMBER(l_budget_version_id);
16757:
16758: PA_FIN_PLAN_PVT.LOCK_UNLOCK_VERSION
16759: ( p_budget_version_id => l_budget_version_id
16760: ,p_record_version_number => l_record_version_number
17921: THEN
17922: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17923: END IF;
17924:
17925: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
17926: p_project_id => l_project_id
17927: ,p_fin_plan_type_id => l_fin_plan_type_id
17928: ,p_version_type => l_version_type
17929: ,x_fp_options_id => l_fp_options_id
17943: IF (l_curr_work_version_id IS NOT NULL) THEN
17944:
17945: IF nvl(p_replace_current_working_flag,'N')= 'Y' THEN
17946:
17947: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
17948: (p_budget_version_id => l_curr_work_version_id);
17949: l_user_id := FND_GLOBAL.User_id;
17950: pa_fin_plan_pvt.lock_unlock_version
17951: (p_budget_version_id => l_curr_work_version_id,
18028: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18029: END IF;
18030:
18031: --Get the plan type flag values
18032: pa_fin_plan_utils.get_plan_amount_flags (
18033: p_amount_set_id => l_pt_amount_set_id,
18034: x_raw_cost_flag => l_pt_raw_cost_flag,
18035: x_burdened_flag => l_pt_burdened_flag,
18036: x_revenue_flag => l_pt_revenue_flag,
18044: x_return_status => x_return_status,
18045: x_message_data => x_msg_data);
18046:
18047: IF l_debug_mode = 'Y' THEN
18048: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18064: END IF;
18065:
18066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18067:
18068: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
18069: IF l_debug_mode = 'Y' THEN
18070: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
18071: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18072: END IF;
18079: /* Bug 5478041: Modified the following 6 variables from parameterized variables to
18080: local variables : l_raw_cost_flag,l_burdened_cost_flag,l_revenue_flag,l_cost_qty_flag
18081: l_revenue_qty_flag and l_all_qty_flag*/
18082:
18083: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
18084: (
18085: p_raw_cost_flag => l_raw_cost_flag
18086: ,p_burdened_cost_flag => l_burdened_cost_flag
18087: ,p_revenue_flag => l_revenue_flag
18100: ,x_message_data => x_msg_data
18101: );
18102: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18103: IF l_debug_mode = 'Y' THEN
18104: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
18105: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
18106: END IF;
18107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18108: END IF;
18775:
18776: IF ( p_create_new_curr_working_flag = 'Y' OR
18777: p_replace_current_working_flag = 'Y')
18778: THEN
18779: --dbms_output.put_line('pa_fin_plan_utils.Get_Curr_Working_Version_Info');
18780: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
18781: p_project_id => l_project_id
18782: ,p_fin_plan_type_id => l_fin_plan_type_id
18783: ,p_version_type => l_version_type
18776: IF ( p_create_new_curr_working_flag = 'Y' OR
18777: p_replace_current_working_flag = 'Y')
18778: THEN
18779: --dbms_output.put_line('pa_fin_plan_utils.Get_Curr_Working_Version_Info');
18780: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
18781: p_project_id => l_project_id
18782: ,p_fin_plan_type_id => l_fin_plan_type_id
18783: ,p_version_type => l_version_type
18784: ,x_fp_options_id => l_proj_fp_options_id
18801: pa_debug.write( l_procedure_name ||
18802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18803: END IF;
18804:
18805: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18806:
18807: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
18808: l_user_id := FND_GLOBAL.User_id;
18809: PA_COMP_PROFILE_PUB.GET_USER_INFO
18803: END IF;
18804:
18805: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18806:
18807: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
18808: l_user_id := FND_GLOBAL.User_id;
18809: PA_COMP_PROFILE_PUB.GET_USER_INFO
18810: (p_user_id => l_user_id,
18811: x_person_id => t_person_id,
18834: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
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,