[Home] [Help]
48: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
49: x_error_msg_code OUT NOCOPY VARCHAR2) is --File.Sql.39 bug 4440895
50: l_record_version_number pa_budget_versions.record_version_number%TYPE;
51: begin
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: x_valid_flag := 'Y';
54: select
55: record_version_number
56: into
60: where
61: budget_version_id=p_unique_index;
62: /* compare results */
63: if p_record_version_number is NULL then
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65: return;
66: elsif p_record_version_number <> l_record_version_number then
67: x_valid_flag := 'N';
68: x_return_status := FND_API.G_RET_STS_ERROR;
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65: return;
66: elsif p_record_version_number <> l_record_version_number then
67: x_valid_flag := 'N';
68: x_return_status := FND_API.G_RET_STS_ERROR;
69: x_error_msg_code := 'PA_XC_RECORD_CHANGED';
70: return;
71: end if;
72: /*
71: end if;
72: /*
73: exception
74: when others then
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: x_msg_count := 1;
77: x_msg_data := SQLERRM;
78: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
79: p_procedure_name => 'Check_Record_Version_Number');
638: IF P_PA_DEBUG_MODE = 'Y' THEN
639: pa_debug.set_process('Get_Baselined_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
640: END IF;
641: x_msg_count := 0;
642: x_return_status := FND_API.G_RET_STS_SUCCESS;
643:
644: -- Check for business rules violations
645:
646: pa_debug.g_err_stage:='Validating input parameters';
784:
785: IF l_msg_count = 1 THEN
786:
787: PA_INTERFACE_UTILS_PUB.get_messages
788: (p_encoded => FND_API.G_TRUE
789: ,p_msg_index => 1
790: ,p_msg_count => l_msg_count
791: ,p_msg_data => l_msg_data
792: ,p_data => l_data
800: x_msg_count := l_msg_count;
801:
802: END IF;
803:
804: x_return_status := FND_API.G_RET_STS_ERROR;
805:
806: pa_debug.g_err_stage:='Invalid Arguments Passed';
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.write('Get_Baselined_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
811: RAISE;
812:
813: WHEN Others THEN
814:
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: x_msg_count := 1;
817: x_msg_data := SQLERRM;
818:
819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
823: IF P_PA_DEBUG_MODE = 'Y' THEN
824: pa_debug.write('Get_Baselined_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
825: pa_debug.reset_err_stack;
826: END IF;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828:
829:
830: END Get_Baselined_Version_Info;
831:
1113:
1114: exception
1115: when others then
1116: rollback;
1117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1118:
1119: end Update_Txn_Currencies;
1120:
1121:
1164: IF P_PA_DEBUG_MODE = 'Y' THEN
1165: pa_debug.set_process('Get_Curr_Working_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
1166: END IF;
1167: x_msg_count := 0;
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1169:
1170: -- Check for business rules violations
1171:
1172: pa_debug.g_err_stage:='Validating input parameters';
1310:
1311: IF l_msg_count = 1 THEN
1312:
1313: PA_INTERFACE_UTILS_PUB.get_messages
1314: (p_encoded => FND_API.G_TRUE
1315: ,p_msg_index => 1
1316: ,p_msg_count => l_msg_count
1317: ,p_msg_data => l_msg_data
1318: ,p_data => l_data
1326: x_msg_count := l_msg_count;
1327:
1328: END IF;
1329:
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331:
1332: pa_debug.g_err_stage:='Invalid Arguments Passed';
1333: IF P_PA_DEBUG_MODE = 'Y' THEN
1334: pa_debug.write('Get_Curr_Working_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1338: RAISE;
1339:
1340: WHEN Others THEN
1341:
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: x_msg_count := 1;
1344: x_msg_data := SQLERRM;
1345:
1346: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1351: pa_debug.write('Get_Curr_Working_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1352:
1353: pa_debug.reset_err_stack;
1354: END IF;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356:
1357:
1358: END Get_Curr_Working_Version_Info;
1359:
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.set_process('Get_Appr_Cost_Plan_Type_Info: ' || 'PLSQL','LOG',l_debug_mode);
1397: END IF;
1398: x_msg_count := 0;
1399: x_return_status := FND_API.G_RET_STS_SUCCESS;
1400:
1401: -- Check for business rules violations
1402:
1403: pa_debug.g_err_stage:='Validating input parameters';
1468:
1469: IF l_msg_count = 1 THEN
1470:
1471: PA_INTERFACE_UTILS_PUB.get_messages
1472: (p_encoded => FND_API.G_TRUE
1473: ,p_msg_index => 1
1474: ,p_msg_count => l_msg_count
1475: ,p_msg_data => l_msg_data
1476: ,p_data => l_data
1484: x_msg_count := l_msg_count;
1485:
1486: END IF;
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: pa_debug.g_err_stage:='Invalid Arguments Passed';
1491: IF P_PA_DEBUG_MODE = 'Y' THEN
1492: pa_debug.write('Get_Appr_Cost_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1496: RAISE;
1497:
1498: WHEN Others THEN
1499:
1500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1501: x_msg_count := 1;
1502: x_msg_data := SQLERRM;
1503:
1504: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1509: pa_debug.write('Get_Appr_Cost_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1510:
1511: pa_debug.reset_err_stack;
1512: END IF;
1513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1514:
1515: END Get_Appr_Cost_Plan_Type_Info;
1516:
1517: /*=============================================================================
1550: IF P_PA_DEBUG_MODE = 'Y' THEN
1551: pa_debug.set_process('Get_Appr_Rev_Plan_Type_Info: ' || 'PLSQL','LOG',l_debug_mode);
1552: END IF;
1553: x_msg_count := 0;
1554: x_return_status := FND_API.G_RET_STS_SUCCESS;
1555:
1556: -- Check for business rules violations
1557:
1558: pa_debug.g_err_stage:='Validating input parameters';
1622:
1623: IF l_msg_count = 1 THEN
1624:
1625: PA_INTERFACE_UTILS_PUB.get_messages
1626: (p_encoded => FND_API.G_TRUE
1627: ,p_msg_index => 1
1628: ,p_msg_count => l_msg_count
1629: ,p_msg_data => l_msg_data
1630: ,p_data => l_data
1638: x_msg_count := l_msg_count;
1639:
1640: END IF;
1641:
1642: x_return_status := FND_API.G_RET_STS_ERROR;
1643:
1644: pa_debug.g_err_stage:='Invalid Arguments Passed';
1645: IF P_PA_DEBUG_MODE = 'Y' THEN
1646: pa_debug.write('Get_Appr_Rev_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1650: RAISE;
1651:
1652: WHEN Others THEN
1653:
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: x_msg_count := 1;
1656: x_msg_data := SQLERRM;
1657:
1658: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1662: IF P_PA_DEBUG_MODE = 'Y' THEN
1663: pa_debug.write('Get_Appr_Rev_Plan_Type_Info: ' || l_module_name,pa_debug.g_err_stage,5);
1664: pa_debug.reset_err_stack;
1665: END IF;
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667:
1668: END Get_Appr_Rev_Plan_Type_Info;
1669:
1670: /*=================================================================================
1720: pa_debug.set_process('GET_OR_CREATE_AMOUNT_SET_ID: ' || 'PLSQL','LOG',l_debug_mode);
1721: END IF;
1722: x_message_count := 0;
1723:
1724: x_return_status := FND_API.G_RET_STS_SUCCESS;
1725:
1726:
1727: -- Check for business rules violations
1728:
2131:
2132: IF l_msg_count = 1 THEN
2133:
2134: PA_INTERFACE_UTILS_PUB.get_messages
2135: (p_encoded => FND_API.G_TRUE
2136: ,p_msg_index => 1
2137: ,p_msg_count => l_msg_count
2138: ,p_msg_data => l_msg_data
2139: ,p_data => l_data
2147: x_message_count := l_msg_count;
2148:
2149: END IF;
2150:
2151: x_return_status:= FND_API.G_RET_STS_ERROR;
2152:
2153: IF P_PA_DEBUG_MODE = 'Y' THEN
2154: pa_debug.reset_err_stack;
2155: END IF;
2156: rollback;
2157:
2158: WHEN Others THEN
2159:
2160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161: x_message_count := 1;
2162: x_message_data := SQLERRM;
2163:
2164: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2170:
2171: pa_debug.reset_err_stack;
2172: END IF;
2173: rollback;
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175:
2176: END GET_OR_CREATE_AMOUNT_SET_ID;
2177:
2178: /*=================================================================================
2216: pa_debug.set_process('GET_PLAN_AMOUNT_FLAGS: ' || 'PLSQL','LOG',l_debug_mode);
2217: END IF;
2218: x_message_count := 0;
2219:
2220: x_return_status := FND_API.G_RET_STS_SUCCESS;
2221:
2222:
2223: -- Check for business rules violations
2224:
2286:
2287: IF l_msg_count = 1 THEN
2288:
2289: PA_INTERFACE_UTILS_PUB.get_messages
2290: (p_encoded => FND_API.G_TRUE
2291: ,p_msg_index => 1
2292: ,p_msg_count => l_msg_count
2293: ,p_msg_data => l_msg_data
2294: ,p_data => l_data
2302: x_message_count := l_msg_count;
2303:
2304: END IF;
2305:
2306: x_return_status:= FND_API.G_RET_STS_ERROR;
2307:
2308: IF P_PA_DEBUG_MODE = 'Y' THEN
2309: pa_debug.reset_err_stack;
2310: END IF;
2311: RAISE;
2312:
2313: WHEN Others THEN
2314:
2315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2316: x_message_count := 1;
2317: x_message_data := SQLERRM;
2318:
2319: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2325:
2326: pa_debug.reset_err_stack;
2327: END IF;
2328: rollback;
2329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2330:
2331: END GET_PLAN_AMOUNT_FLAGS;
2332:
2333: /* =====================================================
2431:
2432: BEGIN
2433:
2434: x_msg_count := 0;
2435: x_return_status := FND_API.G_RET_STS_SUCCESS;
2436:
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Peceding_Suceeding_Prd_Info');
2439: END IF;
2491:
2492: IF l_msg_count = 1 THEN
2493:
2494: PA_INTERFACE_UTILS_PUB.get_messages
2495: (p_encoded => FND_API.G_TRUE
2496: ,p_msg_index => 1
2497: ,p_msg_count => l_msg_count
2498: ,p_msg_data => l_msg_data
2499: ,p_data => l_data
2512: IF P_PA_DEBUG_MODE = 'Y' THEN
2513: pa_debug.write('Get_Peceding_Suceeding_Pd_Info: ' || l_module_name,pa_debug.g_err_stage,5);
2514: END IF;
2515:
2516: x_return_status:= FND_API.G_RET_STS_ERROR;
2517:
2518: IF P_PA_DEBUG_MODE = 'Y' THEN
2519: pa_debug.reset_err_stack;
2520: END IF;
2521: RAISE;
2522:
2523: WHEN Others THEN
2524:
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: x_msg_count := 1;
2527: x_msg_data := SQLERRM;
2528:
2529: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2534: pa_debug.write('Get_Peceding_Suceeding_Pd_Info: ' || l_module_name,pa_debug.g_err_stage,5);
2535: pa_debug.reset_err_stack;
2536: END IF;
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2538:
2539: END Get_Peceding_Suceeding_Pd_Info;
2540:
2541:
2571: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2572:
2573: BEGIN
2574: x_msg_count := 0;
2575: x_return_status := FND_API.G_RET_STS_SUCCESS;
2576:
2577: IF P_PA_DEBUG_MODE = 'Y' THEN
2578: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Element_Prj_Pf_Amounts');
2579: END IF;
2634: pa_debug.g_err_stage :='Invalid Combination of res. Assgnt Id and Txn currency code ';
2635: IF P_PA_DEBUG_MODE = 'Y' THEN
2636: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,1);
2637: END IF;
2638: x_return_status := FND_API.G_RET_STS_ERROR;
2639: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2640: p_msg_name => 'PA_BUDGET_LINE_NOT_FOUND' );
2641: RAISE PA_FP_ELEMENTS_PUB.Invalid_Arg_Exc;
2642:
2652:
2653: IF l_msg_count = 1 THEN
2654:
2655: PA_INTERFACE_UTILS_PUB.get_messages
2656: (p_encoded => FND_API.G_TRUE
2657: ,p_msg_index => 1
2658: ,p_msg_count => l_msg_count
2659: ,p_msg_data => l_msg_data
2660: ,p_data => l_data
2673: IF P_PA_DEBUG_MODE = 'Y' THEN
2674: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,5);
2675: END IF;
2676:
2677: x_return_status:= FND_API.G_RET_STS_ERROR;
2678:
2679: IF P_PA_DEBUG_MODE = 'Y' THEN
2680: pa_debug.reset_err_stack;
2681: END IF;
2682: RAISE;
2683:
2684: WHEN Others THEN
2685:
2686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2687: x_msg_count := 1;
2688: x_msg_data := SQLERRM;
2689:
2690: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2694: IF P_PA_DEBUG_MODE = 'Y' THEN
2695: pa_debug.write('Get_Element_Proj_PF_Amounts: ' || l_module_name,pa_debug.g_err_stage,5);
2696: pa_debug.reset_err_stack;
2697: END IF;
2698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2699:
2700: END Get_Element_Proj_PF_Amounts ;
2701:
2702: PROCEDURE Check_Version_Name_Or_id
2719: l_debug_mode VARCHAR2(1);
2720:
2721: BEGIN
2722: x_msg_count := 0;
2723: x_return_status := FND_API.G_RET_STS_SUCCESS;
2724: IF P_PA_DEBUG_MODE = 'Y' THEN
2725: pa_debug.init_err_stack ('pa_fin_plan_utils.check_version_name_or_id');
2726: END IF;
2727: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2744:
2745: END IF;
2746:
2747:
2748: IF p_budget_version_id IS NOT NULL AND p_budget_version_id <> FND_API.G_MISS_NUM THEN
2749: IF p_check_id_flag = 'Y' THEN
2750: SELECT budget_version_id
2751: INTO x_budget_version_id
2752: FROM pa_budget_versions
2764: ELSE
2765: x_budget_version_id := NULL;
2766: END IF;
2767: END IF;
2768: x_return_status := FND_API.G_RET_STS_SUCCESS;
2769: IF P_PA_DEBUG_MODE = 'Y' THEN
2770: pa_debug.reset_err_stack;
2771: END IF;
2772: EXCEPTION
2771: END IF;
2772: EXCEPTION
2773: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN -- Bug 2770562
2774:
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: l_msg_count := FND_MSG_PUB.count_msg;
2777:
2778: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2779: PA_INTERFACE_UTILS_PUB.get_messages
2776: l_msg_count := FND_MSG_PUB.count_msg;
2777:
2778: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2779: PA_INTERFACE_UTILS_PUB.get_messages
2780: (p_encoded => FND_API.G_TRUE
2781: ,p_msg_index => 1
2782: ,p_msg_count => l_msg_count
2783: ,p_msg_data => l_msg_data
2784: ,p_data => l_data
2794: x_budget_version_id := null;
2795: RETURN;
2796:
2797: WHEN NO_DATA_FOUND THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799: x_msg_count := 1;
2800: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2801: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2802: x_budget_version_id := NULL;
2800: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2801: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2802: x_budget_version_id := NULL;
2803: WHEN TOO_MANY_ROWS THEN
2804: x_return_status := FND_API.G_RET_STS_ERROR;
2805: x_msg_count := 1;
2806: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2807: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2808: x_budget_version_id := NULL;
2808: x_budget_version_id := NULL;
2809: WHEN OTHERS THEN
2810: FND_MSG_PUB.ADD_EXC_MSG (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2811: p_procedure_name => pa_debug.g_err_stack );
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2813: x_msg_data := SQLERRM;
2814: x_budget_version_id := NULL;
2815: RAISE;
2816: END Check_Version_Name_Or_Id;
2876: END IF;
2877: x_txn_currency_code := NULL;
2878: END IF;
2879: END IF;
2880: x_return_status := FND_API.G_RET_STS_SUCCESS;
2881: IF P_PA_DEBUG_MODE = 'Y' THEN
2882: pa_debug.reset_err_stack;
2883: END IF;
2884: EXCEPTION
2882: pa_debug.reset_err_stack;
2883: END IF;
2884: EXCEPTION
2885: WHEN NO_DATA_FOUND THEN
2886: x_return_status := FND_API.G_RET_STS_ERROR;
2887: x_msg_count := 1;
2888: x_msg_data := 'PA_FP_CURR_INVALID';
2889: x_txn_currency_code := NULL;
2890: WHEN TOO_MANY_ROWS THEN
2887: x_msg_count := 1;
2888: x_msg_data := 'PA_FP_CURR_INVALID';
2889: x_txn_currency_code := NULL;
2890: WHEN TOO_MANY_ROWS THEN
2891: x_return_status := FND_API.G_RET_STS_ERROR;
2892: x_msg_count := 1;
2893: x_msg_data := 'PA_FP_CURR_INVALID';
2894: x_txn_currency_code := NULL;
2895: WHEN OTHERS THEN
2895: WHEN OTHERS THEN
2896: fnd_msg_pub.add_exc_msg
2897: (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2898: p_procedure_name => pa_debug.g_err_stack );
2899: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2900: x_txn_currency_code := NULL;
2901: RAISE;
2902: END Check_Currency_Name_Or_Code;
2903:
2929: BEGIN
2930: IF P_PA_DEBUG_MODE = 'Y' THEN
2931: pa_debug.init_err_stack ('pa_fin_plan_utils.check_task_name_or_id');
2932: END IF;
2933: if p_task_id is not null AND p_task_id <> FND_API.G_MISS_NUM then
2934: if p_check_id_flag = 'Y' then
2935: -- validate the id that was passed in
2936: select task_id
2937: into x_task_id
2952: else
2953: x_task_id := null;
2954: end if;
2955: end if; -- p_task_id is null
2956: x_return_status := FND_API.G_RET_STS_SUCCESS;
2957: IF P_PA_DEBUG_MODE = 'Y' THEN
2958: pa_debug.reset_err_stack;
2959: END IF;
2960: EXCEPTION
2959: END IF;
2960: EXCEPTION
2961: WHEN NO_DATA_FOUND THEN
2962: x_task_id := NULL;
2963: x_return_status := FND_API.G_RET_STS_ERROR;
2964: x_msg_count := 1;
2965: x_error_msg := 'PA_FP_TASK_NAME_AMBIGUOUS';
2966: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2967: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2966: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2967: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2968: if x_msg_count = 1 then
2969: PA_INTERFACE_UTILS_PUB.get_messages
2970: (p_encoded => FND_API.G_TRUE,
2971: p_msg_index => 1,
2972: p_data => x_error_msg,
2973: p_msg_index_out => l_msg_index_out);
2974: end if;
2973: p_msg_index_out => l_msg_index_out);
2974: end if;
2975: WHEN TOO_MANY_ROWS THEN
2976: x_task_id := NULL;
2977: x_return_status := FND_API.G_RET_STS_ERROR;
2978: x_msg_count := 1;
2979: x_error_msg := 'PA_FP_TASK_NAME_AMBIGUOUS';
2980: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2981: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2980: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2981: p_msg_name => 'PA_FP_TASK_NAME_AMBIGUOUS');
2982: if x_msg_count = 1 then
2983: PA_INTERFACE_UTILS_PUB.get_messages
2984: (p_encoded => FND_API.G_TRUE,
2985: p_msg_index => 1,
2986: p_data => x_error_msg,
2987: p_msg_index_out => l_msg_index_out);
2988: end if;
2987: p_msg_index_out => l_msg_index_out);
2988: end if;
2989: WHEN OTHERS THEN
2990: x_task_id := NULL;
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2992: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
2993: p_procedure_name => 'check_task_name_or_id');
2994: RAISE;
2995: END check_task_name_or_id;
3017: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_gp_name_or_id');
3018: END IF;
3019: raise Invalid_Call_Exc; /* Changes for FP.M, Tracking Bug No - 3354518 */
3020: /*** bug 3683382 this piece code would never be executed as there is a immediate raise
3021: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3022: if p_check_id_flag = 'Y' then
3023: -- validate the id that was passed in
3024: select resource_list_member_id
3025: into x_resource_id
3043: x_resource_id := null;
3044: end if;
3045: end if; -- p_resource_id is null
3046: bug 3683382 ***/
3047: x_return_status := FND_API.G_RET_STS_SUCCESS;
3048: IF P_PA_DEBUG_MODE = 'Y' THEN
3049: pa_debug.reset_err_stack;
3050: END IF;
3051: EXCEPTION
3050: END IF;
3051: EXCEPTION
3052: WHEN NO_DATA_FOUND THEN
3053: x_resource_id := NULL;
3054: x_return_status := FND_API.G_RET_STS_ERROR;
3055: x_msg_count := 1;
3056: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3057: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3058: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3057: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3058: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3059: if x_msg_count = 1 then
3060: PA_INTERFACE_UTILS_PUB.get_messages
3061: (p_encoded => FND_API.G_TRUE,
3062: p_msg_index => 1,
3063: p_data => x_error_msg,
3064: p_msg_index_out => l_msg_index_out);
3065: end if;
3064: p_msg_index_out => l_msg_index_out);
3065: end if;
3066: WHEN TOO_MANY_ROWS THEN
3067: x_resource_id := NULL;
3068: x_return_status := FND_API.G_RET_STS_ERROR;
3069: x_msg_count := 1;
3070: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3071: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3072: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3071: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3072: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3073: if x_msg_count = 1 then
3074: PA_INTERFACE_UTILS_PUB.get_messages
3075: (p_encoded => FND_API.G_TRUE,
3076: p_msg_index => 1,
3077: p_data => x_error_msg,
3078: p_msg_index_out => l_msg_index_out);
3079: end if;
3078: p_msg_index_out => l_msg_index_out);
3079: end if;
3080: WHEN Invalid_Call_Exc THEN /* Changes for FP.M, Tracking Bug No - 3354518, Adding Exception handling block for Invalid_Call_Exc */
3081: x_resource_id := NULL;
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3084: p_procedure_name => 'check_resource_gp_name_or_id');
3085: RAISE;
3086: WHEN OTHERS THEN
3084: p_procedure_name => 'check_resource_gp_name_or_id');
3085: RAISE;
3086: WHEN OTHERS THEN
3087: x_resource_id := NULL;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3089: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3090: p_procedure_name => 'check_resource_gp_name_or_id');
3091: RAISE;
3092: END check_resource_gp_name_or_id;
3104: BEGIN
3105: IF P_PA_DEBUG_MODE = 'Y' THEN
3106: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_name_or_id');
3107: END IF;
3108: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3109: if p_check_id_flag = 'Y' then
3110: -- validate the id that was passed in
3111: select resource_id
3112: into x_resource_id
3126: else
3127: x_resource_id := null;
3128: end if;
3129: end if; -- p_resource_id is null
3130: x_return_status := FND_API.G_RET_STS_SUCCESS;
3131: IF P_PA_DEBUG_MODE = 'Y' THEN
3132: pa_debug.reset_err_stack;
3133: END IF;
3134: EXCEPTION
3133: END IF;
3134: EXCEPTION
3135: WHEN NO_DATA_FOUND THEN
3136: x_resource_id := NULL;
3137: x_return_status := FND_API.G_RET_STS_ERROR;
3138: x_msg_count := 1;
3139: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3140: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3141: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3140: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3141: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3142: if x_msg_count = 1 then
3143: PA_INTERFACE_UTILS_PUB.get_messages
3144: (p_encoded => FND_API.G_TRUE,
3145: p_msg_index => 1,
3146: p_data => x_error_msg,
3147: p_msg_index_out => l_msg_index_out);
3148: end if;
3147: p_msg_index_out => l_msg_index_out);
3148: end if;
3149: WHEN TOO_MANY_ROWS THEN
3150: x_resource_id := NULL;
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152: x_msg_count := 1;
3153: x_error_msg := 'PA_FP_RES_NAME_AMBIGUOUS';
3154: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3155: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3154: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3155: p_msg_name => 'PA_FP_RES_NAME_AMBIGUOUS');
3156: if x_msg_count = 1 then
3157: PA_INTERFACE_UTILS_PUB.get_messages
3158: (p_encoded => FND_API.G_TRUE,
3159: p_msg_index => 1,
3160: p_data => x_error_msg,
3161: p_msg_index_out => l_msg_index_out);
3162: end if;
3161: p_msg_index_out => l_msg_index_out);
3162: end if;
3163: WHEN OTHERS THEN
3164: x_resource_id := NULL;
3165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3166: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3167: p_procedure_name => 'check_resource_name_or_id');
3168: RAISE;
3169: END check_resource_name_or_id;
3318: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_utils';
3319:
3320: BEGIN
3321: x_msg_count := 0;
3322: x_return_status := FND_API.G_RET_STS_SUCCESS;
3323: IF P_PA_DEBUG_MODE = 'Y' THEN
3324: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3325: END IF;
3326: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3346: END IF;
3347: if l_person_id is null then
3348: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3349: p_msg_name => 'PA_FP_BAD_USER_ID');
3350: x_return_status := FND_API.G_RET_STS_ERROR;
3351: end if; -- error with p_user_id
3352:
3353: -- Check for VALID BUDGET VERSION ID
3354: IF P_PA_DEBUG_MODE = 'Y' THEN
3363: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3364: END IF;
3365: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3366: p_msg_name => 'PA_FP_INVALID_PLAN_VERSION');
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: end if; -- invalid budget_version_id
3369: close budget_csr;
3370:
3371: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3369: close budget_csr;
3370:
3371: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3372: l_msg_count := FND_MSG_PUB.count_msg;
3373: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3374: IF P_PA_DEBUG_MODE = 'Y' THEN
3375: pa_debug.g_err_stage := 'l_msg_count = ' || l_msg_count;
3376: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3377: END IF;
3374: IF P_PA_DEBUG_MODE = 'Y' THEN
3375: pa_debug.g_err_stage := 'l_msg_count = ' || l_msg_count;
3376: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3377: END IF;
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: if l_msg_count = 1 then
3380: PA_INTERFACE_UTILS_PUB.get_messages
3381: (p_encoded => FND_API.G_TRUE,
3382: p_msg_index => 1,
3377: END IF;
3378: x_return_status := FND_API.G_RET_STS_ERROR;
3379: if l_msg_count = 1 then
3380: PA_INTERFACE_UTILS_PUB.get_messages
3381: (p_encoded => FND_API.G_TRUE,
3382: p_msg_index => 1,
3383: p_msg_count => l_msg_count,
3384: p_msg_data => l_msg_data,
3385: p_data => l_data,
3436: pa_debug.reset_err_stack;
3437: END IF;
3438: EXCEPTION
3439: WHEN OTHERS THEN
3440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3441: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3442: p_procedure_name => 'Check_Locked_By_User');
3443: IF P_PA_DEBUG_MODE = 'Y' THEN
3444: pa_debug.reset_err_stack;
3476: l_msg_index_out NUMBER;
3477:
3478: BEGIN
3479: x_msg_count := 0;
3480: x_return_status := FND_API.G_RET_STS_SUCCESS;
3481: IF P_PA_DEBUG_MODE = 'Y' THEN
3482: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3483: END IF;
3484: pa_fin_plan_utils.Check_Locked_By_User
3488: x_locked_by_person_id => l_locked_by_person_id,
3489: x_return_status => l_return_status,
3490: x_msg_count => l_msg_count,
3491: x_msg_data => l_msg_data);
3492: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3493: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3494: end if;
3495:
3496: pa_fin_plan_utils.Check_Locked_By_User
3500: x_locked_by_person_id => l_locked_by_person_id,
3501: x_return_status => l_return_status,
3502: x_msg_count => l_msg_count,
3503: x_msg_data => l_msg_data);
3504: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3505: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3506: end if;
3507:
3508: if l_is_locked_by_userid1 = 'Y' and l_is_locked_by_userid2 = 'Y' then
3514: pa_debug.reset_err_stack;
3515: END IF;
3516: EXCEPTION
3517: WHEN pa_fin_plan_utils.Check_Locked_By_User_Exception THEN
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3521: END IF;
3522: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3521: END IF;
3522: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3523: p_procedure_name => 'Check_Both_Locked_By_User');
3524: WHEN OTHERS THEN
3525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3526: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3527: p_procedure_name => 'Check_Both_Locked_By_User');
3528: RAISE;
3529:
3650: l_debug_mode VARCHAR2(30);
3651:
3652: BEGIN
3653: x_msg_count := 0;
3654: x_return_status := FND_API.G_RET_STS_SUCCESS;
3655:
3656: IF P_PA_DEBUG_MODE = 'Y' THEN
3657: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3658: END IF;
3703:
3704: IF l_msg_count = 1 THEN
3705:
3706: PA_INTERFACE_UTILS_PUB.get_messages
3707: (p_encoded => FND_API.G_TRUE
3708: ,p_msg_index => 1
3709: ,p_msg_count => l_msg_count
3710: ,p_msg_data => l_msg_data
3711: ,p_data => l_data
3724: IF P_PA_DEBUG_MODE = 'Y' THEN
3725: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3726: END IF;
3727:
3728: x_return_status:= FND_API.G_RET_STS_ERROR;
3729:
3730: IF P_PA_DEBUG_MODE = 'Y' THEN
3731: pa_debug.reset_err_stack;
3732: END IF;
3733: RAISE;
3734:
3735: WHEN Others THEN
3736:
3737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3738: x_msg_count := 1;
3739: x_msg_data := SQLERRM;
3740:
3741: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3746: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3747:
3748: pa_debug.reset_err_stack;
3749: END IF;
3750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3751:
3752:
3753: END Get_Resource_List_Info ;
3754:
3780: l_debug_mode VARCHAR2(30);
3781:
3782: BEGIN
3783: x_msg_count := 0;
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3785:
3786: IF P_PA_DEBUG_MODE = 'Y' THEN
3787: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3788: END IF;
3839:
3840: IF l_msg_count = 1 THEN
3841:
3842: PA_INTERFACE_UTILS_PUB.get_messages
3843: (p_encoded => FND_API.G_TRUE
3844: ,p_msg_index => 1
3845: ,p_msg_count => l_msg_count
3846: ,p_msg_data => l_msg_data
3847: ,p_data => l_data
3860: IF P_PA_DEBUG_MODE = 'Y' THEN
3861: pa_debug.write('Get_Resource_List_Info(Overloaded): ' || l_module_name,pa_debug.g_err_stage,5);
3862: END IF;
3863:
3864: x_return_status:= FND_API.G_RET_STS_ERROR;
3865:
3866: IF P_PA_DEBUG_MODE = 'Y' THEN
3867: pa_debug.reset_err_stack;
3868: END IF;
3869: RAISE;
3870:
3871: WHEN Others THEN
3872:
3873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3874: x_msg_count := 1;
3875: x_msg_data := SQLERRM;
3876:
3877: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3881: IF P_PA_DEBUG_MODE = 'Y' THEN
3882: pa_debug.write('Get_Resource_List_Info: ' || l_module_name,pa_debug.g_err_stage,5);
3883: pa_debug.reset_err_stack;
3884: END IF;
3885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3886:
3887:
3888: END Get_Resource_List_Info ;
3889:
3912: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3913: END IF;
3914:
3915: x_msg_count := 0;
3916: x_return_status := FND_API.G_RET_STS_SUCCESS;
3917:
3918: IF P_PA_DEBUG_MODE = 'Y' THEN
3919: pa_debug.g_err_stage:='Executing the uncat res list info select...';
3920: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4038: IF P_PA_DEBUG_MODE = 'Y' THEN
4039: pa_debug.set_process('Is_AC_PT_Attached_After_UPG: ' || 'PLSQL','LOG',l_debug_mode);
4040: END IF;
4041: x_msg_count := 0;
4042: x_return_status := FND_API.G_RET_STS_SUCCESS;
4043:
4044: -- Check for business rules violations
4045:
4046: pa_debug.g_err_stage:='Validating input parameters';
4132:
4133: IF l_msg_count = 1 THEN
4134:
4135: PA_INTERFACE_UTILS_PUB.get_messages
4136: (p_encoded => FND_API.G_TRUE
4137: ,p_msg_index => 1
4138: ,p_msg_count => l_msg_count
4139: ,p_msg_data => l_msg_data
4140: ,p_data => l_data
4148: x_msg_count := l_msg_count;
4149:
4150: END IF;
4151:
4152: x_return_status := FND_API.G_RET_STS_ERROR;
4153:
4154: pa_debug.g_err_stage:='Invalid Arguments Passed';
4155: IF P_PA_DEBUG_MODE = 'Y' THEN
4156: pa_debug.write('Is_AC_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4159: RAISE;
4160:
4161: WHEN Others THEN
4162:
4163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4164: x_msg_count := 1;
4165: x_msg_data := SQLERRM;
4166:
4167: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4171: IF P_PA_DEBUG_MODE = 'Y' THEN
4172: pa_debug.write('Is_AC_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4173: pa_debug.reset_err_stack;
4174: END IF;
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176:
4177: END Is_AC_PT_Attached_After_UPG;
4178:
4179:
4220: IF P_PA_DEBUG_MODE = 'Y' THEN
4221: pa_debug.set_process('Is_AR_PT_Attached_After_UPG: ' || 'PLSQL','LOG',l_debug_mode);
4222: END IF;
4223: x_msg_count := 0;
4224: x_return_status := FND_API.G_RET_STS_SUCCESS;
4225:
4226: -- Check for business rules violations
4227:
4228: pa_debug.g_err_stage:='Validating input parameters';
4314:
4315: IF l_msg_count = 1 THEN
4316:
4317: PA_INTERFACE_UTILS_PUB.get_messages
4318: (p_encoded => FND_API.G_TRUE
4319: ,p_msg_index => 1
4320: ,p_msg_count => l_msg_count
4321: ,p_msg_data => l_msg_data
4322: ,p_data => l_data
4330: x_msg_count := l_msg_count;
4331:
4332: END IF;
4333:
4334: x_return_status := FND_API.G_RET_STS_ERROR;
4335:
4336: pa_debug.g_err_stage:='Invalid Arguments Passed';
4337: IF P_PA_DEBUG_MODE = 'Y' THEN
4338: pa_debug.write('Is_AR_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4342: RAISE;
4343:
4344: WHEN Others THEN
4345:
4346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4347: x_msg_count := 1;
4348: x_msg_data := SQLERRM;
4349:
4350: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4355: pa_debug.write('Is_AR_PT_Attached_After_UPG: ' || l_module_name,pa_debug.g_err_stage,5);
4356:
4357: pa_debug.reset_err_stack;
4358: END IF;
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360:
4361: END Is_AR_PT_Attached_After_UPG;
4362:
4363: /*=============================================================================
4401: pa_debug.set_curr_function( p_function =>'Get_Max_Budget_Version_Number',
4402: p_debug_mode => l_debug_mode);
4403: END IF;
4404: x_msg_count := 0;
4405: x_return_status := FND_API.G_RET_STS_SUCCESS;
4406:
4407: -- Check for NOT NULL parameters
4408:
4409: IF (p_project_id IS NULL) OR
4528:
4529: l_msg_count := FND_MSG_PUB.count_msg;
4530: IF l_msg_count = 1 THEN
4531: PA_INTERFACE_UTILS_PUB.get_messages
4532: (p_encoded => FND_API.G_TRUE
4533: ,p_msg_index => 1
4534: ,p_msg_count => l_msg_count
4535: ,p_msg_data => l_msg_data
4536: ,p_data => l_data
4539: x_msg_count := l_msg_count;
4540: ELSE
4541: x_msg_count := l_msg_count;
4542: END IF;
4543: x_return_status := FND_API.G_RET_STS_ERROR;
4544: pa_debug.g_err_stage:='Invalid Arguments Passed';
4545: IF P_PA_DEBUG_MODE = 'Y' THEN
4546: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4547: pa_debug.reset_curr_function;
4549: RETURN;
4550:
4551: WHEN Others THEN
4552:
4553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4554: x_msg_count := 1;
4555: x_msg_data := SQLERRM;
4556: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4557: ,p_procedure_name => 'Get_Budget_Version_Number');
4559: IF P_PA_DEBUG_MODE = 'Y' THEN
4560: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4561: pa_debug.reset_curr_function;
4562: END IF;
4563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4564:
4565: END Get_Max_Budget_Version_Number;
4566:
4567: FUNCTION get_period_start_date (p_input_date IN pa_periods_all.start_date%TYPE,
4671:
4672: BEGIN
4673:
4674: x_msg_count := 0;
4675: x_return_status := FND_API.G_RET_STS_SUCCESS;
4676: IF P_PA_DEBUG_MODE = 'Y' THEN
4677: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_COST_BASE_VERSION_INFO');
4678: END IF;
4679: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4760: ,x_msg_data => x_msg_data );
4761:
4762: IF x_budget_version_id IS NULL
4763: THEN
4764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4765: x_msg_count := 1;
4766: x_msg_data := 'PA_BU_CORE_NO_VERSION_ID';
4767: END IF;
4768:
4780: --Initialise the out parameters
4781:
4782: IF l_err_code <> 0
4783: THEN
4784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4785: x_msg_count := 1;
4786: x_msg_data := l_err_stage;
4787: END IF;
4788: END IF;
4799:
4800: l_msg_count := FND_MSG_PUB.count_msg;
4801: IF l_msg_count = 1 THEN
4802: PA_INTERFACE_UTILS_PUB.get_messages
4803: (p_encoded => FND_API.G_TRUE
4804: ,p_msg_index => 1
4805: ,p_msg_count => l_msg_count
4806: ,p_msg_data => l_msg_data
4807: ,p_data => l_data
4816: IF P_PA_DEBUG_MODE = 'Y' THEN
4817: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4818: END IF;
4819:
4820: x_return_status := FND_API.G_RET_STS_ERROR;
4821: IF P_PA_DEBUG_MODE = 'Y' THEN
4822: pa_debug.reset_err_stack;
4823: END IF;
4824: WHEN others THEN
4822: pa_debug.reset_err_stack;
4823: END IF;
4824: WHEN others THEN
4825:
4826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4827: x_msg_count := 1;
4828: x_msg_data := SQLERRM;
4829: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4830: ,p_procedure_name => 'GET_COST_BASE_VERSION_INFO');
4871:
4872: BEGIN
4873:
4874: x_msg_count := 0;
4875: x_return_status := FND_API.G_RET_STS_SUCCESS;
4876: IF P_PA_DEBUG_MODE = 'Y' THEN
4877: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_REV_BASE_VERSION_INFO');
4878: END IF;
4879: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4961: ,x_msg_data => x_msg_data );
4962:
4963: IF x_budget_version_id IS NULL
4964: THEN
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4966: x_msg_count := 1;
4967: x_msg_data := 'PA_BU_CORE_NO_VERSION_ID';
4968: END IF;
4969:
4982: --Initialise the out parameters
4983:
4984: IF l_err_code <> 0
4985: THEN
4986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4987: x_msg_count := 1;
4988: x_msg_data := l_err_stage;
4989: END IF;
4990: END IF;
5001:
5002: l_msg_count := FND_MSG_PUB.count_msg;
5003: IF l_msg_count = 1 THEN
5004: PA_INTERFACE_UTILS_PUB.get_messages
5005: (p_encoded => FND_API.G_TRUE
5006: ,p_msg_index => 1
5007: ,p_msg_count => l_msg_count
5008: ,p_msg_data => l_msg_data
5009: ,p_data => l_data
5018: IF P_PA_DEBUG_MODE = 'Y' THEN
5019: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5020: END IF;
5021:
5022: x_return_status := FND_API.G_RET_STS_ERROR;
5023: IF P_PA_DEBUG_MODE = 'Y' THEN
5024: pa_debug.reset_err_stack;
5025: END IF;
5026: WHEN others THEN
5024: pa_debug.reset_err_stack;
5025: END IF;
5026: WHEN others THEN
5027:
5028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5029: x_msg_count := 1;
5030: x_msg_data := SQLERRM;
5031: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5032: ,p_procedure_name => 'GET_REV_BASE_VERSION_INFO');
5098:
5099: BEGIN
5100:
5101: x_msg_count := 0;
5102: x_return_status := FND_API.G_RET_STS_SUCCESS;
5103: IF P_PA_DEBUG_MODE = 'Y' THEN
5104: pa_debug.set_err_stack('PA_FIN_PLAN_UITLS.get_converted_amounts');
5105: END IF;
5106: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5177: ,x_return_status => x_return_status
5178: ,x_msg_count => x_msg_count
5179: ,x_msg_data => x_msg_data );
5180:
5181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5182: RETURN;
5183: END IF;
5184:
5185: SELECT PROJFUNC_RAW_COST,
5206: EXCEPTION
5207:
5208: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5209:
5210: x_return_status := FND_API.G_RET_STS_ERROR;
5211: l_msg_count := FND_MSG_PUB.count_msg;
5212: IF l_msg_count = 1 THEN
5213: PA_INTERFACE_UTILS_PUB.get_messages
5214: (p_encoded => FND_API.G_TRUE
5210: x_return_status := FND_API.G_RET_STS_ERROR;
5211: l_msg_count := FND_MSG_PUB.count_msg;
5212: IF l_msg_count = 1 THEN
5213: PA_INTERFACE_UTILS_PUB.get_messages
5214: (p_encoded => FND_API.G_TRUE
5215: ,p_msg_index => 1
5216: ,p_msg_count => l_msg_count
5217: ,p_msg_data => l_msg_data
5218: ,p_data => l_data
5231: RAISE;
5232:
5233: WHEN others THEN
5234:
5235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5236: x_msg_count := 1;
5237: x_msg_data := SQLERRM;
5238: FND_MSG_PUB.add_exc_msg
5239: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5496:
5497: BEGIN
5498:
5499: x_msg_count := 0;
5500: x_return_status := FND_API.G_RET_STS_SUCCESS;
5501: IF P_PA_DEBUG_MODE = 'Y' THEN
5502: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Period_Details');
5503: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5504: END IF;
5568: EXCEPTION
5569:
5570: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5571:
5572: x_return_status := FND_API.G_RET_STS_ERROR;
5573: l_msg_count := FND_MSG_PUB.count_msg;
5574: IF l_msg_count = 1 THEN
5575: PA_INTERFACE_UTILS_PUB.get_messages
5576: (p_encoded => FND_API.G_TRUE
5572: x_return_status := FND_API.G_RET_STS_ERROR;
5573: l_msg_count := FND_MSG_PUB.count_msg;
5574: IF l_msg_count = 1 THEN
5575: PA_INTERFACE_UTILS_PUB.get_messages
5576: (p_encoded => FND_API.G_TRUE
5577: ,p_msg_index => 1
5578: ,p_msg_count => l_msg_count
5579: ,p_msg_data => l_msg_data
5580: ,p_data => l_data
5590: RAISE;
5591:
5592: WHEN others THEN
5593:
5594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5595: x_msg_count := 1;
5596: x_msg_data := SQLERRM;
5597: FND_MSG_PUB.add_exc_msg
5598: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5645: l_end_date pa_periods.end_date%TYPE;
5646:
5647: BEGIN
5648: x_msg_count := 0;
5649: x_return_status := FND_API.G_RET_STS_SUCCESS;
5650: IF P_PA_DEBUG_MODE = 'Y' THEN
5651: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Shifted_Period');
5652: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5653: END IF;
5681: ,x_return_status => l_return_status
5682: ,x_msg_count => l_msg_count
5683: ,x_msg_data => l_msg_data );
5684:
5685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5686: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5687: END IF;
5688:
5689: IF p_plan_period_type = 'PA' THEN
5827: EXCEPTION
5828:
5829: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5830:
5831: x_return_status := FND_API.G_RET_STS_ERROR;
5832: l_msg_count := FND_MSG_PUB.count_msg;
5833: IF l_msg_count = 1 THEN
5834: PA_INTERFACE_UTILS_PUB.get_messages
5835: (p_encoded => FND_API.G_TRUE
5831: x_return_status := FND_API.G_RET_STS_ERROR;
5832: l_msg_count := FND_MSG_PUB.count_msg;
5833: IF l_msg_count = 1 THEN
5834: PA_INTERFACE_UTILS_PUB.get_messages
5835: (p_encoded => FND_API.G_TRUE
5836: ,p_msg_index => 1
5837: ,p_msg_count => l_msg_count
5838: ,p_msg_data => l_msg_data
5839: ,p_data => l_data
5850: RAISE;
5851:
5852: WHEN others THEN
5853:
5854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5855: x_msg_count := 1;
5856: x_msg_data := SQLERRM;
5857: FND_MSG_PUB.add_exc_msg
5858: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6167:
6168: BEGIN
6169:
6170: x_msg_count := 0;
6171: x_return_status := FND_API.G_RET_STS_SUCCESS;
6172: IF P_PA_DEBUG_MODE = 'Y' THEN
6173: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.validate_input_params');
6174: END IF;
6175: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6221:
6222: EXCEPTION
6223:
6224: WHEN NO_DATA_FOUND THEN
6225: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6226: PA_UTILS.add_message
6227: (p_app_short_name => 'PA',
6228: p_msg_name => 'PA_FP_INCORRECT_RATE_TYPE_AMG',
6229: p_token1 => 'TASK',
6279:
6280: EXCEPTION
6281:
6282: WHEN NO_DATA_FOUND THEN
6283: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6284: PA_UTILS.add_message
6285: (p_app_short_name => 'PA',
6286: p_msg_name => 'PA_FP_INVALID_RATE_DT_TYPE_AMG',
6287: p_token1 => 'TASK',
6302: END IF;
6303: EXCEPTION
6304:
6305: WHEN OTHERS THEN
6306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6307: x_msg_count := 1;
6308: x_msg_data := SQLERRM;
6309:
6310: FND_MSG_PUB.add_exc_msg
6353: l_debug_mode VARCHAR2(30);
6354:
6355: BEGIN
6356: x_msg_count := 0;
6357: x_return_status := FND_API.G_RET_STS_SUCCESS;
6358: IF P_PA_DEBUG_MODE = 'Y' THEN
6359: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CONV_ATTRIBUTES');
6360: END IF;
6361: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6382: IF(p_calling_context=PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE) THEN
6383: /* Do Nothing as this will be checked in validate_currency_attributes */
6384: NULL;
6385: ELSE
6386: x_return_status := FND_API.G_RET_STS_ERROR;
6387: /*PA_UTILS.ADD_MESSAGE
6388: (p_app_short_name => 'PA',
6389: p_msg_name => 'PA_FP_RATE_TYPE_REQ');
6390: */
6432: pa_debug.g_err_stage:='Rate Type is Null';
6433: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6434: END IF;
6435:
6436: x_return_status := FND_API.G_RET_STS_ERROR;
6437: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6438:
6439: PA_UTILS.ADD_MESSAGE
6440: (p_app_short_name => 'PA',
6476: ,PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER) )THEN
6477:
6478: /* on create update plan type it is allowed that when rate type is user there is no rate defined
6479: */
6480: x_return_status := FND_API.G_RET_STS_ERROR;
6481:
6482: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6483: PA_UTILS.ADD_MESSAGE
6484: (p_app_short_name => 'PA',
6531: pa_debug.g_err_stage:='Rate Date Type is Null';
6532: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6533: END IF;
6534:
6535: x_return_status := FND_API.G_RET_STS_ERROR;
6536: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6537:
6538: PA_UTILS.ADD_MESSAGE
6539: (p_app_short_name => 'PA',
6573:
6574: /* Rate Date Should not be null */
6575: IF (px_rate_date IS NULL) THEN
6576:
6577: x_return_status := FND_API.G_RET_STS_ERROR;
6578: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6579: PA_UTILS.ADD_MESSAGE
6580: (p_app_short_name => 'PA',
6581: p_msg_name => 'PA_FP_INVALID_RATE_DATE_AMG',
6625: pa_debug.reset_err_stack;
6626: END IF;
6627: EXCEPTION
6628: WHEN OTHERS THEN
6629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6630: x_msg_count := 1;
6631: x_msg_data := SQLERRM;
6632:
6633: FND_MSG_PUB.add_exc_msg
6707: l_first_error_code VARCHAR2(30); /* used for webADI */
6708:
6709: BEGIN
6710: x_msg_count := 0;
6711: x_return_status := FND_API.G_RET_STS_SUCCESS;
6712: IF P_PA_DEBUG_MODE = 'Y' THEN
6713: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CURRENCY_ATTRIBUTES');
6714: END IF;
6715: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6785: ,x_msg_count => x_msg_count
6786: ,x_msg_data => x_msg_data);
6787:
6788: /* Throw the error if the above API is not successfully executed */
6789: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6790:
6791: IF l_debug_mode = 'Y' THEN
6792: pa_debug.g_err_stage := 'Values for rate type and rate date types are not valied' ;
6793: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,1);
6830: ,x_return_status => x_return_status
6831: ,x_msg_count => x_msg_count
6832: ,x_msg_data => x_msg_data);
6833:
6834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6835: IF l_debug_mode = 'Y' THEN
6836: pa_debug.g_err_stage := 'failed for PFC COST attributes' ;
6837: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6838: END IF;
6872: ,x_return_status => x_return_status
6873: ,x_msg_count => x_msg_count
6874: ,x_msg_data => x_msg_data);
6875:
6876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6877: IF l_debug_mode = 'Y' THEN
6878: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6879: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6880: END IF;
6923: ,x_first_error_code => l_first_error_code
6924: ,x_return_status => x_return_status
6925: ,x_msg_count => x_msg_count
6926: ,x_msg_data => x_msg_data);
6927: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6928: IF l_debug_mode = 'Y' THEN
6929: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6930: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6931: END IF;
6964: ,x_return_status => x_return_status
6965: ,x_msg_count => x_msg_count
6966: ,x_msg_data => x_msg_data);
6967:
6968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6969: IF l_debug_mode = 'Y' THEN
6970: pa_debug.g_err_stage := 'failed for PC COST attributes' ;
6971: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,3);
6972: END IF;
7016:
7017: IF(l_pfc_cost_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7018: nvl(l_pc_cost_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7019:
7020: x_return_status := FND_API.G_RET_STS_ERROR;
7021: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7022: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7023: p_token1 => 'COST_REV',
7024: p_value1 => l_cost_token,
7027:
7028: ELSIF(l_pc_cost_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7029: nvl(l_pfc_cost_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ') THEN
7030:
7031: x_return_status := FND_API.G_RET_STS_ERROR;
7032: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7033: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7034: p_token1 => 'COST_REV',
7035: p_value1 => l_cost_token,
7043:
7044: IF(l_pfc_rev_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7045: nvl(l_pc_rev_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7046:
7047: x_return_status := FND_API.G_RET_STS_ERROR;
7048: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7049: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7050: p_token1 => 'COST_REV',
7051: p_value1 => l_rev_token,
7054:
7055: ELSIF(l_pc_rev_validity_code = 'PA_FP_RATE_TYPE_REQ' AND
7056: nvl(l_pfc_rev_validity_code,'-99') <> 'PA_FP_RATE_TYPE_REQ' ) THEN
7057:
7058: x_return_status := FND_API.G_RET_STS_ERROR;
7059: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7060: p_msg_name => 'PA_FP_INVALID_RATE_TYPE',
7061: p_token1 => 'COST_REV',
7062: p_value1 => l_rev_token,
7072: pa_debug.g_err_stage:= 'some of the conversion attributes failed.. Returning error';
7073: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7074: END IF;
7075:
7076: x_return_status := FND_API.G_RET_STS_ERROR;
7077: END IF;
7078:
7079: IF l_debug_mode='Y' THEN
7080: pa_debug.g_err_stage:= 'Exiting validate_currency_attributes';
7084: pa_debug.reset_err_stack;
7085: END IF;
7086: EXCEPTION
7087: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7088: x_return_status := FND_API.G_RET_STS_ERROR;
7089: l_msg_count := FND_MSG_PUB.count_msg;
7090: IF l_msg_count = 1 THEN
7091: PA_INTERFACE_UTILS_PUB.get_messages
7092: (p_encoded => FND_API.G_TRUE,
7088: x_return_status := FND_API.G_RET_STS_ERROR;
7089: l_msg_count := FND_MSG_PUB.count_msg;
7090: IF l_msg_count = 1 THEN
7091: PA_INTERFACE_UTILS_PUB.get_messages
7092: (p_encoded => FND_API.G_TRUE,
7093: p_msg_index => 1,
7094: p_msg_count => l_msg_count,
7095: p_msg_data => l_msg_data,
7096: p_data => l_data,
7106: END IF;
7107: RETURN;
7108:
7109: WHEN OTHERS THEN
7110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7111: x_msg_count := 1;
7112: x_msg_data := SQLERRM;
7113:
7114: FND_MSG_PUB.add_exc_msg
7159:
7160: BEGIN
7161:
7162: x_msg_count := 0;
7163: x_return_status := FND_API.G_RET_STS_SUCCESS;
7164: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7165: IF l_debug_mode = 'Y' THEN
7166: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER');
7167: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7226: EXCEPTION
7227:
7228: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7229:
7230: x_return_status := FND_API.G_RET_STS_ERROR;
7231: l_msg_count := FND_MSG_PUB.count_msg;
7232:
7233: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7234: PA_INTERFACE_UTILS_PUB.get_messages
7231: l_msg_count := FND_MSG_PUB.count_msg;
7232:
7233: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7234: PA_INTERFACE_UTILS_PUB.get_messages
7235: (p_encoded => FND_API.G_TRUE
7236: ,p_msg_index => 1
7237: ,p_msg_count => l_msg_count
7238: ,p_msg_data => l_msg_data
7239: ,p_data => l_data
7249: RETURN;
7250:
7251: WHEN others THEN
7252:
7253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7254: x_msg_count := 1;
7255: x_msg_data := SQLERRM;
7256:
7257: FND_MSG_PUB.add_exc_msg
7297: l_msg_index_out NUMBER;
7298:
7299: BEGIN
7300: x_msg_count := 0;
7301: x_return_status := FND_API.G_RET_STS_SUCCESS;
7302: IF P_PA_DEBUG_MODE = 'Y' THEN
7303: PA_DEBUG.Set_Curr_Function( p_function => 'Get_Project_Curr_Attributes',
7304: p_debug_mode => p_pa_debug_mode );
7305: END IF;
7355: EXCEPTION
7356:
7357: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7358:
7359: x_return_status := FND_API.G_RET_STS_ERROR;
7360: l_msg_count := FND_MSG_PUB.count_msg;
7361: IF l_msg_count = 1 THEN
7362: PA_INTERFACE_UTILS_PUB.get_messages
7363: (p_encoded => FND_API.G_TRUE
7359: x_return_status := FND_API.G_RET_STS_ERROR;
7360: l_msg_count := FND_MSG_PUB.count_msg;
7361: IF l_msg_count = 1 THEN
7362: PA_INTERFACE_UTILS_PUB.get_messages
7363: (p_encoded => FND_API.G_TRUE
7364: ,p_msg_index => 1
7365: ,p_msg_count => l_msg_count
7366: ,p_msg_data => l_msg_data
7367: ,p_data => l_data
7376: END IF;
7377: RAISE;
7378: WHEN others THEN
7379:
7380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7381: x_msg_count := 1;
7382: x_msg_data := SQLERRM;
7383: FND_MSG_PUB.add_exc_msg
7384: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7426:
7427: BEGIN
7428:
7429: x_msg_count := 0;
7430: x_return_status := FND_API.G_RET_STS_SUCCESS;
7431: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7432:
7433: IF P_PA_DEBUG_MODE = 'Y' THEN
7434: pa_Debug.set_curr_function( p_function => 'IsRevVersionCreationAllowed',
7485: EXCEPTION
7486:
7487: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7488:
7489: x_return_status := FND_API.G_RET_STS_ERROR;
7490: l_msg_count := FND_MSG_PUB.count_msg;
7491:
7492: IF autobaseline_appr_rev_info_cur%ISOPEN THEN
7493: CLOSE autobaseline_appr_rev_info_cur;
7494: END IF;
7495:
7496: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7497: PA_INTERFACE_UTILS_PUB.get_messages
7498: (p_encoded => FND_API.G_TRUE
7499: ,p_msg_index => 1
7500: ,p_msg_count => l_msg_count
7501: ,p_msg_data => l_msg_data
7502: ,p_data => l_data
7512: RETURN;
7513:
7514: WHEN others THEN
7515:
7516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7517: x_msg_count := 1;
7518: x_msg_data := SQLERRM;
7519:
7520: IF autobaseline_appr_rev_info_cur%ISOPEN THEN
7567:
7568: BEGIN
7569:
7570: x_msg_count := 0;
7571: x_return_status := FND_API.G_RET_STS_SUCCESS;
7572: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7573:
7574: IF P_PA_DEBUG_MODE = 'Y' THEN
7575: pa_debug.set_curr_function( p_function => 'GET_LOOKUP_CODE',
7625: EXCEPTION
7626:
7627: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7628:
7629: x_return_status := FND_API.G_RET_STS_ERROR;
7630: l_msg_count := FND_MSG_PUB.count_msg;
7631:
7632: IF lookups_cur%ISOPEN THEN
7633: close lookups_cur;
7634: END IF;
7635:
7636: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7637: PA_INTERFACE_UTILS_PUB.get_messages
7638: (p_encoded => FND_API.G_TRUE
7639: ,p_msg_index => 1
7640: ,p_msg_count => l_msg_count
7641: ,p_msg_data => l_msg_data
7642: ,p_data => l_data
7652: RETURN;
7653:
7654: WHEN others THEN
7655:
7656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7657: x_msg_count := 1;
7658: x_msg_data := SQLERRM;
7659:
7660: IF lookups_cur%ISOPEN THEN
7738:
7739: BEGIN
7740:
7741: x_msg_count := 0;
7742: x_return_status := FND_API.G_RET_STS_SUCCESS;
7743: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7744:
7745: IF P_PA_DEBUG_MODE = 'Y' THEN
7746: pa_debug.set_curr_function( p_function => 'get_version_type',
7766: p_value2 => p_fin_plan_type_id,
7767: p_token3 => 'VERSION_TYPE',
7768: p_value3 => px_version_type);
7769:
7770: x_return_status := FND_API.G_RET_STS_ERROR;
7771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7772:
7773: END;
7774:
7831: p_value2 => l_fin_plan_type_name,
7832: p_token3 => 'VERSION_TYPE',
7833: p_value3 => px_version_type);
7834:
7835: x_return_status := FND_API.G_RET_STS_ERROR;
7836: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7837:
7838: END IF;
7839:
7859: p_token2 => 'PLAN_TYPE',
7860: p_value2 => l_fin_plan_type_name,
7861: p_token3 => 'VERSION_TYPE',
7862: p_value3 => px_version_type);
7863: x_return_status := FND_API.G_RET_STS_ERROR;
7864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7865:
7866: END IF;
7867:
7888: p_value2 => l_fin_plan_type_name,
7889: p_token3 => 'VERSION_TYPE',
7890: p_value3 => px_version_type);
7891:
7892: x_return_status := FND_API.G_RET_STS_ERROR;
7893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7894:
7895: END IF;
7896:
7910: p_token1 => 'PROJECT',
7911: p_value1 => l_segment1,
7912: p_token2 => 'PLAN_TYPE',
7913: p_value2 => l_fin_plan_type_name);
7914: x_return_status := FND_API.G_RET_STS_ERROR;
7915: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7916:
7917: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7918: OR px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7934: p_value2 => l_fin_plan_type_name,
7935: p_token3 => 'VERSION_TYPE',
7936: p_value3 => px_version_type);
7937:
7938: x_return_status := FND_API.G_RET_STS_ERROR;
7939: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7940:
7941: END IF;
7942:
7953:
7954: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7955:
7956: IF x_return_status IS NULL OR
7957: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7958: x_return_status := FND_API.G_RET_STS_ERROR;
7959: END IF;
7960: l_msg_count := FND_MSG_PUB.count_msg;
7961:
7954: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7955:
7956: IF x_return_status IS NULL OR
7957: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7958: x_return_status := FND_API.G_RET_STS_ERROR;
7959: END IF;
7960: l_msg_count := FND_MSG_PUB.count_msg;
7961:
7962: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7960: l_msg_count := FND_MSG_PUB.count_msg;
7961:
7962: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7963: PA_INTERFACE_UTILS_PUB.get_messages
7964: (p_encoded => FND_API.G_TRUE
7965: ,p_msg_index => 1
7966: ,p_msg_count => l_msg_count
7967: ,p_msg_data => l_msg_data
7968: ,p_data => l_data
7978: RETURN;
7979:
7980: WHEN others THEN
7981:
7982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7983: x_msg_count := 1;
7984: x_msg_data := SQLERRM;
7985:
7986: FND_MSG_PUB.add_exc_msg
8037:
8038: BEGIN
8039:
8040: x_msg_count := 0;
8041: x_return_status := FND_API.G_RET_STS_SUCCESS;
8042: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8043:
8044: IF P_PA_DEBUG_MODE = 'Y' THEN
8045: pa_debug.set_curr_function( p_function => 'get_version_id',p_debug_mode => l_debug_mode );
8095:
8096: EXCEPTION
8097: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8098:
8099: x_return_status := FND_API.G_RET_STS_ERROR;
8100: l_msg_count := FND_MSG_PUB.count_msg;
8101:
8102: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8103: PA_INTERFACE_UTILS_PUB.get_messages
8100: l_msg_count := FND_MSG_PUB.count_msg;
8101:
8102: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8103: PA_INTERFACE_UTILS_PUB.get_messages
8104: (p_encoded => FND_API.G_TRUE
8105: ,p_msg_index => 1
8106: ,p_msg_count => l_msg_count
8107: ,p_msg_data => l_msg_data
8108: ,p_data => l_data
8118: RETURN;
8119:
8120: WHEN others THEN
8121:
8122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8123: x_msg_count := 1;
8124: x_msg_data := SQLERRM;
8125:
8126: FND_MSG_PUB.add_exc_msg
8176: l_autobaseline_check_rec l_autobaseline_check_csr%ROWTYPE;
8177: BEGIN
8178:
8179: x_msg_count := 0;
8180: x_return_status := FND_API.G_RET_STS_SUCCESS;
8181: x_result:='T';
8182: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8183:
8184:
8249: END IF;
8250: EXCEPTION
8251: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8252:
8253: x_return_status := FND_API.G_RET_STS_ERROR;
8254: l_msg_count := FND_MSG_PUB.count_msg;
8255:
8256: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8257: PA_INTERFACE_UTILS_PUB.get_messages
8254: l_msg_count := FND_MSG_PUB.count_msg;
8255:
8256: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8257: PA_INTERFACE_UTILS_PUB.get_messages
8258: (p_encoded => FND_API.G_TRUE
8259: ,p_msg_index => 1
8260: ,p_msg_count => l_msg_count
8261: ,p_msg_data => l_msg_data
8262: ,p_data => l_data
8272: RETURN;
8273:
8274: WHEN others THEN
8275:
8276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8277: x_msg_count := 1;
8278: x_msg_data := SQLERRM;
8279:
8280: FND_MSG_PUB.add_exc_msg
8312: l_return_status VARCHAR2(2000);
8313:
8314: BEGIN
8315: x_msg_count := 0;
8316: x_return_status := FND_API.G_RET_STS_SUCCESS;
8317: IF p_pa_debug_mode = 'Y' THEN
8318: PA_DEBUG.Set_Curr_Function( p_function => 'Get_version_type_for_bdgt_type',
8319: p_debug_mode => p_pa_debug_mode );
8320: END IF;
8362: EXCEPTION
8363:
8364: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8365:
8366: x_return_status := FND_API.G_RET_STS_ERROR;
8367: l_msg_count := FND_MSG_PUB.count_msg;
8368: IF l_msg_count = 1 THEN
8369: PA_INTERFACE_UTILS_PUB.get_messages
8370: (p_encoded => FND_API.G_TRUE
8366: x_return_status := FND_API.G_RET_STS_ERROR;
8367: l_msg_count := FND_MSG_PUB.count_msg;
8368: IF l_msg_count = 1 THEN
8369: PA_INTERFACE_UTILS_PUB.get_messages
8370: (p_encoded => FND_API.G_TRUE
8371: ,p_msg_index => 1
8372: ,p_msg_count => l_msg_count
8373: ,p_msg_data => l_msg_data
8374: ,p_data => l_data
8383: END IF;
8384: RETURN;
8385: WHEN others THEN
8386:
8387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8388: x_msg_count := 1;
8389: x_msg_data := SQLERRM;
8390: FND_MSG_PUB.add_exc_msg
8391: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8508: pa_debug.g_err_stage:='p_context passed: ' || p_context;
8509: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8510: END IF;
8511:
8512: x_return_status := FND_API.G_RET_STS_SUCCESS;
8513:
8514: -- get the person_id: used for locking checks
8515: PA_COMP_PROFILE_PUB.GET_USER_INFO
8516: (p_user_id => p_user_id,
8542:
8543: -- bug 2955756 --------------------------------------
8544:
8545: PA_INTERFACE_UTILS_PUB.get_messages
8546: (p_encoded => FND_API.G_FALSE
8547: ,p_msg_index => 1
8548: ,p_msg_count => l_msg_count
8549: ,p_msg_data => l_msg_data
8550: ,p_data => l_data
8558:
8559: /*
8560: if l_msg_count = 1 then
8561: PA_INTERFACE_UTILS_PUB.get_messages
8562: (p_encoded => FND_API.G_TRUE
8563: ,p_msg_index => 1
8564: ,p_msg_count => l_msg_count
8565: ,p_msg_data => l_msg_data
8566: ,p_data => l_data
8574:
8575: /*
8576: if x_msg_count = 1 then
8577: PA_INTERFACE_UTILS_PUB.get_messages
8578: (p_encoded => FND_API.G_TRUE,
8579: p_msg_index => 1,
8580: p_data => x_msg_data,
8581: p_msg_index_out => l_msg_index_out);
8582: end if;
8591:
8592: l_msg_count := FND_MSG_PUB.Count_Msg;
8593:
8594: PA_INTERFACE_UTILS_PUB.get_messages
8595: (p_encoded => FND_API.G_FALSE
8596: ,p_msg_index => 1
8597: ,p_msg_count => l_msg_count
8598: ,p_msg_data => l_msg_data
8599: ,p_data => l_data
8632:
8633: l_msg_count := FND_MSG_PUB.Count_Msg;
8634:
8635: PA_INTERFACE_UTILS_PUB.get_messages
8636: (p_encoded => FND_API.G_FALSE
8637: ,p_msg_index => 1
8638: ,p_msg_count => l_msg_count
8639: ,p_msg_data => l_msg_data
8640: ,p_data => l_data
8654:
8655: l_msg_count := FND_MSG_PUB.Count_Msg;
8656:
8657: PA_INTERFACE_UTILS_PUB.get_messages
8658: (p_encoded => FND_API.G_FALSE
8659: ,p_msg_index => 1
8660: ,p_msg_count => l_msg_count
8661: ,p_msg_data => l_msg_data
8662: ,p_data => l_data
8715:
8716: -- bug 2955756 --------------------------------------
8717:
8718: PA_INTERFACE_UTILS_PUB.get_messages
8719: (p_encoded => FND_API.G_TRUE
8720: ,p_msg_index => 1
8721: ,p_msg_count => l_msg_count
8722: ,p_msg_data => l_msg_data
8723: ,p_data => l_data
8730:
8731: /*
8732: if l_msg_count = 1 then
8733: PA_INTERFACE_UTILS_PUB.get_messages
8734: (p_encoded => FND_API.G_TRUE
8735: ,p_msg_index => 1
8736: ,p_msg_count => l_msg_count
8737: ,p_msg_data => l_msg_data
8738: ,p_data => l_data
8747: /*
8748: x_msg_count := FND_MSG_PUB.Count_Msg;
8749: if x_msg_count = 1 then
8750: PA_INTERFACE_UTILS_PUB.get_messages
8751: (p_encoded => FND_API.G_TRUE,
8752: p_msg_index => 1,
8753: p_data => x_msg_data,
8754: p_msg_index_out => l_msg_index_out);
8755: end if;
8765:
8766: l_msg_count := FND_MSG_PUB.Count_Msg;
8767:
8768: PA_INTERFACE_UTILS_PUB.get_messages
8769: (p_encoded => FND_API.G_FALSE
8770: ,p_msg_index => 1
8771: ,p_msg_count => l_msg_count
8772: ,p_msg_data => l_msg_data
8773: ,p_data => l_data
8820: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8821: END IF;
8822: RAISE;
8823: WHEN OTHERS THEN
8824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8825: x_msg_count := 1;
8826: x_msg_data := SQLERRM;
8827: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8828: p_procedure_name => 'validate_editable_bv');
8862:
8863: l_msg_count := FND_MSG_PUB.Count_Msg;
8864:
8865: PA_INTERFACE_UTILS_PUB.get_messages
8866: (p_encoded => FND_API.G_TRUE
8867: ,p_msg_index => 1
8868: ,p_msg_count => l_msg_count
8869: ,p_msg_data => l_msg_data
8870: ,p_data => l_data
8896: END IF;
8897:
8898: EXCEPTION
8899: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
8900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8901:
8902: IF l_debug_mode = 'Y' THEN
8903: pa_debug.Reset_Curr_Function;
8904: END IF;
8904: END IF;
8905: RETURN;
8906:
8907: WHEN NO_DATA_FOUND THEN
8908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8909: x_msg_count := 1;
8910: x_msg_data := SQLERRM;
8911: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8912: p_procedure_name => 'validate_editable_bv');
8912: p_procedure_name => 'validate_editable_bv');
8913: IF P_PA_DEBUG_MODE = 'Y' THEN
8914: pa_debug.reset_err_stack;
8915: END IF;
8916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8917: WHEN OTHERS THEN
8918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8919: x_msg_count := 1;
8920: x_msg_data := SQLERRM;
8914: pa_debug.reset_err_stack;
8915: END IF;
8916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8917: WHEN OTHERS THEN
8918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8919: x_msg_count := 1;
8920: x_msg_data := SQLERRM;
8921: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8922: p_procedure_name => 'validate_editable_bv');
9057:
9058: BEGIN
9059:
9060: x_msg_count := 0;
9061: x_return_status := FND_API.G_RET_STS_SUCCESS;
9062: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
9063: IF l_debug_mode = 'Y' THEN
9064: pa_debug.set_curr_function( p_function => 'check_delete_task_ok',
9065: p_debug_mode => l_debug_mode );
9138: IF l_validation_success = 'N' THEN
9139: PA_UTILS.ADD_MESSAGE
9140: (p_app_short_name => 'PA',
9141: p_msg_name => 'PA_TSK_BUDGET_EXIST');
9142: RAISE FND_API.G_Exc_Error;
9143: END IF;
9144:
9145: IF l_debug_mode = 'Y' THEN
9146: pa_debug.g_err_stage:= 'Exiting check_delete_task_ok';
9151: EXCEPTION
9152:
9153: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9154:
9155: x_return_status := FND_API.G_RET_STS_ERROR;
9156: l_msg_count := FND_MSG_PUB.count_msg;
9157:
9158: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9159: PA_INTERFACE_UTILS_PUB.get_messages
9156: l_msg_count := FND_MSG_PUB.count_msg;
9157:
9158: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9159: PA_INTERFACE_UTILS_PUB.get_messages
9160: (p_encoded => FND_API.G_TRUE
9161: ,p_msg_index => 1
9162: ,p_msg_count => l_msg_count
9163: ,p_msg_data => l_msg_data
9164: ,p_data => l_data
9172: pa_debug.reset_curr_function;
9173: END IF;
9174: RETURN;
9175:
9176: WHEN FND_API.G_Exc_Error THEN
9177:
9178: x_return_status := FND_API.G_RET_STS_ERROR;
9179: l_msg_count := FND_MSG_PUB.count_msg;
9180:
9174: RETURN;
9175:
9176: WHEN FND_API.G_Exc_Error THEN
9177:
9178: x_return_status := FND_API.G_RET_STS_ERROR;
9179: l_msg_count := FND_MSG_PUB.count_msg;
9180:
9181: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9182: PA_INTERFACE_UTILS_PUB.get_messages
9179: l_msg_count := FND_MSG_PUB.count_msg;
9180:
9181: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9182: PA_INTERFACE_UTILS_PUB.get_messages
9183: (p_encoded => FND_API.G_TRUE
9184: ,p_msg_index => 1
9185: ,p_msg_count => l_msg_count
9186: ,p_msg_data => l_msg_data
9187: ,p_data => l_data
9197: RETURN;
9198:
9199: WHEN others THEN
9200:
9201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9202: x_msg_count := 1;
9203: x_msg_data := SQLERRM;
9204:
9205: FND_MSG_PUB.add_exc_msg
9249: task_ra_rec task_ra_csr%ROWTYPE;
9250:
9251: BEGIN
9252: x_msg_count := 0;
9253: x_return_status := FND_API.G_RET_STS_SUCCESS;
9254: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
9255: IF l_debug_mode = 'Y' THEN
9256: pa_debug.set_curr_function( p_function => 'check_reparent_task_ok',
9257: p_debug_mode => l_debug_mode );
9287: -- x_delete_task_ok_flag => l_delete_task_ok_flag,
9288: x_return_status => l_return_status,
9289: x_msg_count => l_msg_count,
9290: x_msg_data => l_msg_data);
9291: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9292: x_return_status := FND_API.G_RET_STS_ERROR;
9293: x_msg_count := l_msg_count;
9294: x_msg_data := l_msg_data;
9295: /* NO NEED TO ADD ERROR MESSAGE TO STACK:
9288: x_return_status => l_return_status,
9289: x_msg_count => l_msg_count,
9290: x_msg_data => l_msg_data);
9291: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9292: x_return_status := FND_API.G_RET_STS_ERROR;
9293: x_msg_count := l_msg_count;
9294: x_msg_data := l_msg_data;
9295: /* NO NEED TO ADD ERROR MESSAGE TO STACK:
9296: Justification: Error message will be added by check_delete_task_ok
9301: p_value1 => l_task_name);
9302: l_msg_count := FND_MSG_PUB.count_msg;
9303: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9304: PA_INTERFACE_UTILS_PUB.get_messages
9305: (p_encoded => FND_API.G_TRUE,
9306: p_msg_index => 1,
9307: p_msg_count => l_msg_count,
9308: p_msg_data => l_msg_data,
9309: p_data => l_data,
9332: open task_ra_csr(p_old_parent_task_id);
9333: fetch task_ra_csr into task_ra_rec;
9334: IF task_ra_csr%FOUND then
9335: -- records in pa_resource_assignments: VALIDATION FAILED
9336: x_return_status := FND_API.G_RET_STS_ERROR;
9337: BEGIN
9338: select task_name
9339: into l_task_name
9340: from pa_tasks
9344: from pa_tasks
9345: where task_id = p_old_parent_task_id;
9346: EXCEPTION
9347: when NO_DATA_FOUND then
9348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9349: PA_UTILS.ADD_MESSAGE
9350: (p_app_short_name => 'PA',
9351: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9360: p_value2 => l_old_parent_task_name);
9361: l_msg_count := FND_MSG_PUB.count_msg;
9362: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9363: PA_INTERFACE_UTILS_PUB.get_messages
9364: (p_encoded => FND_API.G_TRUE,
9365: p_msg_index => 1,
9366: p_msg_count => l_msg_count,
9367: p_msg_data => l_msg_data,
9368: p_data => l_data,
9391: x_top_task_id => l_parent_top_task_id,
9392: x_validation_mode => p_validation_mode);
9393: IF (l_is_parent_lowest_task = 1) THEN
9394: -- new parent task is a plannable lowest task: VALIDATION FAILURE
9395: x_return_status := FND_API.G_RET_STS_ERROR;
9396: BEGIN
9397: select task_name
9398: into l_task_name
9399: from pa_tasks
9403: from pa_tasks
9404: where task_id = p_new_parent_task_id;
9405: EXCEPTION
9406: when NO_DATA_FOUND then
9407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9408: PA_UTILS.ADD_MESSAGE
9409: (p_app_short_name => 'PA',
9410: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9411: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9419: p_value1 => l_new_parent_task_name);
9420: l_msg_count := FND_MSG_PUB.count_msg;
9421: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9422: PA_INTERFACE_UTILS_PUB.get_messages
9423: (p_encoded => FND_API.G_TRUE,
9424: p_msg_index => 1,
9425: p_msg_count => l_msg_count,
9426: p_msg_data => l_msg_data,
9427: p_data => l_data,
9440: pa_debug.reset_curr_function;
9441: END IF;
9442: EXCEPTION
9443: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9444: x_return_status := FND_API.G_RET_STS_ERROR;
9445: l_msg_count := FND_MSG_PUB.count_msg;
9446: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9447: PA_INTERFACE_UTILS_PUB.get_messages
9448: (p_encoded => FND_API.G_TRUE
9444: x_return_status := FND_API.G_RET_STS_ERROR;
9445: l_msg_count := FND_MSG_PUB.count_msg;
9446: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9447: PA_INTERFACE_UTILS_PUB.get_messages
9448: (p_encoded => FND_API.G_TRUE
9449: ,p_msg_index => 1
9450: ,p_msg_count => l_msg_count
9451: ,p_msg_data => l_msg_data
9452: ,p_data => l_data
9460: pa_debug.reset_curr_function;
9461: END IF;
9462: RETURN;
9463: WHEN others THEN
9464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9465: x_msg_count := 1;
9466: x_msg_data := SQLERRM;
9467: FND_MSG_PUB.add_exc_msg
9468: ( p_pkg_name => 'pa_fin_plan_utils'
9804: pa_debug.set_curr_function( p_function => 'Check_if_plan_type_editable',
9805: p_debug_mode => l_debug_mode );
9806: END IF;
9807: x_msg_count := 0;
9808: x_return_status := FND_API.G_RET_STS_SUCCESS;
9809: -- Check for business rules violations
9810:
9811:
9812: IF P_PA_DEBUG_MODE = 'Y' THEN
9901: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9902: l_msg_count := FND_MSG_PUB.count_msg;
9903: IF l_msg_count = 1 THEN
9904: PA_INTERFACE_UTILS_PUB.get_messages
9905: (p_encoded => FND_API.G_TRUE
9906: ,p_msg_index => 1
9907: ,p_msg_count => l_msg_count
9908: ,p_msg_data => l_msg_data
9909: ,p_data => l_data
9912: x_msg_count := l_msg_count;
9913: ELSE
9914: x_msg_count := l_msg_count;
9915: END IF;
9916: x_return_status := FND_API.G_RET_STS_ERROR;
9917: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
9918: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9919: IF P_PA_DEBUG_MODE = 'Y' THEN
9920: pa_debug.reset_curr_function;
9921: END IF;
9922: RETURN;
9923:
9924: WHEN Others THEN
9925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9926: x_msg_count := 1;
9927: x_msg_data := SQLERRM;
9928: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
9929: ,p_procedure_name => 'CHECK_IF_PLAN_TYPE_EDITABLE');
9949: BEGIN
9950:
9951: IF p_start_date_active IS NULL THEN
9952: /* Start date must be entered */
9953: x_return_status := FND_API.G_RET_STS_ERROR;
9954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9955: p_msg_name => 'PA_MANDATORY_INFO_MISSING');
9956: END IF;
9957:
9956: END IF;
9957:
9958: IF p_start_date_active > nvl(p_end_date_active,p_start_date_active) THEN
9959: /* The End Date cannot be earlier than the Start Date. */
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9961: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9962: p_msg_name => 'PA_INVALID_END_DATE');
9963: END IF;
9964:
9966:
9967: IF l_msg_count > 0 THEN
9968: IF l_msg_count = 1 THEN
9969: PA_INTERFACE_UTILS_PUB.get_messages
9970: (p_encoded => FND_API.G_TRUE,
9971: p_msg_index => 1,
9972: p_msg_count => l_msg_count,
9973: p_msg_data => l_msg_data,
9974: p_data => l_data,
9979: x_msg_count := l_msg_count;
9980: END IF;
9981: return;
9982: ELSE
9983: x_return_status := FND_API.G_RET_STS_SUCCESS;
9984: END IF;
9985:
9986: EXCEPTION
9987: WHEN OTHERS THEN
9984: END IF;
9985:
9986: EXCEPTION
9987: WHEN OTHERS THEN
9988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9989: x_msg_count := 1;
9990: x_msg_data := SQLERRM;
9991: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9992: p_procedure_name => 'end_date_active_val');
9989: x_msg_count := 1;
9990: x_msg_data := SQLERRM;
9991: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9992: p_procedure_name => 'end_date_active_val');
9993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9994: END End_date_active_val;
9995:
9996: /*=============================================================================
9997: This api is used to return current original version info for given plan type,
10028:
10029: BEGIN
10030:
10031: x_msg_count := 0;
10032: x_return_status := FND_API.G_RET_STS_SUCCESS;
10033:
10034: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10035: l_debug_mode := NVL(l_debug_mode, 'Y');
10036:
10176: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10177: l_msg_count := FND_MSG_PUB.count_msg;
10178: IF l_msg_count = 1 THEN
10179: PA_INTERFACE_UTILS_PUB.get_messages
10180: (p_encoded => FND_API.G_TRUE
10181: ,p_msg_index => 1
10182: ,p_msg_count => l_msg_count
10183: ,p_msg_data => l_msg_data
10184: ,p_data => l_data
10189: ELSE
10190: x_msg_count := l_msg_count;
10191: END IF;
10192:
10193: x_return_status := FND_API.G_RET_STS_ERROR;
10194:
10195: IF l_debug_mode = 'Y' THEN
10196: pa_debug.g_err_stage:='Invalid Arguments Passed';
10197: pa_debug.write('Get_Curr_Original_Version_Info: ' || l_module_name,pa_debug.g_err_stage,5);
10201: END IF;
10202: RETURN;
10203:
10204: WHEN Others THEN
10205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10206: x_msg_count := 1;
10207: x_msg_data := SQLERRM;
10208:
10209: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10265:
10266: BEGIN
10267:
10268: x_msg_count := 0;
10269: x_return_status := FND_API.G_RET_STS_SUCCESS;
10270:
10271: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10272: l_debug_mode := NVL(l_debug_mode, 'Y');
10273:
10349: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10350: l_msg_count := FND_MSG_PUB.count_msg;
10351: IF l_msg_count = 1 THEN
10352: PA_INTERFACE_UTILS_PUB.get_messages
10353: (p_encoded => FND_API.G_TRUE
10354: ,p_msg_index => 1
10355: ,p_msg_count => l_msg_count
10356: ,p_msg_data => l_msg_data
10357: ,p_data => l_data
10362: ELSE
10363: x_msg_count := l_msg_count;
10364: END IF;
10365:
10366: x_return_status := FND_API.G_RET_STS_ERROR;
10367:
10368: IF l_debug_mode = 'Y' THEN
10369: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10370: pa_debug.write('GET_ACTUAL_AMTS_THRU_PERIOD: ' || l_module_name,pa_debug.g_err_stage,5);
10373: pa_debug.reset_curr_function();
10374: END IF;
10375: RETURN;
10376: WHEN Others THEN
10377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10378: x_msg_count := 1;
10379: x_msg_data := SQLERRM;
10380:
10381: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10547: 3683382 ***/
10548:
10549: BEGIN
10550: x_msg_count := 0;
10551: x_return_status := FND_API.G_RET_STS_SUCCESS;
10552:
10553: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10554: l_debug_mode := NVL(l_debug_mode, 'Y');
10555:
10645: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10646: l_msg_count := FND_MSG_PUB.count_msg;
10647: IF l_msg_count = 1 THEN
10648: PA_INTERFACE_UTILS_PUB.get_messages
10649: (p_encoded => FND_API.G_TRUE
10650: ,p_msg_index => 1
10651: ,p_msg_count => l_msg_count
10652: ,p_msg_data => l_msg_data
10653: ,p_data => l_data
10658: ELSE
10659: x_msg_count := l_msg_count;
10660: END IF;
10661:
10662: x_return_status := FND_API.G_RET_STS_ERROR;
10663:
10664: IF l_debug_mode = 'Y' THEN
10665: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10666: pa_debug.write('IS_WP_RL_UPDATEABLE: ' || l_module_name,pa_debug.g_err_stage,5);
10669: pa_debug.reset_curr_function();
10670: END IF;
10671: RETURN;
10672: WHEN Others THEN
10673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10674: x_msg_count := 1;
10675: x_msg_data := SQLERRM;
10676:
10677: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10714:
10715: BEGIN
10716:
10717: x_msg_count := 0;
10718: x_return_status := FND_API.G_RET_STS_SUCCESS;
10719:
10720: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10721: l_debug_mode := NVL(l_debug_mode, 'Y');
10722:
10770: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10771: l_msg_count := FND_MSG_PUB.count_msg;
10772: IF l_msg_count = 1 THEN
10773: PA_INTERFACE_UTILS_PUB.get_messages
10774: (p_encoded => FND_API.G_TRUE
10775: ,p_msg_index => 1
10776: ,p_msg_count => l_msg_count
10777: ,p_msg_data => l_msg_data
10778: ,p_data => l_data
10783: ELSE
10784: x_msg_count := l_msg_count;
10785: END IF;
10786:
10787: x_return_status := FND_API.G_RET_STS_ERROR;
10788:
10789: IF l_debug_mode = 'Y' THEN
10790: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10791: pa_debug.write('IS_PRI_FCST_COST_PT_ATTACHED: ' || l_module_name,pa_debug.g_err_stage,5);
10793: pa_debug.reset_curr_function();
10794: END IF;
10795: RETURN;
10796: WHEN Others THEN
10797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10798: x_msg_count := 1;
10799: x_msg_data := SQLERRM;
10800:
10801: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10837:
10838: BEGIN
10839:
10840: x_msg_count := 0;
10841: x_return_status := FND_API.G_RET_STS_SUCCESS;
10842:
10843: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10844: l_debug_mode := NVL(l_debug_mode, 'Y');
10845:
10892: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10893: l_msg_count := FND_MSG_PUB.count_msg;
10894: IF l_msg_count = 1 THEN
10895: PA_INTERFACE_UTILS_PUB.get_messages
10896: (p_encoded => FND_API.G_TRUE
10897: ,p_msg_index => 1
10898: ,p_msg_count => l_msg_count
10899: ,p_msg_data => l_msg_data
10900: ,p_data => l_data
10905: ELSE
10906: x_msg_count := l_msg_count;
10907: END IF;
10908:
10909: x_return_status := FND_API.G_RET_STS_ERROR;
10910:
10911: IF l_debug_mode = 'Y' THEN
10912: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10913: pa_debug.write('IS_PRI_FCST_REV_PT_ATTACHED: ' || l_module_name,pa_debug.g_err_stage,5);
10915: pa_debug.reset_curr_function();
10916: END IF;
10917: RETURN;
10918: WHEN Others THEN
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10920: x_msg_count := 1;
10921: x_msg_data := SQLERRM;
10922:
10923: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11023: p_debug_mode => P_PA_debug_mode );
11024: END IF;
11025:
11026: x_msg_count := 0;
11027: x_return_status := FND_API.G_RET_STS_SUCCESS;
11028:
11029: -- Validate that the input parameters are not null
11030: IF P_fin_plan_type_id IS NULL OR P_project_id IS NULL THEN
11031: IF P_PA_debug_mode = 'Y' THEN
11087: ,x_return_status => l_return_status
11088: ,x_msg_count => l_msg_count
11089: ,x_msg_data => l_msg_data);
11090:
11091: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11092: IF P_PA_debug_mode = 'Y' THEN
11093: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: COST context';
11094: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11095: END IF;
11105: ,x_fin_plan_version_id => X_rev_budget_version_id
11106: ,x_return_status => l_return_status
11107: ,x_msg_count => l_msg_count
11108: ,x_msg_data => l_msg_data);
11109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11110: IF P_PA_debug_mode = 'Y' THEN
11111: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: REV context';
11112: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11113: END IF;
11123: ,x_return_status => l_return_status
11124: ,x_msg_count => l_msg_count
11125: ,x_msg_data => l_msg_data);
11126:
11127: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11128: IF P_PA_debug_mode = 'Y' THEN
11129: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: ALL context';
11130: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11131: END IF;
11145: l_msg_count := FND_MSG_PUB.count_msg;
11146:
11147: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11148: PA_INTERFACE_UTILS_PUB.get_messages
11149: (p_encoded => FND_API.G_TRUE
11150: ,p_msg_index => 1
11151: ,p_msg_count => l_msg_count
11152: ,p_msg_data => l_msg_data
11153: ,p_data => l_data
11156: x_msg_count := l_msg_count;
11157: ELSE
11158: x_msg_count := l_msg_count;
11159: END IF;
11160: x_return_status := FND_API.G_RET_STS_ERROR;
11161: IF P_PA_DEBUG_MODE = 'Y' THEN
11162: pa_debug.reset_curr_function;
11163: END IF;
11164: RETURN;
11163: END IF;
11164: RETURN;
11165:
11166: WHEN Others THEN
11167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11168: x_msg_count := 1;
11169: x_msg_data := SQLERRM;
11170:
11171: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11237: pa_debug.set_curr_function( p_function => 'GET_PROJ_IMPACT_AMOUNTS',
11238: p_debug_mode => P_PA_debug_mode );
11239: END IF;
11240: x_msg_count := 0;
11241: x_return_status := FND_API.G_RET_STS_SUCCESS;
11242:
11243: -- See if all the input parameters passed are invalid
11244: IF nvl(p_all_budget_version_id,-1) = -1 AND nvl(p_cost_budget_version_id,-1) = -1
11245: AND nvl(p_rev_budget_version_id,-1) = -1 THEN
11415: l_msg_count := FND_MSG_PUB.count_msg;
11416:
11417: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11418: PA_INTERFACE_UTILS_PUB.get_messages
11419: (p_encoded => FND_API.G_TRUE
11420: ,p_msg_index => 1
11421: ,p_msg_count => l_msg_count
11422: ,p_msg_data => l_msg_data
11423: ,p_data => l_data
11426: x_msg_count := l_msg_count;
11427: ELSE
11428: x_msg_count := l_msg_count;
11429: END IF;
11430: x_return_status := FND_API.G_RET_STS_ERROR;
11431:
11432: IF P_PA_DEBUG_MODE = 'Y' THEN
11433: pa_debug.reset_curr_function;
11434: END IF;
11434: END IF;
11435: RETURN;
11436:
11437: WHEN Others THEN
11438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11439: x_msg_count := 1;
11440: x_msg_data := SQLERRM;
11441:
11442: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11518: pa_debug.set_curr_function( p_function => 'GET_SUMMARY_AMOUNTS',
11519: p_debug_mode => P_PA_debug_mode );
11520: END IF;
11521: x_msg_count := 0;
11522: x_return_status := FND_API.G_RET_STS_SUCCESS;
11523:
11524: -- Check for business rules violations
11525:
11526: IF P_PA_debug_mode = 'Y' THEN
11661: x_return_status => l_return_status,
11662: x_msg_data => l_msg_data,
11663: X_msg_count => l_msg_count);
11664:
11665: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11666: IF P_PA_debug_mode = 'Y' THEN
11667: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
11668: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11669: END IF;
11688: ,x_return_status => l_return_status
11689: ,x_msg_data => l_msg_data
11690: ,X_msg_count => l_msg_count);
11691:
11692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11693: IF P_PA_debug_mode = 'Y' THEN
11694: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11695: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11696: END IF;
11705: ,x_return_status => l_return_status
11706: ,x_msg_data => l_msg_data
11707: ,X_msg_count => l_msg_count);
11708:
11709: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11710: IF P_PA_debug_mode = 'Y' THEN
11711: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
11712: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11713: END IF;
11736: ,x_return_status => l_return_status
11737: ,x_msg_data => l_msg_data
11738: ,X_msg_count => l_msg_count);
11739:
11740: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11741: IF P_PA_debug_mode = 'Y' THEN
11742: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11743: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11744: END IF;
11759: l_msg_count := FND_MSG_PUB.count_msg;
11760:
11761: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11762: PA_INTERFACE_UTILS_PUB.get_messages
11763: (p_encoded => FND_API.G_TRUE
11764: ,p_msg_index => 1
11765: ,p_msg_count => l_msg_count
11766: ,p_msg_data => l_msg_data
11767: ,p_data => l_data
11770: x_msg_count := l_msg_count;
11771: ELSE
11772: x_msg_count := l_msg_count;
11773: END IF;
11774: x_return_status := FND_API.G_RET_STS_ERROR;
11775:
11776: IF P_PA_DEBUG_MODE = 'Y' THEN
11777: pa_debug.reset_curr_function;
11778: END IF;
11778: END IF;
11779: RETURN;
11780:
11781: WHEN Others THEN
11782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11783: x_msg_count := 1;
11784: x_msg_data := SQLERRM;
11785:
11786: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12546:
12547: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12548:
12549: x_msg_count := 0;
12550: x_return_status := FND_API.G_RET_STS_SUCCESS;
12551:
12552: IF l_debug_mode = 'Y' THEN
12553: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12554: p_debug_mode => l_debug_mode );
12843: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12844: l_msg_count := FND_MSG_PUB.count_msg;
12845: IF l_msg_count = 1 THEN
12846: PA_INTERFACE_UTILS_PUB.get_messages
12847: (p_encoded => FND_API.G_TRUE
12848: ,p_msg_index => 1
12849: ,p_msg_count => l_msg_count
12850: ,p_msg_data => l_msg_data
12851: ,p_data => l_data
12855: x_msg_count := l_msg_count;
12856: ELSE
12857: x_msg_count := l_msg_count;
12858: END IF;
12859: x_return_status := FND_API.G_RET_STS_ERROR;
12860:
12861: IF l_debug_mode = 'Y' THEN
12862: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
12863: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
12866: pa_debug.reset_curr_function();
12867: END IF;
12868: RETURN;
12869: WHEN OTHERS THEN
12870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12871: x_msg_count := 1;
12872: x_msg_data := SQLERRM;
12873:
12874: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils'
13024: BEGIN
13025: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13026:
13027: x_msg_count := 0;
13028: x_return_status := FND_API.G_RET_STS_SUCCESS;
13029:
13030: IF l_debug_mode = 'Y' THEN
13031: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
13032: p_debug_mode => l_debug_mode );
13103: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13104: l_msg_count := FND_MSG_PUB.count_msg;
13105: IF l_msg_count = 1 THEN
13106: PA_INTERFACE_UTILS_PUB.get_messages
13107: (p_encoded => FND_API.G_TRUE
13108: ,p_msg_index => 1
13109: ,p_msg_count => l_msg_count
13110: ,p_msg_data => l_msg_data
13111: ,p_data => l_data
13155: ==============================================================================*/ --4738996 Starts here
13156:
13157: PROCEDURE create_draft_budget_wrp(
13158: p_api_version_number IN NUMBER
13159: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13160: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13161: ,p_msg_count OUT NOCOPY NUMBER
13162: ,p_msg_data OUT NOCOPY VARCHAR2
13163: ,p_return_status OUT NOCOPY VARCHAR2
13156:
13157: PROCEDURE create_draft_budget_wrp(
13158: p_api_version_number IN NUMBER
13159: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
13160: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
13161: ,p_msg_count OUT NOCOPY NUMBER
13162: ,p_msg_data OUT NOCOPY VARCHAR2
13163: ,p_return_status OUT NOCOPY VARCHAR2
13164: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13260: ,x_return_status => l_return_status
13261: ,x_msg_count => l_msg_count
13262: ,x_msg_data => l_msg_data) ;
13263:
13264: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13265:
13266: IF l_debug_mode = 'Y' THEN
13267: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
13268: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13276: --dbms_output.put_line('control comes here');
13277: -- dbms_output.put_line('Value of yeessssssss l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13278:
13279: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13280: ,p_commit => FND_API.G_FALSE
13281: ,p_init_msg_list => FND_API.G_FALSE
13282: ,p_msg_count => l_msg_count
13283: ,p_msg_data => l_msg_data
13284: ,p_return_status => l_return_status
13277: -- dbms_output.put_line('Value of yeessssssss l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13278:
13279: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13280: ,p_commit => FND_API.G_FALSE
13281: ,p_init_msg_list => FND_API.G_FALSE
13282: ,p_msg_count => l_msg_count
13283: ,p_msg_data => l_msg_data
13284: ,p_return_status => l_return_status
13285: ,p_pm_product_code => p_pm_product_code
13313: ,p_fin_plan_type_id => l_approved_fin_plan_type_id
13314: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
13315: ,p_revenue_flag => 'Y'
13316: , p_revenue_qty_flag => 'Y');
13317: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13318: THEN
13319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13320: p_msg_count := 1;
13321: p_msg_data := 'Exiting create_draft_budget_wrp';
13315: ,p_revenue_flag => 'Y'
13316: , p_revenue_qty_flag => 'Y');
13317: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13318: THEN
13319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13320: p_msg_count := 1;
13321: p_msg_data := 'Exiting create_draft_budget_wrp';
13322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13323:
13318: THEN
13319: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13320: p_msg_count := 1;
13321: p_msg_data := 'Exiting create_draft_budget_wrp';
13322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13323:
13324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13325: THEN
13326: p_return_status := FND_API.G_RET_STS_ERROR;
13320: p_msg_count := 1;
13321: p_msg_data := 'Exiting create_draft_budget_wrp';
13322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13323:
13324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13325: THEN
13326: p_return_status := FND_API.G_RET_STS_ERROR;
13327: p_msg_count := 1;
13328: p_msg_data := 'Exiting create_draft_budget_wrp';
13322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13323:
13324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13325: THEN
13326: p_return_status := FND_API.G_RET_STS_ERROR;
13327: p_msg_count := 1;
13328: p_msg_data := 'Exiting create_draft_budget_wrp';
13329: RAISE FND_API.G_EXC_ERROR;
13330: END IF;
13325: THEN
13326: p_return_status := FND_API.G_RET_STS_ERROR;
13327: p_msg_count := 1;
13328: p_msg_data := 'Exiting create_draft_budget_wrp';
13329: RAISE FND_API.G_EXC_ERROR;
13330: END IF;
13331:
13332:
13333: -- dbms_output.put_line('about to call baseline_budget ... ');
13335: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13336:
13337: PA_BUDGET_PUB.BASELINE_BUDGET
13338: ( p_api_version_number => p_api_version_number
13339: ,p_commit => FND_API.G_FALSE
13340: ,p_init_msg_list => FND_API.G_FALSE
13341: ,p_msg_count => p_msg_count
13342: ,p_msg_data => p_msg_data
13343: ,p_return_status => l_return_status
13336:
13337: PA_BUDGET_PUB.BASELINE_BUDGET
13338: ( p_api_version_number => p_api_version_number
13339: ,p_commit => FND_API.G_FALSE
13340: ,p_init_msg_list => FND_API.G_FALSE
13341: ,p_msg_count => p_msg_count
13342: ,p_msg_data => p_msg_data
13343: ,p_return_status => l_return_status
13344: ,p_workflow_started => l_workflow_started
13355: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13356: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13357: END IF;
13358:
13359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13360: THEN
13361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13362:
13363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13357: END IF;
13358:
13359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13360: THEN
13361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13362:
13363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13364: THEN
13365: RAISE FND_API.G_EXC_ERROR;
13359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13360: THEN
13361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13362:
13363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13364: THEN
13365: RAISE FND_API.G_EXC_ERROR;
13366: END IF;
13367:
13361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13362:
13363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13364: THEN
13365: RAISE FND_API.G_EXC_ERROR;
13366: END IF;
13367:
13368: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13369: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13367:
13368: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13369: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13370: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13371: ,p_commit => FND_API.G_FALSE
13372: ,p_init_msg_list => FND_API.G_FALSE
13373: ,p_msg_count => l_msg_count
13374: ,p_msg_data => l_msg_data
13375: ,p_return_status => l_return_status
13368: ELSIF( l_approved_fin_plan_type_id IS NULL) THEN
13369: -- dbms_output.put_line('Value of l_approved_fin_plan_type_id'||l_approved_fin_plan_type_id);
13370: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
13371: ,p_commit => FND_API.G_FALSE
13372: ,p_init_msg_list => FND_API.G_FALSE
13373: ,p_msg_count => l_msg_count
13374: ,p_msg_data => l_msg_data
13375: ,p_return_status => l_return_status
13376: ,p_pm_product_code => p_pm_product_code
13401: ,p_attribute15 => p_attribute15
13402: ,p_budget_lines_in => p_budget_lines_in
13403: ,p_budget_lines_out => l_budget_lines_out_tbl);
13404:
13405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13406: THEN
13407: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13408: p_msg_count := 1;
13409: p_msg_data := 'Exiting create_draft_budget_wrp';
13403: ,p_budget_lines_out => l_budget_lines_out_tbl);
13404:
13405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13406: THEN
13407: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13408: p_msg_count := 1;
13409: p_msg_data := 'Exiting create_draft_budget_wrp';
13410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13411:
13406: THEN
13407: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13408: p_msg_count := 1;
13409: p_msg_data := 'Exiting create_draft_budget_wrp';
13410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13411:
13412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13413: THEN
13414: p_return_status := FND_API.G_RET_STS_ERROR;
13408: p_msg_count := 1;
13409: p_msg_data := 'Exiting create_draft_budget_wrp';
13410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13411:
13412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13413: THEN
13414: p_return_status := FND_API.G_RET_STS_ERROR;
13415: p_msg_count := 1;
13416: p_msg_data := 'Exiting create_draft_budget_wrp';
13410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13411:
13412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13413: THEN
13414: p_return_status := FND_API.G_RET_STS_ERROR;
13415: p_msg_count := 1;
13416: p_msg_data := 'Exiting create_draft_budget_wrp';
13417: RAISE FND_API.G_EXC_ERROR;
13418: END IF;
13413: THEN
13414: p_return_status := FND_API.G_RET_STS_ERROR;
13415: p_msg_count := 1;
13416: p_msg_data := 'Exiting create_draft_budget_wrp';
13417: RAISE FND_API.G_EXC_ERROR;
13418: END IF;
13419:
13420: -- dbms_output.put_line('about to call baseline_budget ... ');
13421: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13422: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13423:
13424: PA_BUDGET_PUB.BASELINE_BUDGET
13425: ( p_api_version_number => p_api_version_number
13426: ,p_commit => FND_API.G_FALSE
13427: ,p_init_msg_list => FND_API.G_FALSE
13428: ,p_msg_count => p_msg_count
13429: ,p_msg_data => p_msg_data
13430: ,p_return_status => l_return_status
13423:
13424: PA_BUDGET_PUB.BASELINE_BUDGET
13425: ( p_api_version_number => p_api_version_number
13426: ,p_commit => FND_API.G_FALSE
13427: ,p_init_msg_list => FND_API.G_FALSE
13428: ,p_msg_count => p_msg_count
13429: ,p_msg_data => p_msg_data
13430: ,p_return_status => l_return_status
13431: ,p_workflow_started => l_workflow_started
13440: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13441: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13442: END IF;
13443:
13444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13445: THEN
13446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13447:
13448: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13442: END IF;
13443:
13444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13445: THEN
13446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13447:
13448: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13449: THEN
13450: RAISE FND_API.G_EXC_ERROR;
13444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13445: THEN
13446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13447:
13448: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13449: THEN
13450: RAISE FND_API.G_EXC_ERROR;
13451: END IF;
13452: END IF;
13446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13447:
13448: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13449: THEN
13450: RAISE FND_API.G_EXC_ERROR;
13451: END IF;
13452: END IF;
13453:
13454: pa_debug.g_err_stage:='Exiting create_draft_budget_wrp';
13465:
13466: IF l_msg_count = 1 THEN
13467:
13468: PA_INTERFACE_UTILS_PUB.get_messages
13469: (p_encoded => FND_API.G_TRUE
13470: ,p_msg_index => 1
13471: ,p_msg_count => l_msg_count
13472: ,p_msg_data => l_msg_data
13473: ,p_data => l_data
13481: p_msg_count := l_msg_count;
13482:
13483: END IF;
13484:
13485: p_return_status := FND_API.G_RET_STS_ERROR;
13486:
13487: pa_debug.g_err_stage:='Invalid Arguments Passed';
13488: IF P_PA_DEBUG_MODE = 'Y' THEN
13489: pa_debug.write('create_draft_budget_wrp: ' || l_module_name,pa_debug.g_err_stage,5);
13494: RAISE;
13495:
13496: WHEN Others THEN
13497:
13498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13499: p_msg_count := 1;
13500: p_msg_data := SQLERRM;
13501:
13502: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
13508: END IF;
13509:
13510: pa_debug.reset_err_stack;
13511:
13512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13513:
13514:
13515: END create_draft_budget_wrp;
13516: --4738996 Ends here