[Home] [Help]
241:
242: BEGIN
243:
244: x_msg_count := 0;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Populate_Local_Variables');
248: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
249: l_debug_mode := NVL(l_debug_mode, 'Y');
712: ,x_message_count => l_msg_count
713: ,x_return_status => l_return_status
714: ,x_message_data => l_msg_data );
715:
716: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
717: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
718: END IF;
719: ELSE
720:
761: ,x_message_count => l_msg_count
762: ,x_return_status => l_return_status
763: ,x_message_data => l_msg_data );
764:
765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
766: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
767: END IF;
768: END IF;
769: END IF;
810: ,x_all_amount_set_id => l_all_amount_set_id
811: ,x_message_count => l_msg_count
812: ,x_return_status => l_return_status
813: ,x_message_data => l_msg_data );
814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
815: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
816: END IF;
817: ELSE
818: --Set revenue varaibles using project type revenue properties
860: ,x_message_count => l_msg_count
861: ,x_return_status => l_return_status
862: ,x_message_data => l_msg_data );
863:
864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
866: END IF;
867:
868: END IF;
880:
881: l_msg_count := FND_MSG_PUB.count_msg;
882: IF l_msg_count = 1 THEN
883: PA_INTERFACE_UTILS_PUB.get_messages
884: (p_encoded => FND_API.G_TRUE
885: ,p_msg_index => 1
886: ,p_msg_count => l_msg_count
887: ,p_msg_data => l_msg_data
888: ,p_data => l_data
897: pa_debug.g_err_stage:='Invalid Arguments Passed';
898: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
899: pa_debug.write_file('Populate_Local_Variables ' || x_msg_data,5);
900: END IF;
901: x_return_status:= FND_API.G_RET_STS_ERROR;
902: pa_debug.reset_err_stack;
903: RAISE;
904:
905: WHEN Others THEN
912: END IF;
913: IF budget_entry_method_info_cur%ISOPEN THEN
914: CLOSE budget_entry_method_info_cur;
915: END IF;
916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: x_msg_count := 1;
918: x_msg_data := SQLERRM;
919:
920: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
965: l_multi_curr_flag pa_proj_fp_options.plan_in_multi_curr_flag%TYPE;
966:
967: BEGIN
968: x_msg_count := 0;
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970: savepoint pa_fp_upgrade_pkg;
971:
972: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
973: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1111: ,x_return_status => l_return_status
1112: ,x_msg_count => l_msg_count
1113: ,x_msg_data => l_msg_data);
1114:
1115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1116: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1117: END IF;
1118: -- create fp options and elements for project only if there are
1119: -- no project level exceptions
1269: END IF;
1270: l_msg_count := FND_MSG_PUB.count_msg;
1271: IF l_msg_count = 1 THEN
1272: PA_INTERFACE_UTILS_PUB.get_messages
1273: (p_encoded => FND_API.G_TRUE
1274: ,p_msg_index => 1
1275: ,p_msg_count => l_msg_count
1276: ,p_msg_data => l_msg_data
1277: ,p_data => l_data
1286: IF p_pa_debug_mode = 'Y' THEN
1287: pa_debug.g_err_stage:='Invalid Arguments Passed';
1288: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1289: END IF;
1290: x_return_status:= FND_API.G_RET_STS_ERROR;
1291: pa_debug.write_file('Upgrade_Budgets : Upgrade has failed for the project: '||project_type_info_rec.segment1||'(project number)',5);
1292: pa_debug.write_file('Upgrade_Budgets : Failure Reason:'||x_msg_data,5);
1293: pa_debug.reset_err_stack;
1294: ROLLBACK TO pa_fp_upgrade_pkg;
1306: END IF;
1307: IF project_type_info_cur%ISOPEN THEN
1308: CLOSE project_type_info_cur;
1309: END IF;
1310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1311: x_msg_count := 1;
1312: x_msg_data := SQLERRM;
1313:
1314: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1384: budget_types_for_upgrade_rec budget_types_for_upgrade_cur%ROWTYPE;
1385:
1386: BEGIN
1387: x_msg_count := 0;
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Types');
1391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1392: l_debug_mode := NVL(l_debug_mode, 'Y');
1515: END IF;
1516: l_msg_count := FND_MSG_PUB.count_msg;
1517: IF l_msg_count = 1 THEN
1518: PA_INTERFACE_UTILS_PUB.get_messages
1519: (p_encoded => FND_API.G_TRUE
1520: ,p_msg_index => 1
1521: ,p_msg_count => l_msg_count
1522: ,p_msg_data => l_msg_data
1523: ,p_data => l_data
1533: pa_debug.g_err_stage:='Invalid Arguments Passed';
1534: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1535: pa_debug.write_file('Upgrade_Budget_Types ' || x_msg_data,5);
1536: END IF;
1537: x_return_status:= FND_API.G_RET_STS_ERROR;
1538: pa_debug.reset_err_stack;
1539: RAISE;
1540:
1541: WHEN Others THEN
1542:
1543: IF budget_types_for_upgrade_cur%ISOPEN THEN
1544: CLOSE budget_types_for_upgrade_cur;
1545: END IF;
1546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1547: x_msg_count := 1;
1548: x_msg_data := SQLERRM;
1549:
1550: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1602:
1603: BEGIN
1604:
1605: x_msg_count := 0;
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Create_fp_options');
1609: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1610: l_debug_mode := NVL(l_debug_mode, 'Y');
1740: ,x_return_status => l_return_status
1741: ,x_msg_count => l_msg_count
1742: ,x_msg_data => l_msg_data );
1743:
1744: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1746: END IF;
1747:
1748: -- Populate the MC conversion attributes for the fp option if MC enabled
1777:
1778: l_msg_count := FND_MSG_PUB.count_msg;
1779: IF l_msg_count = 1 THEN
1780: PA_INTERFACE_UTILS_PUB.get_messages
1781: (p_encoded => FND_API.G_TRUE
1782: ,p_msg_index => 1
1783: ,p_msg_count => l_msg_count
1784: ,p_msg_data => l_msg_data
1785: ,p_data => l_data
1795: pa_debug.g_err_stage:='Invalid Arguments Passed';
1796: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1797: pa_debug.write_file('Create_fp_options ' || x_msg_data,5);
1798: END IF;
1799: x_return_status:= FND_API.G_RET_STS_ERROR;
1800: pa_debug.reset_err_stack;
1801: RAISE;
1802:
1803: WHEN Others THEN
1801: RAISE;
1802:
1803: WHEN Others THEN
1804:
1805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1806: x_msg_count := 1;
1807: x_msg_data := SQLERRM;
1808:
1809: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
1847:
1848: BEGIN
1849:
1850: x_msg_count := 0;
1851: x_return_status := FND_API.G_RET_STS_SUCCESS;
1852:
1853: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Add_Plan_Types');
1854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1855: l_debug_mode := NVL(l_debug_mode, 'Y');
1897: ,x_return_status => l_return_status
1898: ,x_msg_count => l_msg_count
1899: ,x_msg_data => l_msg_data);
1900:
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1903: END IF;
1904:
1905: IF l_validation_status = 'Y' THEN
1922: ,x_return_status => l_return_status
1923: ,x_msg_count => l_msg_count
1924: ,x_msg_data => l_msg_data);
1925:
1926: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1927: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1928: END IF;
1929: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
1930: in pa_fp_txn_currencies. The source fp option ID is being passed as NULL as
1949: ,x_return_status => l_return_status
1950: ,x_msg_count => l_msg_count
1951: ,x_msg_data => l_msg_data);
1952:
1953: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1954: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: END IF;
1956:
1957: -- Insert into audit table
1985: END IF;
1986: l_msg_count := FND_MSG_PUB.count_msg;
1987: IF l_msg_count = 1 THEN
1988: PA_INTERFACE_UTILS_PUB.get_messages
1989: (p_encoded => FND_API.G_TRUE
1990: ,p_msg_index => 1
1991: ,p_msg_count => l_msg_count
1992: ,p_msg_data => l_msg_data
1993: ,p_data => l_data
2003: pa_debug.g_err_stage:='Invalid Arguments Passed';
2004: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2005: pa_debug.write_file('Add_Plan_Types ' || x_msg_data,5);
2006: END IF;
2007: x_return_status:= FND_API.G_RET_STS_ERROR;
2008: pa_debug.reset_err_stack;
2009: RAISE;
2010:
2011: WHEN Others THEN
2012:
2013: IF attached_plan_types_cur%ISOPEN THEN
2014: CLOSE attached_plan_types_cur;
2015: END IF;
2016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2017: x_msg_count := 1;
2018: x_msg_data := SQLERRM;
2019: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
2020: ,p_procedure_name => 'Add_Plan_Types');
2116:
2117: BEGIN
2118: x_msg_count := 0;
2119: x_msg_data := NULL;
2120: x_return_status := FND_API.G_RET_STS_SUCCESS;
2121:
2122: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.Upgrade_Budget_Versions');
2123: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2124: l_debug_mode := NVL(l_debug_mode, 'Y');
2197: ,x_return_status => l_return_status
2198: ,x_msg_count => l_msg_count
2199: ,x_msg_data => l_msg_data);
2200:
2201: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2203: END IF;
2204:
2205: /* 2727377: Added call to copy_fp_txn_currencies API to populate the currencies
2225: ,x_return_status => l_return_status
2226: ,x_msg_count => l_msg_count
2227: ,x_msg_data => l_msg_data);
2228:
2229: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2230: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2231: END IF;
2232:
2233: --Setting the variables for upgrading budget version to fin_plan version
2323: ,x_return_status => l_return_status
2324: ,x_msg_count => l_msg_count
2325: ,x_msg_data => l_msg_data );
2326:
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2328: /*For bug 2755740*/
2329: IF p_pa_debug_mode = 'Y' THEN
2330: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency',5);
2331: END IF;
2355:
2356:
2357:
2358: -- Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
2359: -- Added the following IN-parmeters as FND_API.G_FALSE
2360: -- 1) p_commit
2361: -- 2) p_init_msg_list
2362:
2363:
2362:
2363:
2364: PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST(
2365: p_resource_list_id => l_res_list_tbl(j)
2366: , p_commit => FND_API.G_FALSE
2367: , p_init_msg_list => FND_API.G_FALSE
2368: , x_return_status => l_return_status
2369: , x_msg_count => l_msg_count
2370: , x_msg_data => l_msg_data);
2363:
2364: PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST(
2365: p_resource_list_id => l_res_list_tbl(j)
2366: , p_commit => FND_API.G_FALSE
2367: , p_init_msg_list => FND_API.G_FALSE
2368: , x_return_status => l_return_status
2369: , x_msg_count => l_msg_count
2370: , x_msg_data => l_msg_data);
2371:
2372:
2373:
2374: -- End Bug 3802762, 30-JUN-2004, jwhite ------------------------------------
2375:
2376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2377: THEN
2378: IF p_pa_debug_mode = 'Y' THEN
2379: pa_debug.write_file('Upgrade failed due to error in PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST ',5);
2380: END IF;
2402: ,x_return_status => l_return_status
2403: ,x_msg_count => l_msg_count
2404: ,x_msg_data => l_msg_data);
2405:
2406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2407: THEN
2408: IF p_pa_debug_mode = 'Y' THEN
2409: pa_debug.write_file('Upgrade failed due to error in pa_budget_attr_upgr_pkg.budget_attr_upgrd ',5);
2410: END IF;
2423: ,x_return_status => l_return_status
2424: ,x_msg_count => l_msg_count
2425: ,x_msg_data => l_msg_data);
2426:
2427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2428: THEN
2429: IF p_pa_debug_mode = 'Y' THEN
2430: pa_debug.write_file('Upgrade failed due to error in pa_rate_attr_pkg.rate_attr_upgrd ',5);
2431: END IF;
2442: ,x_return_status => l_return_status
2443: ,x_msg_count => l_msg_count
2444: ,x_msg_data => l_msg_data);
2445:
2446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2447: THEN
2448: IF p_pa_debug_mode = 'Y' THEN
2449: pa_debug.write_file('Upgrade failed due to error in pa_date_range_pkg.date_range_upgrd ',5);
2450: END IF;
2525: ,x_msg_count => l_msg_count
2526: ,x_msg_data => l_msg_data );
2527:
2528:
2529: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2530: THEN
2531: IF p_pa_debug_mode = 'Y' THEN
2532: pa_debug.write_file('Upgrade failed due to error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules ',5);
2533: END IF;
2564: ,x_return_status =>l_return_status
2565: ,x_msg_count =>l_msg_count
2566: ,x_msg_data =>l_msg_data) ;
2567:
2568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2569: THEN
2570: IF p_pa_debug_mode = 'Y' THEN
2571: pa_debug.write_file('Upgrade failed due to error in PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency ',5);
2572: END IF;
2592: x_msg_data => l_msg_data);
2593:
2594: END IF;
2595:
2596: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2597: THEN
2598: IF p_pa_debug_mode = 'Y' THEN
2599: pa_debug.write_file('Upgrade failed due to error in PA_MRC_FINPLAN.MAINTAIN_ALL_MC_BUDGET_LINES ',5);
2600: END IF;
2610: (p_budget_version_id => l_budget_ver_tbl(m),
2611: p_context => 'FINANCIAL',
2612: x_return_status => l_return_status);
2613:
2614: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2615: THEN
2616: IF p_pa_debug_mode = 'Y' THEN
2617: pa_debug.write_file('Upgrade failed due to error in PA_BUDGET_LINES_UTILS.populate_display_quantity',5);
2618: END IF;
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2628: x_msg_data => l_msg_data);
2629:
2630: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2631: THEN
2632: IF p_pa_debug_mode = 'Y' THEN
2633: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
2634: END IF;
2644: x_return_status => l_return_status,
2645: x_msg_count => l_msg_count,
2646: x_msg_data => l_msg_data);
2647:
2648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2649: THEN
2650: IF p_pa_debug_mode = 'Y' THEN
2651: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
2652: END IF;
2663: x_return_status => l_return_status,
2664: x_msg_count => l_msg_count,
2665: x_msg_data => l_msg_data);
2666:
2667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2668: THEN
2669: IF p_pa_debug_mode = 'Y' THEN
2670: pa_debug.write_file('Upgrade failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
2671: END IF;
2679: ,x_return_status => l_return_status
2680: ,x_msg_count => l_msg_count
2681: ,x_msg_data => l_msg_data );
2682:
2683: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2684: THEN
2685: IF p_pa_debug_mode = 'Y' THEN
2686: pa_debug.write_file('Upgrade failed due to error in PA_FP_ROLLUP_PKG.rollup_budget_version',5);
2687: END IF;
2724: p_fp_version_ids => l_budget_ver_tbl3, -- Modified to l_budget_ver_tbl3 for Bug# 7187487
2725: x_return_status => l_return_status,
2726: x_msg_code => l_msg_data);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: IF p_pa_debug_mode = 'Y' THEN
2730: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE',5);
2731: END IF;
2732: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2744: p_new_version_id => l_budget_ver_tbl2(i),
2745: x_return_status => l_return_status,
2746: x_msg_code => l_msg_data);
2747:
2748: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2749: IF p_pa_debug_mode = 'Y' THEN
2750: pa_debug.write_file('Upgrade failed due to error in PJI_FM_XBS_ACCUM_MAINT.PLAN_baseline',5);
2751: END IF;
2752: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2784: END IF;
2785: l_msg_count := FND_MSG_PUB.count_msg;
2786: IF l_msg_count = 1 THEN
2787: PA_INTERFACE_UTILS_PUB.get_messages
2788: ( p_encoded => FND_API.G_TRUE
2789: ,p_msg_index => 1
2790: ,p_msg_count => l_msg_count
2791: ,p_msg_data => l_msg_data
2792: ,p_data => l_data
2802: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2803: pa_debug.write_file('Upgrade_Budget_Versions ' || x_msg_data,5);
2804: END IF;
2805:
2806: x_return_status:= FND_API.G_RET_STS_ERROR;
2807: pa_debug.reset_err_stack;
2808: RAISE;
2809:
2810: WHEN Others THEN
2811:
2812: IF budgets_for_upgrade_cur%ISOPEN THEN
2813: CLOSE budgets_for_upgrade_cur;
2814: END IF;
2815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2816: x_msg_count := 1;
2817: x_msg_data := SQLERRM;
2818: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_UPGRADE_PKG'
2819: ,p_procedure_name => 'Upgrade_Budget_Versions');
2941:
2942: BEGIN
2943:
2944: x_msg_count := 0;
2945: x_return_status := FND_API.G_RET_STS_SUCCESS;
2946: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.validate_budgets');
2947: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2948: l_debug_mode := NVL(l_debug_mode, 'Y');
2949: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3039: ,x_return_status => l_return_status
3040: ,x_msg_count => l_msg_count
3041: ,x_msg_data => l_msg_data);
3042:
3043: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3044: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3045: END IF;
3046:
3047: -- Fetch all the budget/plan types that have to be attached to the project
3096: ,x_return_status => l_return_status
3097: ,x_msg_count => l_msg_count
3098: ,x_msg_data => l_msg_data);
3099:
3100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3102: END IF;
3103:
3104: END LOOP;
3127: ,x_return_status => l_return_status
3128: ,x_msg_count => l_msg_count
3129: ,x_msg_data => l_msg_data);
3130:
3131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3132: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3133: END IF;
3134: END LOOP;
3135: CLOSE budgets_for_upgrade_cur;
3157: EXCEPTION
3158:
3159: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3160:
3161: x_return_status := FND_API.G_RET_STS_ERROR;
3162: l_msg_count := FND_MSG_PUB.count_msg;
3163: IF l_msg_count = 1 THEN
3164: PA_INTERFACE_UTILS_PUB.get_messages
3165: (p_encoded => FND_API.G_TRUE
3161: x_return_status := FND_API.G_RET_STS_ERROR;
3162: l_msg_count := FND_MSG_PUB.count_msg;
3163: IF l_msg_count = 1 THEN
3164: PA_INTERFACE_UTILS_PUB.get_messages
3165: (p_encoded => FND_API.G_TRUE
3166: ,p_msg_index => 1
3167: ,p_msg_count => l_msg_count
3168: ,p_msg_data => l_msg_data
3169: ,p_data => l_data
3198: IF attached_budget_types_cur%ISOPEN THEN
3199: CLOSE attached_budget_types_cur;
3200: END IF;
3201: -- end of changes for bug 2853511
3202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: x_msg_count := 1;
3204: x_msg_data := SQLERRM;
3205: FND_MSG_PUB.add_exc_msg
3206: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3254:
3255: BEGIN
3256:
3257: x_msg_count := 0;
3258: x_return_status := FND_API.G_RET_STS_SUCCESS;
3259: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT');
3260: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3261: l_debug_mode := NVL(l_debug_mode, 'Y');
3262: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3308: ,x_return_status => l_return_status
3309: ,x_msg_count => l_msg_count
3310: ,x_msg_data => l_msg_data );
3311:
3312: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3313: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3314: END IF;
3315:
3316: -- check if project currency and projfunc currency are not equal
3351:
3352: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3353:
3354: x_validation_status := 'N';
3355: x_return_status := FND_API.G_RET_STS_ERROR;
3356: l_msg_count := FND_MSG_PUB.count_msg;
3357: IF l_msg_count = 1 THEN
3358: PA_INTERFACE_UTILS_PUB.get_messages
3359: (p_encoded => FND_API.G_TRUE
3355: x_return_status := FND_API.G_RET_STS_ERROR;
3356: l_msg_count := FND_MSG_PUB.count_msg;
3357: IF l_msg_count = 1 THEN
3358: PA_INTERFACE_UTILS_PUB.get_messages
3359: (p_encoded => FND_API.G_TRUE
3360: ,p_msg_index => 1
3361: ,p_msg_count => l_msg_count
3362: ,p_msg_data => l_msg_data
3363: ,p_data => l_data
3377:
3378: WHEN others THEN
3379:
3380: x_validation_status := 'N';
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3382: x_msg_count := 1;
3383: x_msg_data := SQLERRM;
3384: FND_MSG_PUB.add_exc_msg
3385: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3433:
3434: BEGIN
3435:
3436: x_msg_count := 0;
3437: x_return_status := FND_API.G_RET_STS_SUCCESS;
3438: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.VALIDATE_PROJECT_PLAN_TYPE');
3439: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3440: l_debug_mode := NVL(l_debug_mode, 'Y');
3441: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3487: x_return_status => l_return_status,
3488: x_msg_count => l_msg_count,
3489: x_msg_data => l_msg_data);
3490:
3491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3492: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3493: END IF;
3494:
3495:
3595:
3596: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3597:
3598: x_validation_status := 'N';
3599: x_return_status := FND_API.G_RET_STS_ERROR;
3600: l_msg_count := FND_MSG_PUB.count_msg;
3601: IF l_msg_count = 1 THEN
3602: PA_INTERFACE_UTILS_PUB.get_messages
3603: (p_encoded => FND_API.G_TRUE
3599: x_return_status := FND_API.G_RET_STS_ERROR;
3600: l_msg_count := FND_MSG_PUB.count_msg;
3601: IF l_msg_count = 1 THEN
3602: PA_INTERFACE_UTILS_PUB.get_messages
3603: (p_encoded => FND_API.G_TRUE
3604: ,p_msg_index => 1
3605: ,p_msg_count => l_msg_count
3606: ,p_msg_data => l_msg_data
3607: ,p_data => l_data
3621:
3622: WHEN others THEN
3623:
3624: x_validation_status := 'N';
3625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3626: x_msg_count := 1;
3627: x_msg_data := SQLERRM;
3628: FND_MSG_PUB.add_exc_msg
3629: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3681:
3682: BEGIN
3683:
3684: x_msg_count := 0;
3685: x_return_status := FND_API.G_RET_STS_SUCCESS;
3686: pa_debug.set_err_stack('PA_FP_UPGRADE_PKG.validate_budget_version');
3687: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3688: l_debug_mode := NVL(l_debug_mode, 'Y');
3689: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3723:
3724: EXCEPTION
3725:
3726: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3727: x_return_status := FND_API.G_RET_STS_ERROR;
3728: l_msg_count := FND_MSG_PUB.count_msg;
3729: IF l_msg_count = 1 THEN
3730: PA_INTERFACE_UTILS_PUB.get_messages
3731: (p_encoded => FND_API.G_TRUE
3727: x_return_status := FND_API.G_RET_STS_ERROR;
3728: l_msg_count := FND_MSG_PUB.count_msg;
3729: IF l_msg_count = 1 THEN
3730: PA_INTERFACE_UTILS_PUB.get_messages
3731: (p_encoded => FND_API.G_TRUE
3732: ,p_msg_index => 1
3733: ,p_msg_count => l_msg_count
3734: ,p_msg_data => l_msg_data
3735: ,p_data => l_data
3748: RAISE;
3749:
3750: WHEN others THEN
3751:
3752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3753: x_msg_count := 1;
3754: x_msg_data := SQLERRM;
3755: FND_MSG_PUB.add_exc_msg
3756: ( p_pkg_name => 'PA_FP_UPGRADE_PKG'
3819:
3820: BEGIN
3821:
3822: x_msg_count := 0;
3823: x_return_status := FND_API.G_RET_STS_SUCCESS;
3824: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3825: l_debug_mode := NVL(l_debug_mode, 'Y');
3826:
3827: -- Set curr function
4288: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4289: l_msg_count := FND_MSG_PUB.count_msg;
4290: IF l_msg_count = 1 THEN
4291: PA_INTERFACE_UTILS_PUB.get_messages
4292: (p_encoded => FND_API.G_TRUE
4293: ,p_msg_index => 1
4294: ,p_msg_count => l_msg_count
4295: ,p_msg_data => l_msg_data
4296: ,p_data => l_data
4301: ELSE
4302: x_msg_count := l_msg_count;
4303: END IF;
4304:
4305: x_return_status := FND_API.G_RET_STS_ERROR;
4306:
4307: IF l_debug_mode = 'Y' THEN
4308: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4309: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4312: -- reset curr function
4313: pa_debug.reset_curr_function();
4314: RETURN;
4315: WHEN OTHERS THEN
4316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4317: x_msg_count := 1;
4318: x_msg_data := SQLERRM;
4319:
4320: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_upgrade_pkg'
4421: */
4422:
4423: BEGIN
4424: x_msg_count := 0;
4425: x_return_status := FND_API.G_RET_STS_SUCCESS;
4426: savepoint rollup_rejected_bl_amounts;
4427:
4428: pa_debug.init_err_stack('PA_FP_UPGRADE_PKG.rollup_rejected_bl_amounts');
4429:
4593: x_return_status => l_return_status,
4594: x_msg_count => l_msg_count,
4595: x_msg_data => l_msg_data);
4596:
4597: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4598: THEN
4599: IF p_pa_debug_mode = 'Y' THEN
4600: pa_debug.write_file('Upgrade failed due to error in PA_FP_GEN_AMOUNT_UTILS.get_plan_version_dtls',5);
4601: END IF;
4611: x_return_status => l_return_status,
4612: x_msg_count => l_msg_count,
4613: x_msg_data => l_msg_data);
4614:
4615: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4616: THEN
4617: IF p_pa_debug_mode = 'Y' THEN
4618: pa_debug.write_file('Upgrade failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
4619: END IF;
4831: END IF;
4832: l_msg_count := FND_MSG_PUB.count_msg;
4833: IF l_msg_count = 1 THEN
4834: PA_INTERFACE_UTILS_PUB.get_messages
4835: (p_encoded => FND_API.G_TRUE
4836: ,p_msg_index => 1
4837: ,p_msg_count => l_msg_count
4838: ,p_msg_data => l_msg_data
4839: ,p_data => l_data
4848: IF p_pa_debug_mode = 'Y' THEN
4849: pa_debug.g_err_stage:='Invalid Arguments Passed';
4850: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4851: END IF;
4852: x_return_status:= FND_API.G_RET_STS_ERROR;
4853: pa_debug.write_file('Rollup_rejected_bl_ampunts : Upgrade has failed for the project: '||l_project_id,5);
4854: pa_debug.write_file('Rollup_rejected_bl_ampunts : Failure Reason:'||x_msg_data,5);
4855: pa_debug.reset_err_stack;
4856: ROLLBACK TO rollup_rejected_bl_amounts;
4859:
4860: IF get_proj_bv_ids_for_rup%ISOPEN THEN
4861: CLOSE get_proj_bv_ids_for_rup;
4862: END IF;
4863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4864: x_msg_count := 1;
4865: x_msg_data := SQLERRM;
4866:
4867: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'