[Home] [Help]
349: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
350: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
351: p_token1 => 'PROCEDURENAME',
352: p_value1 => g_module_name);
353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
354: END IF;
355:
356: -- checking, if this api is called from web adi directly and if yes, if there is a pending
357: -- concurrent request for processing, then the rows in the interface table should not be deleted
396: pa_debug.reset_curr_function;
397: END IF;
398: END IF;
399: EXCEPTION
400: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
401: l_msg_count := FND_MSG_PUB.count_msg;
402:
403: IF l_msg_count = 1 and x_msg_data IS NULL THEN
404: PA_INTERFACE_UTILS_PUB.get_messages
503: l_msg_count NUMBER;
504:
505: l_debug_mode VARCHAR2(1);
506: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.validate_header_info';
507: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
508: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
509: l_data VARCHAR2(2000);
510: l_msg_index_out NUMBER;
511:
504:
505: l_debug_mode VARCHAR2(1);
506: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.validate_header_info';
507: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
508: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
509: l_data VARCHAR2(2000);
510: l_msg_index_out NUMBER;
511:
512:
553: IF l_debug_mode = 'Y' THEN
554: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
556: END IF;
557: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
558: END IF;
559: CLOSE l_version_info_csr;
560:
561: IF l_debug_mode = 'Y' THEN
614: IF l_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage := 'No data found for period mask';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
619: END;
620: -- the following validation is only for timephased budgets downloaded in
621: -- periodic layouts
622: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
641: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
642: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
643: p_project_id => l_project_id,
644: p_fin_plan_type_id => l_fin_plan_type_id,
645: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
646: p_function_name => 'PA_PM_UPDATE_BUDGET',
647: p_version_type => l_version_type,
648: x_return_status => l_return_status,
649: x_ret_code => l_sec_ret_code);
652: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
653: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
654: p_project_id => l_project_id,
655: p_fin_plan_type_id => l_fin_plan_type_id,
656: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
657: p_function_name => 'PA_PM_UPDATE_CHG_DOC',
658: p_version_type => l_version_type,
659: x_return_status => l_return_status,
660: x_ret_code => l_sec_ret_code);
718: IF l_debug_mode = 'Y' THEN
719: pa_debug.g_err_stage := 'Status code not found';
720: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
721: END IF;
722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
723: END;
724:
725: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
726: IF l_debug_mode = 'Y' THEN
766: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
767: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
768: p_project_id => l_project_id,
769: p_fin_plan_type_id => l_fin_plan_type_id,
770: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
771: p_function_name => 'PA_PM_SUBMIT_BUDGET',
772: p_version_type => l_version_type,
773: x_return_status => l_return_status,
774: x_ret_code => l_sec_ret_code);
951: END IF;
952:
953: RETURN;
954:
955: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
956: l_msg_count := FND_MSG_PUB.count_msg;
957:
958: IF l_msg_count = 1 and x_msg_data IS NULL THEN
959: PA_INTERFACE_UTILS_PUB.get_messages
1027: l_msg_count NUMBER;
1028:
1029: l_debug_mode VARCHAR2(1);
1030: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_errors';
1031: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1032: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1033: l_msg_index_out NUMBER;
1034: l_data VARCHAR2(2000);
1035: l_periodic_flag VARCHAR2(1);
1028:
1029: l_debug_mode VARCHAR2(1);
1030: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_errors';
1031: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1032: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1033: l_msg_index_out NUMBER;
1034: l_data VARCHAR2(2000);
1035: l_periodic_flag VARCHAR2(1);
1036:
1124: IF l_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Not a valid calling context passed';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1127: END IF;
1128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1129: END IF;
1130:
1131: ELSE -- when p_context is not passed
1132: IF p_error_code_tbl.count > 0 THEN
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162: END IF;
1163:
1164: ELSE -- non periodic
1165:
1189: IF l_debug_mode = 'Y' THEN
1190: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1192: END IF;
1193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1194: END IF;
1195: END IF;
1196:
1197: ELSE -- lenght of error code table is 0 when context is not passed
1217: pa_debug.reset_curr_function;
1218: END IF;
1219:
1220: EXCEPTION
1221: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1222: l_msg_count := FND_MSG_PUB.count_msg;
1223:
1224: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1225: PA_INTERFACE_UTILS_PUB.get_messages
1277: l_msg_count NUMBER;
1278:
1279: l_debug_mode VARCHAR2(1);
1280: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.read_global_var_to_report_err';
1281: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1282: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1283: l_msg_index_out NUMBER;
1284: l_data VARCHAR2(2000);
1285:
1278:
1279: l_debug_mode VARCHAR2(1);
1280: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.read_global_var_to_report_err';
1281: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1282: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1283: l_msg_index_out NUMBER;
1284: l_data VARCHAR2(2000);
1285:
1286: l_err_val_code_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
1329: x_return_status => l_return_status,
1330: x_msg_data => l_msg_data,
1331: x_msg_count => l_msg_count);
1332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1334: END IF;
1335:
1336: -- clearing the table of rec type
1337: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1341: IF l_debug_mode = 'Y' THEN
1342: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1344: END IF;
1345: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1346: END IF;
1347: IF l_debug_mode = 'Y' THEN
1348: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1349: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1351: IF l_debug_mode = 'Y' THEN
1352: pa_debug.reset_curr_function;
1353: END IF;
1354: EXCEPTION
1355: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1356: IF l_debug_mode = 'Y' THEN
1357: pa_debug.reset_curr_function;
1358: END IF;
1359: RETURN;
1356: IF l_debug_mode = 'Y' THEN
1357: pa_debug.reset_curr_function;
1358: END IF;
1359: RETURN;
1360: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1361:
1362: -- clearing the table of rec type
1363: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1364: g_fp_webadi_rec_tbl.DELETE;
1429: l_msg_count NUMBER;
1430:
1431: l_debug_mode VARCHAR2(1);
1432: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1433: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1434: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1435: l_msg_index_out NUMBER;
1436: l_data VARCHAR2(2000);
1437:
1430:
1431: l_debug_mode VARCHAR2(1);
1432: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1433: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1434: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1435: l_msg_index_out NUMBER;
1436: l_data VARCHAR2(2000);
1437:
1438: l_task_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1456: IF l_debug_mode = 'Y' THEN
1457: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1458: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1459: END IF;
1460: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1461: ELSE
1462: IF l_debug_mode = 'Y' THEN
1463: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1483: IF l_debug_mode = 'Y' THEN
1484: pa_debug.reset_curr_function;
1485: END IF;
1486: EXCEPTION
1487: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1488: IF l_debug_mode = 'Y' THEN
1489: pa_debug.reset_curr_function;
1490: END IF;
1491: RETURN;
1488: IF l_debug_mode = 'Y' THEN
1489: pa_debug.reset_curr_function;
1490: END IF;
1491: RETURN;
1492: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1493: l_msg_count := FND_MSG_PUB.count_msg;
1494:
1495: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1496: PA_INTERFACE_UTILS_PUB.get_messages
1541: IS
1542:
1543: l_debug_mode VARCHAR2(1);
1544: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1545: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1546: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1547:
1548: conv_attrb_displayed VARCHAR2(1);
1549:
1542:
1543: l_debug_mode VARCHAR2(1);
1544: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1545: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1546: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1547:
1548: conv_attrb_displayed VARCHAR2(1);
1549:
1550: l_projfunc_rate_type pa_fp_webadi_upload_inf.projfunc_rate_type%TYPE;
1573: IF l_debug_mode = 'Y' THEN
1574: pa_debug.g_err_stage := 'p_run_id is passed as null';
1575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1576: END IF;
1577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1578: END IF;
1579:
1580: IF l_debug_mode = 'Y' THEN
1581: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1634: -- returning
1635: RETURN conv_attrb_displayed;
1636:
1637: EXCEPTION
1638: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1639: IF l_debug_mode = 'Y' THEN
1640: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1642: END IF;
1703: l_msg_count NUMBER;
1704:
1705: l_debug_mode VARCHAR2(1);
1706: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_val_input';
1707: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1708: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1709: l_msg_index_out NUMBER;
1710: l_data VARCHAR2(2000);
1711:
1704:
1705: l_debug_mode VARCHAR2(1);
1706: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_val_input';
1707: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1708: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1709: l_msg_index_out NUMBER;
1710: l_data VARCHAR2(2000);
1711:
1712: -- variable to held the start_date and end_date of individual periods
2027: (p_app_short_name => 'PA',
2028: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2029: p_token1 => 'PROCEDURENAME',
2030: p_value1 => l_module_name);
2031: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2032: END IF;
2033:
2034: -- checking is org_id is passed as null for periodic layouts
2035: IF (p_prd_start_date_tbl.COUNT > 0 OR
2043: (p_app_short_name => 'PA',
2044: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2045: p_token1 => 'PROCEDURENAME',
2046: p_value1 => l_module_name);
2047: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2048: END IF;
2049:
2050: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => p_version_info_rec.x_project_id);-- cbs enhancement changes bug#16445106
2051:
2482: EXCEPTION
2483: WHEN OTHERS THEN
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2487: --DEBUG_NS('Exception :: ' || SQLERRM);
2488: END IF;
2489:
2490: RAISE;
2609: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2610: END IF;
2611:
2612:
2613: IF p_version_info_rec.x_plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
2614: is_forecast_version := 'Y';
2615:
2616: -- calling an api to derive the etc_start_date
2617: IF l_debug_mode = 'Y' THEN
2636: EXCEPTION
2637: WHEN OTHERS THEN
2638: IF l_debug_mode = 'Y' THEN
2639: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2640: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2641: END IF;
2642:
2643: RAISE;
2644: END;
2703: EXCEPTION
2704: WHEN OTHERS THEN
2705: IF l_debug_mode = 'Y' THEN
2706: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2707: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2708: END IF;
2709:
2710: RAISE;
2711: END;
2729: EXCEPTION
2730: WHEN OTHERS THEN
2731: IF l_debug_mode = 'Y' THEN
2732: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2733: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2734: END IF;
2735:
2736: RAISE;
2737: END;
3047: EXCEPTION
3048: WHEN OTHERS THEN
3049: IF l_debug_mode = 'Y' THEN
3050: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
3051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3052: END IF;
3053:
3054: RAISE;
3055: END;
5881: IF l_debug_mode = 'Y' THEN
5882: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5884: END IF;
5885: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5886: END IF;
5887: END IF;
5888:
5889: --log1('----- STAGE 116-------'||l_err_val_code_tbl.COUNT);
5932:
5933: --log1('----- Leaving prepare_val_input-------');
5934:
5935: EXCEPTION
5936: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5937: l_msg_count := FND_MSG_PUB.count_msg;
5938:
5939: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5940: PA_INTERFACE_UTILS_PUB.get_messages
6275: p_value1 => 'PAFPWAPB.get_total_fcst_amount',
6276: p_token2 => 'STAGE',
6277: p_value2 => '[Task, Rlm,Txn]'||'['||p_task_id||','||p_resource_list_member_id||','||p_txn_currency_code||']');
6278:
6279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6280:
6281: END IF;
6282:
6283: IF p_line_start_date IS NOT NULL THEN
6293: p_value1 => 'PAFPWAPB.get_total_fcst_amount',
6294: p_token2 => 'STAGE',
6295: p_value2 => 'Invalid Budget Level parameters');
6296:
6297: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6298:
6299: END IF;
6300:
6301: END IF;
6713: END IF;
6714:
6715: EXCEPTION
6716:
6717: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6718: l_msg_count := FND_MSG_PUB.count_msg;
6719: IF l_msg_count = 1 THEN
6720: PA_INTERFACE_UTILS_PUB.get_messages
6721: (p_encoded => FND_API.G_TRUE
6855: IS
6856: -- variables used for debugging
6857: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_pbl_input';
6858: l_debug_mode VARCHAR2(1) := 'N';
6859: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
6860: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
6861:
6862: l_msg_count NUMBER;
6863: l_msg_data VARCHAR2(2000);
6856: -- variables used for debugging
6857: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_pbl_input';
6858: l_debug_mode VARCHAR2(1) := 'N';
6859: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
6860: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
6861:
6862: l_msg_count NUMBER;
6863: l_msg_data VARCHAR2(2000);
6864: l_data VARCHAR2(2000);
6948: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6949: p_token1 => 'PROCEDURENAME',
6950: p_value1 => l_module_name);
6951:
6952: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6953: END IF;
6954:
6955: --If there are no records to process return
6956: IF p_budget_lines_tbl.COUNT=0 THEN
7058: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
7059: p_token1 => 'PROCEDURENAME',
7060: p_value1 => l_module_name);
7061:
7062: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7063:
7064: END IF;
7065: --log1('----- STAGE 1-------');
7066: l_prev_pbl_tbl_count :=0;
7596: IF l_debug_mode = 'Y' THEN
7597: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7598: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7599: END IF;
7600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7601: END IF;
7602:
7603:
7604: ELSIF l_curr_rec.amount_type_code = 'TOTAL_RAW_COST' THEN
7653: IF l_debug_mode = 'Y' THEN
7654: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7656: END IF;
7657: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7658: END IF;
7659:
7660:
7661: ELSIF l_curr_rec.amount_type_code = 'TOTAL_REV' THEN
7710: IF l_debug_mode = 'Y' THEN
7711: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7713: END IF;
7714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7715: END IF;
7716:
7717:
7718: ELSIF l_curr_rec.amount_type_code = 'TOTAL_QTY' THEN
7767: IF l_debug_mode = 'Y' THEN
7768: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7769: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7770: END IF;
7771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7772: END IF;
7773:
7774: ELSIF l_curr_rec.amount_type_code IN ('ETC_BURDENED_COST_RATE','BURDENED_COST_RATE') THEN
7775:
8053: IF l_debug_mode = 'Y' THEN
8054: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
8055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
8056: END IF;
8057: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8058: END IF;
8059:
8060: END IF;
8061:
8073: pa_debug.reset_curr_function;
8074: END IF;
8075:
8076: EXCEPTION
8077: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8078: l_msg_count := FND_MSG_PUB.count_msg;
8079: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8080: PA_INTERFACE_UTILS_PUB.get_messages
8081: (p_encoded => FND_API.G_TRUE
8169: IS
8170: -- variables used for debugging
8171: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_budget_lines';
8172: l_debug_mode VARCHAR2(1) := 'N';
8173: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
8174: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
8175:
8176: l_return_status VARCHAR2(1);
8177: l_msg_count NUMBER;
8170: -- variables used for debugging
8171: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_budget_lines';
8172: l_debug_mode VARCHAR2(1) := 'N';
8173: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
8174: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
8175:
8176: l_return_status VARCHAR2(1);
8177: l_msg_count NUMBER;
8178: l_msg_data VARCHAR2(2000);
8455: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8456: p_token1 => 'PROCEDURENAME',
8457: p_value1 => l_module_name);
8458:
8459: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8460: END IF;
8461:
8462: -- budget_version_id is not passed
8463: IF p_budget_version_id IS NULL THEN
8469: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8470: p_token1 => 'PROCEDURENAME',
8471: p_value1 => l_module_name);
8472:
8473: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8474: END IF;
8475: -- version_info_rec type is null
8476: IF p_version_info_rec.x_project_id IS NULL THEN
8477: IF l_debug_mode = 'Y' THEN
8482: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8483: p_token1 => 'PROCEDURENAME',
8484: p_value1 => l_module_name);
8485:
8486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8487: END IF;
8488:
8489: -- if no data is present in the task id table
8490: IF NOT p_task_id_tbl.EXISTS(1) THEN
8598: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8599: p_token1 => 'PROCEDURENAME',
8600: p_value1 => l_module_name);
8601:
8602: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8603: END IF;
8604: --log1('----- STAGE PBL1.2-------');
8605:
8606: -- input parameters validation done
8866: IF l_debug_mode = 'Y' THEN
8867: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8869: END IF;
8870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8871: END;
8872: ELSE
8873: -- for project level plannings
8874: l_new_elem_ver_id := 0;
8945: IF l_debug_mode = 'Y' THEN
8946: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8948: END IF;
8949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8950: END IF;
8951: IF l_debug_mode = 'Y' THEN
8952: pa_debug.g_err_stage := 'Add_planning_transaction called';
8953: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8980: l_ra_id_tbl(i) := l_new_ra_id;
8981:
8982: EXCEPTION
8983: WHEN NO_DATA_FOUND THEN
8984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8985: END;
8986: END IF;
8987: END LOOP;
8988: --log1('PBL 6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9157: IF l_debug_mode = 'Y' THEN
9158: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
9159: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9160: END IF;
9161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9162: END IF;
9163: IF l_debug_mode = 'Y' THEN
9164: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
9165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9188: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9189: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9190: END IF;
9191: IF p_context = 'WEBADI_PERIODIC' THEN
9192: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9193: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9194: l_line_start_date_tbl := SYSTEM.pa_date_tbl_type();
9195: l_line_end_date_tbl := SYSTEM.pa_date_tbl_type();
9196: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9192: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9193: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9194: l_line_start_date_tbl := SYSTEM.pa_date_tbl_type();
9195: l_line_end_date_tbl := SYSTEM.pa_date_tbl_type();
9196: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9197: END IF;
9198:
9199: IF l_debug_mode = 'Y' THEN
9200: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9265: IF l_debug_mode = 'Y' THEN
9266: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9267: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9268: END IF;
9269: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9270: END IF;
9271:
9272: --Bug 4424457. Find out if there are budget lines that are processed by calculate API
9273: BEGIN
9630: IF l_debug_mode = 'Y' THEN
9631: pa_debug.g_err_stage:='convert_txn_currency returned error';
9632: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9633: END IF;
9634: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9635: END IF;
9636:
9637: END IF;
9638:
9995: IF l_debug_mode = 'Y' THEN
9996: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9997: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9998: END IF;
9999: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10000: END IF;
10001: IF l_debug_mode = 'Y' THEN
10002: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
10003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10022: END IF;
10023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10024: END IF;
10025: IF l_debug_mode = 'Y' THEN
10026: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
10027: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10046: IF l_debug_mode = 'Y' THEN
10047: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10048: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10049: END IF;
10050: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10051: END IF;
10052: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10053: IF l_debug_mode = 'Y' THEN
10054: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
10070: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10073: END IF;
10074:
10075: --log1('PBL 32 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10076: -- checking for valid requiered parameter values to call the MRC api
10091: IF l_debug_mode = 'Y' THEN
10092: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
10093: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10094: END IF;
10095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10096: END IF;
10097: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10098: ELSE
10099: IF l_debug_mode = 'Y' THEN
10124: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
10125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10126: END IF;
10127:
10128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10129:
10130: END IF;
10131:
10132:
10134: ,x_return_status => l_return_status
10135: ,x_msg_code => l_error_msg_code);
10136:
10137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10139: END IF;
10140:
10141: --log1('PBL 38 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10142: -- deleting contents from pl/sql tables to be used to call pji api
10199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10200: pa_debug.Reset_Curr_Function;
10201: END IF;
10202: EXCEPTION
10203: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10204: IF l_debug_mode = 'Y' THEN
10205: pa_debug.reset_curr_function;
10206: END IF;
10207: RETURN;
10204: IF l_debug_mode = 'Y' THEN
10205: pa_debug.reset_curr_function;
10206: END IF;
10207: RETURN;
10208: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10209: l_msg_count := FND_MSG_PUB.count_msg;
10210:
10211: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10212: PA_INTERFACE_UTILS_PUB.get_messages
10295: IS
10296: -- variables used for debugging
10297: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.switcher';
10298: l_debug_mode VARCHAR2(1) := 'N';
10299: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
10300: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
10301:
10302: l_msg_count NUMBER;
10303: l_msg_data VARCHAR2(2000);
10296: -- variables used for debugging
10297: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.switcher';
10298: l_debug_mode VARCHAR2(1) := 'N';
10299: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
10300: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
10301:
10302: l_msg_count NUMBER;
10303: l_msg_data VARCHAR2(2000);
10304: l_data VARCHAR2(2000);
10539: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10540: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10541: p_token1 => 'PROCEDURENAME',
10542: p_value1 => l_module_name);
10543: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10544: END IF;
10545:
10546: IF l_debug_mode = 'Y' THEN
10547: pa_debug.g_err_stage := 'Entering into switcher';
10574: IF l_debug_mode = 'Y' THEN
10575: pa_debug.g_err_stage := 'No data found while reading header info';
10576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10577: END IF;
10578: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10579: END;
10580:
10581:
10582: --Find out whether the layout is a periodic layout or not. This can be done by looking at the amount type column
10611: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10612: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10613: p_token1 => 'PROCEDURENAME',
10614: p_value1 => l_module_name);
10615: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10616: END IF;
10617:
10618:
10619: --log1('----- STAGE 1-------');
10654: IF l_debug_mode = 'Y' THEN
10655: pa_debug.reset_curr_function;
10656: END IF;
10657:
10658: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10659: END;
10660:
10661: --log1('----- STAGE 2-------');
10662:
10680: IF l_debug_mode = 'Y' THEN
10681: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10682: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10683: END IF;
10684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10685: END IF;
10686: --log1('----- STAGE 2.3-------'||x_return_status);
10687: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10688:
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10714: END IF;
10715: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10716: END IF;
10717:
10718: -- checking, if the layout is periodic one
10719: IF l_debug_mode = 'Y' THEN
10808: IF l_debug_mode = 'Y' THEN
10809: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10811: END IF;
10812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10813: END IF;
10814: ELSE
10815: --DEBUG_NS('Before prepare_val_input 11045');
10816: prepare_val_input
10855: IF l_debug_mode = 'Y' THEN
10856: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10858: END IF;
10859: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10860: END IF;
10861: END IF; -- periodic check
10862:
10863: --log1('3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10947: IF l_debug_mode = 'Y' THEN
10948: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10949: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10950: END IF;
10951: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10952: END IF;
10953: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10954:
10955: IF l_debug_mode = 'Y' THEN
11006: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
11007: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11008: END IF;
11009:
11010: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11011: END IF;
11012:
11013:
11014: -- bug 4428112: add the following procedure to update the txn currency code
11027: IF l_debug_mode = 'Y' THEN
11028: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
11029: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11030: END IF;
11031: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11032: END IF;
11033: END IF;
11034:
11035:
11097: argument2 => p_run_id ); -- p_run_id
11098: --log1('----- STAGE 10.12-------');
11099: IF l_request_id =0 THEN
11100: --log1('----- STAGE 10.13-------');
11101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11102:
11103: ELSE
11104: --log1('----- STAGE 10.14-------');
11105:
11253: IF l_debug_mode = 'Y' THEN
11254: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11256: END IF;
11257: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11258: END IF;
11259:
11260: IF l_debug_mode = 'Y' THEN
11261: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11338: IF l_debug_mode = 'Y' THEN
11339: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11340: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11341: END IF;
11342: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11343: END IF;
11344: -- Bug 4431269: Clearing the global variables used in calculate api
11345: -- for error reporting purpose
11346: G_FP_WA_CALC_CALLING_CONTEXT := null;
11369: IF l_debug_mode = 'Y' THEN
11370: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11372: END IF;
11373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11374: END IF;
11375: END IF;
11376: --log1('11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11377: --log1('----- STAGE 13-------');
11402: --log1('----- Leaving Switcher api ------- '||x_return_status);
11403: --log1('End '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11404: EXCEPTION
11405:
11406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11407: IF l_debug_mode = 'Y' THEN
11408: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11410: pa_debug.g_err_stage := 'Checking for errors';
11666: IF l_debug_mode = 'Y' THEN
11667: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11668: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11669: END IF;
11670: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11671: END IF;
11672:
11673: -- upon successful completion of the concurrent processing,
11674: -- stamp success code in pa_budget_versions and retain the request_id
11683: pa_debug.reset_curr_function;
11684: END IF;
11685:
11686: EXCEPTION
11687: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11688: -- ROLLBACK TO process_MSExcel_data;
11689: -- bug 4477397: doing a general rollback instead to savepoint
11690: ROLLBACK;
11691: l_msg_count := FND_MSG_PUB.count_msg;
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11884: p_debug_mode => l_debug_mode);
11885: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11886: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11890: pa_debug.g_err_stage := 'Validating Input parameters';
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11890: pa_debug.g_err_stage := 'Validating Input parameters';
11891: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11892: END IF;
11893:
11894: IF p_period_mask_id IS NULL THEN
11895: IF l_debug_mode = 'Y' THEN
11893:
11894: IF p_period_mask_id IS NULL THEN
11895: IF l_debug_mode = 'Y' THEN
11896: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11897: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11898: END IF;
11899: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11900: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11901: p_token1 => 'PROCEDURENAME',
11899: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11900: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11901: p_token1 => 'PROCEDURENAME',
11902: p_value1 => l_module_name);
11903: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11904: END IF;
11905:
11906: IF p_time_phased_code IS NULL THEN
11907: IF l_debug_mode = 'Y' THEN
11905:
11906: IF p_time_phased_code IS NULL THEN
11907: IF l_debug_mode = 'Y' THEN
11908: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11909: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11910: END IF;
11911: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11912: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11913: p_token1 => 'PROCEDURENAME',
11911: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11912: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11913: p_token1 => 'PROCEDURENAME',
11914: p_value1 => l_module_name);
11915: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11916: END IF;
11917:
11918: IF p_org_id IS NULL THEN
11919: IF l_debug_mode = 'Y' THEN
11917:
11918: IF p_org_id IS NULL THEN
11919: IF l_debug_mode = 'Y' THEN
11920: pa_debug.g_err_stage := 'p_org_id is passed as null';
11921: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11922: END IF;
11923: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11924: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11925: p_token1 => 'PROCEDURENAME',
11923: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11924: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11925: p_token1 => 'PROCEDURENAME',
11926: p_value1 => l_module_name);
11927: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11928: END IF;
11929:
11930: IF p_current_planning_period IS NULL THEN
11931: IF l_debug_mode = 'Y' THEN
11929:
11930: IF p_current_planning_period IS NULL THEN
11931: IF l_debug_mode = 'Y' THEN
11932: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11933: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11934: END IF;
11935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11937: p_token1 => 'PROCEDURENAME',
11935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11937: p_token1 => 'PROCEDURENAME',
11938: p_value1 => l_module_name);
11939: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11940: END IF;
11941: --Initializing the out parameter which is pl/sql table.
11942: x_periods_tbl := periods_tbl();
11943:
11947: CLOSE period_mask_cur;
11948: IF l_period_mask_tbl.count = 0 THEN
11949: IF l_debug_mode = 'Y' THEN
11950: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11951: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11952: END IF;
11953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11954: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11955: p_token1 => 'PROCEDURENAME',
11953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11954: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11955: p_token1 => 'PROCEDURENAME',
11956: p_value1 => l_module_name);
11957: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11958: END IF;
11959:
11960: --Information are got from pa_implentations_all table for the project org_id and stored in a pl/sql record.
11961: OPEN pa_impl_cur(p_org_id);
11983: END LOOP;
11984: ELSE
11985: IF l_debug_mode = 'Y' THEN
11986: pa_debug.g_err_stage := 'Period information not found for the budget version';
11987: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11988: END IF;
11989: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11990: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11991: p_token1 => 'PROCEDURENAME',
11989: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11990: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11991: p_token1 => 'PROCEDURENAME',
11992: p_value1 => l_module_name);
11993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11994: END IF;
11995:
11996: --The Group Period informations are got and stored in a pl/sql table based on the Period Mask.
11997: FOR i IN l_period_mask_tbl.first..l_period_mask_tbl.last
12018: END IF;
12019: END LOOP;
12020:
12021: EXCEPTION
12022: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12023: l_msg_count := FND_MSG_PUB.count_msg;
12024: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
12025: PA_INTERFACE_UTILS_PUB.get_messages
12026: (p_encoded => FND_API.G_TRUE
12047: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12048: ,p_procedure_name => 'get_period_information');
12049: IF l_debug_mode = 'Y' THEN
12050: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12052: pa_debug.reset_curr_function;
12053: END IF;
12054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12055: END GET_PERIOD_INFORMATION;
12319: IF l_debug_mode = 'Y' THEN
12320: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12321: ,p_debug_mode => l_debug_mode );
12322: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12324: END IF;
12325:
12326: l_budget_version_id := p_budget_version_id;
12327:
12331: --Validating Input Parameters.
12332: IF p_budget_version_id IS NULL THEN
12333: IF l_debug_mode = 'Y' THEN
12334: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12335: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12336: END IF;
12337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12338: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12339: p_token1 => 'PROCEDURENAME',
12337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12338: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12339: p_token1 => 'PROCEDURENAME',
12340: p_value1 => l_module_name);
12341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12342: ELSE
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12345: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12342: ELSE
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12345: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12346: END IF;
12347:
12348: --Fetching Project Information of the budget version and storing them in local variables.
12349: BEGIN
12362: EXCEPTION
12363: WHEN NO_DATA_FOUND THEN
12364: IF l_debug_mode = 'Y' THEN
12365: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12366: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12367: END IF;
12368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12369: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12370: p_token1 => 'PROCEDURENAME',
12368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12369: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12370: p_token1 => 'PROCEDURENAME',
12371: p_value1 => l_module_name);
12372: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12373: END;
12374: END IF;
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12373: END;
12374: END IF;
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12381:
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12381:
12382: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12383: The returned PL/SQL record l_version_info will contain the budget version details
12391:
12392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12393: IF l_debug_mode = 'Y' THEN
12394: pa_debug.g_err_stage := 'Budget Version Details not found';
12395: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12396: END IF;
12397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12398: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12399: p_token1 => 'PROCEDURENAME',
12397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12398: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12399: p_token1 => 'PROCEDURENAME',
12400: p_value1 => l_module_name);
12401: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12402: END IF;
12403:
12404: --Getting Structure Version Details and storing them in local variables.
12405: IF l_debug_mode = 'Y' THEN
12403:
12404: --Getting Structure Version Details and storing them in local variables.
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12407: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12408: END IF;
12409: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12410: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12411: l_project_structure_version_id);
12419: /* --Bug 5144013.
12420: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12421: IF l_debug_mode = 'Y' THEN
12422: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12423: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12424: END IF;
12425: BEGIN
12426: SELECT ci_id,
12427: approved_rev_plan_type_flag
12432: EXCEPTION
12433: WHEN NO_DATA_FOUND THEN
12434: IF l_debug_mode = 'Y' THEN
12435: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12437: END IF;
12438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12439: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12440: p_token1 => 'PROCEDURENAME',
12438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12439: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12440: p_token1 => 'PROCEDURENAME',
12441: p_value1 => l_module_name);
12442: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12443: END;
12444: IF l_debug_mode = 'Y' THEN
12445: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12442: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12443: END;
12444: IF l_debug_mode = 'Y' THEN
12445: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12447: END IF;
12448: */ --Bug 5144013.
12449:
12450: /*Getting the Agreement Details of the budget version if the budget version is CI version and and of
12452: */
12453: /* --Bug 5144013.
12454: IF l_debug_mode = 'Y' THEN
12455: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12457: END IF;
12458: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12459: PA_FIN_PLAN_UTILS2.get_agreement_details(
12460: p_budget_version_id => l_budget_version_id,
12464: x_return_status => l_return_status);
12465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12466: IF l_debug_mode = 'Y' THEN
12467: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12468: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12469: END IF;
12470: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12471: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12472: p_token1 => 'PROCEDURENAME',
12470: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12471: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12472: p_token1 => 'PROCEDURENAME',
12473: p_value1 => l_module_name);
12474: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12475: END IF;
12476: END IF;
12477: IF l_debug_mode = 'Y' THEN
12478: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12475: END IF;
12476: END IF;
12477: IF l_debug_mode = 'Y' THEN
12478: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12479: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12480: END IF;
12481: */ --Bug 5144013.
12482:
12483: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12484: The record l_proj_fp_options_rec will contain Plan Settings level information
12485: */
12486: IF l_debug_mode = 'Y' THEN
12487: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12488: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12489: END IF;
12490: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12491: l_version_type := l_version_info_rec.x_version_type;
12492: l_proj_fp_options_id := l_version_info_rec.x_proj_fp_options_id;
12510: EXCEPTION
12511: WHEN NO_DATA_FOUND THEN
12512: IF l_debug_mode = 'Y' THEN
12513: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12514: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12515: END IF;
12516: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12517: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12518: p_token1 => 'PROCEDURENAME',
12516: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12517: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12518: p_token1 => 'PROCEDURENAME',
12519: p_value1 => l_module_name);
12520: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12521: END;
12522:
12523: /*Getting Amount Type Codes associated with the budget version.and storing them in a PL/SQL table.
12524: The PL/SQL table l_amt_type_tbl will contain the Amount Type codes and Conversion Attributes
12526: */
12527: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12528: IF l_debug_mode = 'Y' THEN
12529: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12530: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12531: END IF;
12532: BEGIN
12533: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12534: FETCH amt_type_cur
12536: CLOSE amt_type_cur;
12537: IF l_amt_type_tbl.count = 0 THEN
12538: IF l_debug_mode = 'Y' THEN
12539: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12540: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12541: END IF;
12542: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12543: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12544: p_token1 => 'PROCEDURENAME',
12542: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12543: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12544: p_token1 => 'PROCEDURENAME',
12545: p_value1 => l_module_name);
12546: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12547: END IF;
12548: END;
12549:
12550: /*Calling GET_PERIOD_INFORMATION api to get the Group Period Information and Start/End dates of the Periods.
12556: l_org_id := l_version_info_rec.x_org_id;
12557: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12558: IF l_debug_mode = 'Y' THEN
12559: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12560: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12561: END IF;
12562: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12563: p_time_phased_code => l_time_phased_code,
12564: p_org_id => l_org_id,
12570:
12571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12572: IF l_debug_mode = 'Y' THEN
12573: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12574: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12575: END IF;
12576: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12578: p_token1 => 'PROCEDURENAME',
12576: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12578: p_token1 => 'PROCEDURENAME',
12579: p_value1 => l_module_name);
12580: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12581: END IF;
12582: IF l_periods_tbl.count = 0 THEN
12583: IF l_debug_mode = 'Y' THEN
12584: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12581: END IF;
12582: IF l_periods_tbl.count = 0 THEN
12583: IF l_debug_mode = 'Y' THEN
12584: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12585: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12586: END IF;
12587: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12588: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12589: p_token1 => 'PROCEDURENAME',
12587: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12588: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12589: p_token1 => 'PROCEDURENAME',
12590: p_value1 => l_module_name);
12591: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12592: END IF;
12593:
12594: /* Start of code changes for Bug 5144013.
12595: Commenting out the below code by which we are getting the exchange rates of the
12606: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12607: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12608: IF l_debug_mode = 'Y' THEN
12609: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12610: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12611: END IF;
12612:
12613: BEGIN
12614: */ --Bug 5144013.
12650:
12651: IF l_txn_curr_tbl.count = 0 THEN
12652: IF l_debug_mode = 'Y' THEN
12653: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12655: END IF;
12656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12657: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12658: p_token1 => 'PROCEDURENAME',
12656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12657: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12658: p_token1 => 'PROCEDURENAME',
12659: p_value1 => l_module_name);
12660: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12661: END IF;
12662: */
12663: --END;
12664: /* End of code changes done for Bug 5144013.*/
12668: information associated with the budget version.
12669: */
12670: IF l_debug_mode = 'Y' THEN
12671: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12672: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12673: END IF;
12674: BEGIN
12675: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12676: as res_ass_tbl is converted to ordinary pl/sql table from index by pl/sql table.
12688: /* End of coding done for bug 5641300.*/
12689: IF l_res_ass_tbl.count = 0 THEN
12690: IF l_debug_mode = 'Y' THEN
12691: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12692: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12693: END IF;
12694: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12695: /*
12696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12697: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12698: p_token1 => 'PROCEDURENAME',
12699: p_value1 => l_module_name);
12700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12701: */
12702: RAISE NO_RA_EXC;
12703: END IF;
12704: END;
12708: Currency combination for all the periods associated with the budget version
12709: */
12710: IF l_debug_mode = 'Y' THEN
12711: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12712: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12713: END IF;
12714: BEGIN
12715: l_global_tmp_tbl := global_tmp_tbl();
12716: l_global_tmp_rec.budget_version_id := l_budget_version_id;
12964: table l_global_tmp_tbl which contains all the budget line details.
12965: */
12966: IF l_debug_mode = 'Y' THEN
12967: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12969: END IF;
12970: BEGIN
12971: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12972: LOOP
12982: RAISE;
12983: END;
12984: IF l_debug_mode = 'Y' THEN
12985: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12986: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12987: END IF;
12988: --Resetting the value of the Global PL/SQL table to NULL.
12989: l_global_tmp_tbl := null;
12990:
12988: --Resetting the value of the Global PL/SQL table to NULL.
12989: l_global_tmp_tbl := null;
12990:
12991: EXCEPTION
12992: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12993: l_msg_count := FND_MSG_PUB.count_msg;
12994: IF l_msg_count = 1 and x_msg_data IS NULL THEN
12995: PA_INTERFACE_UTILS_PUB.get_messages
12996: (p_encoded => FND_API.G_TRUE
13028: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
13029: ,p_procedure_name => 'insert_periodic_tmp_table');
13030: IF l_debug_mode = 'Y' THEN
13031: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
13032: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
13033: pa_debug.reset_curr_function;
13034: END IF;
13035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13036: