[Home] [Help]
506: ,p_msg_data => p_msg_data
507: ,p_return_status => p_return_status);
508:
509: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
510: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
511: END IF;
512: */
513:
514: IF l_debug_mode = 'Y' THEN
564: ,x_return_status => p_return_status);
565:
566: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
567:
568: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
569:
570: END IF;
571:
572: IF l_debug_mode = 'Y' THEN
633: x_msg_count => p_msg_count,
634: x_msg_data => p_msg_data );
635:
636: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
637: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
638: -- RAISE FND_API.G_EXC_ERROR;
639: END IF; -- IF l_err_code <> 0 THEN
640:
641: IF l_debug_mode = 'Y' THEN
1188: ,x_return_status => p_return_status);
1189:
1190: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1191:
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193:
1194: END IF;
1195:
1196: IF l_debug_mode = 'Y' THEN
1334: END IF;
1335:
1336: ELSE--Create a version in the finplan model
1337:
1338: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1339:
1340: l_allow_qty_flag := p_cost_qty_flag;
1341:
1342: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1338: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1339:
1340: l_allow_qty_flag := p_cost_qty_flag;
1341:
1342: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1343:
1344: l_allow_qty_flag := p_revenue_qty_flag;
1345:
1346: ELSE
1619: ,x_return_status => p_return_status);
1620:
1621: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1622:
1623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1624:
1625: END IF;
1626:
1627: IF l_debug_mode = 'Y' THEN
1979: ,x_msg_count => p_msg_count
1980: ,x_msg_data => p_msg_data );
1981:
1982: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1985:
1986: IF l_CW_version_id IS NOT NULL THEN
1987:
2008: IF l_debug_mode = 'Y' THEN
2009: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2010: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2011: END IF;
2012: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2013:
2014: END IF;
2015:
2016: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2030: ,p_attribute3 => ''
2031: ,p_attribute4 => ''
2032: ,p_attribute5 => '');
2033:
2034: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2035:
2036: END IF;
2037:
2038: --End changes done by Xin Liu for WBS refresh
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Error executing lock unlock version';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2067:
2068: END IF;
2069:
2070: END IF;--IF l_CW_version_id IS NOT NULL THEN
2075: PA_FIN_PLAN_PVT.CREATE_DRAFT(
2076: p_project_id => l_project_id
2077: ,p_fin_plan_type_id => l_fin_plan_type_id
2078: ,p_version_type => l_version_type
2079: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API--Bug 4224464.Changed this to AMG_API as this is a AMG flow.
2080: ,p_time_phased_code => l_time_phased_code
2081: ,p_resource_list_id => l_resource_list_id
2082: ,p_fin_plan_level_code => l_fin_plan_level_code
2083: ,p_plan_in_mc_flag => l_plan_in_multi_curr_flag
2139:
2140:
2141: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2142:
2143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2144:
2145: END IF;
2146:
2147: -- Added for Bug #4680197 Unlock the budget version incase is it locked in this create_draft api.
2165: IF l_debug_mode = 'Y' THEN
2166: pa_debug.g_err_stage := 'Error executing lock unlock version';
2167: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2168: END IF;
2169: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2170: END IF;
2171: END IF;
2172: --Changes ended for Bug #4680197
2173:
2245:
2246:
2247: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2248:
2249: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2250:
2251: END IF;
2252:
2253: IF l_debug_mode = 'Y' THEN
2362: END IF;
2363:
2364:
2365: EXCEPTION
2366: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2367: -- dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2368: ROLLBACK TO create_draft_budget_pub;
2369:
2370: IF p_return_status IS NULL OR
3361: SELECT 'X'
3362: FROM pa_proj_fp_options pfo
3363: WHERE pfo.project_id=c_project_id
3364: AND pfo.fin_plan_type_id=c_fin_plan_type_id
3365: AND pfo.fin_plan_option_level_code=PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
3366:
3367: -- Needed to get the version id and record version number of the original baselined version
3368: CURSOR l_orig_baselined_ver_csr
3369: (c_project_id pa_projects_all.project_id%TYPE,
3468: ,p_msg_data => l_msg_data
3469: ,p_return_status => l_return_status);
3470:
3471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3472: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3473: END IF;
3474: */
3475: --product_code is mandatory
3476: IF p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3695: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3700:
3701: END IF;
3702:
3703: -- Both Budget Type Code and Fin Plan Type Id should not be not null
3714: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3715: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3716: END IF;
3717:
3718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3719:
3720: END IF;
3721:
3722: -- Check whether the user has privileges to call this api.
3727: -- This api adds the message to stack in case of error
3728: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
3729: p_api_version_number => p_api_version_number
3730: ,p_project_id => l_project_id
3731: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
3732: ,p_function_name => l_module_name
3733: ,p_version_type => NULL
3734: ,x_return_status => l_return_status
3735: ,x_ret_code => l_security_ret_code );
3741: pa_debug.g_err_stage := 'Security API failed' ;
3742: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3743: END IF;
3744:
3745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3746:
3747: END IF;
3748:
3749:
3792: IF l_debug_mode = 'Y' THEN
3793: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3794: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3795: END IF;
3796: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3797: END IF;
3798:
3799: ELSE -- API is called in the context of fin plan
3800:
3819: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3820: END IF;
3821:
3822:
3823: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3824:
3825: END IF;
3826:
3827: -- dbms_output.put_line('Obtained the plan type id'||l_fin_plan_type_id);
3856: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3858: END IF;
3859:
3860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3861:
3862: ELSE
3863:
3864: CLOSE l_plan_type_option_csr;
3889: pa_debug.g_err_stage := 'get_version_type failed' ;
3890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3891: END IF;
3892:
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3894:
3895: END IF;
3896:
3897:
3898: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
3899: p_api_version_number => p_api_version_number
3900: ,p_project_id => l_project_id
3901: ,p_fin_plan_type_id => l_fin_plan_type_id /* Bug 3139924 */
3902: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
3903: ,p_function_name => l_module_name
3904: ,p_version_type => l_version_type
3905: ,x_return_status => l_return_status
3906: ,x_ret_code => l_security_ret_code );
3912: pa_debug.g_err_stage := 'Security API failed' ;
3913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3914: END IF;
3915:
3916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3917:
3918: END IF;
3919:
3920: -- Get the current baselined version
3930:
3931: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3932: THEN
3933: -- RAISE FND_API.G_EXC_ERROR;
3934: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3935: END IF;
3936:
3937: END IF;--IF p_budget_type_code IS NOT NULL
3938: -- Budget Integration Validation ---------------------------------------
4155: -- PA_AGREEMENT_PUB.create_baselined_budget. This API will only be called
4156: -- in Autobaseline enabled AR plan type / budget type cases only.
4157: -- This check is valid in all other cases when a budget needs to be baselined.
4158:
4159: -- dbms_output.put_line('Value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '||PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
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:
4157: -- This check is valid in all other cases when a budget needs to be baselined.
4158:
4159: -- dbms_output.put_line('Value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '||PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
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
4172: IF(l_debug_mode='Y') THEN
4173: pa_debug.g_err_stage := 'Auto baseline API falied';
4174: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4175: END IF;
4176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4177: END IF;
4178:
4179:
4180: IF l_result = 'F' THEN
4190:
4191: END IF;
4192: END IF; -- bug 3099706
4193:
4194: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
4195: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
4196: END IF;
4197: -- dbms_output.put_line('Got the CW version ' || l_curr_working_version_id);
4198:
4191: END IF;
4192: END IF; -- bug 3099706
4193:
4194: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
4195: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
4196: END IF;
4197: -- dbms_output.put_line('Got the CW version ' || l_curr_working_version_id);
4198:
4199:
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage := 'Error executing lock unlock version';
4456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4457: END IF;
4458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4459:
4460: END IF;
4461: -- dbms_output.put_line('The no of messages in the stack 2 '||FND_MSG_PUB.count_msg);
4462:
4539: END IF;
4540: -- dbms_output.put_line('Displaying all messages');
4541: l_return_status := FND_API.G_RET_STS_ERROR;
4542: l_any_error_occurred_flag := 'Y';
4543: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4544: END IF;
4545: -- dbms_output.put_line('Starting with workflow = T');
4546:
4547: IF (l_workflow_is_used = 'T' ) THEN
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4773: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4774: END IF;
4775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4776:
4777: END IF;
4778:
4779: -- dbms_output.put_line('About to call mark as original api');
4800:
4801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4802: THEN
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:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4834: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4835: END IF;
4836: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4837:
4838: END IF;
4839:
4840: END IF;
4856: IF l_debug_mode = 'Y' THEN
4857: pa_debug.g_err_stage := 'Error executing lock unlock version';
4858: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4859: END IF;
4860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4861:
4862: END IF;
4863:
4864: --End changes bug 6453987 - skkoppul
4881:
4882:
4883: EXCEPTION
4884:
4885: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4886: ROLLBACK TO baseline_budget_pub;
4887:
4888: IF p_return_status IS NULL OR
4889: p_return_status = FND_API.G_RET_STS_SUCCESS THEN
5201: IF(l_debug_mode='Y') THEN
5202: pa_debug.g_err_stage := 'validate header info API falied';
5203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5204: END IF;
5205: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5206: END IF;
5207:
5208:
5209: --Get Task number for AMG Messages
5634: IF(l_debug_mode='Y') THEN
5635: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5637: END IF;
5638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5639: END IF;
5640:
5641: --Derive the value of all_qty_flag based on version_type
5642: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5639: END IF;
5640:
5641: --Derive the value of all_qty_flag based on version_type
5642: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5643: l_allow_qty_flag := lx_cost_qty_flag;
5644: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5645: l_allow_qty_flag := lx_revenue_qty_flag;
5646: ELSE
5640:
5641: --Derive the value of all_qty_flag based on version_type
5642: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
5643: l_allow_qty_flag := lx_cost_qty_flag;
5644: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5645: l_allow_qty_flag := lx_revenue_qty_flag;
5646: ELSE
5647: l_allow_qty_flag := lx_all_qty_flag;
5648: END IF;
5694: IF(l_debug_mode='Y') THEN
5695: pa_debug.g_err_stage := 'validate budget lines API falied';
5696: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5697: END IF;
5698: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5699: END IF;
5700:
5701:
5702: --Copy the fin plan line data into a table of type pa_fp_rollup_tmp
5780:
5781: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of inserting
5782: --budget lines data in all relevant tables.
5783: PA_FIN_PLAN_PVT.add_fin_plan_lines
5784: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API--Bug 4224464.Changed this to AMG_API as this is a AMG flow.
5785: ,p_fin_plan_version_id => l_budget_version_id
5786: ,p_finplan_lines_tab => l_finplan_lines_tab
5787: ,x_return_status => p_return_status
5788: ,x_msg_count => p_msg_count
5841: END IF;
5842:
5843: EXCEPTION
5844:
5845: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
5846: THEN
5847:
5848: ROLLBACK TO add_budget_line_pub;
5849:
6170: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6172: END IF;
6173:
6174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6175:
6176: END IF;
6177:
6178: -- Both Budget Type Code and Fin Plan Type Id should not be not null
6190: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6192: END IF;
6193:
6194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6195:
6196: END IF;
6197:
6198:
6297: --Check for the security
6298: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
6299: p_api_version_number => p_api_version_number
6300: ,p_project_id => l_project_id
6301: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
6302: ,p_function_name => 'PA_PM_DELETE_DRAFT_BUDGET'
6303: ,p_version_type => null
6304: ,x_return_status => p_return_status
6305: ,x_ret_code => l_security_ret_code );
6314: pa_debug.g_err_stage:= 'Security API Failed';
6315: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6316: END IF;
6317:
6318: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6319: END IF;
6320:
6321: OPEN l_budget_type_csr( p_budget_type_code );
6322:
6442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6443: END IF;
6444: p_return_status := FND_API.G_RET_STS_ERROR;
6445: l_any_error_occurred_flag := 'Y';
6446: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6447: END IF;
6448:
6449: PA_BUDGET_UTILS.delete_draft( x_budget_version_id => l_budget_version_id
6450: ,x_err_code => l_err_code
6538: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6539: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6540: END IF;
6541:
6542: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6543:
6544: END IF;
6545:
6546: --Bug 4224464: Following validation has been added as part of
6564: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6565: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6566: END IF;
6567:
6568: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6569:
6570: END IF;
6571:
6572: --Validate / get the version type
6593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6594: END IF;
6595: -- dbms_output.put_line('Exc in getting ver type');
6596:
6597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6598:
6599: END IF;
6600:
6601: --Check for the security
6602: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY (
6603: p_api_version_number => p_api_version_number
6604: ,p_project_id => l_project_id
6605: ,p_fin_plan_type_id => l_fin_plan_type_id /* Bug 3139924 */
6606: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6607: ,p_function_name => 'PA_PM_DELETE_DRAFT_BUDGET'
6608: ,p_version_type => l_version_type
6609: ,x_return_status => p_return_status
6610: ,x_ret_code => l_security_ret_code );
6615: IF l_debug_mode = 'Y' THEN
6616: pa_debug.g_err_stage := 'Security API failed' ;
6617: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6618: END IF;
6619: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6620: END IF;
6621:
6622: --Bug 4224464: Following validation has been added as part of
6623: --FP M Changes for delete_draft_budget.
6662: IF l_debug_mode = 'Y' THEN
6663: pa_debug.g_err_stage := 'i/p version is ci version' ;
6664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6665: END IF;
6666: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6667: END IF;
6668:
6669: END IF; --version_number IS NULL
6670:
6673: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6675: END IF;
6676:
6677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6678: END IF;
6679:
6680: IF l_budget_version_id IS NULL THEN
6681:
6701: IF l_debug_mode = 'Y' THEN
6702: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6704: END IF;
6705: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6706:
6707: END IF;
6708:
6709: --Bug 4224464: Following validation has been added as part of
6757: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6758: END IF;
6759: p_return_status := FND_API.G_RET_STS_ERROR;
6760: l_any_error_occurred_flag := 'Y';
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
6777: IF(l_debug_mode='Y') THEN
6778: pa_debug.g_err_stage := 'Failed in deleting the version';
6779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6780: END IF;
6781: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6782: END IF;
6783:
6784: --Bug 4224464: Following DMLs have been added as part of
6785: --FP M Changes for delete_draft_budget
6785: --FP M Changes for delete_draft_budget
6786: --If the budget version being deleted is a generation source
6787: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
6788: --pa_proj_fp_options table and increase the record_version_no
6789: IF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST
6790: THEN
6791: UPDATE pa_proj_fp_options
6792: SET gen_src_cost_plan_version_id = NULL,
6793: record_version_number = record_version_number + 1,
6795: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
6796: last_update_login = FND_GLOBAL.LOGIN_ID
6797: WHERE project_id = l_project_id
6798: AND gen_src_cost_plan_version_id = l_budget_version_id;
6799: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE
6800: THEN
6801: UPDATE pa_proj_fp_options
6802: SET gen_src_rev_plan_version_id = NULL,
6803: record_version_number = record_version_number + 1,
6805: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
6806: last_update_login = FND_GLOBAL.LOGIN_ID
6807: WHERE project_id = l_project_id
6808: AND gen_src_rev_plan_version_id = l_budget_version_id;
6809: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL
6810: THEN
6811: UPDATE pa_proj_fp_options
6812: SET gen_src_all_plan_version_id = NULL,
6813: record_version_number = record_version_number + 1,
6850: pa_debug.reset_curr_function;
6851: END IF;
6852:
6853: EXCEPTION
6854: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6855:
6856: p_return_status := FND_API.G_RET_STS_ERROR;
6857: l_msg_count := FND_MSG_PUB.count_msg;
6858:
7189: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7191: END IF;
7192:
7193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7194:
7195: END IF;
7196:
7197: --Both Budget Type Code and Fin Plan Type Id should not be not null simultaneously
7210: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7211: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7212: END IF;
7213:
7214: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7215:
7216: END IF;
7217:
7218:
7278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7279: END IF;
7280:
7281: p_return_status := FND_API.G_RET_STS_ERROR;
7282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7283:
7284: END IF; --l_version_number IS NULL
7285:
7286:
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: CLOSE l_budget_type_csr;
7348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7349:
7350: END IF; --l_budget_type_csr%NOTFOUND
7351: CLOSE l_budget_type_csr;
7352:
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373:
7374: p_return_status := FND_API.G_RET_STS_ERROR;
7375: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7376:
7377: ELSE --l_budget_version_no_rec has been fetched
7378:
7379: IF (l_budget_version_no_rec.current_flag = 'Y'
7390: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7391: END IF;
7392:
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7395: END IF;
7396: END IF; --l_budget_version_no_rec.budget_version_id IS NULL
7397:
7398: --Check for the security. We select the function security based
7408:
7409: PA_PM_FUNCTION_SECURITY_PUB.check_budget_security (
7410: p_api_version_number => p_api_version_number
7411: ,p_project_id => l_project_id
7412: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET
7413: ,p_function_name => l_function_name
7414: ,p_version_type => null
7415: ,x_return_status => p_return_status
7416: ,x_ret_code => l_security_ret_code );
7424: pa_debug.g_err_stage:= 'Security API Failed';
7425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7426: END IF;
7427:
7428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7429: END IF;
7430:
7431:
7432: --Check if budgetary control is enabled for this project and budget version
7465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7466: END IF;
7467: p_return_status := FND_API.G_RET_STS_ERROR;
7468: l_any_error_occurred_flag := 'Y';
7469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7470: END IF;
7471:
7472: --Calling delete API
7473: PA_BUDGET_UTILS.delete_draft( x_budget_version_id => l_budget_version_no_rec.budget_version_id
7551: IF l_debug_mode = 'Y' THEN
7552: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7553: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7554: END IF;
7555: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7556:
7557: END IF;
7558:
7559: --check if the fin_plan_type_id is used to store workplan data
7575: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7577: END IF;
7578:
7579: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7580:
7581: END IF;
7582:
7583: --Validate / get the version type
7593: IF l_debug_mode = 'Y' THEN
7594: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7595: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7596: END IF;
7597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7598: END IF;
7599:
7600: --Check for the security
7601: l_function_name:='PA_PM_DELETE_BASELINE_BUDGET';
7602: PA_PM_FUNCTION_SECURITY_PUB.check_budget_security (
7603: p_api_version_number => p_api_version_number
7604: ,p_project_id => l_project_id
7605: ,p_fin_plan_type_id => l_fin_plan_type_id
7606: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
7607: ,p_function_name => l_function_name
7608: ,p_version_type => l_version_type
7609: ,x_return_status => p_return_status
7610: ,x_ret_code => l_security_ret_code );
7614: IF l_debug_mode = 'Y' THEN
7615: pa_debug.g_err_stage := 'Security API failed' ;
7616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7617: END IF;
7618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7619: END IF;
7620:
7621: --Verify the version number passed and derive budget_version_id if it is valid
7622: OPEN l_finplan_version_no_csr
7670: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7671: END IF;
7672: p_return_status := FND_API.G_RET_STS_ERROR;
7673: l_any_error_occurred_flag := 'Y';
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
7690: IF(l_debug_mode='Y') THEN
7691: pa_debug.g_err_stage := 'Failed in deleting the version';
7692: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7693: END IF;
7694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7695: END IF;
7696:
7697: --If the budget version being deleted is a generation source
7698: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
7696:
7697: --If the budget version being deleted is a generation source
7698: --then we null out the GEN_SRC_XXX_PLAN_VERSION_ID column in
7699: --pa_proj_fp_options table and increase the record_version_no
7700: IF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST
7701: THEN
7702: UPDATE pa_proj_fp_options
7703: SET gen_src_cost_plan_version_id = NULL,
7704: record_version_number = record_version_number + 1,
7706: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
7707: last_update_login = FND_GLOBAL.LOGIN_ID
7708: WHERE project_id = l_project_id
7709: AND gen_src_cost_plan_version_id = l_budget_version_id;
7710: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE
7711: THEN
7712: UPDATE pa_proj_fp_options
7713: SET gen_src_rev_plan_version_id = NULL,
7714: record_version_number = record_version_number + 1,
7716: last_updated_by = to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id)),
7717: last_update_login = FND_GLOBAL.LOGIN_ID
7718: WHERE project_id = l_project_id
7719: AND gen_src_rev_plan_version_id = l_budget_version_id;
7720: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL
7721: THEN
7722: UPDATE pa_proj_fp_options
7723: SET gen_src_all_plan_version_id = NULL,
7724: record_version_number = record_version_number + 1,
7759: pa_debug.reset_curr_function;
7760: END IF;
7761:
7762: EXCEPTION
7763: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7764: THEN
7765:
7766: p_return_status := FND_API.G_RET_STS_ERROR;
7767: l_msg_count := FND_MSG_PUB.count_msg;
7989: SELECT approved_rev_plan_type_flag
7990: FROM pa_proj_fp_options
7991: WHERE project_id=c_project_id
7992: AND fin_plan_type_id=c_fin_plan_type_id
7993: AND fin_plan_option_level_code=PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
7994:
7995: l_app_rev_plan_type_flag VARCHAR2(1);
7996:
7997: --This cursor is used to compare a currency code with pfc
8168: IF(l_debug_mode='Y') THEN
8169: pa_debug.g_err_stage := 'validate header info API falied';
8170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8171: END IF;
8172: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8173: END IF;
8174:
8175:
8176: -- convert pm_task_reference to pa_task_id
8396:
8397: -- check for approved rev plan type flag is made here because in case plan type is at
8398: -- cost and revenue separately then version can have currencies other than PFC.
8399: IF( nvl(l_app_rev_plan_type_flag,'N') = 'Y' AND
8400: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST)
8401: THEN
8402:
8403: OPEN l_proj_func_currency_csr( l_project_id
8404: ,l_currency_code);
8419: p_token3 => 'CURRENCY',
8420: p_value3 => l_currency_code);
8421: END IF;
8422:
8423: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8424:
8425: END IF;--l_dummy = 0
8426:
8427: ELSE-- Version is not approved for revenue. The txn curr must be available in fp txn curr table
8445: p_token3 => 'CURRENCY',
8446: p_value3 => l_currency_code);
8447: END IF;
8448:
8449: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8450:
8451: END IF;--l_dummy = 0
8452:
8453: END IF;
8480: || 'null but start_date is not null';
8481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8482: END IF;
8483:
8484: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8485: END IF;
8486:
8487:
8488: --In case of new model, check if Actuals have been entered for the FORECAST Line.
8527: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8529: END IF;
8530:
8531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8532: END IF;--end of actuals-on-FORECAST check
8533:
8534: ELSE -- old FORMS based Budgets Model
8535:
8768: (p_project_id => l_project_id
8769: ,p_budget_version_id => l_budget_version_id
8770: ,p_spread_required_flag => 'N'
8771: ,p_source_context => 'BUDGET_LINE'
8772: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_AMG_API
8773: ,p_resource_assignment_tab => l_resource_assignment_tab
8774: ,p_delete_budget_lines_tab => l_delete_budget_lines_tab
8775: ,p_txn_currency_code_tab => l_txn_currency_code_tab
8776: ,p_line_start_date_tab => l_line_start_date_tab
8825:
8826:
8827: EXCEPTION
8828:
8829: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
8830: THEN
8831:
8832: ROLLBACK TO delete_budget_line_pub;
8833:
9642: IF(l_debug_mode='Y') THEN
9643: pa_debug.g_err_stage := 'validate header info API falied';
9644: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9645: END IF;
9646: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9647: END IF;
9648:
9649: OPEN l_amg_project_csr( l_project_id );
9650: FETCH l_amg_project_csr INTO l_amg_segment1;
9722: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9723: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9724: END IF;
9725:
9726: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9727: END IF;
9728: END IF; -- END IF FOR l_budget_type_code is not null
9729:
9730:
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;
9736:
9737: IF (p_budget_version_name IS NOT NULL AND p_budget_version_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
9738: --(p_budget_version_name <> l_budget_version_name) THEN
9766:
9767: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9768: THEN
9769: -- RAISE FND_API.G_EXC_ERROR;
9770: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9771: END IF;
9772: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL. */
9773: /*Commenting ends for bug 6408139 */
9774:
9808:
9809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9810: THEN
9811: -- RAISE FND_API.G_EXC_ERROR;
9812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9813: END IF;
9814:
9815: END IF ; -- Getting plan flags only when all are passed as G_PA_MISS_CHAR
9816: END IF; -- BUDGET_TYPE_CODE IS NULL FOR FINPLAN MODEL.
10292: ,x_msg_count => l_msg_count
10293: ,x_msg_data => l_msg_data );
10294:
10295: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10297: END IF;
10298:
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
10321: pa_debug.g_err_stage := 'Error executing lock unlock version';
10322: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10323: END IF;
10324:
10325: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10326:
10327: END IF;
10328:
10329: IF l_debug_mode = 'Y' THEN
10346:
10347: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10348: IF l_debug_mode= 'Y' THEN
10349: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10350: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10351: END IF;
10352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10353: END IF;
10354:
10348: IF l_debug_mode= 'Y' THEN
10349: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10350: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10351: END IF;
10352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10353: END IF;
10354:
10355: END IF; -- IF l_created_version_id <> l_CW_version_id THEN
10356:
10392: ( lx_cost_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) OR
10393: ( lx_burden_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) ) THEN
10394:
10395: --Get the preference code
10396: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10393: ( lx_burden_rate_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) ) THEN
10394:
10395: --Get the preference code
10396: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10394:
10395: --Get the preference code
10396: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10402: END IF;
10395: --Get the preference code
10396: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10402: END IF;
10403:
10396: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10402: END IF;
10403:
10404: IF l_debug_mode = 'Y' THEN
10397: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
10398: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10399: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
10400: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10402: END IF;
10403:
10404: IF l_debug_mode = 'Y' THEN
10405: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10427: ,x_return_status => x_return_status
10428: ,x_message_data => l_msg_data
10429: );
10430:
10431: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10432: l_amount_set_id := l_cost_amount_set_id;
10433: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10434: l_amount_set_id := l_rev_amount_set_id;
10435: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10429: );
10430:
10431: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10432: l_amount_set_id := l_cost_amount_set_id;
10433: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10434: l_amount_set_id := l_rev_amount_set_id;
10435: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10436: l_amount_set_id := l_all_amount_set_id;
10437: END IF;
10431: IF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
10432: l_amount_set_id := l_cost_amount_set_id;
10433: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
10434: l_amount_set_id := l_rev_amount_set_id;
10435: ELSIF(lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
10436: l_amount_set_id := l_all_amount_set_id;
10437: END IF;
10438:
10439: IF l_debug_mode = 'Y' THEN
10447: ,p_plan_version_id => l_budget_version_id
10448: );
10449:
10450:
10451: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10452: UPDATE pa_proj_fp_options
10453: SET cost_amount_set_id = l_amount_set_id
10454: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10455: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10451: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10452: UPDATE pa_proj_fp_options
10453: SET cost_amount_set_id = l_amount_set_id
10454: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10455: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10456: UPDATE pa_proj_fp_options
10457: SET revenue_amount_set_id = l_amount_set_id
10458: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10459: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
10455: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10456: UPDATE pa_proj_fp_options
10457: SET revenue_amount_set_id = l_amount_set_id
10458: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10459: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
10460: UPDATE pa_proj_fp_options
10461: SET all_amount_set_id = l_amount_set_id
10462: WHERE proj_fp_options_id = l_proj_fp_options_id_new;
10463: END IF;
10718: ,x_msg_data => p_msg_data
10719: ,x_return_status => p_return_status);
10720:
10721: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN -- 3453650
10722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10723: END IF;
10724:
10725: ELSE --l_budget_type_code IS NOT NULL
10726:
10723: END IF;
10724:
10725: ELSE --l_budget_type_code IS NOT NULL
10726:
10727: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10728: l_allow_qty_flag := lx_cost_qty_flag;
10729: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10730: l_allow_qty_flag := lx_revenue_qty_flag;
10731: ELSE
10725: ELSE --l_budget_type_code IS NOT NULL
10726:
10727: IF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10728: l_allow_qty_flag := lx_cost_qty_flag;
10729: ELSIF lx_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10730: l_allow_qty_flag := lx_revenue_qty_flag;
10731: ELSE
10732: l_allow_qty_flag := lx_all_qty_flag;
10733: END IF;
10774: ,x_msg_data => p_msg_data
10775: ,x_return_status => p_return_status);
10776:
10777: IF(p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10779: END IF;
10780: END IF; --l_budget_type_code IS NOT NULL
10781:
10782: --In the below code for finplan model validate header level currency conversion attributes and update them.
10836: IF(l_call_validate_curr_api_flg = 'Y') --Now call the validate_currency_conversion API
10837: THEN
10838: -- Depending on px_version_type initialise l_conv_attrs_to_be_validated
10839:
10840: IF (lx_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
10841: l_conv_attrs_to_be_validated := lx_version_type;
10842: ELSE
10843: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
10844: END IF;
10839:
10840: IF (lx_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
10841: l_conv_attrs_to_be_validated := lx_version_type;
10842: ELSE
10843: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
10844: END IF;
10845:
10846: IF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10847:
10842: ELSE
10843: l_conv_attrs_to_be_validated := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
10844: END IF;
10845:
10846: IF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
10847:
10848: lx_project_rev_rate_type :=NULL;
10849: lx_project_rev_rate_date_typ :=NULL;
10850: lx_project_rev_rate_date :=NULL;
10852: lx_projfunc_rev_rate_type :=NULL;
10853: lx_projfunc_rev_rate_date_typ :=NULL;
10854: lx_projfunc_rev_rate_date :=NULL;
10855:
10856: ELSIF l_conv_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
10857:
10858: lx_project_cost_rate_type :=NULL;
10859: lx_project_cost_rate_date_typ :=NULL;
10860: lx_project_cost_rate_date :=NULL;
10884: FROM pa_proj_fp_options
10885: WHERE project_id = l_project_id
10886: AND fin_plan_type_id=l_fin_plan_type_id
10887: AND fin_plan_version_id IS NULL
10888: AND fin_plan_option_level_code= PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
10889:
10890: pa_budget_pvt.valid_rate_type
10891: (p_pt_project_cost_rate_type => l_project_cost_rate_type,
10892: p_pt_project_rev_rate_type => l_project_rev_rate_type,
10905: IF l_debug_mode = 'Y' THEN
10906: pa_debug.g_err_stage:= 'valid_rate_type returned error';
10907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
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
10927: ,px_projfunc_rev_rate_date => lx_projfunc_rev_rate_date
10928: ,px_projfunc_rev_exchange_rate => l_projfunc_rev_exchange_rate
10929: ,p_project_currency_code => l_project_currency_code
10930: ,p_projfunc_currency_code => l_projfunc_currency_code
10931: ,p_context => PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER
10932: ,p_attrs_to_be_validated => l_conv_attrs_to_be_validated
10933: ,x_return_status => p_return_status
10934: ,x_msg_count => p_msg_count
10935: ,x_msg_data => p_msg_data);
10939: IF l_debug_mode = 'Y' THEN
10940: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10942: END IF;
10943: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10944: END IF;
10945:
10946: IF l_debug_mode = 'Y' THEN
10947: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
11320: ,p_attribute3 => lx_fin_plan_type_name
11321: ,p_attribute4 => ''
11322: ,p_attribute5 => '');
11323:
11324: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11325: END IF;
11326:
11327: OPEN l_finplan_line_csr(l_resource_assignment_id
11328: ,l_budget_start_date
12387:
12388: -- dbms_output.put_line ('Calling add_finplan_lines');
12389:
12390: PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
12391: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API /* Bug# 2674353 */
12392: ,p_fin_plan_version_id => l_budget_version_id
12393: ,p_finplan_lines_tab => l_finplan_lines_tab
12394: ,x_return_status => l_return_status
12395: ,x_msg_count => l_msg_count
12399:
12400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12401: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12402: IF L_DEBUG_MODE = 'Y' THEN
12403: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12404: END IF;
12405: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12406: END IF;
12407: END IF;
12401: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12402: IF L_DEBUG_MODE = 'Y' THEN
12403: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12404: END IF;
12405: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12406: END IF;
12407: END IF;
12408:
12409:
12428: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12429: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12430: END IF;
12431:
12432: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12433: END IF;
12434:
12435: END IF; -- END OF l_budget_type_code is null
12436:
12434:
12435: END IF; -- END OF l_budget_type_code is null
12436:
12437: IF p_multiple_task_msg = 'F' THEN
12438: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12439: END IF;
12440:
12441: --summarizing the totals in the table pa_budget_versions
12442: /*Added the below if condition for the bug 3453650*/
12520:
12521:
12522: EXCEPTION
12523:
12524: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12525: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || FND_MSG_PUB.count_msg);
12526: ROLLBACK TO update_budget_pub;
12527:
12528: IF p_return_status IS NULL OR
13164: IF(l_debug_mode='Y') THEN
13165: pa_debug.g_err_stage := 'validate header info API falied';
13166: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13167: END IF;
13168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13169: END IF;
13170:
13171: --Store the budget line data in budget line table
13172:
13482: IF(l_debug_mode='Y') THEN
13483: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13484: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13485: END IF;
13486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13487: END IF;
13488:
13489: --Derive the value of all_qty_flag based on version_type
13490: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13487: END IF;
13488:
13489: --Derive the value of all_qty_flag based on version_type
13490: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13491: l_allow_qty_flag := lx_cost_qty_flag;
13492: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
13493: l_allow_qty_flag := lx_revenue_qty_flag;
13494: ELSE
13488:
13489: --Derive the value of all_qty_flag based on version_type
13490: IF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
13491: l_allow_qty_flag := lx_cost_qty_flag;
13492: ELSIF l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
13493: l_allow_qty_flag := lx_revenue_qty_flag;
13494: ELSE
13495: l_allow_qty_flag := lx_all_qty_flag;
13496: END IF;
13544: IF(l_debug_mode='Y') THEN
13545: pa_debug.g_err_stage := 'validate budget lines API falied';
13546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13547: END IF;
13548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13549: END IF;
13550:
13551: --Get Task number for AMG Messages
13552: l_amg_task_number := PA_INTERFACE_UTILS_PUB.get_task_number_amg
13857:
13858: --Call PA_FIN_PLAN_PVT.add_fin_plan_lines. This api takes care of updating
13859: --budget lines data in all relevant tables.
13860: PA_FIN_PLAN_PVT.add_fin_plan_lines
13861: ( p_calling_context => PA_FP_CONSTANTS_PKG.G_AMG_API
13862: ,p_fin_plan_version_id => l_budget_version_id
13863: ,p_finplan_lines_tab => l_finplan_lines_tab
13864: ,x_return_status => p_return_status
13865: ,x_msg_count => p_msg_count
13919:
13920:
13921: EXCEPTION
13922:
13923: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
13924: THEN
13925:
13926: ROLLBACK TO update_budget_line_pub;
13927:
14100: -- Bug 2863564 new variables defined for Financial Planning chnages
14101:
14102: l_task_name pa_tasks.task_name%TYPE;
14103: l_context VARCHAR2(30);
14104: l_context_finplan CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN;
14105: l_context_budget CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET;
14106:
14107: -- Bug 2863564 The cursor has been modified for financial planning changes.
14108: -- The changes include fetching of new columns which aren't included in the
14101:
14102: l_task_name pa_tasks.task_name%TYPE;
14103: l_context VARCHAR2(30);
14104: l_context_finplan CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN;
14105: l_context_budget CONSTANT VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET;
14106:
14107: -- Bug 2863564 The cursor has been modified for financial planning changes.
14108: -- The changes include fetching of new columns which aren't included in the
14109: -- view definition. Changing the pa_budget_lines_v view could have a large impact.
14272: SELECT 'x'
14273: FROM pa_proj_fp_options pfo
14274: WHERE pfo.project_id = c_project_id
14275: AND pfo.fin_plan_type_id = c_fin_plan_type_id
14276: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
14277:
14278: proj_fp_options_rec proj_fp_options_cur%ROWTYPE;
14279:
14280: CURSOR budget_version_info_cur (c_budget_version_id IN NUMBER) IS
15748: or
15749: l_context = l_context_budget )
15750: then
15751: IF (p_calc_raw_cost_yn = 'Y' AND
15752: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE)
15753: THEN -- calculate raw cost
15754:
15755: Pa_client_Extn_Budget.Calc_Raw_Cost
15756: (x_budget_version_id => l_budget_version_id,
15883: end if; --l_fin_plan_type_id is not null
15884: END IF;
15885:
15886: IF (p_calc_burdened_cost_yn = 'Y' AND
15887: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE)
15888: THEN
15889:
15890: -- calculate burdened cost. Note that calculated_raw_cost is being
15891: -- used as the parameter,in case both p_calc_raw_cost_yn and
16006: end if; --if l_fin_plan_type_id is not null
16007: END IF;
16008:
16009: IF (p_calc_revenue_yn = 'Y' AND
16010: l_version_type <> PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST)
16011: THEN
16012:
16013: Pa_client_Extn_Budget.Calc_revenue
16014: ( x_budget_version_id => l_budget_version_id
16348: -- rolling up budget lines data, resource_assignments data and period denorm data.
16349:
16350: /* PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION
16351: ( p_budget_version_id => l_budget_version_id
16352: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
16353: ,x_return_status => p_return_status
16354: ,x_msg_count => p_msg_count
16355: ,x_msg_data => p_msg_data );
16356:
16395: IF l_debug_mode = 'Y' THEN
16396: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16397: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16398: END IF;
16399: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16400: END IF;
16401:
16402: pa_res_asg_currency_pub.maintain_data
16403: (p_fp_cols_rec => l_fp_cols_rec,
16412: IF l_debug_mode = 'Y' THEN
16413: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16414: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16415: END IF;
16416: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16417: END IF;
16418:
16419: --IPM Architecture Enhancement - End
16420:
17168: l_uncat_rlmid pa_resource_assignments.resource_list_member_id%TYPE;
17169: l_track_as_labor_flag pa_resource_list_members.track_as_labor_flag%TYPE;
17170: l_unit_of_measure pa_resource_assignments.unit_of_measure%TYPE;
17171: -- Bug Fix: 4569365. Removed MRC code.
17172: -- l_calling_context pa_mrc_finplan.g_calling_module%TYPE := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17173: l_calling_context VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17174:
17175: l_plan_tran_context VARCHAR2(30);
17176: l_record_version_number pa_budget_versions.record_version_number%TYPE;
17169: l_track_as_labor_flag pa_resource_list_members.track_as_labor_flag%TYPE;
17170: l_unit_of_measure pa_resource_assignments.unit_of_measure%TYPE;
17171: -- Bug Fix: 4569365. Removed MRC code.
17172: -- l_calling_context pa_mrc_finplan.g_calling_module%TYPE := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17173: l_calling_context VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT;
17174:
17175: l_plan_tran_context VARCHAR2(30);
17176: l_record_version_number pa_budget_versions.record_version_number%TYPE;
17177: l_mixed_resource_planned_flag VARCHAR2(1);
17658: );
17659:
17660: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
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
17672: ,x_msg_count => x_msg_count
17673: ,x_msg_data => x_msg_data );
17674:
17675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17677: END IF;
17678:
17679: IF l_debug_mode = 'Y' THEN
17680: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
17702: IF l_debug_mode = 'Y' THEN
17703: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17704: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17705: END IF;
17706: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17707: END IF;
17708:
17709: pa_fin_plan_pub.delete_version
17710: ( p_project_id => l_project_id
17718: THEN
17719: pa_debug.g_err_stage:= 'Could not delete the current working version';
17720: IF l_debug_mode = 'Y' THEN
17721: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17722: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17723: END IF;
17724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17725: ELSE
17726: pa_debug.g_err_stage:= 'Deleted the current working version';
17720: IF l_debug_mode = 'Y' THEN
17721: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17722: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17723: END IF;
17724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17725: ELSE
17726: pa_debug.g_err_stage:= 'Deleted the current working version';
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17725: ELSE
17726: pa_debug.g_err_stage:= 'Deleted the current working version';
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17729: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17730: END IF;
17731: END IF;
17732: END IF; --p_replace_current_working_flag = 'Y'
17733: END IF; -- l_curr_work_version_id IS NOT NULL
17731: END IF;
17732: END IF; --p_replace_current_working_flag = 'Y'
17733: END IF; -- l_curr_work_version_id IS NOT NULL
17734:
17735: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17732: END IF; --p_replace_current_working_flag = 'Y'
17733: END IF; -- l_curr_work_version_id IS NOT NULL
17734:
17735: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17733: END IF; -- l_curr_work_version_id IS NOT NULL
17734:
17735: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17741: END IF;
17734:
17735: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17741: END IF;
17742:
17735: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17741: END IF;
17742:
17743: IF l_debug_mode = 'Y' THEN
17736: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
17737: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
17738: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
17739: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17741: END IF;
17742:
17743: IF l_debug_mode = 'Y' THEN
17744: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
17742:
17743: IF l_debug_mode = 'Y' THEN
17744: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
17745: pa_debug.write(l_procedure_name ||
17746: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17747: END IF;
17748:
17749: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
17750: --These flags will be set for the new plan version that will be created instead of always setting
17752: --amount flags can be passed as input parameters to this API
17753:
17754: --Get the amount set id from the plan type option.
17755: SELECT DECODE(l_version_type,
17756: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
17757: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
17758: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
17759: INTO l_pt_amount_set_id
17760: FROM pa_proj_fp_options
17753:
17754: --Get the amount set id from the plan type option.
17755: SELECT DECODE(l_version_type,
17756: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
17757: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
17758: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
17759: INTO l_pt_amount_set_id
17760: FROM pa_proj_fp_options
17761: WHERE project_id=l_project_id
17754: --Get the amount set id from the plan type option.
17755: SELECT DECODE(l_version_type,
17756: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_amount_set_id,
17757: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_amount_set_id,
17758: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_amount_set_id)
17759: INTO l_pt_amount_set_id
17760: FROM pa_proj_fp_options
17761: WHERE project_id=l_project_id
17762: AND fin_plan_type_id=l_fin_plan_type_id
17764:
17765: IF l_debug_mode = 'Y' THEN
17766: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
17767: pa_debug.write(l_procedure_name ||
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 (
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 || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
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 || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17803:
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;
17813: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17814:
17815: END IF;
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;
17813: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17814:
17815: END IF;
17816:
17817: --Bug 5475184. End of derivation logic for bill/cost rate flags from plan type option.
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;
17849:
17850: -- bug 3825873 populating l_allow_qty_flag to call validate_budget_lines
17851:
17848: END IF;
17849:
17850: -- bug 3825873 populating l_allow_qty_flag to call validate_budget_lines
17851:
17852: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
17853: THEN
17854: l_amount_set_id := l_cost_amount_set_id;
17855: l_allow_qty_flag := l_cost_qty_flag; -- p_cost_qty_flag; Bug 5478041
17856: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
17852: IF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
17853: THEN
17854: l_amount_set_id := l_cost_amount_set_id;
17855: l_allow_qty_flag := l_cost_qty_flag; -- p_cost_qty_flag; Bug 5478041
17856: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
17857: THEN
17858: l_amount_set_id := l_rev_amount_set_id;
17859: l_allow_qty_flag := l_revenue_qty_flag; -- p_revenue_qty_flag;Bug 5478041
17860: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)
17856: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
17857: THEN
17858: l_amount_set_id := l_rev_amount_set_id;
17859: l_allow_qty_flag := l_revenue_qty_flag; -- p_revenue_qty_flag;Bug 5478041
17860: ELSIF(l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)
17861: THEN
17862: l_amount_set_id := l_all_amount_set_id;
17863: l_allow_qty_flag := l_all_qty_flag; -- p_all_qty_flag; Bug 5478041
17864: END IF;
17865:
17866: IF l_debug_mode = 'Y' THEN
17867: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
17868: pa_debug.write(l_procedure_name ||
17869: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17870: END IF;
17871:
17872: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17873:
17873:
17874: IF l_debug_mode = 'Y' THEN
17875: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
17876: pa_debug.write(l_procedure_name ||
17877: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17878: END IF;
17879:
17880: l_created_version_id := NULL;
17881:
17882:
17883: IF l_debug_mode = 'Y' THEN
17884: pa_debug.g_err_stage:= 'Calling Create_Version';
17885: pa_debug.write(l_procedure_name ||
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17889: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
17890: pa_fin_plan_pub.Create_Version (
17938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17939: pa_debug.g_err_stage:= 'Error Create_Version';
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17946: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17946: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
17947: /*========================================================+
17948: | Prepare to call pa_budget_pvt.validate_budget_lines() |
18050: ,x_return_status => l_return_status);
18051:
18052: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18053: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18054: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18055: END IF;
18056:
18057: END IF; -- p_finplan_trans_tab.COUNT > 0
18058: --dbms_output.put_line('after calling pa_budget_pvt.Validate_Budget_Lines');
18405:
18406: END LOOP;
18407:
18408: Select decode(plan_class_code,
18409: 'BUDGET',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
18410: 'FORECAST',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)
18411: Into l_plan_tran_context
18412: From pa_fin_plan_types_b
18413: Where fin_plan_type_id = l_fin_plan_type_id;
18406: END LOOP;
18407:
18408: Select decode(plan_class_code,
18409: 'BUDGET',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
18410: 'FORECAST',PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)
18411: Into l_plan_tran_context
18412: From pa_fin_plan_types_b
18413: Where fin_plan_type_id = l_fin_plan_type_id;
18414:
18526: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18527: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18528: IF l_debug_mode = 'Y' THEN
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:
18554: IF l_debug_mode = 'Y' THEN
18555: pa_debug.g_err_stage := 'Error executing lock unlock version';
18556: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18557: END IF;
18558: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18559: END IF;
18560: IF l_debug_mode = 'Y' THEN
18561: pa_debug.g_err_stage := 'About to call set current working version';
18562: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18579: IF l_debug_mode = 'Y' THEN
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18583: END IF;
18584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18585: END IF;
18586: END IF; --l_created_version_id <> l_CW_version_id
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18583: END IF;
18584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18585: END IF;
18586: END IF; --l_created_version_id <> l_CW_version_id
18587:
18588: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18635: pa_debug.reset_curr_function;
18636: END IF;
18637:
18638: EXCEPTION
18639: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
18640:
18641: ROLLBACK TO create_draft_finplan_pub;
18642:
18643: IF l_debug_mode = 'Y' THEN
19322: THEN
19323: IF l_debug_mode = 'Y' THEN
19324: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19325: END IF;
19326: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19327: END IF;
19328:
19329: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_header_info successful project number is '||l_project_number||' bversion id '||l_budget_version_id);
19330:
19437:
19438: IF l_debug_mode = 'Y' THEN
19439: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19440: END IF;
19441: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19442: END IF;
19443:
19444: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_budget_lines successful');
19445: /*
19622: THEN
19623: IF l_debug_mode = 'Y' THEN
19624: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19625: END IF;
19626: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19627: END IF;
19628:
19629:
19630:
19630:
19631: pa_debug.reset_err_stack;
19632:
19633: EXCEPTION
19634: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
19635:
19636: l_msg_count := FND_MSG_PUB.count_msg;
19637:
19638: IF l_msg_count = 1 THEN
19650: x_msg_data := l_msg_data;
19651: END IF;
19652: IF l_debug_mode = 'Y' THEN
19653: pa_debug.g_err_stage:='Invalid Arguments Passed';
19654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19655: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
19656: END IF;
19657:
19658: x_return_status:= FND_API.G_RET_STS_ERROR;
19670: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
19671: ,p_procedure_name => 'update_plannning_element_attr');
19672: IF l_debug_mode = 'Y' THEN
19673: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
19674: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19675: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
19676: END IF;
19677:
19678: pa_debug.reset_err_stack;