[Home] [Help]
348: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
349: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
350: p_token1 => 'PROCEDURENAME',
351: p_value1 => g_module_name);
352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
353: END IF;
354:
355: -- checking, if this api is called from web adi directly and if yes, if there is a pending
356: -- concurrent request for processing, then the rows in the interface table should not be deleted
395: pa_debug.reset_curr_function;
396: END IF;
397: END IF;
398: EXCEPTION
399: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
400: l_msg_count := FND_MSG_PUB.count_msg;
401:
402: IF l_msg_count = 1 and x_msg_data IS NULL THEN
403: PA_INTERFACE_UTILS_PUB.get_messages
502: l_msg_count NUMBER;
503:
504: l_debug_mode VARCHAR2(1);
505: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.validate_header_info';
506: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
507: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
508: l_data VARCHAR2(2000);
509: l_msg_index_out NUMBER;
510:
503:
504: l_debug_mode VARCHAR2(1);
505: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.validate_header_info';
506: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
507: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
508: l_data VARCHAR2(2000);
509: l_msg_index_out NUMBER;
510:
511:
552: IF l_debug_mode = 'Y' THEN
553: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
555: END IF;
556: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
557: END IF;
558: CLOSE l_version_info_csr;
559:
560: IF l_debug_mode = 'Y' THEN
613: IF l_debug_mode = 'Y' THEN
614: pa_debug.g_err_stage := 'No data found for period mask';
615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
616: END IF;
617: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
618: END;
619: -- the following validation is only for timephased budgets downloaded in
620: -- periodic layouts
621: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
640: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
641: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
642: p_project_id => l_project_id,
643: p_fin_plan_type_id => l_fin_plan_type_id,
644: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
645: p_function_name => 'PA_PM_UPDATE_BUDGET',
646: p_version_type => l_version_type,
647: x_return_status => l_return_status,
648: x_ret_code => l_sec_ret_code);
651: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
652: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
653: p_project_id => l_project_id,
654: p_fin_plan_type_id => l_fin_plan_type_id,
655: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
656: p_function_name => 'PA_PM_UPDATE_CHG_DOC',
657: p_version_type => l_version_type,
658: x_return_status => l_return_status,
659: x_ret_code => l_sec_ret_code);
717: IF l_debug_mode = 'Y' THEN
718: pa_debug.g_err_stage := 'Status code not found';
719: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
720: END IF;
721: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
722: END;
723:
724: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
725: IF l_debug_mode = 'Y' THEN
765: PA_PM_FUNCTION_SECURITY_PUB.CHECK_BUDGET_SECURITY
766: (p_api_version_number => PA_BUDGET_PUB.G_API_VERSION_NUMBER,
767: p_project_id => l_project_id,
768: p_fin_plan_type_id => l_fin_plan_type_id,
769: p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN,
770: p_function_name => 'PA_PM_SUBMIT_BUDGET',
771: p_version_type => l_version_type,
772: x_return_status => l_return_status,
773: x_ret_code => l_sec_ret_code);
950: END IF;
951:
952: RETURN;
953:
954: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
955: l_msg_count := FND_MSG_PUB.count_msg;
956:
957: IF l_msg_count = 1 and x_msg_data IS NULL THEN
958: PA_INTERFACE_UTILS_PUB.get_messages
1026: l_msg_count NUMBER;
1027:
1028: l_debug_mode VARCHAR2(1);
1029: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_errors';
1030: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1031: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1032: l_msg_index_out NUMBER;
1033: l_data VARCHAR2(2000);
1034: l_periodic_flag VARCHAR2(1);
1027:
1028: l_debug_mode VARCHAR2(1);
1029: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_errors';
1030: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1031: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1032: l_msg_index_out NUMBER;
1033: l_data VARCHAR2(2000);
1034: l_periodic_flag VARCHAR2(1);
1035:
1123: IF l_debug_mode = 'Y' THEN
1124: pa_debug.g_err_stage := 'Not a valid calling context passed';
1125: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1126: END IF;
1127: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1128: END IF;
1129:
1130: ELSE -- when p_context is not passed
1131: IF p_error_code_tbl.count > 0 THEN
1156: IF l_debug_mode = 'Y' THEN
1157: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1158: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1159: END IF;
1160: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1161: END IF;
1162:
1163: ELSE -- non periodic
1164:
1188: IF l_debug_mode = 'Y' THEN
1189: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1191: END IF;
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193: END IF;
1194: END IF;
1195:
1196: ELSE -- lenght of error code table is 0 when context is not passed
1216: pa_debug.reset_curr_function;
1217: END IF;
1218:
1219: EXCEPTION
1220: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1221: l_msg_count := FND_MSG_PUB.count_msg;
1222:
1223: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1224: PA_INTERFACE_UTILS_PUB.get_messages
1276: l_msg_count NUMBER;
1277:
1278: l_debug_mode VARCHAR2(1);
1279: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.read_global_var_to_report_err';
1280: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1281: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1282: l_msg_index_out NUMBER;
1283: l_data VARCHAR2(2000);
1284:
1277:
1278: l_debug_mode VARCHAR2(1);
1279: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.read_global_var_to_report_err';
1280: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1281: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1282: l_msg_index_out NUMBER;
1283: l_data VARCHAR2(2000);
1284:
1285: l_err_val_code_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
1328: x_return_status => l_return_status,
1329: x_msg_data => l_msg_data,
1330: x_msg_count => l_msg_count);
1331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1332: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1333: END IF;
1334:
1335: -- clearing the table of rec type
1336: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1340: IF l_debug_mode = 'Y' THEN
1341: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1343: END IF;
1344: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1345: END IF;
1346: IF l_debug_mode = 'Y' THEN
1347: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1350: IF l_debug_mode = 'Y' THEN
1351: pa_debug.reset_curr_function;
1352: END IF;
1353: EXCEPTION
1354: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1355: IF l_debug_mode = 'Y' THEN
1356: pa_debug.reset_curr_function;
1357: END IF;
1358: RETURN;
1355: IF l_debug_mode = 'Y' THEN
1356: pa_debug.reset_curr_function;
1357: END IF;
1358: RETURN;
1359: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1360:
1361: -- clearing the table of rec type
1362: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1363: g_fp_webadi_rec_tbl.DELETE;
1428: l_msg_count NUMBER;
1429:
1430: l_debug_mode VARCHAR2(1);
1431: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1432: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1433: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1434: l_msg_index_out NUMBER;
1435: l_data VARCHAR2(2000);
1436:
1429:
1430: l_debug_mode VARCHAR2(1);
1431: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1432: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1433: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1434: l_msg_index_out NUMBER;
1435: l_data VARCHAR2(2000);
1436:
1437: l_task_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1455: IF l_debug_mode = 'Y' THEN
1456: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1458: END IF;
1459: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1460: ELSE
1461: IF l_debug_mode = 'Y' THEN
1462: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1463: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1482: IF l_debug_mode = 'Y' THEN
1483: pa_debug.reset_curr_function;
1484: END IF;
1485: EXCEPTION
1486: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1487: IF l_debug_mode = 'Y' THEN
1488: pa_debug.reset_curr_function;
1489: END IF;
1490: RETURN;
1487: IF l_debug_mode = 'Y' THEN
1488: pa_debug.reset_curr_function;
1489: END IF;
1490: RETURN;
1491: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1492: l_msg_count := FND_MSG_PUB.count_msg;
1493:
1494: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1495: PA_INTERFACE_UTILS_PUB.get_messages
1540: IS
1541:
1542: l_debug_mode VARCHAR2(1);
1543: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1544: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1545: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1546:
1547: conv_attrb_displayed VARCHAR2(1);
1548:
1541:
1542: l_debug_mode VARCHAR2(1);
1543: l_module_name VARCHAR2(100) := 'PAFPWAPB.check_and_update_txn_curr_code';
1544: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1545: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1546:
1547: conv_attrb_displayed VARCHAR2(1);
1548:
1549: l_projfunc_rate_type pa_fp_webadi_upload_inf.projfunc_rate_type%TYPE;
1572: IF l_debug_mode = 'Y' THEN
1573: pa_debug.g_err_stage := 'p_run_id is passed as null';
1574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1575: END IF;
1576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1577: END IF;
1578:
1579: IF l_debug_mode = 'Y' THEN
1580: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1633: -- returning
1634: RETURN conv_attrb_displayed;
1635:
1636: EXCEPTION
1637: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1638: IF l_debug_mode = 'Y' THEN
1639: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1641: END IF;
1701: l_msg_count NUMBER;
1702:
1703: l_debug_mode VARCHAR2(1);
1704: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_val_input';
1705: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1706: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1707: l_msg_index_out NUMBER;
1708: l_data VARCHAR2(2000);
1709:
1702:
1703: l_debug_mode VARCHAR2(1);
1704: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_val_input';
1705: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
1706: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
1707: l_msg_index_out NUMBER;
1708: l_data VARCHAR2(2000);
1709:
1710: -- variable to held the start_date and end_date of individual periods
2018: (p_app_short_name => 'PA',
2019: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2020: p_token1 => 'PROCEDURENAME',
2021: p_value1 => l_module_name);
2022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2023: END IF;
2024:
2025: -- checking is org_id is passed as null for periodic layouts
2026: IF (p_prd_start_date_tbl.COUNT > 0 OR
2034: (p_app_short_name => 'PA',
2035: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2036: p_token1 => 'PROCEDURENAME',
2037: p_value1 => l_module_name);
2038: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2039: END IF;
2040:
2041: -- initializing the out parameter for number of records processed
2042: x_num_of_rec_processed := 0;
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: IF l_debug_mode = 'Y' THEN
2452: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2454: END IF;
2455:
2456: RAISE;
2457: END;
2561: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2562: END IF;
2563:
2564:
2565: IF p_version_info_rec.x_plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
2566: is_forecast_version := 'Y';
2567:
2568: -- calling an api to derive the etc_start_date
2569: IF l_debug_mode = 'Y' THEN
2588: EXCEPTION
2589: WHEN OTHERS THEN
2590: IF l_debug_mode = 'Y' THEN
2591: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2592: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2593: END IF;
2594:
2595: RAISE;
2596: END;
2655: EXCEPTION
2656: WHEN OTHERS THEN
2657: IF l_debug_mode = 'Y' THEN
2658: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2659: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2660: END IF;
2661:
2662: RAISE;
2663: END;
2681: EXCEPTION
2682: WHEN OTHERS THEN
2683: IF l_debug_mode = 'Y' THEN
2684: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2685: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2686: END IF;
2687:
2688: RAISE;
2689: END;
2990: EXCEPTION
2991: WHEN OTHERS THEN
2992: IF l_debug_mode = 'Y' THEN
2993: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2995: END IF;
2996:
2997: RAISE;
2998: END;
5789: IF l_debug_mode = 'Y' THEN
5790: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5792: END IF;
5793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5794: END IF;
5795: END IF;
5796:
5797: --log1('----- STAGE 116-------'||l_err_val_code_tbl.COUNT);
5839:
5840: --log1('----- Leaving prepare_val_input-------');
5841:
5842: EXCEPTION
5843: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5844: l_msg_count := FND_MSG_PUB.count_msg;
5845:
5846: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5847: PA_INTERFACE_UTILS_PUB.get_messages
6172: p_value1 => 'PAFPWAPB.get_total_fcst_amount',
6173: p_token2 => 'STAGE',
6174: p_value2 => '[Task, Rlm,Txn]'||'['||p_task_id||','||p_resource_list_member_id||','||p_txn_currency_code||']');
6175:
6176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6177:
6178: END IF;
6179:
6180: IF p_line_start_date IS NOT NULL THEN
6190: p_value1 => 'PAFPWAPB.get_total_fcst_amount',
6191: p_token2 => 'STAGE',
6192: p_value2 => 'Invalid Budget Level parameters');
6193:
6194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6195:
6196: END IF;
6197:
6198: END IF;
6606: END IF;
6607:
6608: EXCEPTION
6609:
6610: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6611: l_msg_count := FND_MSG_PUB.count_msg;
6612: IF l_msg_count = 1 THEN
6613: PA_INTERFACE_UTILS_PUB.get_messages
6614: (p_encoded => FND_API.G_TRUE
6746: IS
6747: -- variables used for debugging
6748: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_pbl_input';
6749: l_debug_mode VARCHAR2(1) := 'N';
6750: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
6751: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
6752:
6753: l_msg_count NUMBER;
6754: l_msg_data VARCHAR2(2000);
6747: -- variables used for debugging
6748: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.prepare_pbl_input';
6749: l_debug_mode VARCHAR2(1) := 'N';
6750: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
6751: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
6752:
6753: l_msg_count NUMBER;
6754: l_msg_data VARCHAR2(2000);
6755: l_data VARCHAR2(2000);
6835: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6836: p_token1 => 'PROCEDURENAME',
6837: p_value1 => l_module_name);
6838:
6839: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6840: END IF;
6841:
6842: --If there are no records to process return
6843: IF p_budget_lines_tbl.COUNT=0 THEN
6936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6937: p_token1 => 'PROCEDURENAME',
6938: p_value1 => l_module_name);
6939:
6940: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6941:
6942: END IF;
6943: --log1('----- STAGE 1-------');
6944: l_prev_pbl_tbl_count :=0;
7461: IF l_debug_mode = 'Y' THEN
7462: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7463: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7464: END IF;
7465: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7466: END IF;
7467:
7468:
7469: ELSIF l_curr_rec.amount_type_code = 'TOTAL_RAW_COST' THEN
7517: IF l_debug_mode = 'Y' THEN
7518: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7519: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7520: END IF;
7521: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7522: END IF;
7523:
7524:
7525: ELSIF l_curr_rec.amount_type_code = 'TOTAL_REV' THEN
7573: IF l_debug_mode = 'Y' THEN
7574: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7575: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7576: END IF;
7577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7578: END IF;
7579:
7580:
7581: ELSIF l_curr_rec.amount_type_code = 'TOTAL_QTY' THEN
7629: IF l_debug_mode = 'Y' THEN
7630: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7632: END IF;
7633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7634: END IF;
7635:
7636: ELSIF l_curr_rec.amount_type_code IN ('ETC_BURDENED_COST_RATE','BURDENED_COST_RATE') THEN
7637:
7904: IF l_debug_mode = 'Y' THEN
7905: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7906: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7907: END IF;
7908: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7909: END IF;
7910:
7911: END IF;
7912:
7924: pa_debug.reset_curr_function;
7925: END IF;
7926:
7927: EXCEPTION
7928: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7929: l_msg_count := FND_MSG_PUB.count_msg;
7930: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7931: PA_INTERFACE_UTILS_PUB.get_messages
7932: (p_encoded => FND_API.G_TRUE
8019: IS
8020: -- variables used for debugging
8021: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_budget_lines';
8022: l_debug_mode VARCHAR2(1) := 'N';
8023: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
8024: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
8025:
8026: l_return_status VARCHAR2(1);
8027: l_msg_count NUMBER;
8020: -- variables used for debugging
8021: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.process_budget_lines';
8022: l_debug_mode VARCHAR2(1) := 'N';
8023: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
8024: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
8025:
8026: l_return_status VARCHAR2(1);
8027: l_msg_count NUMBER;
8028: l_msg_data VARCHAR2(2000);
8302: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8303: p_token1 => 'PROCEDURENAME',
8304: p_value1 => l_module_name);
8305:
8306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8307: END IF;
8308:
8309: -- budget_version_id is not passed
8310: IF p_budget_version_id IS NULL THEN
8316: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8317: p_token1 => 'PROCEDURENAME',
8318: p_value1 => l_module_name);
8319:
8320: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8321: END IF;
8322: -- version_info_rec type is null
8323: IF p_version_info_rec.x_project_id IS NULL THEN
8324: IF l_debug_mode = 'Y' THEN
8329: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8330: p_token1 => 'PROCEDURENAME',
8331: p_value1 => l_module_name);
8332:
8333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8334: END IF;
8335:
8336: -- if no data is present in the task id table
8337: IF NOT p_task_id_tbl.EXISTS(1) THEN
8443: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8444: p_token1 => 'PROCEDURENAME',
8445: p_value1 => l_module_name);
8446:
8447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8448: END IF;
8449: --log1('----- STAGE PBL1.2-------');
8450:
8451: -- input parameters validation done
8706: IF l_debug_mode = 'Y' THEN
8707: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8709: END IF;
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8711: END;
8712: ELSE
8713: -- for project level plannings
8714: l_new_elem_ver_id := 0;
8778: IF l_debug_mode = 'Y' THEN
8779: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8781: END IF;
8782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8783: END IF;
8784: IF l_debug_mode = 'Y' THEN
8785: pa_debug.g_err_stage := 'Add_planning_transaction called';
8786: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8813: l_ra_id_tbl(i) := l_new_ra_id;
8814:
8815: EXCEPTION
8816: WHEN NO_DATA_FOUND THEN
8817: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8818: END;
8819: END IF;
8820: END LOOP;
8821: --log1('PBL 6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8989: IF l_debug_mode = 'Y' THEN
8990: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
8991: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8992: END IF;
8993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8994: END IF;
8995: IF l_debug_mode = 'Y' THEN
8996: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
8997: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9020: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9022: END IF;
9023: IF p_context = 'WEBADI_PERIODIC' THEN
9024: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9025: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9026: l_line_start_date_tbl := SYSTEM.pa_date_tbl_type();
9027: l_line_end_date_tbl := SYSTEM.pa_date_tbl_type();
9028: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9024: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9025: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9026: l_line_start_date_tbl := SYSTEM.pa_date_tbl_type();
9027: l_line_end_date_tbl := SYSTEM.pa_date_tbl_type();
9028: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9029: END IF;
9030:
9031: IF l_debug_mode = 'Y' THEN
9032: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9097: IF l_debug_mode = 'Y' THEN
9098: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9099: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9100: END IF;
9101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9102: END IF;
9103:
9104: --Bug 4424457. Find out if there are budget lines that are processed by calculate API
9105: BEGIN
9459: IF l_debug_mode = 'Y' THEN
9460: pa_debug.g_err_stage:='convert_txn_currency returned error';
9461: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9462: END IF;
9463: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9464: END IF;
9465:
9466: END IF;
9467:
9817: IF l_debug_mode = 'Y' THEN
9818: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9819: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9820: END IF;
9821: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9822: END IF;
9823: IF l_debug_mode = 'Y' THEN
9824: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
9825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9841: IF l_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9844: END IF;
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9847: IF l_debug_mode = 'Y' THEN
9848: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
9849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
9870: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9871: END IF;
9872: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9873: END IF;
9874: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9875: IF l_debug_mode = 'Y' THEN
9876: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
9890: IF l_debug_mode = 'Y' THEN
9891: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
9892: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9893: END IF;
9894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9895: END IF;
9896:
9897: --log1('PBL 32 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9898: -- checking for valid requiered parameter values to call the MRC api
9913: IF l_debug_mode = 'Y' THEN
9914: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
9915: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9916: END IF;
9917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9918: END IF;
9919: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9920: ELSE
9921: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
9947: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9948: END IF;
9949:
9950: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9951:
9952: END IF;
9953:
9954:
9956: ,x_return_status => l_return_status
9957: ,x_msg_code => l_error_msg_code);
9958:
9959: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9961: END IF;
9962:
9963: --log1('PBL 38 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9964: -- deleting contents from pl/sql tables to be used to call pji api
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10022: pa_debug.Reset_Curr_Function;
10023: END IF;
10024: EXCEPTION
10025: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10026: IF l_debug_mode = 'Y' THEN
10027: pa_debug.reset_curr_function;
10028: END IF;
10029: RETURN;
10026: IF l_debug_mode = 'Y' THEN
10027: pa_debug.reset_curr_function;
10028: END IF;
10029: RETURN;
10030: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10031: l_msg_count := FND_MSG_PUB.count_msg;
10032:
10033: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10034: PA_INTERFACE_UTILS_PUB.get_messages
10117: IS
10118: -- variables used for debugging
10119: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.switcher';
10120: l_debug_mode VARCHAR2(1) := 'N';
10121: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
10122: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
10123:
10124: l_msg_count NUMBER;
10125: l_msg_data VARCHAR2(2000);
10118: -- variables used for debugging
10119: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.switcher';
10120: l_debug_mode VARCHAR2(1) := 'N';
10121: l_debug_level3 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3;
10122: l_debug_level5 CONSTANT NUMBER := PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5;
10123:
10124: l_msg_count NUMBER;
10125: l_msg_data VARCHAR2(2000);
10126: l_data VARCHAR2(2000);
10355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10356: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10357: p_token1 => 'PROCEDURENAME',
10358: p_value1 => l_module_name);
10359: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10360: END IF;
10361:
10362: IF l_debug_mode = 'Y' THEN
10363: pa_debug.g_err_stage := 'Entering into switcher';
10390: IF l_debug_mode = 'Y' THEN
10391: pa_debug.g_err_stage := 'No data found while reading header info';
10392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10393: END IF;
10394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10395: END;
10396:
10397:
10398: --Find out whether the layout is a periodic layout or not. This can be done by looking at the amount type column
10427: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10428: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10429: p_token1 => 'PROCEDURENAME',
10430: p_value1 => l_module_name);
10431: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10432: END IF;
10433:
10434:
10435: --log1('----- STAGE 1-------');
10470: IF l_debug_mode = 'Y' THEN
10471: pa_debug.reset_curr_function;
10472: END IF;
10473:
10474: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10475: END;
10476:
10477: --log1('----- STAGE 2-------');
10478:
10496: IF l_debug_mode = 'Y' THEN
10497: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10499: END IF;
10500: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10501: END IF;
10502: --log1('----- STAGE 2.3-------'||x_return_status);
10503: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10504:
10526: IF l_debug_mode = 'Y' THEN
10527: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10529: END IF;
10530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10531: END IF;
10532:
10533: -- checking, if the layout is periodic one
10534: IF l_debug_mode = 'Y' THEN
10620: IF l_debug_mode = 'Y' THEN
10621: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10622: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10623: END IF;
10624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10625: END IF;
10626: ELSE
10627: prepare_val_input
10628: ( p_run_id => p_run_id,
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10670: END IF;
10671: END IF; -- periodic check
10672: --log1('3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10673: --log1('3.1 '||l_inf_tbl_rec_tbl.count);
10751: IF l_debug_mode = 'Y' THEN
10752: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10754: END IF;
10755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10756: END IF;
10757: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10758:
10759: IF l_debug_mode = 'Y' THEN
10789: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
10790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10791: END IF;
10792:
10793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10794: END IF;
10795:
10796: -- bug 4428112: add the following procedure to update the txn currency code
10797: -- if it was not passed earlier, for a non MC enabled version with the validated
10808: IF l_debug_mode = 'Y' THEN
10809: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code 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: END IF;
10815:
10816:
10876: argument2 => p_run_id ); -- p_run_id
10877: --log1('----- STAGE 10.12-------');
10878: IF l_request_id =0 THEN
10879: --log1('----- STAGE 10.13-------');
10880: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10881:
10882: ELSE
10883: --log1('----- STAGE 10.14-------');
10884:
11028: IF l_debug_mode = 'Y' THEN
11029: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11031: END IF;
11032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11033: END IF;
11034:
11035: IF l_debug_mode = 'Y' THEN
11036: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11108: IF l_debug_mode = 'Y' THEN
11109: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11111: END IF;
11112: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11113: END IF;
11114: -- Bug 4431269: Clearing the global variables used in calculate api
11115: -- for error reporting purpose
11116: G_FP_WA_CALC_CALLING_CONTEXT := null;
11139: IF l_debug_mode = 'Y' THEN
11140: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11142: END IF;
11143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11144: END IF;
11145: END IF;
11146: --log1('11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11147: --log1('----- STAGE 13-------');
11172: --log1('----- Leaving Switcher api ------- '||x_return_status);
11173: --log1('End '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11174: EXCEPTION
11175:
11176: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11179: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11180: pa_debug.g_err_stage := 'Checking for errors';
11436: IF l_debug_mode = 'Y' THEN
11437: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11438: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11439: END IF;
11440: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11441: END IF;
11442:
11443: -- upon successful completion of the concurrent processing,
11444: -- stamp success code in pa_budget_versions and retain the request_id
11453: pa_debug.reset_curr_function;
11454: END IF;
11455:
11456: EXCEPTION
11457: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11458: -- ROLLBACK TO process_MSExcel_data;
11459: -- bug 4477397: doing a general rollback instead to savepoint
11460: ROLLBACK;
11461: l_msg_count := FND_MSG_PUB.count_msg;
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11653: p_debug_mode => l_debug_mode);
11654: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11655: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11659: pa_debug.g_err_stage := 'Validating Input parameters';
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11659: pa_debug.g_err_stage := 'Validating Input parameters';
11660: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11661: END IF;
11662:
11663: IF p_period_mask_id IS NULL THEN
11664: IF l_debug_mode = 'Y' THEN
11662:
11663: IF p_period_mask_id IS NULL THEN
11664: IF l_debug_mode = 'Y' THEN
11665: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11666: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11667: END IF;
11668: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11669: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11670: p_token1 => 'PROCEDURENAME',
11668: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11669: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11670: p_token1 => 'PROCEDURENAME',
11671: p_value1 => l_module_name);
11672: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11673: END IF;
11674:
11675: IF p_time_phased_code IS NULL THEN
11676: IF l_debug_mode = 'Y' THEN
11674:
11675: IF p_time_phased_code IS NULL THEN
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11679: END IF;
11680: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11681: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11682: p_token1 => 'PROCEDURENAME',
11680: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11681: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11682: p_token1 => 'PROCEDURENAME',
11683: p_value1 => l_module_name);
11684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11685: END IF;
11686:
11687: IF p_org_id IS NULL THEN
11688: IF l_debug_mode = 'Y' THEN
11686:
11687: IF p_org_id IS NULL THEN
11688: IF l_debug_mode = 'Y' THEN
11689: pa_debug.g_err_stage := 'p_org_id is passed as null';
11690: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11691: END IF;
11692: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11693: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11694: p_token1 => 'PROCEDURENAME',
11692: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11693: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11694: p_token1 => 'PROCEDURENAME',
11695: p_value1 => l_module_name);
11696: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11697: END IF;
11698:
11699: IF p_current_planning_period IS NULL THEN
11700: IF l_debug_mode = 'Y' THEN
11698:
11699: IF p_current_planning_period IS NULL THEN
11700: IF l_debug_mode = 'Y' THEN
11701: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11702: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11703: END IF;
11704: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11705: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11706: p_token1 => 'PROCEDURENAME',
11704: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11705: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11706: p_token1 => 'PROCEDURENAME',
11707: p_value1 => l_module_name);
11708: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11709: END IF;
11710: --Initializing the out parameter which is pl/sql table.
11711: x_periods_tbl := periods_tbl();
11712:
11716: CLOSE period_mask_cur;
11717: IF l_period_mask_tbl.count = 0 THEN
11718: IF l_debug_mode = 'Y' THEN
11719: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11721: END IF;
11722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11723: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11724: p_token1 => 'PROCEDURENAME',
11722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11723: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11724: p_token1 => 'PROCEDURENAME',
11725: p_value1 => l_module_name);
11726: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11727: END IF;
11728:
11729: --Information are got from pa_implentations_all table for the project org_id and stored in a pl/sql record.
11730: OPEN pa_impl_cur(p_org_id);
11752: END LOOP;
11753: ELSE
11754: IF l_debug_mode = 'Y' THEN
11755: pa_debug.g_err_stage := 'Period information not found for the budget version';
11756: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11757: END IF;
11758: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11759: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11760: p_token1 => 'PROCEDURENAME',
11758: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11759: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11760: p_token1 => 'PROCEDURENAME',
11761: p_value1 => l_module_name);
11762: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11763: END IF;
11764:
11765: --The Group Period informations are got and stored in a pl/sql table based on the Period Mask.
11766: FOR i IN l_period_mask_tbl.first..l_period_mask_tbl.last
11787: END IF;
11788: END LOOP;
11789:
11790: EXCEPTION
11791: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11792: l_msg_count := FND_MSG_PUB.count_msg;
11793: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
11794: PA_INTERFACE_UTILS_PUB.get_messages
11795: (p_encoded => FND_API.G_TRUE
11816: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11817: ,p_procedure_name => 'get_period_information');
11818: IF l_debug_mode = 'Y' THEN
11819: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11821: pa_debug.reset_curr_function;
11822: END IF;
11823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11824: END GET_PERIOD_INFORMATION;
12084: IF l_debug_mode = 'Y' THEN
12085: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12086: ,p_debug_mode => l_debug_mode );
12087: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12089: END IF;
12090:
12091: l_budget_version_id := p_budget_version_id;
12092:
12093: --Validating Input Parameters.
12094: IF p_budget_version_id IS NULL THEN
12095: IF l_debug_mode = 'Y' THEN
12096: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12097: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12098: END IF;
12099: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12100: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12101: p_token1 => 'PROCEDURENAME',
12099: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12100: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12101: p_token1 => 'PROCEDURENAME',
12102: p_value1 => l_module_name);
12103: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12104: ELSE
12105: IF l_debug_mode = 'Y' THEN
12106: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12107: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12103: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12104: ELSE
12105: IF l_debug_mode = 'Y' THEN
12106: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12107: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12108: END IF;
12109:
12110: --Fetching Project Information of the budget version and storing them in local variables.
12111: BEGIN
12122: EXCEPTION
12123: WHEN NO_DATA_FOUND THEN
12124: IF l_debug_mode = 'Y' THEN
12125: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12127: END IF;
12128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12129: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12130: p_token1 => 'PROCEDURENAME',
12128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12129: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12130: p_token1 => 'PROCEDURENAME',
12131: p_value1 => l_module_name);
12132: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12133: END;
12134: END IF;
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12133: END;
12134: END IF;
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12141:
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12141:
12142: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12143: The returned PL/SQL record l_version_info will contain the budget version details
12151:
12152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage := 'Budget Version Details not found';
12155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12156: END IF;
12157: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12158: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12159: p_token1 => 'PROCEDURENAME',
12157: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12158: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12159: p_token1 => 'PROCEDURENAME',
12160: p_value1 => l_module_name);
12161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12162: END IF;
12163:
12164: --Getting Structure Version Details and storing them in local variables.
12165: IF l_debug_mode = 'Y' THEN
12163:
12164: --Getting Structure Version Details and storing them in local variables.
12165: IF l_debug_mode = 'Y' THEN
12166: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12167: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12168: END IF;
12169: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12170: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12171: l_project_structure_version_id);
12179: /* --Bug 5144013.
12180: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12181: IF l_debug_mode = 'Y' THEN
12182: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12183: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12184: END IF;
12185: BEGIN
12186: SELECT ci_id,
12187: approved_rev_plan_type_flag
12192: EXCEPTION
12193: WHEN NO_DATA_FOUND THEN
12194: IF l_debug_mode = 'Y' THEN
12195: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12196: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12197: END IF;
12198: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12199: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12200: p_token1 => 'PROCEDURENAME',
12198: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12199: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12200: p_token1 => 'PROCEDURENAME',
12201: p_value1 => l_module_name);
12202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12203: END;
12204: IF l_debug_mode = 'Y' THEN
12205: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12206: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12203: END;
12204: IF l_debug_mode = 'Y' THEN
12205: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12206: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12207: END IF;
12208: */ --Bug 5144013.
12209:
12210: /*Getting the Agreement Details of the budget version if the budget version is CI version and and of
12212: */
12213: /* --Bug 5144013.
12214: IF l_debug_mode = 'Y' THEN
12215: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12216: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12217: END IF;
12218: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12219: PA_FIN_PLAN_UTILS2.get_agreement_details(
12220: p_budget_version_id => l_budget_version_id,
12224: x_return_status => l_return_status);
12225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12226: IF l_debug_mode = 'Y' THEN
12227: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12228: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12229: END IF;
12230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12231: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12232: p_token1 => 'PROCEDURENAME',
12230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12231: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12232: p_token1 => 'PROCEDURENAME',
12233: p_value1 => l_module_name);
12234: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12235: END IF;
12236: END IF;
12237: IF l_debug_mode = 'Y' THEN
12238: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12235: END IF;
12236: END IF;
12237: IF l_debug_mode = 'Y' THEN
12238: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12239: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12240: END IF;
12241: */ --Bug 5144013.
12242:
12243: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12244: The record l_proj_fp_options_rec will contain Plan Settings level information
12245: */
12246: IF l_debug_mode = 'Y' THEN
12247: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12249: END IF;
12250: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12251: l_version_type := l_version_info_rec.x_version_type;
12252: l_proj_fp_options_id := l_version_info_rec.x_proj_fp_options_id;
12270: EXCEPTION
12271: WHEN NO_DATA_FOUND THEN
12272: IF l_debug_mode = 'Y' THEN
12273: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12274: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12275: END IF;
12276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12277: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12278: p_token1 => 'PROCEDURENAME',
12276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12277: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12278: p_token1 => 'PROCEDURENAME',
12279: p_value1 => l_module_name);
12280: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12281: END;
12282:
12283: /*Getting Amount Type Codes associated with the budget version.and storing them in a PL/SQL table.
12284: The PL/SQL table l_amt_type_tbl will contain the Amount Type codes and Conversion Attributes
12286: */
12287: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12288: IF l_debug_mode = 'Y' THEN
12289: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12290: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12291: END IF;
12292: BEGIN
12293: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12294: FETCH amt_type_cur
12296: CLOSE amt_type_cur;
12297: IF l_amt_type_tbl.count = 0 THEN
12298: IF l_debug_mode = 'Y' THEN
12299: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12301: END IF;
12302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12303: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12304: p_token1 => 'PROCEDURENAME',
12302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12303: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12304: p_token1 => 'PROCEDURENAME',
12305: p_value1 => l_module_name);
12306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12307: END IF;
12308: END;
12309:
12310: /*Calling GET_PERIOD_INFORMATION api to get the Group Period Information and Start/End dates of the Periods.
12316: l_org_id := l_version_info_rec.x_org_id;
12317: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12318: IF l_debug_mode = 'Y' THEN
12319: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12320: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12321: END IF;
12322: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12323: p_time_phased_code => l_time_phased_code,
12324: p_org_id => l_org_id,
12330:
12331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12332: IF l_debug_mode = 'Y' THEN
12333: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12334: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12335: END IF;
12336: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12337: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12338: p_token1 => 'PROCEDURENAME',
12336: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12337: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12338: p_token1 => 'PROCEDURENAME',
12339: p_value1 => l_module_name);
12340: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12341: END IF;
12342: IF l_periods_tbl.count = 0 THEN
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12341: END IF;
12342: IF l_periods_tbl.count = 0 THEN
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Period Informations not found for 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: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12348: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12349: p_token1 => 'PROCEDURENAME',
12347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12348: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12349: p_token1 => 'PROCEDURENAME',
12350: p_value1 => l_module_name);
12351: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12352: END IF;
12353:
12354: /* Start of code changes for Bug 5144013.
12355: Commenting out the below code by which we are getting the exchange rates of the
12366: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12367: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12371: END IF;
12372:
12373: BEGIN
12374: */ --Bug 5144013.
12410:
12411: IF l_txn_curr_tbl.count = 0 THEN
12412: IF l_debug_mode = 'Y' THEN
12413: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12415: END IF;
12416: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12417: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12418: p_token1 => 'PROCEDURENAME',
12416: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12417: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12418: p_token1 => 'PROCEDURENAME',
12419: p_value1 => l_module_name);
12420: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12421: END IF;
12422: */
12423: --END;
12424: /* End of code changes done for Bug 5144013.*/
12428: information associated with the budget version.
12429: */
12430: IF l_debug_mode = 'Y' THEN
12431: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12432: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12433: END IF;
12434: BEGIN
12435: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12436: as res_ass_tbl is converted to ordinary pl/sql table from index by pl/sql table.
12448: /* End of coding done for bug 5641300.*/
12449: IF l_res_ass_tbl.count = 0 THEN
12450: IF l_debug_mode = 'Y' THEN
12451: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12453: END IF;
12454: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12455: /*
12456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12457: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12458: p_token1 => 'PROCEDURENAME',
12459: p_value1 => l_module_name);
12460: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12461: */
12462: RAISE NO_RA_EXC;
12463: END IF;
12464: END;
12468: Currency combination for all the periods associated with the budget version
12469: */
12470: IF l_debug_mode = 'Y' THEN
12471: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12472: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12473: END IF;
12474: BEGIN
12475: l_global_tmp_tbl := global_tmp_tbl();
12476: l_global_tmp_rec.budget_version_id := l_budget_version_id;
12719: table l_global_tmp_tbl which contains all the budget line details.
12720: */
12721: IF l_debug_mode = 'Y' THEN
12722: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12723: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12724: END IF;
12725: BEGIN
12726: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12727: LOOP
12737: RAISE;
12738: END;
12739: IF l_debug_mode = 'Y' THEN
12740: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12741: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12742: END IF;
12743: --Resetting the value of the Global PL/SQL table to NULL.
12744: l_global_tmp_tbl := null;
12745:
12743: --Resetting the value of the Global PL/SQL table to NULL.
12744: l_global_tmp_tbl := null;
12745:
12746: EXCEPTION
12747: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12748: l_msg_count := FND_MSG_PUB.count_msg;
12749: IF l_msg_count = 1 and x_msg_data IS NULL THEN
12750: PA_INTERFACE_UTILS_PUB.get_messages
12751: (p_encoded => FND_API.G_TRUE
12780: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12781: ,p_procedure_name => 'insert_periodic_tmp_table');
12782: IF l_debug_mode = 'Y' THEN
12783: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12785: pa_debug.reset_curr_function;
12786: END IF;
12787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12788: