[Home] [Help]
508: ,p_msg_data => p_msg_data
509: ,p_return_status => p_return_status);
510:
511: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
512: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
513: END IF;
514: */
515:
516: IF l_debug_mode = 'Y' THEN
566: ,x_return_status => p_return_status);
567:
568: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
569:
570: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
571:
572: END IF;
573:
574: IF l_debug_mode = 'Y' THEN
635: x_msg_count => p_msg_count,
636: x_msg_data => p_msg_data );
637:
638: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
639: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
640: -- RAISE FND_API.G_EXC_ERROR;
641: END IF; -- IF l_err_code <> 0 THEN
642:
643: IF l_debug_mode = 'Y' THEN
1199: ,x_return_status => p_return_status);
1200:
1201: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1202:
1203: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1204:
1205: END IF;
1206:
1207: IF l_debug_mode = 'Y' THEN
1346: END IF;
1347:
1348: ELSE--Create a version in the finplan model
1349:
1350: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1351:
1352: l_allow_qty_flag := p_cost_qty_flag;
1353:
1354: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1350: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1351:
1352: l_allow_qty_flag := p_cost_qty_flag;
1353:
1354: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1355:
1356: l_allow_qty_flag := p_revenue_qty_flag;
1357:
1358: ELSE
1640: ,x_return_status => p_return_status);
1641:
1642: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1643:
1644: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1645:
1646: END IF;
1647:
1648: IF l_debug_mode = 'Y' THEN
2004: ,x_msg_count => p_msg_count
2005: ,x_msg_data => p_msg_data );
2006:
2007: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2009: END IF;
2010:
2011: IF l_CW_version_id IS NOT NULL THEN
2012:
2033: IF l_debug_mode = 'Y' THEN
2034: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2036: END IF;
2037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2038:
2039: END IF;
2040:
2041: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2055: ,p_attribute3 => ''
2056: ,p_attribute4 => ''
2057: ,p_attribute5 => '');
2058:
2059: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2060:
2061: END IF;
2062:
2063: --End changes done by Xin Liu for WBS refresh
2087: IF l_debug_mode = 'Y' THEN
2088: pa_debug.g_err_stage := 'Error executing lock unlock version';
2089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2090: END IF;
2091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2092:
2093: END IF;
2094:
2095: END IF;--IF l_CW_version_id IS NOT NULL THEN
2100: PA_FIN_PLAN_PVT.CREATE_DRAFT(
2101: p_project_id => l_project_id
2102: ,p_fin_plan_type_id => l_fin_plan_type_id
2103: ,p_version_type => l_version_type
2104: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API--Bug 4224464.Changed this to AMG_API as this is a AMG flow.
2105: ,p_time_phased_code => l_time_phased_code
2106: ,p_resource_list_id => l_resource_list_id
2107: ,p_fin_plan_level_code => l_fin_plan_level_code
2108: ,p_plan_in_mc_flag => l_plan_in_multi_curr_flag
2164:
2165:
2166: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2167:
2168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2169:
2170: END IF;
2171:
2172: -- Added for Bug #4680197 Unlock the budget version incase is it locked in this create_draft api.
2191: IF l_debug_mode = 'Y' THEN
2192: pa_debug.g_err_stage := 'Error executing lock unlock version';
2193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2194: END IF;
2195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2196: END IF;
2197: END IF;
2198: --Changes ended for Bug #4680197
2199:
2271:
2272:
2273: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2274:
2275: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2276:
2277: END IF;
2278:
2279: IF l_debug_mode = 'Y' THEN
2388: END IF;
2389:
2390:
2391: EXCEPTION
2392: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2393: -- dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2394: ROLLBACK TO create_draft_budget_pub;
2395:
2396: IF p_return_status IS NULL OR
3433: SELECT 'X'
3434: FROM pa_proj_fp_options pfo
3435: WHERE pfo.project_id=c_project_id
3436: AND pfo.fin_plan_type_id=c_fin_plan_type_id
3437: AND pfo.fin_plan_option_level_code=PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
3438:
3439: -- Needed to get the version id and record version number of the original baselined version
3440: CURSOR l_orig_baselined_ver_csr
3441: (c_project_id pa_projects_all.project_id%TYPE,
3540: ,p_msg_data => l_msg_data
3541: ,p_return_status => l_return_status);
3542:
3543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3544: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3545: END IF;
3546: */
3547: --product_code is mandatory
3548: IF p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3767: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3768: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3769: END IF;
3770:
3771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3772:
3773: END IF;
3774:
3775: -- Both Budget Type Code and Fin Plan Type Id should not be not null
3786: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3787: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3788: END IF;
3789:
3790: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3791:
3792: END IF;
3793:
3794: -- Check whether the user has privileges to call this api.
3799: -- This api adds the message to stack in case of error
3800: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
3801: p_api_version_number => p_api_version_number
3802: ,p_project_id => l_project_id
3803: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
3804: ,p_function_name => l_module_name
3805: ,p_version_type => NULL
3806: ,x_return_status => l_return_status
3807: ,x_ret_code => l_security_ret_code );
3813: pa_debug.g_err_stage := 'Security API failed' ;
3814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3815: END IF;
3816:
3817: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3818:
3819: END IF;
3820:
3821:
3864: IF l_debug_mode = 'Y' THEN
3865: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3866: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3867: END IF;
3868: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3869: END IF;
3870:
3871: ELSE -- API is called in the context of fin plan
3872:
3891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3892: END IF;
3893:
3894:
3895: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3896:
3897: END IF;
3898:
3899: -- dbms_output.put_line('Obtained the plan type id'||l_fin_plan_type_id);
3928: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3929: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3930: END IF;
3931:
3932: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3933:
3934: ELSE
3935:
3936: CLOSE l_plan_type_option_csr;
3961: pa_debug.g_err_stage := 'get_version_type failed' ;
3962: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3963: END IF;
3964:
3965: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3966:
3967: END IF;
3968:
3969:
3970: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
3971: p_api_version_number => p_api_version_number
3972: ,p_project_id => l_project_id
3973: ,p_fin_plan_type_id => l_fin_plan_type_id /* Bug 3139924 */
3974: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
3975: ,p_function_name => l_module_name
3976: ,p_version_type => l_version_type
3977: ,x_return_status => l_return_status
3978: ,x_ret_code => l_security_ret_code );
3984: pa_debug.g_err_stage := 'Security API failed' ;
3985: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3986: END IF;
3987:
3988: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3989:
3990: END IF;
3991:
3992: -- Get the current baselined version
4002:
4003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4004: THEN
4005: -- RAISE FND_API.G_EXC_ERROR;
4006: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4007: END IF;
4008:
4009: END IF;--IF p_budget_type_code IS NOT NULL
4010: -- Budget Integration Validation ---------------------------------------
4227: -- PA_AGREEMENT_PUB.create_baselined_budget. This API will only be called
4228: -- in Autobaseline enabled AR plan type / budget type cases only.
4229: -- This check is valid in all other cases when a budget needs to be baselined.
4230:
4231: -- dbms_output.put_line('Value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '||PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
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:
4229: -- This check is valid in all other cases when a budget needs to be baselined.
4230:
4231: -- dbms_output.put_line('Value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '||PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
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
4244: IF(l_debug_mode='Y') THEN
4245: pa_debug.g_err_stage := 'Auto baseline API falied';
4246: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4247: END IF;
4248: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4249: END IF;
4250:
4251:
4252: IF l_result = 'F' THEN
4262:
4263: END IF;
4264: END IF; -- bug 3099706
4265:
4266: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
4267: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
4268: END IF;
4269: -- dbms_output.put_line('Got the CW version ' || l_curr_working_version_id);
4270:
4263: END IF;
4264: END IF; -- bug 3099706
4265:
4266: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
4267: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
4268: END IF;
4269: -- dbms_output.put_line('Got the CW version ' || l_curr_working_version_id);
4270:
4271:
4560: IF l_debug_mode = 'Y' THEN
4561: pa_debug.g_err_stage := 'Error executing lock unlock version';
4562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4563: END IF;
4564: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4565:
4566: END IF;
4567: -- dbms_output.put_line('The no of messages in the stack 2 '||FND_MSG_PUB.count_msg);
4568:
4645: END IF;
4646: -- dbms_output.put_line('Displaying all messages');
4647: l_return_status := FND_API.G_RET_STS_ERROR;
4648: l_any_error_occurred_flag := 'Y';
4649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4650: END IF;
4651: -- dbms_output.put_line('Starting with workflow = T');
4652:
4653: IF (l_workflow_is_used = 'T' ) THEN
4877: IF l_debug_mode = 'Y' THEN
4878: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4879: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4880: END IF;
4881: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4882:
4883: END IF;
4884:
4885: -- dbms_output.put_line('About to call mark as original api');
4906:
4907: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4908: THEN
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:
4938: IF l_debug_mode = 'Y' THEN
4939: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4940: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4941: END IF;
4942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4943:
4944: END IF;
4945:
4946: END IF;
4962: IF l_debug_mode = 'Y' THEN
4963: pa_debug.g_err_stage := 'Error executing lock unlock version';
4964: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4965: END IF;
4966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4967:
4968: END IF;
4969:
4970: --End changes bug 6453987 - skkoppul
4987:
4988:
4989: EXCEPTION
4990:
4991: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4992: ROLLBACK TO baseline_budget_pub;
4993:
4994: IF p_return_status IS NULL OR
4995: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
5328: IF(l_debug_mode='Y') THEN
5329: pa_debug.g_err_stage := 'validate header info API falied';
5330: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5331: END IF;
5332: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5333: END IF;
5334:
5335:
5336: --Get Task number for AMG Messages
5785: IF(l_debug_mode='Y') THEN
5786: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5788: END IF;
5789: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5790: END IF;
5791:
5792: --Derive the value of all_qty_flag based on version_type
5793: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5789: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5790: END IF;
5791:
5792: --Derive the value of all_qty_flag based on version_type
5793: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5794: l_allow_qty_flag := lx_cost_qty_flag;
5795: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5796: l_allow_qty_flag := lx_revenue_qty_flag;
5797: ELSE
5791:
5792: --Derive the value of all_qty_flag based on version_type
5793: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5794: l_allow_qty_flag := lx_cost_qty_flag;
5795: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5796: l_allow_qty_flag := lx_revenue_qty_flag;
5797: ELSE
5798: l_allow_qty_flag := lx_all_qty_flag;
5799: END IF;
5845: IF(l_debug_mode='Y') THEN
5846: pa_debug.g_err_stage := 'validate budget lines API falied';
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5848: END IF;
5849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5850: END IF;
5851:
5852:
5853: --Copy the fin plan line data into a table of type pa_fp_rollup_tmp
5932:
5933: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of inserting
5934: --budget lines data in all relevant tables.
5935: PA_FIN_PLAN_PVT.add_fin_plan_lines
5936: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API--Bug 4224464.Changed this to AMG_API as this is a AMG flow.
5937: ,p_fin_plan_version_id => l_budget_version_id
5938: ,p_finplan_lines_tab => l_finplan_lines_tab
5939: ,x_return_status => p_return_status
5940: ,x_msg_count => p_msg_count
5993: END IF;
5994:
5995: EXCEPTION
5996:
5997: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
5998: THEN
5999:
6000: ROLLBACK TO add_budget_line_pub;
6001:
6322: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6323: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6324: END IF;
6325:
6326: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6327:
6328: END IF;
6329:
6330: -- Both Budget Type Code and Fin Plan Type Id should not be not null
6342: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6344: END IF;
6345:
6346: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6347:
6348: END IF;
6349:
6350:
6449: --Check for the security
6450: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
6451: p_api_version_number => p_api_version_number
6452: ,p_project_id => l_project_id
6453: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
6454: ,p_function_name => 'PA_PM_DELETE_DRAFT_BUDGET'
6455: ,p_version_type => null
6456: ,x_return_status => p_return_status
6457: ,x_ret_code => l_security_ret_code );
6466: pa_debug.g_err_stage:= 'Security API Failed';
6467: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6468: END IF;
6469:
6470: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6471: END IF;
6472:
6473: OPEN l_budget_type_csr( p_budget_type_code );
6474:
6594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6595: END IF;
6596: p_return_status := FND_API.G_RET_STS_ERROR;
6597: l_any_error_occurred_flag := 'Y';
6598: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6599: END IF;
6600:
6601: PA_BUDGET_UTILS.delete_draft( x_budget_version_id => l_budget_version_id
6602: ,x_err_code => l_err_code
6690: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6692: END IF;
6693:
6694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6695:
6696: END IF;
6697:
6698: --Bug 4224464: Following validation has been added as part of
6716: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6717: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6718: END IF;
6719:
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6721:
6722: END IF;
6723:
6724: --Validate / get the version type
6745: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6746: END IF;
6747: -- dbms_output.put_line('Exc in getting ver type');
6748:
6749: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6750:
6751: END IF;
6752:
6753: --Check for the security
6754: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
6755: p_api_version_number => p_api_version_number
6756: ,p_project_id => l_project_id
6757: ,p_fin_plan_type_id => l_fin_plan_type_id /* Bug 3139924 */
6758: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6759: ,p_function_name => 'PA_PM_DELETE_DRAFT_BUDGET'
6760: ,p_version_type => l_version_type
6761: ,x_return_status => p_return_status
6762: ,x_ret_code => l_security_ret_code );
6767: IF l_debug_mode = 'Y' THEN
6768: pa_debug.g_err_stage := 'Security API failed' ;
6769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6770: END IF;
6771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6772: END IF;
6773:
6774: --Bug 4224464: Following validation has been added as part of
6775: --FP M Changes for delete_draft_budget.
6814: IF l_debug_mode = 'Y' THEN
6815: pa_debug.g_err_stage := 'i/p version is ci version' ;
6816: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6817: END IF;
6818: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6819: END IF;
6820:
6821: END IF; --version_number IS NULL
6822:
6825: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6827: END IF;
6828:
6829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6830: END IF;
6831:
6832: IF l_budget_version_id IS NULL THEN
6833:
6853: IF l_debug_mode = 'Y' THEN
6854: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6855: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6856: END IF;
6857: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6858:
6859: END IF;
6860:
6861: --Bug 4224464: Following validation has been added as part of
6909: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6910: END IF;
6911: p_return_status := FND_API.G_RET_STS_ERROR;
6912: l_any_error_occurred_flag := 'Y';
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
6929: IF(l_debug_mode='Y') THEN
6930: pa_debug.g_err_stage := 'Failed in deleting the version';
6931: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6932: END IF;
6933: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6934: END IF;
6935:
6936: --Bug 4224464: Following DMLs have been added as part of
6937: --FP M Changes for delete_draft_budget
6937: --FP M Changes for delete_draft_budget
6938: --If the budget version being deleted is a generation source
6939: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
6940: --pa_proj_fp_options table and increase the record_version_no
6941: IF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST
6942: THEN
6943: UPDATE pa_proj_fp_options
6944: SET gen_src_cost_plan_version_id = NULL,
6945: record_version_number = record_version_number + 1,
6947: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
6948: last_update_login = FND_GLOBAL.LOGIN_ID
6949: WHERE project_id = l_project_id
6950: AND gen_src_cost_plan_version_id = l_budget_version_id;
6951: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE
6952: THEN
6953: UPDATE pa_proj_fp_options
6954: SET gen_src_rev_plan_version_id = NULL,
6955: record_version_number = record_version_number + 1,
6957: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
6958: last_update_login = FND_GLOBAL.LOGIN_ID
6959: WHERE project_id = l_project_id
6960: AND gen_src_rev_plan_version_id = l_budget_version_id;
6961: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL
6962: THEN
6963: UPDATE pa_proj_fp_options
6964: SET gen_src_all_plan_version_id = NULL,
6965: record_version_number = record_version_number + 1,
7002: pa_debug.reset_curr_function;
7003: END IF;
7004:
7005: EXCEPTION
7006: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7007:
7008: p_return_status := FND_API.G_RET_STS_ERROR;
7009: l_msg_count := FND_MSG_PUB.count_msg;
7010:
7343: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7348:
7349: END IF;
7350:
7351: --Both Budget Type Code and Fin Plan Type Id should not be not null simultaneously
7364: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7365: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7366: END IF;
7367:
7368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7369:
7370: END IF;
7371:
7372:
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7433: END IF;
7434:
7435: p_return_status := FND_API.G_RET_STS_ERROR;
7436: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7437:
7438: END IF; --l_version_number IS NULL
7439:
7440:
7498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7499: END IF;
7500:
7501: CLOSE l_budget_type_csr;
7502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7503:
7504: END IF; --l_budget_type_csr%NOTFOUND
7505: CLOSE l_budget_type_csr;
7506:
7525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7526: END IF;
7527:
7528: p_return_status := FND_API.G_RET_STS_ERROR;
7529: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7530:
7531: ELSE --l_budget_version_no_rec has been fetched
7532:
7533: IF (l_budget_version_no_rec.current_flag = 'Y'
7544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7545: END IF;
7546:
7547: p_return_status := FND_API.G_RET_STS_ERROR;
7548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7549: END IF;
7550: END IF; --l_budget_version_no_rec.budget_version_id IS NULL
7551:
7552: --Check for the security. We select the function security based
7562:
7563: PA_PM_FUNCTION_SECURITY_PUB.check_budget_security (
7564: p_api_version_number => p_api_version_number
7565: ,p_project_id => l_project_id
7566: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
7567: ,p_function_name => l_function_name
7568: ,p_version_type => null
7569: ,x_return_status => p_return_status
7570: ,x_ret_code => l_security_ret_code );
7578: pa_debug.g_err_stage:= 'Security API Failed';
7579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7580: END IF;
7581:
7582: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7583: END IF;
7584:
7585:
7586: --Check if budgetary control is enabled for this project and budget version
7619: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7620: END IF;
7621: p_return_status := FND_API.G_RET_STS_ERROR;
7622: l_any_error_occurred_flag := 'Y';
7623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7624: END IF;
7625:
7626: --Calling delete API
7627: PA_BUDGET_UTILS.delete_draft( x_budget_version_id => l_budget_version_no_rec.budget_version_id
7705: IF l_debug_mode = 'Y' THEN
7706: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7708: END IF;
7709: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7710:
7711: END IF;
7712:
7713: --check if the fin_plan_type_id is used to store workplan data
7729: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7730: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7731: END IF;
7732:
7733: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7734:
7735: END IF;
7736:
7737: --Validate / get the version type
7747: IF l_debug_mode = 'Y' THEN
7748: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7750: END IF;
7751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7752: END IF;
7753:
7754: --Check for the security
7755: l_function_name:='PA_PM_DELETE_BASELINE_BUDGET';
7756: PA_PM_FUNCTION_SECURITY_PUB.check_budget_security (
7757: p_api_version_number => p_api_version_number
7758: ,p_project_id => l_project_id
7759: ,p_fin_plan_type_id => ll_fin_plan_type_id
7760: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
7761: ,p_function_name => l_function_name
7762: ,p_version_type => l_version_type
7763: ,x_return_status => p_return_status
7764: ,x_ret_code => l_security_ret_code );
7768: IF l_debug_mode = 'Y' THEN
7769: pa_debug.g_err_stage := 'Security API failed' ;
7770: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7771: END IF;
7772: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7773: END IF;
7774:
7775: --Verify the version number passed and derive budget_version_id if it is valid
7776: OPEN l_finplan_version_no_csr
7824: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7825: END IF;
7826: p_return_status := FND_API.G_RET_STS_ERROR;
7827: l_any_error_occurred_flag := 'Y';
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
7844: IF(l_debug_mode='Y') THEN
7845: pa_debug.g_err_stage := 'Failed in deleting the version';
7846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7847: END IF;
7848: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7849: END IF;
7850:
7851: --If the budget version being deleted is a generation source
7852: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
7850:
7851: --If the budget version being deleted is a generation source
7852: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
7853: --pa_proj_fp_options table and increase the record_version_no
7854: IF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST
7855: THEN
7856: UPDATE pa_proj_fp_options
7857: SET gen_src_cost_plan_version_id = NULL,
7858: record_version_number = record_version_number + 1,
7860: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
7861: last_update_login = FND_GLOBAL.LOGIN_ID
7862: WHERE project_id = l_project_id
7863: AND gen_src_cost_plan_version_id = l_budget_version_id;
7864: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE
7865: THEN
7866: UPDATE pa_proj_fp_options
7867: SET gen_src_rev_plan_version_id = NULL,
7868: record_version_number = record_version_number + 1,
7870: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
7871: last_update_login = FND_GLOBAL.LOGIN_ID
7872: WHERE project_id = l_project_id
7873: AND gen_src_rev_plan_version_id = l_budget_version_id;
7874: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL
7875: THEN
7876: UPDATE pa_proj_fp_options
7877: SET gen_src_all_plan_version_id = NULL,
7878: record_version_number = record_version_number + 1,
7913: pa_debug.reset_curr_function;
7914: END IF;
7915:
7916: EXCEPTION
7917: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7918: THEN
7919:
7920: p_return_status := FND_API.G_RET_STS_ERROR;
7921: l_msg_count := FND_MSG_PUB.count_msg;
8149: SELECT approved_rev_plan_type_flag
8150: FROM pa_proj_fp_options
8151: WHERE project_id=c_project_id
8152: AND fin_plan_type_id=c_fin_plan_type_id
8153: AND fin_plan_option_level_code=PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
8154:
8155: l_app_rev_plan_type_flag VARCHAR2(1);
8156:
8157: --This cursor is used to compare a currency code with pfc
8332: IF(l_debug_mode='Y') THEN
8333: pa_debug.g_err_stage := 'validate header info API falied';
8334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8335: END IF;
8336: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8337: END IF;
8338:
8339:
8340: -- convert pm_task_reference to pa_task_id
8575:
8576: -- check for approved rev plan type flag is made here because in case plan type is at
8577: -- cost and revenue separately then version can have currencies other than PFC.
8578: IF( nvl(l_app_rev_plan_type_flag,'N') = 'Y' AND
8579: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST)
8580: THEN
8581:
8582: OPEN l_proj_func_currency_csr( l_project_id
8583: ,l_currency_code);
8598: p_token3 => 'CURRENCY',
8599: p_value3 => l_currency_code);
8600: END IF;
8601:
8602: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8603:
8604: END IF;--l_dummy = 0
8605:
8606: ELSE-- Version is not approved for revenue. The txn curr must be available in fp txn curr table
8624: p_token3 => 'CURRENCY',
8625: p_value3 => l_currency_code);
8626: END IF;
8627:
8628: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8629:
8630: END IF;--l_dummy = 0
8631:
8632: END IF;
8659: || 'null but start_date is not null';
8660: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8661: END IF;
8662:
8663: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8664: END IF;
8665:
8666:
8667: --In case of new model, check if Actuals have been entered for the FORECAST Line.
8706: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8708: END IF;
8709:
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8711: END IF;--end of actuals-on-FORECAST check
8712:
8713: ELSE -- old FORMS based Budgets Model
8714:
8947: (p_project_id => l_project_id
8948: ,p_budget_version_id => l_budget_version_id
8949: ,p_spread_required_flag => 'N'
8950: ,p_source_context => 'BUDGET_LINE'
8951: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_AMG_API
8952: ,p_resource_assignment_tab => l_resource_assignment_tab
8953: ,p_delete_budget_lines_tab => l_delete_budget_lines_tab
8954: ,p_txn_currency_code_tab => l_txn_currency_code_tab
8955: ,p_line_start_date_tab => l_line_start_date_tab
9004:
9005:
9006: EXCEPTION
9007:
9008: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
9009: THEN
9010:
9011: ROLLBACK TO delete_budget_line_pub;
9012:
9825: IF(l_debug_mode='Y') THEN
9826: pa_debug.g_err_stage := 'validate header info API falied';
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9828: END IF;
9829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9830: END IF;
9831:
9832: OPEN l_amg_project_csr( l_project_id );
9833: FETCH l_amg_project_csr INTO l_amg_segment1;
9905: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9906: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9907: END IF;
9908:
9909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9910: END IF;
9911: END IF; -- END IF FOR l_budget_type_code is not null
9912:
9913:
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;
9919:
9920: IF (p_budget_version_name IS NOT NULL AND p_budget_version_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9921: --(p_budget_version_name <> l_budget_version_name) THEN
9949:
9950: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9951: THEN
9952: -- RAISE FND_API.G_EXC_ERROR;
9953: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9954: END IF;
9955: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL. */
9956: /*Commenting ends for bug 6408139 */
9957:
9991:
9992: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9993: THEN
9994: -- RAISE FND_API.G_EXC_ERROR;
9995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9996: END IF;
9997:
9998: END IF ; -- Getting plan flags only when all are passed as G_PA_MISS_CHAR
9999: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL.
10475: ,x_msg_count => l_msg_count
10476: ,x_msg_data => l_msg_data );
10477:
10478: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10479: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10480: END IF;
10481:
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
10504: pa_debug.g_err_stage := 'Error executing lock unlock version';
10505: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10506: END IF;
10507:
10508: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10509:
10510: END IF;
10511:
10512: IF l_debug_mode = 'Y' THEN
10529:
10530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10531: IF l_debug_mode= 'Y' THEN
10532: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10533: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10534: END IF;
10535: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10536: END IF;
10537:
10531: IF l_debug_mode= 'Y' THEN
10532: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10533: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10534: END IF;
10535: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10536: END IF;
10537:
10538: END IF; -- IF l_created_version_id <> l_CW_version_id THEN
10539:
10575: ( lx_cost_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) OR
10576: ( lx_burden_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) ) THEN
10577:
10578: --Get the preference code
10579: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10576: ( lx_burden_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) ) THEN
10577:
10578: --Get the preference code
10579: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10577:
10578: --Get the preference code
10579: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10585: END IF;
10578: --Get the preference code
10579: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10585: END IF;
10586:
10579: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10585: END IF;
10586:
10587: IF l_debug_mode = 'Y' THEN
10580: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10581: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10582: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10583: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10585: END IF;
10586:
10587: IF l_debug_mode = 'Y' THEN
10588: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10610: ,x_return_status => x_return_status
10611: ,x_message_data => l_msg_data
10612: );
10613:
10614: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10615: l_amount_set_id := l_cost_amount_set_id;
10616: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10617: l_amount_set_id := l_rev_amount_set_id;
10618: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10612: );
10613:
10614: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10615: l_amount_set_id := l_cost_amount_set_id;
10616: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10617: l_amount_set_id := l_rev_amount_set_id;
10618: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10619: l_amount_set_id := l_all_amount_set_id;
10620: END IF;
10614: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10615: l_amount_set_id := l_cost_amount_set_id;
10616: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10617: l_amount_set_id := l_rev_amount_set_id;
10618: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10619: l_amount_set_id := l_all_amount_set_id;
10620: END IF;
10621:
10622: IF l_debug_mode = 'Y' THEN
10630: ,p_plan_version_id => l_budget_version_id
10631: );
10632:
10633:
10634: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10635: UPDATE pa_proj_fp_options
10636: SET cost_amount_set_id = l_amount_set_id
10637: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10638: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10634: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10635: UPDATE pa_proj_fp_options
10636: SET cost_amount_set_id = l_amount_set_id
10637: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10638: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10639: UPDATE pa_proj_fp_options
10640: SET revenue_amount_set_id = l_amount_set_id
10641: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10642: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
10638: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10639: UPDATE pa_proj_fp_options
10640: SET revenue_amount_set_id = l_amount_set_id
10641: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10642: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
10643: UPDATE pa_proj_fp_options
10644: SET all_amount_set_id = l_amount_set_id
10645: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10646: END IF;
10916: ,x_msg_data => p_msg_data
10917: ,x_return_status => p_return_status);
10918:
10919: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN -- 3453650
10920: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10921: END IF;
10922:
10923: ELSE --l_budget_type_code IS NOT NULL
10924:
10921: END IF;
10922:
10923: ELSE --l_budget_type_code IS NOT NULL
10924:
10925: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10926: l_allow_qty_flag := lx_cost_qty_flag;
10927: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10928: l_allow_qty_flag := lx_revenue_qty_flag;
10929: ELSE
10923: ELSE --l_budget_type_code IS NOT NULL
10924:
10925: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10926: l_allow_qty_flag := lx_cost_qty_flag;
10927: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10928: l_allow_qty_flag := lx_revenue_qty_flag;
10929: ELSE
10930: l_allow_qty_flag := lx_all_qty_flag;
10931: END IF;
10972: ,x_msg_data => p_msg_data
10973: ,x_return_status => p_return_status);
10974:
10975: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10976: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10977: END IF;
10978: END IF; --l_budget_type_code IS NOT NULL
10979:
10980: --In the below code for finplan model validate header level currency conversion attributes and update them.
11034: IF(l_call_validate_curr_api_flg = 'Y') --Now call the validate_currency_conversion API
11035: THEN
11036: -- Depending on px_version_type initialise l_conv_attrs_to_be_validated
11037:
11038: IF (lx_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
11039: l_conv_attrs_to_be_validated := lx_version_type;
11040: ELSE
11041: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
11042: END IF;
11037:
11038: IF (lx_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
11039: l_conv_attrs_to_be_validated := lx_version_type;
11040: ELSE
11041: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
11042: END IF;
11043:
11044: IF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
11045:
11040: ELSE
11041: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
11042: END IF;
11043:
11044: IF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
11045:
11046: lx_project_rev_rate_type :=NULL;
11047: lx_project_rev_rate_date_typ :=NULL;
11048: lx_project_rev_rate_date :=NULL;
11050: lx_projfunc_rev_rate_type :=NULL;
11051: lx_projfunc_rev_rate_date_typ :=NULL;
11052: lx_projfunc_rev_rate_date :=NULL;
11053:
11054: ELSIF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
11055:
11056: lx_project_cost_rate_type :=NULL;
11057: lx_project_cost_rate_date_typ :=NULL;
11058: lx_project_cost_rate_date :=NULL;
11082: FROM pa_proj_fp_options
11083: WHERE project_id = l_project_id
11084: AND fin_plan_type_id=l_fin_plan_type_id
11085: AND fin_plan_version_id IS NULL
11086: AND fin_plan_option_level_code= PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
11087:
11088: pa_budget_pvt.valid_rate_type
11089: (p_pt_project_cost_rate_type => l_project_cost_rate_type,
11090: p_pt_project_rev_rate_type => l_project_rev_rate_type,
11103: IF l_debug_mode = 'Y' THEN
11104: pa_debug.g_err_stage:= 'valid_rate_type returned error';
11105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
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
11125: ,px_projfunc_rev_rate_date => lx_projfunc_rev_rate_date
11126: ,px_projfunc_rev_exchange_rate => l_projfunc_rev_exchange_rate
11127: ,p_project_currency_code => l_project_currency_code
11128: ,p_projfunc_currency_code => l_projfunc_currency_code
11129: ,p_context => PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER
11130: ,p_attrs_to_be_validated => l_conv_attrs_to_be_validated
11131: ,x_return_status => p_return_status
11132: ,x_msg_count => p_msg_count
11133: ,x_msg_data => p_msg_data);
11137: IF l_debug_mode = 'Y' THEN
11138: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
11139: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11140: END IF;
11141: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11142: END IF;
11143:
11144: IF l_debug_mode = 'Y' THEN
11145: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
11533: ,p_attribute3 => lx_fin_plan_type_name
11534: ,p_attribute4 => ''
11535: ,p_attribute5 => '');
11536:
11537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11538: END IF;
11539:
11540: OPEN l_finplan_line_csr(l_resource_assignment_id
11541: ,l_budget_start_date
12604:
12605: -- dbms_output.put_line ('Calling add_finplan_lines');
12606:
12607: PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
12608: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API /* Bug# 2674353 */
12609: ,p_fin_plan_version_id => l_budget_version_id
12610: ,p_finplan_lines_tab => l_finplan_lines_tab
12611: ,x_return_status => l_return_status
12612: ,x_msg_count => l_msg_count
12616:
12617: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12618: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12619: IF L_DEBUG_MODE = 'Y' THEN
12620: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12621: END IF;
12622: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12623: END IF;
12624: END IF;
12618: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12619: IF L_DEBUG_MODE = 'Y' THEN
12620: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12621: END IF;
12622: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12623: END IF;
12624: END IF;
12625:
12626:
12645: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12646: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12647: END IF;
12648:
12649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12650: END IF;
12651:
12652: END IF; -- END OF l_budget_type_code is null
12653:
12651:
12652: END IF; -- END OF l_budget_type_code is null
12653:
12654: IF p_multiple_task_msg = 'F' THEN
12655: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12656: END IF;
12657:
12658: --summarizing the totals in the table pa_budget_versions
12659: /*Added the below if condition for the bug 3453650*/
12737:
12738:
12739: EXCEPTION
12740:
12741: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12742: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || FND_MSG_PUB.count_msg);
12743: ROLLBACK TO update_budget_pub;
12744:
12745: IF p_return_status IS NULL OR
13390: IF(l_debug_mode='Y') THEN
13391: pa_debug.g_err_stage := 'validate header info API falied';
13392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13393: END IF;
13394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13395: END IF;
13396:
13397: --Store the budget line data in budget line table
13398:
13726: IF(l_debug_mode='Y') THEN
13727: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13729: END IF;
13730: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13731: END IF;
13732:
13733: --Derive the value of all_qty_flag based on version_type
13734: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13730: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13731: END IF;
13732:
13733: --Derive the value of all_qty_flag based on version_type
13734: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13735: l_allow_qty_flag := lx_cost_qty_flag;
13736: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
13737: l_allow_qty_flag := lx_revenue_qty_flag;
13738: ELSE
13732:
13733: --Derive the value of all_qty_flag based on version_type
13734: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13735: l_allow_qty_flag := lx_cost_qty_flag;
13736: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
13737: l_allow_qty_flag := lx_revenue_qty_flag;
13738: ELSE
13739: l_allow_qty_flag := lx_all_qty_flag;
13740: END IF;
13788: IF(l_debug_mode='Y') THEN
13789: pa_debug.g_err_stage := 'validate budget lines API falied';
13790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13791: END IF;
13792: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13793: END IF;
13794:
13795: --Get Task number for AMG Messages
13796: l_amg_task_number := PA_INTERFACE_UTILS_PUB.get_task_number_amg
14103:
14104: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of updating
14105: --budget lines data in all relevant tables.
14106: PA_FIN_PLAN_PVT.add_fin_plan_lines
14107: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API
14108: ,p_fin_plan_version_id => l_budget_version_id
14109: ,p_finplan_lines_tab => l_finplan_lines_tab
14110: ,x_return_status => p_return_status
14111: ,x_msg_count => p_msg_count
14165:
14166:
14167: EXCEPTION
14168:
14169: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
14170: THEN
14171:
14172: ROLLBACK TO update_budget_line_pub;
14173:
14346: -- Bug 2863564 new variables defined for Financial Planning chnages
14347:
14348: l_task_name pa_tasks.task_name%TYPE;
14349: l_context VARCHAR2(30);
14350: l_context_finplan CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN;
14351: l_context_budget CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET;
14352:
14353: -- Bug 2863564 The cursor has been modified for financial planning changes.
14354: -- The changes include fetching of new columns which aren't included in the
14347:
14348: l_task_name pa_tasks.task_name%TYPE;
14349: l_context VARCHAR2(30);
14350: l_context_finplan CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN;
14351: l_context_budget CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET;
14352:
14353: -- Bug 2863564 The cursor has been modified for financial planning changes.
14354: -- The changes include fetching of new columns which aren't included in the
14355: -- view definition. Changing the pa_budget_lines_v view could have a large impact.
14518: SELECT 'x'
14519: FROM pa_proj_fp_options pfo
14520: WHERE pfo.project_id = c_project_id
14521: AND pfo.fin_plan_type_id = c_fin_plan_type_id
14522: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
14523:
14524: proj_fp_options_rec proj_fp_options_cur%ROWTYPE;
14525:
14526: CURSOR budget_version_info_cur (c_budget_version_id IN NUMBER) IS
15997: or
15998: l_context = l_context_budget )
15999: then
16000: IF (p_calc_raw_cost_yn = 'Y' AND
16001: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE)
16002: THEN -- calculate raw cost
16003:
16004: Pa_client_Extn_Budget.Calc_Raw_Cost
16005: (x_budget_version_id => l_budget_version_id,
16132: end if; --l_fin_plan_type_id is not null
16133: END IF;
16134:
16135: IF (p_calc_burdened_cost_yn = 'Y' AND
16136: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE)
16137: THEN
16138:
16139: -- calculate burdened cost. Note that calculated_raw_cost is being
16140: -- used as the parameter,in case both p_calc_raw_cost_yn and
16255: end if; --if l_fin_plan_type_id is not null
16256: END IF;
16257:
16258: IF (p_calc_revenue_yn = 'Y' AND
16259: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST)
16260: THEN
16261:
16262: Pa_client_Extn_Budget.Calc_revenue
16263: ( x_budget_version_id => l_budget_version_id
16597: -- rolling up budget lines data, resource_assignments data and period denorm data.
16598:
16599: /* PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION
16600: ( p_budget_version_id => l_budget_version_id
16601: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
16602: ,x_return_status => p_return_status
16603: ,x_msg_count => p_msg_count
16604: ,x_msg_data => p_msg_data );
16605:
16644: IF l_debug_mode = 'Y' THEN
16645: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16646: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16647: END IF;
16648: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16649: END IF;
16650:
16651: pa_res_asg_currency_pub.maintain_data
16652: (p_fp_cols_rec => l_fp_cols_rec,
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16663: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16664: END IF;
16665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16666: END IF;
16667:
16668: --IPM Architecture Enhancement - End
16669:
17427: l_uncat_rlmid pa_resource_assignments.resource_list_member_id%TYPE;
17428: l_track_as_labor_flag pa_resource_list_members.track_as_labor_flag%TYPE;
17429: l_unit_of_measure pa_resource_assignments.unit_of_measure%TYPE;
17430: -- Bug Fix: 4569365. Removed MRC code.
17431: -- l_calling_context pa_mrc_finplan.g_calling_module%TYPE := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17432: l_calling_context VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17433:
17434: l_plan_tran_context VARCHAR2(30);
17435: l_record_version_number pa_budget_versions.record_version_number%TYPE;
17428: l_track_as_labor_flag pa_resource_list_members.track_as_labor_flag%TYPE;
17429: l_unit_of_measure pa_resource_assignments.unit_of_measure%TYPE;
17430: -- Bug Fix: 4569365. Removed MRC code.
17431: -- l_calling_context pa_mrc_finplan.g_calling_module%TYPE := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17432: l_calling_context VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17433:
17434: l_plan_tran_context VARCHAR2(30);
17435: l_record_version_number pa_budget_versions.record_version_number%TYPE;
17436: l_mixed_resource_planned_flag VARCHAR2(1);
17918: );
17919:
17920: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
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
17932: ,x_msg_count => x_msg_count
17933: ,x_msg_data => x_msg_data );
17934:
17935: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17936: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17937: END IF;
17938:
17939: IF l_debug_mode = 'Y' THEN
17940: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17964: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
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
17978: THEN
17979: pa_debug.g_err_stage:= 'Could not delete the current working version';
17980: IF l_debug_mode = 'Y' THEN
17981: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17983: END IF;
17984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17985: ELSE
17986: pa_debug.g_err_stage:= 'Deleted the current working version';
17980: IF l_debug_mode = 'Y' THEN
17981: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17983: END IF;
17984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17985: ELSE
17986: pa_debug.g_err_stage:= 'Deleted the current working version';
17987: IF l_debug_mode = 'Y' THEN
17988: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17985: ELSE
17986: pa_debug.g_err_stage:= 'Deleted the current working version';
17987: IF l_debug_mode = 'Y' THEN
17988: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17989: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17990: END IF;
17991: END IF;
17992: END IF; --p_replace_current_working_flag = 'Y'
17993: END IF; -- l_curr_work_version_id IS NOT NULL
17991: END IF;
17992: END IF; --p_replace_current_working_flag = 'Y'
17993: END IF; -- l_curr_work_version_id IS NOT NULL
17994:
17995: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17992: END IF; --p_replace_current_working_flag = 'Y'
17993: END IF; -- l_curr_work_version_id IS NOT NULL
17994:
17995: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17993: END IF; -- l_curr_work_version_id IS NOT NULL
17994:
17995: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
18001: END IF;
17994:
17995: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
18001: END IF;
18002:
17995: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
18001: END IF;
18002:
18003: IF l_debug_mode = 'Y' THEN
17996: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17997: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17998: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17999: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
18001: END IF;
18002:
18003: IF l_debug_mode = 'Y' THEN
18004: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
18002:
18003: IF l_debug_mode = 'Y' THEN
18004: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
18005: pa_debug.write(l_procedure_name ||
18006: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18007: END IF;
18008:
18009: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
18010: --These flags will be set for the new plan version that will be created instead of always setting
18012: --amount flags can be passed as input parameters to this API
18013:
18014: --Get the amount set id from the plan type option.
18015: SELECT DECODE(l_version_type,
18016: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
18017: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
18018: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
18019: INTO l_pt_amount_set_id
18020: FROM pa_proj_fp_options
18013:
18014: --Get the amount set id from the plan type option.
18015: SELECT DECODE(l_version_type,
18016: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
18017: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
18018: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
18019: INTO l_pt_amount_set_id
18020: FROM pa_proj_fp_options
18021: WHERE project_id=l_project_id
18014: --Get the amount set id from the plan type option.
18015: SELECT DECODE(l_version_type,
18016: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
18017: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
18018: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
18019: INTO l_pt_amount_set_id
18020: FROM pa_proj_fp_options
18021: WHERE project_id=l_project_id
18022: AND fin_plan_type_id=l_fin_plan_type_id
18024:
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
18027: pa_debug.write(l_procedure_name ||
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 (
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 || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
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 || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18063:
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;
18073: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18074:
18075: END IF;
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;
18073: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18074:
18075: END IF;
18076:
18077: --Bug 5475184. End of derivation logic for bill/cost rate flags from plan type option.
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;
18109:
18110: -- bug 3825873 populating l_allow_qty_flag to call validate_budget_lines
18111:
18108: END IF;
18109:
18110: -- bug 3825873 populating l_allow_qty_flag to call validate_budget_lines
18111:
18112: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
18113: THEN
18114: l_amount_set_id := l_cost_amount_set_id;
18115: l_allow_qty_flag := l_cost_qty_flag; -- p_cost_qty_flag; Bug 5478041
18116: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
18112: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
18113: THEN
18114: l_amount_set_id := l_cost_amount_set_id;
18115: l_allow_qty_flag := l_cost_qty_flag; -- p_cost_qty_flag; Bug 5478041
18116: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
18117: THEN
18118: l_amount_set_id := l_rev_amount_set_id;
18119: l_allow_qty_flag := l_revenue_qty_flag; -- p_revenue_qty_flag;Bug 5478041
18120: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)
18116: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
18117: THEN
18118: l_amount_set_id := l_rev_amount_set_id;
18119: l_allow_qty_flag := l_revenue_qty_flag; -- p_revenue_qty_flag;Bug 5478041
18120: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)
18121: THEN
18122: l_amount_set_id := l_all_amount_set_id;
18123: l_allow_qty_flag := l_all_qty_flag; -- p_all_qty_flag; Bug 5478041
18124: END IF;
18125:
18126: IF l_debug_mode = 'Y' THEN
18127: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
18128: pa_debug.write(l_procedure_name ||
18129: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18130: END IF;
18131:
18132: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18133:
18133:
18134: IF l_debug_mode = 'Y' THEN
18135: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
18136: pa_debug.write(l_procedure_name ||
18137: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18138: END IF;
18139:
18140: l_created_version_id := NULL;
18141:
18142:
18143: IF l_debug_mode = 'Y' THEN
18144: pa_debug.g_err_stage:= 'Calling Create_Version';
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 (
18198: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18199: pa_debug.g_err_stage:= 'Error Create_Version';
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_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) ||']');
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_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() |
18315: ,x_return_status => l_return_status);
18316:
18317: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18318: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18320: END IF;
18321:
18322: END IF; -- p_finplan_trans_tab.COUNT > 0
18323: --dbms_output.put_line('after calling pa_budget_pvt.Validate_Budget_Lines');
18676:
18677: END LOOP;
18678:
18679: Select decode(plan_class_code,
18680: 'BUDGET',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
18681: 'FORECAST',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)
18682: Into l_plan_tran_context
18683: From pa_fin_plan_types_b
18684: Where fin_plan_type_id = l_fin_plan_type_id;
18677: END LOOP;
18678:
18679: Select decode(plan_class_code,
18680: 'BUDGET',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
18681: 'FORECAST',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)
18682: Into l_plan_tran_context
18683: From pa_fin_plan_types_b
18684: Where fin_plan_type_id = l_fin_plan_type_id;
18685:
18798: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18799: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18800: IF l_debug_mode = 'Y' THEN
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:
18826: IF l_debug_mode = 'Y' THEN
18827: pa_debug.g_err_stage := 'Error executing lock unlock version';
18828: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18829: END IF;
18830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18831: END IF;
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage := 'About to call set current working version';
18834: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18850: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18851: IF l_debug_mode = 'Y' THEN
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18855: END IF;
18856: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18857: END IF;
18858: END IF; --l_created_version_id <> l_CW_version_id
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18855: END IF;
18856: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18857: END IF;
18858: END IF; --l_created_version_id <> l_CW_version_id
18859:
18860: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18907: pa_debug.reset_curr_function;
18908: END IF;
18909:
18910: EXCEPTION
18911: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
18912:
18913: ROLLBACK TO create_draft_finplan_pub;
18914:
18915: IF l_debug_mode = 'Y' THEN
19508: IF l_debug_mode = 'Y' THEN
19509: pa_debug.write_file('Parameter p_fin_plan_type_id = ' || p_fin_plan_type_id, 5);
19510: pa_debug.write_file('Parameter p_fin_plan_type_name = ' || p_fin_plan_type_name, 5);
19511: END IF;
19512: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19513: END IF;
19514:
19515: IF p_fin_plan_type_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
19516: SELECT fin_plan_type_id
19602: FND_MESSAGE.SET_NAME('PA','PA_PMC_INVALID_LOV_VAL');
19603: FND_MESSAGE.SET_TOKEN('VALUE',l_err_value);
19604: FND_MESSAGE.SET_TOKEN('FIELD',l_err_field);
19605: FND_MSG_PUB.add;
19606: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
19607: END IF;
19608: -- Bug 9610380 : End
19609:
19610: if p_planning_element_rec_tbl.count = 0 then
19673: THEN
19674: IF l_debug_mode = 'Y' THEN
19675: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19676: END IF;
19677: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19678: END IF;
19679:
19680: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_header_info successful project number is '||l_project_number||' bversion id '||l_budget_version_id);
19681:
19791:
19792: IF l_debug_mode = 'Y' THEN
19793: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19794: END IF;
19795: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19796: END IF;
19797:
19798: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_budget_lines successful');
19799: /*
19977: THEN
19978: IF l_debug_mode = 'Y' THEN
19979: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19980: END IF;
19981: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19982: END IF;
19983:
19984:
19985:
19985:
19986: pa_debug.reset_err_stack;
19987:
19988: EXCEPTION
19989: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
19990:
19991: l_msg_count := FND_MSG_PUB.count_msg;
19992:
19993: IF l_msg_count = 1 THEN
20005: x_msg_data := l_msg_data;
20006: END IF;
20007: IF l_debug_mode = 'Y' THEN
20008: pa_debug.g_err_stage:='Invalid Arguments Passed';
20009: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20010: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
20011: END IF;
20012:
20013: x_return_status:= FND_API.G_RET_STS_ERROR;
20025: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
20026: ,p_procedure_name => 'update_plannning_element_attr');
20027: IF l_debug_mode = 'Y' THEN
20028: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
20029: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20030: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
20031: END IF;
20032:
20033: pa_debug.reset_err_stack;