123: l_msg_index_out NUMBER;
124: BEGIN
125: l_module_name := 'pa.plsql.' || l_package_name || '.' || l_procedure_name;
126:
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128: x_msg_count := 0;
129:
130: IF p_pa_debug_mode = 'Y' THEN
131: PA_DEBUG.SET_CURR_FUNCTION( p_function => l_procedure_name,
412: 'MAINTAIN_DATA: '||x_return_status,
413: --P_CALLED_MODE => p_called_mode,
414: P_MODULE_NAME => l_module_name);
415: END IF;
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
418: END IF;
419:
420: END IF; -- IF l_maint_data_ins_req_flag = 'Y' THEN
426: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
427: l_msg_count := FND_MSG_PUB.count_msg;
428: IF l_msg_count = 1 THEN
429: PA_INTERFACE_UTILS_PUB.GET_MESSAGES
430: ( p_encoded => FND_API.G_TRUE,
431: p_msg_index => 1,
432: p_msg_count => l_msg_count,
433: p_msg_data => l_msg_data,
434: p_data => l_data,
439: x_msg_count := l_msg_count;
440: END IF;
441:
442: ROLLBACK;
443: x_return_status := FND_API.G_RET_STS_ERROR;
444:
445: IF p_pa_debug_mode = 'Y' THEN
446: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
447: (p_msg => 'Invalid Arguments Passed',
451: END IF;
452: RAISE;
453: WHEN OTHERS THEN
454: ROLLBACK;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: x_msg_count := 1;
457: x_msg_data := substr(sqlerrm,1,240);
458: FND_MSG_PUB.ADD_EXC_MSG
459: ( p_pkg_name => l_package_name,
466: p_module_name => l_module_name,
467: p_log_level => 5);
468: PA_DEBUG.RESET_CURR_FUNCTION;
469: END IF;
470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
471:
472: END UPD_NRB_TXN_OVR_RATES;
473:
474:
511: l_msg_index_out NUMBER;
512: BEGIN
513: l_module_name := 'pa.plsql.' || l_package_name || '.' || l_procedure_name;
514:
515: x_return_status := FND_API.G_RET_STS_SUCCESS;
516: x_msg_count := 0;
517:
518: IF p_pa_debug_mode = 'Y' THEN
519: PA_DEBUG.SET_CURR_FUNCTION( p_function => l_procedure_name,
564: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
565: l_msg_count := FND_MSG_PUB.count_msg;
566: IF l_msg_count = 1 THEN
567: PA_INTERFACE_UTILS_PUB.GET_MESSAGES
568: ( p_encoded => FND_API.G_TRUE,
569: p_msg_index => 1,
570: p_msg_count => l_msg_count,
571: p_msg_data => l_msg_data,
572: p_data => l_data,
577: x_msg_count := l_msg_count;
578: END IF;
579:
580: ROLLBACK;
581: x_return_status := FND_API.G_RET_STS_ERROR;
582:
583: IF p_pa_debug_mode = 'Y' THEN
584: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
585: (p_msg => 'Invalid Arguments Passed',
589: END IF;
590: RAISE;
591: WHEN OTHERS THEN
592: ROLLBACK;
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
594: x_msg_count := 1;
595: x_msg_data := substr(sqlerrm,1,240);
596: FND_MSG_PUB.ADD_EXC_MSG
597: ( p_pkg_name => l_package_name,
604: p_module_name => l_module_name,
605: p_log_level => 5);
606: PA_DEBUG.RESET_CURR_FUNCTION;
607: END IF;
608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
609:
610: END POPULATE_GEN_RATE;
611:
612:
650: l_data VARCHAR2(1000);
651: l_msg_data VARCHAR2(1000);
652: l_msg_index_out NUMBER;
653: BEGIN
654: x_return_status := FND_API.G_RET_STS_SUCCESS;
655: x_msg_count := 0;
656:
657: IF p_pa_debug_mode = 'Y' THEN
658: PA_DEBUG.SET_CURR_FUNCTION( p_function => 'CHK_UPD_RATE_BASED_FLAG',
688: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
689: l_msg_count := FND_MSG_PUB.count_msg;
690: IF l_msg_count = 1 THEN
691: PA_INTERFACE_UTILS_PUB.GET_MESSAGES
692: ( p_encoded => FND_API.G_TRUE,
693: p_msg_index => 1,
694: p_msg_count => l_msg_count,
695: p_msg_data => l_msg_data,
696: p_data => l_data,
701: x_msg_count := l_msg_count;
702: END IF;
703:
704: ROLLBACK;
705: x_return_status := FND_API.G_RET_STS_ERROR;
706:
707: IF p_pa_debug_mode = 'Y' THEN
708: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
709: (p_msg => 'Invalid Arguments Passed',
713: END IF;
714: RAISE;
715: WHEN OTHERS THEN
716: ROLLBACK;
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: x_msg_count := 1;
719: x_msg_data := substr(sqlerrm,1,240);
720: FND_MSG_PUB.ADD_EXC_MSG
721: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
728: p_module_name => l_module_name,
729: p_log_level => 5);
730: PA_DEBUG.RESET_CURR_FUNCTION;
731: END IF;
732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
733:
734: END CHK_UPD_RATE_BASED_FLAG;
735:
736:
770: IF p_pa_debug_mode = 'Y' THEN
771: pa_debug.set_curr_function( p_function => 'CALL_SUMM_POP_TMPS',
772: p_debug_mode => p_pa_debug_mode);
773: END IF;
774: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
775: X_MSG_COUNT := 0;
776:
777: l_project_id_tab.extend;
778: l_resource_list_id_tab.extend;
823: END IF;
824: select count(*) into l_count from PJI_FM_XBS_ACCUM_TMP1;
825: --hr_utility.trace('CALLSUM: After calling pji api, PJI_FM_XBS_ACCUM_TMP1 has:'|| l_count);
826: --hr_utility.trace('CALLSUM: After calling pji api: '||x_return_status);
827: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
828: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
829: END IF;
830:
831: /* Update rlm_id for all rows in pji_fm_xbs_accum_tmp1 if the resource list
961: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
962: l_msg_count := FND_MSG_PUB.count_msg;
963: IF l_msg_count = 1 THEN
964: PA_INTERFACE_UTILS_PUB.get_messages
965: (p_encoded => FND_API.G_TRUE
966: ,p_msg_index => 1
967: ,p_msg_count => l_msg_count
968: ,p_msg_data => l_msg_data
969: ,p_data => l_data
974: x_msg_count := l_msg_count;
975: END IF;
976: ROLLBACK;
977:
978: x_return_status := FND_API.G_RET_STS_ERROR;
979: IF P_PA_DEBUG_MODE = 'Y' THEN
980: pa_fp_gen_amount_utils.fp_debug
981: (p_msg => 'Invalid Arguments Passed',
982: p_module_name => l_module_name,
985: END IF;
986: RAISE;
987:
988: WHEN OTHERS THEN
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: x_msg_data := SUBSTR(SQLERRM,1,240);
991: FND_MSG_PUB.add_exc_msg
992: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1'
993: ,p_procedure_name => 'CALL_SUMM_POP_TMPS');
997: p_module_name => l_module_name,
998: p_log_level => 5);
999: PA_DEBUG.Reset_Curr_Function;
1000: END IF;
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: END CALL_SUMM_POP_TMPS;
1003:
1004: PROCEDURE GEN_AVERAGE_OF_ACTUALS_WRP
1005: (P_BUDGET_VERSION_ID IN PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
1221: IF p_pa_debug_mode = 'Y' THEN
1222: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS_WRP',
1223: p_debug_mode => p_pa_debug_mode);
1224: END IF;
1225: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1226: X_MSG_COUNT := 0;
1227:
1228: IF p_task_id IS NULL THEN
1229: l_task_id_flag := 'N';
1410: return status is: '||x_return_status,
1411: p_module_name => l_module_name,
1412: p_log_level => 5);
1413: END IF;
1414: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1415: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1416: END IF;
1417: END IF;
1418: /* end if for checking currency count <> 0 */
1434: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1435: l_msg_count := FND_MSG_PUB.count_msg;
1436: IF l_msg_count = 1 THEN
1437: PA_INTERFACE_UTILS_PUB.get_messages
1438: ( p_encoded => FND_API.G_TRUE,
1439: p_msg_index => 1,
1440: p_msg_count => l_msg_count,
1441: p_msg_data => l_msg_data,
1442: p_data => l_data,
1447: x_msg_count := l_msg_count;
1448: END IF;
1449:
1450: ROLLBACK;
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452:
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_fp_gen_amount_utils.fp_debug
1455: (p_msg => 'Invalid Arguments Passed',
1459: END IF;
1460: RAISE;
1461: WHEN OTHERS THEN
1462: rollback;
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: x_msg_count := 1;
1465: x_msg_data := substr(sqlerrm,1,240);
1466: FND_MSG_PUB.add_exc_msg
1467: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
1474: p_module_name => l_module_name,
1475: p_log_level => 5);
1476: PA_DEBUG.RESET_CURR_FUNCTION;
1477: END IF;
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: END GEN_AVERAGE_OF_ACTUALS_WRP;
1480:
1481: /**Valid values for param:P_ETC_SOURCE_CODE
1482: * --ETC_WP
1551: IF p_pa_debug_mode = 'Y' THEN
1552: pa_debug.set_curr_function( p_function => 'GEN_ETC_REMAIN_BDGT_AMTS',
1553: p_debug_mode => p_pa_debug_mode);
1554: END IF;
1555: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1556: X_MSG_COUNT := 0;
1557:
1558: /*currency_flag is defaulted to PC: project currency,
1559: etc_currency_code is defaulted to project currency code.
1756: 'get_actuals_for_task in remain_bdgt'||x_return_status,
1757: p_module_name => l_module_name,
1758: p_log_level => 5);
1759: END IF;
1760: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1762: END IF;
1763: l_act_qty := NVL(l_act_labor_effort,0) + NVL(l_act_eqpmt_effort,0)
1764: + NVL(l_oth_quantity,0);
1860: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1861: l_msg_count := FND_MSG_PUB.count_msg;
1862: IF l_msg_count = 1 THEN
1863: PA_INTERFACE_UTILS_PUB.get_messages
1864: ( p_encoded => FND_API.G_TRUE,
1865: p_msg_index => 1,
1866: p_msg_count => l_msg_count,
1867: p_msg_data => l_msg_data,
1868: p_data => l_data,
1873: x_msg_count := l_msg_count;
1874: END IF;
1875:
1876: ROLLBACK;
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878:
1879: IF P_PA_DEBUG_MODE = 'Y' THEN
1880: pa_fp_gen_amount_utils.fp_debug
1881: (p_msg => 'Invalid Arguments Passed',
1885: END IF;
1886: RAISE;
1887: WHEN OTHERS THEN
1888: rollback;
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890: x_msg_count := 1;
1891: x_msg_data := substr(sqlerrm,1,240);
1892: --dbms_output.put_line('error msg :'||x_msg_data);
1893: FND_MSG_PUB.add_exc_msg
1901: p_module_name => l_module_name,
1902: p_log_level => 5);
1903: PA_DEBUG.RESET_CURR_FUNCTION;
1904: END IF;
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END GET_ETC_REMAIN_BDGT_AMTS;
1907:
1908:
1909: PROCEDURE GET_ETC_BDGT_COMPLETE_AMTS
1956: IF p_pa_debug_mode = 'Y' THEN
1957: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
1958: p_debug_mode => p_pa_debug_mode);
1959: END IF;
1960: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1961: X_MSG_COUNT := 0;
1962:
1963: l_structure_type := null;
1964: l_structure_status := null;
2021: END IF;
2022: --dbms_output.put_line('BDGT_COMPLETE: p_proj_element_id:'||p_task_id);
2023: --dbms_output.put_line('l_percent_complete:'||lx_percent_complete);
2024:
2025: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2026: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2027: END IF;
2028: l_percent_complete := NVL(lx_percent_complete,0)/100;
2029:
2130: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2131: l_msg_count := FND_MSG_PUB.count_msg;
2132: IF l_msg_count = 1 THEN
2133: PA_INTERFACE_UTILS_PUB.get_messages
2134: ( p_encoded => FND_API.G_TRUE,
2135: p_msg_index => 1,
2136: p_msg_count => l_msg_count,
2137: p_msg_data => l_msg_data,
2138: p_data => l_data,
2143: x_msg_count := l_msg_count;
2144: END IF;
2145:
2146: ROLLBACK;
2147: x_return_status := FND_API.G_RET_STS_ERROR;
2148:
2149: IF P_PA_DEBUG_MODE = 'Y' THEN
2150: pa_fp_gen_amount_utils.fp_debug
2151: (p_msg => 'Invalid Arguments Passed',
2155: END IF;
2156: RAISE;
2157: WHEN OTHERS THEN
2158: rollback;
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160: x_msg_count := 1;
2161: x_msg_data := substr(sqlerrm,1,240);
2162: -- dbms_output.put_line('error msg :'||x_msg_data);
2163: FND_MSG_PUB.add_exc_msg
2171: p_module_name => l_module_name,
2172: p_log_level => 5);
2173: PA_DEBUG.RESET_CURR_FUNCTION;
2174: END IF;
2175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2176: END GET_ETC_BDGT_COMPLETE_AMTS;
2177:
2178: PROCEDURE GET_ETC_EARNED_VALUE_AMTS
2179: (P_ETC_SOURCE_CODE IN VARCHAR2,
2257: IF p_pa_debug_mode = 'Y' THEN
2258: pa_debug.set_curr_function( p_function => 'GEN_ETC_EARNED_VALUE_AMTS',
2259: p_debug_mode => p_pa_debug_mode);
2260: END IF;
2261: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2262: X_MSG_COUNT := 0;
2263:
2264: l_structure_type := null;
2265: l_structure_status := null;
2310: return status is:'||x_return_status,
2311: p_module_name => l_module_name,
2312: p_log_level => 5);
2313: END IF;
2314: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2315: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2316: END IF;
2317:
2318: l_percent_complete := NVL(lx_percent_complete,0)/100;
2443: 'get_actuals_for_task in earned_value'||x_return_status,
2444: p_module_name => l_module_name,
2445: p_log_level => 5);
2446: END IF;
2447: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2448: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2449: END IF;
2450: IF NVL(l_act_labor_effort,0) + NVL(l_act_eqpmt_effort,0)
2451: + NVL(l_oth_quantity,0) = 0 THEN
2600: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2601: l_msg_count := FND_MSG_PUB.count_msg;
2602: IF l_msg_count = 1 THEN
2603: PA_INTERFACE_UTILS_PUB.get_messages
2604: ( p_encoded => FND_API.G_TRUE,
2605: p_msg_index => 1,
2606: p_msg_count => l_msg_count,
2607: p_msg_data => l_msg_data,
2608: p_data => l_data,
2613: x_msg_count := l_msg_count;
2614: END IF;
2615:
2616: ROLLBACK;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618:
2619: IF P_PA_DEBUG_MODE = 'Y' THEN
2620: pa_fp_gen_amount_utils.fp_debug
2621: (p_msg => 'Invalid Arguments Passed',
2625: END IF;
2626: RAISE;
2627: WHEN OTHERS THEN
2628: rollback;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: x_msg_count := 1;
2631: x_msg_data := substr(sqlerrm,1,240);
2632: -- dbms_output.put_line('error msg :'||x_msg_data);
2633: FND_MSG_PUB.add_exc_msg
2641: p_module_name => l_module_name,
2642: p_log_level => 5);
2643: PA_DEBUG.RESET_CURR_FUNCTION;
2644: END IF;
2645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2646: END GET_ETC_EARNED_VALUE_AMTS;
2647:
2648: PROCEDURE GET_ETC_WORK_QTY_AMTS
2649: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
2747: l_msg_index_out NUMBER:=0;
2748: l_sysdate DATE;
2749: l_transaction_source_code PA_FP_CALC_AMT_TMP2.transaction_source_code%TYPE;
2750: BEGIN
2751: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2752: X_MSG_COUNT := 0;
2753: l_sysdate := trunc(sysdate);
2754: IF p_pa_debug_mode = 'Y' THEN
2755: pa_debug.set_curr_function( p_function => 'GEN_ETC_WORK_QTY_AMTS',
2805: 'get_actuals_for_task when SHARE_FULL'||x_return_status,
2806: p_module_name => l_module_name,
2807: p_log_level => 5);
2808: END IF;
2809: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2810: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2811: END IF;
2812:
2813: IF NVL(l_act_work_qty,0) <> 0 THEN
2876: 'get_actuals_for_task when MAPPING'||x_return_status,
2877: p_module_name => l_module_name,
2878: p_log_level => 5);
2879: END IF;
2880: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2881: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2882: END IF;
2883: IF NVL(l_act_work_qty_ind,0) <> 0 THEN
2884: -- ER 5726773: Sum work qty for WP tasks mapping to target task
2951: 'get_actuals_for_task when NO_MAPPING'||x_return_status,
2952: p_module_name => l_module_name,
2953: p_log_level => 5);
2954: END IF;
2955: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2956: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2957: END IF;
2958: IF NVL(l_act_work_qty_ind,0) <> 0 THEN
2959: -- ER 5726773: Sum work qty for WP tasks mapping to target task
3067: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3068: l_msg_count := FND_MSG_PUB.count_msg;
3069: IF l_msg_count = 1 THEN
3070: PA_INTERFACE_UTILS_PUB.get_messages
3071: ( p_encoded => FND_API.G_TRUE,
3072: p_msg_index => 1,
3073: p_msg_count => l_msg_count,
3074: p_msg_data => l_msg_data,
3075: p_data => l_data,
3080: x_msg_count := l_msg_count;
3081: END IF;
3082:
3083: ROLLBACK;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085:
3086: IF P_PA_DEBUG_MODE = 'Y' THEN
3087: pa_fp_gen_amount_utils.fp_debug
3088: (p_msg => 'Invalid Arguments Passed',
3092: END IF;
3093: RAISE;
3094: WHEN OTHERS THEN
3095: rollback;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3097: x_msg_count := 1;
3098: x_msg_data := substr(sqlerrm,1,240);
3099: -- dbms_output.put_line('error msg :'||x_msg_data);
3100: FND_MSG_PUB.add_exc_msg
3108: p_module_name => l_module_name,
3109: p_log_level => 5);
3110: PA_DEBUG.RESET_CURR_FUNCTION;
3111: END IF;
3112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3113: END GET_ETC_WORK_QTY_AMTS;
3114:
3115: PROCEDURE NONE_ETC_SRC
3116: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
3131: l_data VARCHAR2(2000);
3132: l_msg_index_out NUMBER:=0;
3133: l_sysdate date;
3134: BEGIN
3135: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
3136: X_MSG_COUNT := 0;
3137: IF p_pa_debug_mode = 'Y' THEN
3138: pa_debug.set_curr_function( p_function => 'NONE_ETC_SRC',
3139: p_debug_mode => p_pa_debug_mode);
3195: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3196: l_msg_count := FND_MSG_PUB.count_msg;
3197: IF l_msg_count = 1 THEN
3198: PA_INTERFACE_UTILS_PUB.get_messages
3199: ( p_encoded => FND_API.G_TRUE,
3200: p_msg_index => 1,
3201: p_msg_count => l_msg_count,
3202: p_msg_data => l_msg_data,
3203: p_data => l_data,
3208: x_msg_count := l_msg_count;
3209: END IF;
3210:
3211: ROLLBACK;
3212: x_return_status := FND_API.G_RET_STS_ERROR;
3213:
3214: IF P_PA_DEBUG_MODE = 'Y' THEN
3215: pa_fp_gen_amount_utils.fp_debug
3216: (p_msg => 'Invalid Arguments Passed',
3220: END IF;
3221: RAISE;
3222: WHEN OTHERS THEN
3223: rollback;
3224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3225: x_msg_count := 1;
3226: x_msg_data := substr(sqlerrm,1,240);
3227: FND_MSG_PUB.add_exc_msg
3228: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
3235: p_module_name => l_module_name,
3236: p_log_level => 5);
3237: PA_DEBUG.RESET_CURR_FUNCTION;
3238: END IF;
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END NONE_ETC_SRC;
3241:
3242: PROCEDURE MAINTAIN_BUDGET_VERSION
3243: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
3266: -- p_calling_module parameter of the MAINTAIN_DATA API.
3267: l_calling_module VARCHAR2(30);
3268:
3269: BEGIN
3270: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
3271: X_MSG_COUNT := 0;
3272: IF p_pa_debug_mode = 'Y' THEN
3273: pa_debug.set_curr_function( p_function => 'MAINTAIN_BUDGET_VERSION',
3274: p_debug_mode => p_pa_debug_mode);
3296: ||x_return_status,
3297: p_module_name => l_module_name,
3298: p_log_level => 5);
3299: END IF;
3300: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3301: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3302: END IF;
3303:
3304: -- ER 5726773: Delete any budget lines that have 0 plan quantity.
3343: 'SYNC_UP_PLANNING_DATES_NONE_TP:'||x_return_status,
3344: p_module_name => l_module_name,
3345: p_log_level => 5);
3346: END IF;
3347: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3349: END IF;
3350: END IF;
3351:
3368: PA_FP_GEN_PUB.MAINTAIN_FIXED_DATE_SP:'||x_return_status,
3369: p_module_name => l_module_name,
3370: p_log_level => 5);
3371: END IF;
3372: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3374: END IF;
3375:
3376: IF P_PA_DEBUG_MODE = 'Y' THEN
3393: p_module_name => l_module_name,
3394: p_log_level => 5);
3395: END IF;
3396: --dbms_output.put_line('After calling convert_txn_currency api: '||x_return_status);
3397: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3398: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3399: END IF;
3400:
3401: IF P_PA_DEBUG_MODE = 'Y' THEN
3416: ret status: '||x_return_status,
3417: p_module_name => l_module_name,
3418: p_log_level => 5);
3419: END IF;
3420: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3422: END IF;
3423:
3424: SELECT wp_version_flag
3441: P_STRUCTURE_VERSION_ID => l_fp_cols_rec.x_project_structure_version_id,
3442: X_RETURN_STATUS => X_RETURN_STATUS,
3443: X_MSG_COUNT => X_MSG_COUNT,
3444: X_MSG_DATA => X_MSG_DATA);
3445: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3446: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3447: END IF;
3448: IF p_pa_debug_mode = 'Y' THEN
3449: pa_fp_gen_amount_utils.fp_debug
3473: P_FP_COLS_REC => l_fp_cols_rec,
3474: X_RETURN_STATUS => X_RETURN_STATUS,
3475: X_MSG_COUNT => X_MSG_COUNT,
3476: X_MSG_DATA => X_MSG_DATA);
3477: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3478: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3479: END IF;
3480: IF p_pa_debug_mode = 'Y' THEN
3481: pa_fp_gen_amount_utils.fp_debug
3509: ret status: '||x_return_status,
3510: p_module_name => l_module_name,
3511: p_log_level => 5);
3512: END IF;
3513: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3514: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3515: END IF;
3516: END IF;
3517:
3542: ret status: '||x_return_status,
3543: p_module_name => l_module_name,
3544: p_log_level => 5);
3545: END IF;
3546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3547: RAISE g_mrc_exception;
3548: END IF;
3549:
3550: PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3570: ret status: '||x_return_status,
3571: p_module_name => l_module_name,
3572: p_log_level => 5);
3573: END IF;
3574: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3575: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3576: END IF;
3577:
3578: IF l_fp_cols_rec.X_RBS_VERSION_ID IS NOT NULL THEN
3589: P_FP_COLS_REC => l_fp_cols_rec,
3590: X_RETURN_STATUS => X_RETURN_STATUS,
3591: X_MSG_COUNT => X_MSG_COUNT,
3592: X_MSG_DATA => X_MSG_DATA);
3593: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3595: END IF;
3596:
3597: IF P_PA_DEBUG_MODE = 'Y' THEN
3618: ret status: '||x_return_status,
3619: p_module_name => l_module_name,
3620: p_log_level => 5);
3621: END IF;
3622: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3624: END IF;
3625:
3626: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: 'POPULATE_DISPLAY_QTY: '||x_return_status,
3728: --P_CALLED_MODE => p_called_mode,
3729: P_MODULE_NAME => l_module_name);
3730: END IF;
3731: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3732: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3733: END IF;
3734:
3735: -- Call MAINTAIN_DATA to roll up amounts to pa_resource_asgn_curr
3781: 'MAINTAIN_DATA: '||x_return_status,
3782: --P_CALLED_MODE => p_called_mode,
3783: P_MODULE_NAME => l_module_name);
3784: END IF;
3785: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3786: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3787: END IF;
3788:
3789: -- VERSION LEVEL Processing: ----------------------------------
3816: 'POPULATE_DISPLAY_QTY: '||x_return_status,
3817: --P_CALLED_MODE => p_called_mode,
3818: P_MODULE_NAME => l_module_name);
3819: END IF;
3820: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3821: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3822: END IF;
3823:
3824: -- Call MAINTAIN_DATA to roll up amounts to pa_resource_asgn_curr.
3851: 'MAINTAIN_DATA: '||x_return_status,
3852: --P_CALLED_MODE => p_called_mode,
3853: P_MODULE_NAME => l_module_name);
3854: END IF;
3855: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3856: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3857: END IF;
3858: END IF;
3859:
3887: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3888: l_msg_count := FND_MSG_PUB.count_msg;
3889: IF l_msg_count = 1 THEN
3890: PA_INTERFACE_UTILS_PUB.get_messages
3891: ( p_encoded => FND_API.G_TRUE,
3892: p_msg_index => 1,
3893: p_msg_count => l_msg_count,
3894: p_msg_data => l_msg_data,
3895: p_data => l_data,
3900: x_msg_count := l_msg_count;
3901: END IF;
3902:
3903: ROLLBACK;
3904: x_return_status := FND_API.G_RET_STS_ERROR;
3905:
3906: IF P_PA_DEBUG_MODE = 'Y' THEN
3907: pa_fp_gen_amount_utils.fp_debug
3908: (p_msg => 'Invalid Arguments Passed',
3912: END IF;
3913: RAISE;
3914: WHEN OTHERS THEN
3915: rollback;
3916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3917: x_msg_count := 1;
3918: x_msg_data := substr(sqlerrm,1,240);
3919: -- dbms_output.put_line('error msg :'||x_msg_data);
3920: FND_MSG_PUB.add_exc_msg
3928: p_module_name => l_module_name,
3929: p_log_level => 5);
3930: PA_DEBUG.RESET_CURR_FUNCTION;
3931: END IF;
3932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3933: END MAINTAIN_BUDGET_VERSION;
3934:
3935:
3936:
4146: x_fin_plan_version_id => l_etc_fp_ver_id,
4147: x_return_status => l_return_status,
4148: x_msg_count => l_msg_count,
4149: x_msg_data => l_msg_data);
4150: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4151: RETURN l_dummy;
4152: END IF;
4153: ELSIF l_etc_fp_ver_code = 'CURRENT_WORKING' THEN
4154: /*Get the current working version*/
4160: x_fin_plan_version_id => l_etc_fp_ver_id,
4161: x_return_status => l_return_status,
4162: x_msg_count => l_msg_count,
4163: x_msg_data => l_msg_data);
4164: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4165: RETURN l_dummy;
4166: END IF;
4167: ELSE
4168: RETURN l_dummy;
4223: IF p_pa_debug_mode = 'Y' THEN
4224: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
4225: p_debug_mode => p_pa_debug_mode);
4226: END IF;
4227: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
4228: X_MSG_COUNT := 0;
4229:
4230: l_wp_bdgt_ver_id := p_fp_cols_tgt_rec.x_gen_src_wp_version_id;
4231:
4312: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4313: l_msg_count := FND_MSG_PUB.count_msg;
4314: IF l_msg_count = 1 THEN
4315: PA_INTERFACE_UTILS_PUB.get_messages
4316: ( p_encoded => FND_API.G_TRUE,
4317: p_msg_index => 1,
4318: p_msg_count => l_msg_count,
4319: p_msg_data => l_msg_data,
4320: p_data => l_data,
4325: x_msg_count := l_msg_count;
4326: END IF;
4327:
4328: ROLLBACK;
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330:
4331: IF P_PA_DEBUG_MODE = 'Y' THEN
4332: pa_fp_gen_amount_utils.fp_debug
4333: (p_msg => 'Invalid Arguments Passed',
4337: END IF;
4338: RAISE;
4339: WHEN OTHERS THEN
4340: rollback;
4341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4342: x_msg_count := 1;
4343: x_msg_data := substr(sqlerrm,1,240);
4344: -- dbms_output.put_line('error msg :'||x_msg_data);
4345: FND_MSG_PUB.add_exc_msg
4353: p_module_name => l_module_name,
4354: p_log_level => 5);
4355: PA_DEBUG.RESET_CURR_FUNCTION;
4356: END IF;
4357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4358: END GET_WP_ACTUALS_FOR_RA;
4359:
4360: PROCEDURE call_clnt_extn_and_update_bl(
4361: p_project_id IN pa_projects_all.project_id%TYPE
4545: l_rate_change_indicator VARCHAR2(1) := 'N';
4546: l_etc_method_code VARCHAR2(30);
4547: l_etc_plan_qty NUMBER;
4548: l_act_work_qty NUMBER;
4549: l_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
4550: l_struct_status_flag VARCHAR2(1);
4551: l_proj_per_comp NUMBER;
4552:
4553:
4558: IF p_pa_debug_mode = 'Y' THEN
4559: pa_debug.set_curr_function( p_function => 'call_clnt_extn_and_update_bl',
4560: p_debug_mode => p_pa_debug_mode);
4561: END IF;
4562: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
4563: X_MSG_COUNT := 0;
4564:
4565:
4566:
4594: (p_msg => 'Status after calling pa_fp_gen_amount_utils.get_plan_version_dtls'||x_return_status,
4595: p_module_name => l_module_name,
4596: p_log_level => 5);
4597: END IF;
4598: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4599: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4600: END IF;
4601:
4602: l_etc_start_date := PA_FP_GEN_AMOUNT_UTILS.GET_ETC_START_DATE(p_budget_version_id);
4645: p_module_name => l_module_name,
4646: p_log_level => 5);
4647: END IF;
4648:
4649: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4650: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4651: END IF;
4652:
4653:
4666: (p_budget_version_id => p_budget_version_id,
4667: p_context => 'FINANCIAL',
4668: x_return_status => X_RETURN_STATUS);
4669:
4670: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4671: IF P_PA_debug_mode = 'Y' THEN
4672: pa_fp_gen_amount_utils.fp_debug
4673: (p_msg => 'Status after calling PA_BUDGET_LINES_UTILS.populate_display_qty'||X_RETURN_STATUS,
4674: p_module_name => l_module_name,
4703: 'UPD_NRB_TXN_OVR_RATES: '||x_return_status,
4704: --P_CALLED_MODE => p_called_mode,
4705: P_MODULE_NAME => l_module_name);
4706: END IF;
4707: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4708: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4709: END IF;
4710:
4711:
4720: x_return_status => X_RETURN_STATUS,
4721: x_msg_data => X_MSG_DATA,
4722: x_msg_count => X_MSG_COUNT);
4723:
4724: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4725: IF P_PA_debug_mode = 'Y' THEN
4726: pa_fp_gen_amount_utils.fp_debug
4727: (p_msg => 'Status after calling PA_RES_ASG_CURRENCY_PUB.maintain_data'||X_RETURN_STATUS,
4728: p_module_name => l_module_name,
4741: X_RETURN_STATUS => X_RETURN_STATUS,
4742: X_MSG_COUNT => X_MSG_COUNT,
4743: X_MSG_DATA => X_MSG_DATA);
4744:
4745: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4746: IF P_PA_debug_mode = 'Y' THEN
4747: pa_fp_gen_amount_utils.fp_debug
4748: (p_msg => 'PA_FP_MAINTAIN_ACTUAL_PUB.SYNC_UP_PLANNING_DATES_NONE_TP'||X_RETURN_STATUS,
4749: p_module_name => l_module_name,
5078: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
5079: P_MSG => 'After calling pa_fp_fcst_gen_client_ext.fcst_gen_client_extn: '||x_return_status,
5080: P_MODULE_NAME => l_module_name);
5081: END IF;
5082: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5083: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5084: END IF;
5085:
5086:
5736: 'After calling PA_FP_CALC_PLAN_PKG.calculate '
5737: ||x_return_status,
5738: P_MODULE_NAME => l_module_name);
5739: END IF;
5740: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5741: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5742: END IF;
5743: END IF;
5744:
5776: 'After calling PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC '
5777: ||x_return_status,
5778: P_MODULE_NAME => l_module_name);
5779: END IF;
5780: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5781: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5782: END IF;
5783:
5784: EXCEPTION
5785: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5786: l_msg_count := FND_MSG_PUB.count_msg;
5787: IF l_msg_count = 1 THEN
5788: PA_INTERFACE_UTILS_PUB.GET_MESSAGES
5789: ( p_encoded => FND_API.G_TRUE,
5790: p_msg_index => 1,
5791: p_msg_count => l_msg_count,
5792: p_msg_data => l_msg_data,
5793: p_data => l_data,
5798: x_msg_count := l_msg_count;
5799: END IF;
5800:
5801: ROLLBACK;
5802: x_return_status := FND_API.G_RET_STS_ERROR;
5803: WHEN OTHERS THEN
5804: ROLLBACK;
5805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5806: x_msg_count := 1;
5801: ROLLBACK;
5802: x_return_status := FND_API.G_RET_STS_ERROR;
5803: WHEN OTHERS THEN
5804: ROLLBACK;
5805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5806: x_msg_count := 1;
5807: x_msg_data := substr(sqlerrm,1,240);
5808: FND_MSG_PUB.ADD_EXC_MSG
5809: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
5816: p_module_name => l_module_name,
5817: p_log_level => 5);
5818: PA_DEBUG.RESET_CURR_FUNCTION;
5819: END IF;
5820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5821:
5822: END call_clnt_extn_and_update_bl;
5823:
5824: