[Home] [Help]
623: * changing it now, since, pa_get_resource.get_uncateg_resource_info owned by RF
624: * team, as of now, has the same performance issue of full table scans on RLM
625: * and pa_resources tables. */
626: --Get the uncategorized resource list info.
627: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
628: (x_resource_list_id => l_uncategorized_res_list_id,
629: x_resource_list_member_id => l_uncategorized_rlmid,
630: x_track_as_labor_flag => l_unc_track_as_labor_flag,
631: x_unit_of_measure => l_unc_unit_of_measure,
1968:
1969: IF (p_replace_current_working_flag = 'Y' OR
1970: p_create_new_curr_working_flag = 'Y') THEN
1971: --Get the current working version info
1972: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
1973: p_project_id => l_project_id
1974: ,p_fin_plan_type_id => l_fin_plan_type_id
1975: ,p_version_type => l_version_type
1976: ,x_fp_options_id => l_proj_fp_options_id
2044: into l_locked_by_person_id from pa_budget_versions
2045: where budget_version_id = l_CW_version_id;
2046:
2047: --Get the record version number of the current working version
2048: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2049:
2050: pa_fin_plan_pvt.lock_unlock_version
2051: (p_budget_version_id => l_CW_version_id,
2052: p_record_version_number => l_CW_record_version_number,
2148: IF p_create_new_curr_working_flag = 'Y'
2149: AND l_CW_version_id IS NOT NULL
2150: AND l_locked_by_person_id IS NULL THEN
2151: --Get the record version number of the current working version
2152: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2153: pa_fin_plan_pvt.lock_unlock_version
2154: (p_budget_version_id => l_CW_version_id,
2155: p_record_version_number => l_CW_record_version_number,
2156: p_action => 'U',
3873: l_version_type := p_version_type;
3874: END IF;
3875:
3876: --Derive the version type.
3877: pa_fin_plan_utils.get_version_type
3878: ( p_project_id => l_project_id
3879: ,p_fin_plan_type_id => l_fin_plan_type_id
3880: ,px_version_type => l_version_type
3881: ,x_return_status => l_return_status
3917:
3918: END IF;
3919:
3920: -- Get the current baselined version
3921: pa_fin_plan_utils.Get_Baselined_Version_Info(
3922: p_project_id => l_project_id
3923: ,p_fin_plan_type_id => l_fin_plan_type_id
3924: ,p_version_type => l_version_type
3925: ,x_fp_options_id => l_baselined_Ver_options_id
4086: l_curr_working_version_id := l_budget_versions_rec.budget_version_id;
4087:
4088: ELSE -- Fin Plan Model. Get the current working version info
4089:
4090: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
4091: p_project_id => l_project_id
4092: ,p_fin_plan_type_id => l_fin_plan_type_id
4093: ,p_version_type => l_version_type
4094: ,x_fp_options_id => l_CW_ver_options_id
4130: END IF;
4131:
4132: END IF;
4133:
4134: pa_fin_plan_utils.return_and_vldt_plan_prc_code
4135: (p_budget_version_id => l_curr_working_version_id
4136: ,x_final_plan_prc_code => l_final_plan_prc_code
4137: ,x_targ_request_id => l_targ_request_id
4138: ,x_return_status => l_return_status
4160:
4161: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'N') THEN
4162: -- dbms_output.put_line('about to call autobaseline checks API ');
4163:
4164: pa_fin_plan_utils.perform_autobasline_checks
4165: ( p_budget_version_id => l_curr_working_version_id
4166: ,x_result => l_result
4167: ,x_return_status => p_return_status
4168: ,x_msg_count => p_msg_count
4434: ELSE -- Verify budget rules will be called by the baseline api in fin plan model.
4435: -- Lock the version in the finplan model
4436:
4437: --Get the record version number of the current working version
4438: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4439:
4440: -- Lock the current working version
4441:
4442: pa_fin_plan_pvt.lock_unlock_version
4726:
4727: --Get the record version number of the current baselined version
4728: IF l_baselined_version_id IS NOT NULL THEN
4729: --Get the record version number
4730: l_CB_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4731: ELSE
4732: l_CB_record_version_number:=NULL;
4733: END IF;
4734:
4732: l_CB_record_version_number:=NULL;
4733: END IF;
4734:
4735: --Get the record version number of the current working version (As it will be incremented by the lock_unlock_version)
4736: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4737:
4738: IF l_debug_mode = 'Y' THEN
4739: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4740: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4788: END IF;
4789:
4790: -- Fetch the details current baselined version
4791: pa_fin_plan_utils.Get_Baselined_Version_Info(
4792: p_project_id => l_project_id
4793: ,p_fin_plan_type_id => l_fin_plan_type_id
4794: ,p_version_type => l_version_type
4795: ,x_fp_options_id => l_baselined_Ver_options_id
4803: -- RAISE FND_API.G_EXC_ERROR;
4804: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4805: END IF;
4806:
4807: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4808:
4809: IF l_orig_baselined_ver_rec.budget_version_id IS NOT NULL THEN
4810:
4811: l_orig_baselined_ver_rec.record_version_number:=pa_fin_plan_utils.Retrieve_Record_Version_Number
4807: l_CB_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_baselined_version_id);
4808:
4809: IF l_orig_baselined_ver_rec.budget_version_id IS NOT NULL THEN
4810:
4811: l_orig_baselined_ver_rec.record_version_number:=pa_fin_plan_utils.Retrieve_Record_Version_Number
4812: (l_orig_baselined_ver_rec.budget_version_id);
4813:
4814: END IF;
4815:
5611: --actuals on FORECAST check
5612: l_version_info_rec.x_budget_version_id := l_budget_version_id;
5613:
5614: --Get entry method options and validate them against cost, rev and quantity passed
5615: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
5616:
5617: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
5618: P_AMOUNT_SET_ID => l_amount_set_id
5619: ,X_RAW_COST_FLAG => lx_raw_cost_flag
5613:
5614: --Get entry method options and validate them against cost, rev and quantity passed
5615: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
5616:
5617: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
5618: P_AMOUNT_SET_ID => l_amount_set_id
5619: ,X_RAW_COST_FLAG => lx_raw_cost_flag
5620: ,X_BURDENED_FLAG => lx_burdened_cost_flag
5621: ,X_REVENUE_FLAG => lx_revenue_flag
5754: l_finplan_lines_tab(1).resource_assignment_id := -1;
5755:
5756:
5757: --Lock the budget version before inserting a budget line
5758: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
5759: (p_budget_version_id => l_budget_version_id);
5760:
5761: PA_FIN_PLAN_PVT.lock_unlock_version
5762: ( p_budget_version_id => l_budget_version_id
5798: END IF;
5799:
5800:
5801: --unlock the budget version after inserting the budget line
5802: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
5803: (p_budget_version_id => l_budget_version_id);
5804:
5805: PA_FIN_PLAN_PVT.lock_unlock_version
5806: ( p_budget_version_id => l_budget_version_id
6577: l_version_type := p_version_type;
6578: END IF;
6579: --Changes Done.
6580:
6581: pa_fin_plan_utils.get_version_type
6582: ( p_project_id => l_project_id
6583: ,p_fin_plan_type_id => l_fin_plan_type_id
6584: ,px_version_type => l_version_type
6585: ,x_return_status => p_return_status
6625: --deleted. If current working version doesn't exist then error
6626: --message is thrown
6627: IF ll_version_number IS NULL THEN
6628:
6629: PA_FIN_PLAN_UTILS.get_curr_working_version_info
6630: ( p_project_id => l_project_id
6631: ,p_fin_plan_type_id => l_fin_plan_type_id
6632: ,p_version_type => l_version_type
6633: ,x_fp_options_id => l_fp_options_id
6638:
6639: ELSE --version_number not NULL
6640: --Derive the version Id depending on the parameters passed as input.
6641:
6642: PA_FIN_PLAN_UTILS.get_version_id
6643: ( p_project_id => l_project_id
6644: ,p_fin_plan_type_id => l_fin_plan_type_id
6645: ,p_version_type => l_version_type
6646: ,p_version_number => ll_version_number
6708:
6709: --Bug 4224464: Following validation has been added as part of
6710: --FP M Changes for delete_draft_budget. If the budget version
6711: --belongs to an org forecast project then throw an error
6712: IF (PA_FIN_PLAN_UTILS.is_orgforecast_plan(l_budget_version_id) = 'Y')
6713: THEN
6714: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6715: THEN
6716: PA_UTILS.add_message
6727: l_any_error_occurred_flag:='Y' ;
6728: END IF; --org_forecast = 'Y'
6729:
6730: --Lock the version before deleting it
6731: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
6732: (p_budget_version_id => l_budget_version_id);
6733: pa_fin_plan_pvt.lock_unlock_version
6734: ( p_budget_version_id => l_budget_version_id
6735: ,p_record_version_number => l_record_version_number
6761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6762: END IF;
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
6963: -- PA_PROJECT_PVT.convert_pm_projref_to_id
6964: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
6965: -- PA_BUDGET_UTILS.delete_draft
6966: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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
6964: -- PA_PM_FUNCTION_SECURITY_PUB.check_budget_security
6965: -- PA_BUDGET_UTILS.delete_draft
6966: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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: --
6965: -- PA_BUDGET_UTILS.delete_draft
6966: -- PA_FIN_PLAN_PVT.convert_plan_type_name_to_id
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:
7580:
7581: END IF;
7582:
7583: --Validate / get the version type
7584: PA_FIN_PLAN_UTILS.get_version_type
7585: ( p_project_id => l_project_id
7586: ,p_fin_plan_type_id => l_fin_plan_type_id
7587: ,px_version_type => l_version_type
7588: ,x_return_status => p_return_status
7644: l_any_error_occurred_flag:='Y' ;
7645: END IF; --l_budget_version_id IS NULL
7646:
7647: --if the budget version belongs to an org forecast project then throw an error
7648: IF (PA_FIN_PLAN_UTILS.is_orgforecast_plan(l_budget_version_id) = 'Y')
7649: THEN
7650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7651: THEN
7652: PA_UTILS.add_message
7674: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7675: END IF;
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
8718: ELSIF l_fin_plan_type_id IS NOT NULL --new FINPLAN model
8719: THEN
8720:
8721: --Lock the budget version before deleting a budget line
8722: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8723: (p_budget_version_id => l_budget_version_id);
8724:
8725: PA_FIN_PLAN_PVT.lock_unlock_version
8726: ( p_budget_version_id => l_budget_version_id
8788: RAISE FND_API.G_EXC_ERROR;
8789: END IF;
8790:
8791: --unlock the budget version after deleting the budget line
8792: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
8793: (p_budget_version_id => l_budget_version_id);
8794:
8795: PA_FIN_PLAN_PVT.lock_unlock_version
8796: ( p_budget_version_id => l_budget_version_id
9700: x_person_id => l_person_id,
9701: x_resource_id => l_resource_id,
9702: x_resource_name => l_resource_name);
9703:
9704: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
9705: (p_budget_version_id => l_budget_version_id);
9706:
9707: --Try to lock the version before updating the version. This is required so that nobody else can access it.
9708: pa_fin_plan_pvt.lock_unlock_version
9727: END IF;
9728: END IF; -- END IF FOR l_budget_type_code is not null
9729:
9730:
9731: l_time_phased_type_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(l_budget_version_id);
9732:
9733: IF p_multiple_task_msg = 'F' THEN
9734: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9735: END IF;
9746: /*
9747: --Added after review comments
9748: IF l_budget_type_code IS NULL THEN
9749: -- dbms_output.put_line ('about to get plan amt flags ');
9750: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9751:
9752: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9753: P_AMOUNT_SET_ID => l_amount_set_id
9754: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9748: IF l_budget_type_code IS NULL THEN
9749: -- dbms_output.put_line ('about to get plan amt flags ');
9750: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9751:
9752: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9753: P_AMOUNT_SET_ID => l_amount_set_id
9754: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9755: ,X_BURDENED_FLAG => lx_burdened_cost_flag
9756: ,X_REVENUE_FLAG => lx_revenue_flag
9788: ( lx_bill_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9789: ( lx_cost_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9790: ( lx_burden_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
9791:
9792: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9793:
9794: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9795: P_AMOUNT_SET_ID => l_amount_set_id
9796: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9790: ( lx_burden_rate_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
9791:
9792: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
9793:
9794: PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS(
9795: P_AMOUNT_SET_ID => l_amount_set_id
9796: ,X_RAW_COST_FLAG => lx_raw_cost_flag
9797: ,X_BURDENED_FLAG => lx_burdened_cost_flag
9798: ,X_REVENUE_FLAG => lx_revenue_flag
10281: nvl(l_current_working_flag,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
10282: THEN
10283: -- Get the details of the current working version so as to pass it to the
10284: -- Set Current Working API.
10285: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
10286: p_project_id => l_project_id
10287: ,p_fin_plan_type_id => l_fin_plan_type_id
10288: ,p_version_type => lx_version_type
10289: ,x_fp_options_id => l_proj_fp_options_id
10299: -- Further processing is required only if the version to be updated is not the current working verion
10300: IF l_budget_version_id <> l_CW_version_id THEN
10301:
10302: --Get the record version number of the current working version
10303: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10304:
10305: --Get the record version number of the version to be updated
10306: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_budget_version_id);
10307:
10302: --Get the record version number of the current working version
10303: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10304:
10305: --Get the record version number of the version to be updated
10306: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_budget_version_id);
10307:
10308: pa_fin_plan_pvt.lock_unlock_version
10309: (p_budget_version_id => l_CW_version_id,
10310: p_record_version_number => l_CW_record_version_number,
10331: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10332: END IF;
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,
10407: END IF;
10408:
10409:
10410: --Get the amount set id.
10411: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
10412: (
10413: p_raw_cost_flag => lx_raw_cost_flag
10414: ,p_burdened_cost_flag => lx_burdened_cost_flag
10415: ,p_revenue_flag => lx_revenue_flag
10908: END IF;
10909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10910: END IF;
10911:
10912: pa_fin_plan_utils.validate_currency_attributes
10913: (px_project_cost_rate_type => lx_project_cost_rate_type
10914: ,px_project_cost_rate_date_typ => lx_project_cost_rate_date_typ
10915: ,px_project_cost_rate_date => lx_project_cost_rate_date
10916: ,px_project_cost_exchange_rate => l_project_cost_exchange_rate
11619: --Checking it its a new budget line.
11620: IF (l_dummy <> 'X' OR l_dummy IS NULL) OR (l_new_resource_assignment) OR (lx_resource_list_id <> l_resource_list_id) THEN
11621: --This is a new line case.
11622: --Get the uncategorized resource list info.
11623: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
11624: (x_resource_list_id => l_uncategorized_res_list_id,
11625: x_resource_list_member_id => l_uncategorized_rlmid,
11626: x_track_as_labor_flag => l_unc_track_as_labor_flag,
11627: x_unit_of_measure => l_unc_unit_of_measure,
12407: END IF;
12408:
12409:
12410: -- Unlock the version now that the budget version is updated.
12411: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
12412: (p_budget_version_id => l_budget_version_id);
12413:
12414: --Try to lock the version before updating the version. This is required so that nobody else can access it.
12415: pa_fin_plan_pvt.lock_unlock_version
13459: --Get entry method options and validate them against cost, rev and quantity passed
13460: IF l_budget_type_code IS NULL AND l_fin_plan_type_id IS NOT NULL
13461: THEN
13462:
13463: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
13464:
13465: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
13466: P_AMOUNT_SET_ID => l_amount_set_id
13467: ,X_RAW_COST_FLAG => lx_raw_cost_flag
13461: THEN
13462:
13463: l_amount_set_id := PA_FIN_PLAN_UTILS.get_amount_set_id(l_budget_version_id);
13464:
13465: PA_FIN_PLAN_UTILS.get_plan_amount_flags(
13466: P_AMOUNT_SET_ID => l_amount_set_id
13467: ,X_RAW_COST_FLAG => lx_raw_cost_flag
13468: ,X_BURDENED_FLAG => lx_burdened_cost_flag
13469: ,X_REVENUE_FLAG => lx_revenue_flag
13831: l_finplan_lines_tab(1).budget_line_id := l_budget_line_id;
13832: l_finplan_lines_tab(1).budget_version_id := l_budget_version_id;
13833:
13834: --Lock the budget version before updating a budget line
13835: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
13836: (p_budget_version_id => l_budget_version_id);
13837:
13838: PA_FIN_PLAN_PVT.lock_unlock_version
13839: ( p_budget_version_id => l_budget_version_id
13875: END IF;
13876:
13877:
13878: --unlock the budget version after updating the budget line
13879: l_record_version_number := PA_FIN_PLAN_UTILS.retrieve_record_version_number
13880: (p_budget_version_id => l_budget_version_id);
13881:
13882: PA_FIN_PLAN_PVT.lock_unlock_version
13883: ( p_budget_version_id => l_budget_version_id
14285: ,bv.budget_status_code budget_status_code
14286: ,bv.ci_id ci_id -- raja
14287: ,pt.fin_plan_type_code fin_plan_type_code
14288: ,pt.name fin_plan_type_name
14289: ,pa_fin_plan_utils.get_fin_plan_level_code(bv.budget_version_id) plan_level_code
14290: ,bv.locked_by_person_id
14291: ,bv.request_id
14292: ,pt.plan_class_code
14293: ,bv.etc_start_date
14593:
14594: -- Bug 2863564 This is redundant code and thus commented out
14595: /*
14596: -- Get the project and project functional currencies so that they can be used later
14597: pa_fin_plan_utils.Get_Project_Curr_Attributes
14598: ( p_project_id => l_project_id
14599: ,x_multi_currency_billing_flag => l_multi_currency_billing_flag
14600: ,x_project_currency_code => l_project_currency_code
14601: ,x_projfunc_currency_code => l_projfunc_currency_code
14819: IF (budget_version_info_rec.locked_by_person_id is not null) then
14820: IF (l_person_id <> budget_version_info_rec.locked_by_person_id) then
14821:
14822: l_locked_by_name :=
14823: pa_fin_plan_utils.get_person_name(budget_version_info_rec.locked_by_person_id);
14824: PA_UTILS.ADD_MESSAGE
14825: ( p_app_short_name => 'PA',
14826: p_msg_name => 'PA_FP_LCK_BY_USER',
14827: p_token1 => 'PERSON_NAME',
14843: CLOSE budget_version_info_cur;
14844: RAISE FND_API.G_EXC_ERROR;
14845: END IF;
14846:
14847: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
14848:
14849: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
14850:
14851: IF l_autobaseline_flag = 'N' THEN
14849: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
14850:
14851: IF l_autobaseline_flag = 'N' THEN
14852:
14853: pa_fin_plan_utils.Check_if_plan_type_editable (
14854: P_project_id => l_project_id
14855: ,P_fin_plan_type_id => l_fin_plan_type_id
14856: ,P_version_type => l_version_type
14857: ,X_editable_flag => l_editable_flag
15034: -- it returns version_type if it can be fethced uniquely.
15035: -- else if passed as not null
15036: -- it validates the passed value against the fin plan preference code
15037:
15038: pa_fin_plan_utils.get_version_type
15039: ( p_project_id => l_project_id
15040: ,p_fin_plan_type_id => l_fin_plan_type_id
15041: ,px_version_type => l_version_type
15042: ,x_return_status => p_return_status
15055: l_autobaseline_flag := l_amg_project_rec.baseline_funding_flag;
15056:
15057: IF l_autobaseline_flag = 'N' THEN
15058:
15059: pa_fin_plan_utils.Check_if_plan_type_editable (
15060: P_project_id => l_project_id
15061: ,P_fin_plan_type_id => l_fin_plan_type_id
15062: ,P_version_type => l_version_type
15063: ,X_editable_flag => l_editable_flag
15106: -- Bug 2863564
15107: -- Fetch the working budget version with the unique combination of
15108: -- l_project_id, l_finplan_type_id,l_version_type, version_number provided
15109:
15110: pa_fin_plan_utils.get_version_id
15111: ( p_project_id => l_project_id
15112: ,p_fin_plan_type_id => l_fin_plan_type_id
15113: ,p_version_type => l_version_type
15114: ,p_version_number => p_budget_version_number
15143: END IF;
15144: ELSE
15145: -- Fetch the current working version for the project, finplan type and verion type
15146:
15147: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
15148: p_project_id => l_project_id
15149: ,p_fin_plan_type_id => l_fin_plan_type_id
15150: ,p_version_type => l_version_type
15151: ,x_fp_options_id => l_dummy
15205: -- version locked by another user
15206: IF (budget_version_info_rec.locked_by_person_id is not null) then
15207: IF (l_person_id <> budget_version_info_rec.locked_by_person_id) then
15208:
15209: l_locked_by_name := pa_fin_plan_utils.get_person_name(budget_version_info_rec.locked_by_person_id);
15210: PA_UTILS.ADD_MESSAGE
15211: ( p_app_short_name => 'PA',
15212: p_msg_name => 'PA_FP_LCK_BY_USER',
15213: p_token1 => 'PERSON_NAME',
15232: END IF;
15233:
15234: IF budget_version_info_rec.plan_processing_code IN ('XLUE','XLUP') THEN
15235:
15236: pa_fin_plan_utils.return_and_vldt_plan_prc_code
15237: (p_budget_version_id => l_budget_version_id
15238: ,p_plan_processing_code => budget_version_info_rec.plan_processing_code
15239: ,x_final_plan_prc_code => budget_version_info_rec.plan_processing_code
15240: ,x_targ_request_id => l_targ_request_id
15257:
15258: -- Bug 2863564
15259: -- Fetch the planning level of the budget version
15260:
15261: l_entry_level := pa_fin_plan_utils.get_fin_plan_level_code(l_budget_version_id);
15262:
15263: ELSIF p_budget_type_code IS NOT NULL OR p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15264: THEN
15265:
15351:
15352: -- Bug 2863564
15353: -- Call the api that performs the autobaseline checks
15354:
15355: PA_FIN_PLAN_UTILS.PERFORM_AUTOBASLINE_CHECKS (
15356: p_budget_version_id => l_budget_version_id
15357: ,x_result => l_result
15358: ,x_return_status => p_return_status
15359: ,x_msg_count => p_msg_count
15384: THEN
15385: -- Derive the version type using the budget amount code to restrict
15386: -- the users editing the 'COST' amounts if the version is 'REVENUE_ONLY'
15387:
15388: PA_FIN_PLAN_UTILS.get_version_type_for_bdgt_type
15389: ( p_budget_type_code => l_budget_type_code
15390: ,x_version_type => l_version_type
15391: ,x_return_status => p_return_status
15392: ,x_msg_count => p_msg_count
15439: IF p_update_db_flag = 'Y' AND l_context = l_context_finplan THEN
15440:
15441: -- Fetch the record version number of the plan version
15442: l_record_version_number :=
15443: PA_FIN_PLAN_UTILS.RETRIEVE_RECORD_VERSION_NUMBER(l_budget_version_id);
15444:
15445: PA_FIN_PLAN_PVT.LOCK_UNLOCK_VERSION
15446: ( p_budget_version_id => l_budget_version_id
15447: ,p_record_version_number => l_record_version_number
15585:
15586: l_line_ctr := 0;
15587:
15588: IF l_context = l_context_finplan THEN
15589: l_time_phased_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(l_budget_version_id);
15590: END IF;
15591:
15592: OPEN budget_version_info_cur(l_budget_version_id);
15593: FETCH budget_version_info_cur INTO budget_version_info_rec;
16503: -- Bug 2863564 We need to unlock the version
16504:
16505: -- Fetch the record version number of the plan version
16506: l_record_version_number :=
16507: PA_FIN_PLAN_UTILS.RETRIEVE_RECORD_VERSION_NUMBER(l_budget_version_id);
16508:
16509: PA_FIN_PLAN_PVT.LOCK_UNLOCK_VERSION
16510: ( p_budget_version_id => l_budget_version_id
16511: ,p_record_version_number => l_record_version_number
17661: THEN
17662: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17663: END IF;
17664:
17665: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
17666: p_project_id => l_project_id
17667: ,p_fin_plan_type_id => l_fin_plan_type_id
17668: ,p_version_type => l_version_type
17669: ,x_fp_options_id => l_fp_options_id
17683: IF (l_curr_work_version_id IS NOT NULL) THEN
17684:
17685: IF nvl(p_replace_current_working_flag,'N')= 'Y' THEN
17686:
17687: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
17688: (p_budget_version_id => l_curr_work_version_id);
17689: l_user_id := FND_GLOBAL.User_id;
17690: pa_fin_plan_pvt.lock_unlock_version
17691: (p_budget_version_id => l_curr_work_version_id,
17768: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17769: END IF;
17770:
17771: --Get the plan type flag values
17772: pa_fin_plan_utils.get_plan_amount_flags (
17773: p_amount_set_id => l_pt_amount_set_id,
17774: x_raw_cost_flag => l_pt_raw_cost_flag,
17775: x_burdened_flag => l_pt_burdened_flag,
17776: x_revenue_flag => l_pt_revenue_flag,
17784: x_return_status => x_return_status,
17785: x_message_data => x_msg_data);
17786:
17787: IF l_debug_mode = 'Y' THEN
17788: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17804: END IF;
17805:
17806: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17807:
17808: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
17809: IF l_debug_mode = 'Y' THEN
17810: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17811: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17812: END IF;
17819: /* Bug 5478041: Modified the following 6 variables from parameterized variables to
17820: local variables : l_raw_cost_flag,l_burdened_cost_flag,l_revenue_flag,l_cost_qty_flag
17821: l_revenue_qty_flag and l_all_qty_flag*/
17822:
17823: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
17824: (
17825: p_raw_cost_flag => l_raw_cost_flag
17826: ,p_burdened_cost_flag => l_burdened_cost_flag
17827: ,p_revenue_flag => l_revenue_flag
17840: ,x_message_data => x_msg_data
17841: );
17842: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17843: IF l_debug_mode = 'Y' THEN
17844: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
17845: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17846: END IF;
17847: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17848: END IF;
18503:
18504: IF ( p_create_new_curr_working_flag = 'Y' OR
18505: p_replace_current_working_flag = 'Y')
18506: THEN
18507: --dbms_output.put_line('pa_fin_plan_utils.Get_Curr_Working_Version_Info');
18508: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
18509: p_project_id => l_project_id
18510: ,p_fin_plan_type_id => l_fin_plan_type_id
18511: ,p_version_type => l_version_type
18504: IF ( p_create_new_curr_working_flag = 'Y' OR
18505: p_replace_current_working_flag = 'Y')
18506: THEN
18507: --dbms_output.put_line('pa_fin_plan_utils.Get_Curr_Working_Version_Info');
18508: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
18509: p_project_id => l_project_id
18510: ,p_fin_plan_type_id => l_fin_plan_type_id
18511: ,p_version_type => l_version_type
18512: ,x_fp_options_id => l_proj_fp_options_id
18529: pa_debug.write( l_procedure_name ||
18530: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18531: END IF;
18532:
18533: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18534:
18535: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
18536: l_user_id := FND_GLOBAL.User_id;
18537: PA_COMP_PROFILE_PUB.GET_USER_INFO
18531: END IF;
18532:
18533: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18534:
18535: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
18536: l_user_id := FND_GLOBAL.User_id;
18537: PA_COMP_PROFILE_PUB.GET_USER_INFO
18538: (p_user_id => l_user_id,
18539: x_person_id => t_person_id,
18562: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
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,