[Home] [Help]
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
959: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
960: l_msg_count := FND_MSG_PUB.count_msg;
961: IF l_msg_count = 1 THEN
962: PA_INTERFACE_UTILS_PUB.get_messages
963: (p_encoded => FND_API.G_TRUE
964: ,p_msg_index => 1
965: ,p_msg_count => l_msg_count
966: ,p_msg_data => l_msg_data
967: ,p_data => l_data
972: x_msg_count := l_msg_count;
973: END IF;
974: ROLLBACK;
975:
976: x_return_status := FND_API.G_RET_STS_ERROR;
977: IF P_PA_DEBUG_MODE = 'Y' THEN
978: pa_fp_gen_amount_utils.fp_debug
979: (p_msg => 'Invalid Arguments Passed',
980: p_module_name => l_module_name,
983: END IF;
984: RAISE;
985:
986: WHEN OTHERS THEN
987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: x_msg_data := SUBSTR(SQLERRM,1,240);
989: FND_MSG_PUB.add_exc_msg
990: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1'
991: ,p_procedure_name => 'CALL_SUMM_POP_TMPS');
995: p_module_name => l_module_name,
996: p_log_level => 5);
997: PA_DEBUG.Reset_Curr_Function;
998: END IF;
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: END CALL_SUMM_POP_TMPS;
1001:
1002: PROCEDURE GEN_AVERAGE_OF_ACTUALS_WRP
1003: (P_BUDGET_VERSION_ID IN PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
1205: IF p_pa_debug_mode = 'Y' THEN
1206: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS_WRP',
1207: p_debug_mode => p_pa_debug_mode);
1208: END IF;
1209: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1210: X_MSG_COUNT := 0;
1211:
1212: IF p_task_id IS NULL THEN
1213: l_task_id_flag := 'N';
1387: return status is: '||x_return_status,
1388: p_module_name => l_module_name,
1389: p_log_level => 5);
1390: END IF;
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1393: END IF;
1394: END IF;
1395: /* end if for checking currency count <> 0 */
1411: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1412: l_msg_count := FND_MSG_PUB.count_msg;
1413: IF l_msg_count = 1 THEN
1414: PA_INTERFACE_UTILS_PUB.get_messages
1415: ( p_encoded => FND_API.G_TRUE,
1416: p_msg_index => 1,
1417: p_msg_count => l_msg_count,
1418: p_msg_data => l_msg_data,
1419: p_data => l_data,
1424: x_msg_count := l_msg_count;
1425: END IF;
1426:
1427: ROLLBACK;
1428: x_return_status := FND_API.G_RET_STS_ERROR;
1429:
1430: IF P_PA_DEBUG_MODE = 'Y' THEN
1431: pa_fp_gen_amount_utils.fp_debug
1432: (p_msg => 'Invalid Arguments Passed',
1436: END IF;
1437: RAISE;
1438: WHEN OTHERS THEN
1439: rollback;
1440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1441: x_msg_count := 1;
1442: x_msg_data := substr(sqlerrm,1,240);
1443: FND_MSG_PUB.add_exc_msg
1444: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
1451: p_module_name => l_module_name,
1452: p_log_level => 5);
1453: PA_DEBUG.RESET_CURR_FUNCTION;
1454: END IF;
1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1456: END GEN_AVERAGE_OF_ACTUALS_WRP;
1457:
1458: /**Valid values for param:P_ETC_SOURCE_CODE
1459: * --ETC_WP
1528: IF p_pa_debug_mode = 'Y' THEN
1529: pa_debug.set_curr_function( p_function => 'GEN_ETC_REMAIN_BDGT_AMTS',
1530: p_debug_mode => p_pa_debug_mode);
1531: END IF;
1532: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1533: X_MSG_COUNT := 0;
1534:
1535: /*currency_flag is defaulted to PC: project currency,
1536: etc_currency_code is defaulted to project currency code.
1733: 'get_actuals_for_task in remain_bdgt'||x_return_status,
1734: p_module_name => l_module_name,
1735: p_log_level => 5);
1736: END IF;
1737: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1738: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1739: END IF;
1740: l_act_qty := NVL(l_act_labor_effort,0) + NVL(l_act_eqpmt_effort,0)
1741: + NVL(l_oth_quantity,0);
1837: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1838: l_msg_count := FND_MSG_PUB.count_msg;
1839: IF l_msg_count = 1 THEN
1840: PA_INTERFACE_UTILS_PUB.get_messages
1841: ( p_encoded => FND_API.G_TRUE,
1842: p_msg_index => 1,
1843: p_msg_count => l_msg_count,
1844: p_msg_data => l_msg_data,
1845: p_data => l_data,
1850: x_msg_count := l_msg_count;
1851: END IF;
1852:
1853: ROLLBACK;
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855:
1856: IF P_PA_DEBUG_MODE = 'Y' THEN
1857: pa_fp_gen_amount_utils.fp_debug
1858: (p_msg => 'Invalid Arguments Passed',
1862: END IF;
1863: RAISE;
1864: WHEN OTHERS THEN
1865: rollback;
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: x_msg_count := 1;
1868: x_msg_data := substr(sqlerrm,1,240);
1869: --dbms_output.put_line('error msg :'||x_msg_data);
1870: FND_MSG_PUB.add_exc_msg
1878: p_module_name => l_module_name,
1879: p_log_level => 5);
1880: PA_DEBUG.RESET_CURR_FUNCTION;
1881: END IF;
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: END GET_ETC_REMAIN_BDGT_AMTS;
1884:
1885:
1886: PROCEDURE GET_ETC_BDGT_COMPLETE_AMTS
1933: IF p_pa_debug_mode = 'Y' THEN
1934: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
1935: p_debug_mode => p_pa_debug_mode);
1936: END IF;
1937: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1938: X_MSG_COUNT := 0;
1939:
1940: l_structure_type := null;
1941: l_structure_status := null;
1998: END IF;
1999: --dbms_output.put_line('BDGT_COMPLETE: p_proj_element_id:'||p_task_id);
2000: --dbms_output.put_line('l_percent_complete:'||lx_percent_complete);
2001:
2002: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2003: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2004: END IF;
2005: l_percent_complete := NVL(lx_percent_complete,0)/100;
2006:
2107: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2108: l_msg_count := FND_MSG_PUB.count_msg;
2109: IF l_msg_count = 1 THEN
2110: PA_INTERFACE_UTILS_PUB.get_messages
2111: ( p_encoded => FND_API.G_TRUE,
2112: p_msg_index => 1,
2113: p_msg_count => l_msg_count,
2114: p_msg_data => l_msg_data,
2115: p_data => l_data,
2120: x_msg_count := l_msg_count;
2121: END IF;
2122:
2123: ROLLBACK;
2124: x_return_status := FND_API.G_RET_STS_ERROR;
2125:
2126: IF P_PA_DEBUG_MODE = 'Y' THEN
2127: pa_fp_gen_amount_utils.fp_debug
2128: (p_msg => 'Invalid Arguments Passed',
2132: END IF;
2133: RAISE;
2134: WHEN OTHERS THEN
2135: rollback;
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: x_msg_count := 1;
2138: x_msg_data := substr(sqlerrm,1,240);
2139: -- dbms_output.put_line('error msg :'||x_msg_data);
2140: FND_MSG_PUB.add_exc_msg
2148: p_module_name => l_module_name,
2149: p_log_level => 5);
2150: PA_DEBUG.RESET_CURR_FUNCTION;
2151: END IF;
2152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2153: END GET_ETC_BDGT_COMPLETE_AMTS;
2154:
2155: PROCEDURE GET_ETC_EARNED_VALUE_AMTS
2156: (P_ETC_SOURCE_CODE IN VARCHAR2,
2234: IF p_pa_debug_mode = 'Y' THEN
2235: pa_debug.set_curr_function( p_function => 'GEN_ETC_EARNED_VALUE_AMTS',
2236: p_debug_mode => p_pa_debug_mode);
2237: END IF;
2238: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2239: X_MSG_COUNT := 0;
2240:
2241: l_structure_type := null;
2242: l_structure_status := null;
2287: return status is:'||x_return_status,
2288: p_module_name => l_module_name,
2289: p_log_level => 5);
2290: END IF;
2291: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2292: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2293: END IF;
2294:
2295: l_percent_complete := NVL(lx_percent_complete,0)/100;
2420: 'get_actuals_for_task in earned_value'||x_return_status,
2421: p_module_name => l_module_name,
2422: p_log_level => 5);
2423: END IF;
2424: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2425: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2426: END IF;
2427: IF NVL(l_act_labor_effort,0) + NVL(l_act_eqpmt_effort,0)
2428: + NVL(l_oth_quantity,0) = 0 THEN
2577: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2578: l_msg_count := FND_MSG_PUB.count_msg;
2579: IF l_msg_count = 1 THEN
2580: PA_INTERFACE_UTILS_PUB.get_messages
2581: ( p_encoded => FND_API.G_TRUE,
2582: p_msg_index => 1,
2583: p_msg_count => l_msg_count,
2584: p_msg_data => l_msg_data,
2585: p_data => l_data,
2590: x_msg_count := l_msg_count;
2591: END IF;
2592:
2593: ROLLBACK;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595:
2596: IF P_PA_DEBUG_MODE = 'Y' THEN
2597: pa_fp_gen_amount_utils.fp_debug
2598: (p_msg => 'Invalid Arguments Passed',
2602: END IF;
2603: RAISE;
2604: WHEN OTHERS THEN
2605: rollback;
2606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2607: x_msg_count := 1;
2608: x_msg_data := substr(sqlerrm,1,240);
2609: -- dbms_output.put_line('error msg :'||x_msg_data);
2610: FND_MSG_PUB.add_exc_msg
2618: p_module_name => l_module_name,
2619: p_log_level => 5);
2620: PA_DEBUG.RESET_CURR_FUNCTION;
2621: END IF;
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623: END GET_ETC_EARNED_VALUE_AMTS;
2624:
2625: PROCEDURE GET_ETC_WORK_QTY_AMTS
2626: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
2724: l_msg_index_out NUMBER:=0;
2725: l_sysdate DATE;
2726: l_transaction_source_code PA_FP_CALC_AMT_TMP2.transaction_source_code%TYPE;
2727: BEGIN
2728: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2729: X_MSG_COUNT := 0;
2730: l_sysdate := trunc(sysdate);
2731: IF p_pa_debug_mode = 'Y' THEN
2732: pa_debug.set_curr_function( p_function => 'GEN_ETC_WORK_QTY_AMTS',
2782: 'get_actuals_for_task when SHARE_FULL'||x_return_status,
2783: p_module_name => l_module_name,
2784: p_log_level => 5);
2785: END IF;
2786: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2787: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2788: END IF;
2789:
2790: IF NVL(l_act_work_qty,0) <> 0 THEN
2853: 'get_actuals_for_task when MAPPING'||x_return_status,
2854: p_module_name => l_module_name,
2855: p_log_level => 5);
2856: END IF;
2857: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2858: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2859: END IF;
2860: IF NVL(l_act_work_qty_ind,0) <> 0 THEN
2861: -- ER 5726773: Sum work qty for WP tasks mapping to target task
2928: 'get_actuals_for_task when NO_MAPPING'||x_return_status,
2929: p_module_name => l_module_name,
2930: p_log_level => 5);
2931: END IF;
2932: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2933: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2934: END IF;
2935: IF NVL(l_act_work_qty_ind,0) <> 0 THEN
2936: -- ER 5726773: Sum work qty for WP tasks mapping to target task
3044: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3045: l_msg_count := FND_MSG_PUB.count_msg;
3046: IF l_msg_count = 1 THEN
3047: PA_INTERFACE_UTILS_PUB.get_messages
3048: ( p_encoded => FND_API.G_TRUE,
3049: p_msg_index => 1,
3050: p_msg_count => l_msg_count,
3051: p_msg_data => l_msg_data,
3052: p_data => l_data,
3057: x_msg_count := l_msg_count;
3058: END IF;
3059:
3060: ROLLBACK;
3061: x_return_status := FND_API.G_RET_STS_ERROR;
3062:
3063: IF P_PA_DEBUG_MODE = 'Y' THEN
3064: pa_fp_gen_amount_utils.fp_debug
3065: (p_msg => 'Invalid Arguments Passed',
3069: END IF;
3070: RAISE;
3071: WHEN OTHERS THEN
3072: rollback;
3073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3074: x_msg_count := 1;
3075: x_msg_data := substr(sqlerrm,1,240);
3076: -- dbms_output.put_line('error msg :'||x_msg_data);
3077: FND_MSG_PUB.add_exc_msg
3085: p_module_name => l_module_name,
3086: p_log_level => 5);
3087: PA_DEBUG.RESET_CURR_FUNCTION;
3088: END IF;
3089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3090: END GET_ETC_WORK_QTY_AMTS;
3091:
3092: PROCEDURE NONE_ETC_SRC
3093: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
3108: l_data VARCHAR2(2000);
3109: l_msg_index_out NUMBER:=0;
3110: l_sysdate date;
3111: BEGIN
3112: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
3113: X_MSG_COUNT := 0;
3114: IF p_pa_debug_mode = 'Y' THEN
3115: pa_debug.set_curr_function( p_function => 'NONE_ETC_SRC',
3116: p_debug_mode => p_pa_debug_mode);
3172: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3173: l_msg_count := FND_MSG_PUB.count_msg;
3174: IF l_msg_count = 1 THEN
3175: PA_INTERFACE_UTILS_PUB.get_messages
3176: ( p_encoded => FND_API.G_TRUE,
3177: p_msg_index => 1,
3178: p_msg_count => l_msg_count,
3179: p_msg_data => l_msg_data,
3180: p_data => l_data,
3185: x_msg_count := l_msg_count;
3186: END IF;
3187:
3188: ROLLBACK;
3189: x_return_status := FND_API.G_RET_STS_ERROR;
3190:
3191: IF P_PA_DEBUG_MODE = 'Y' THEN
3192: pa_fp_gen_amount_utils.fp_debug
3193: (p_msg => 'Invalid Arguments Passed',
3197: END IF;
3198: RAISE;
3199: WHEN OTHERS THEN
3200: rollback;
3201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3202: x_msg_count := 1;
3203: x_msg_data := substr(sqlerrm,1,240);
3204: FND_MSG_PUB.add_exc_msg
3205: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
3212: p_module_name => l_module_name,
3213: p_log_level => 5);
3214: PA_DEBUG.RESET_CURR_FUNCTION;
3215: END IF;
3216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3217: END NONE_ETC_SRC;
3218:
3219: PROCEDURE MAINTAIN_BUDGET_VERSION
3220: (P_PROJECT_ID IN PA_PROJECTS_ALL.PROJECT_ID%TYPE,
3243: -- p_calling_module parameter of the MAINTAIN_DATA API.
3244: l_calling_module VARCHAR2(30);
3245:
3246: BEGIN
3247: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
3248: X_MSG_COUNT := 0;
3249: IF p_pa_debug_mode = 'Y' THEN
3250: pa_debug.set_curr_function( p_function => 'MAINTAIN_BUDGET_VERSION',
3251: p_debug_mode => p_pa_debug_mode);
3273: ||x_return_status,
3274: p_module_name => l_module_name,
3275: p_log_level => 5);
3276: END IF;
3277: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3278: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3279: END IF;
3280:
3281: -- ER 5726773: Delete any budget lines that have 0 plan quantity.
3319: 'SYNC_UP_PLANNING_DATES_NONE_TP:'||x_return_status,
3320: p_module_name => l_module_name,
3321: p_log_level => 5);
3322: END IF;
3323: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3324: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3325: END IF;
3326: END IF;
3327:
3344: PA_FP_GEN_PUB.MAINTAIN_FIXED_DATE_SP:'||x_return_status,
3345: p_module_name => l_module_name,
3346: p_log_level => 5);
3347: END IF;
3348: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3349: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3350: END IF;
3351:
3352: IF P_PA_DEBUG_MODE = 'Y' THEN
3369: p_module_name => l_module_name,
3370: p_log_level => 5);
3371: END IF;
3372: --dbms_output.put_line('After calling convert_txn_currency api: '||x_return_status);
3373: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3374: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3375: END IF;
3376:
3377: IF P_PA_DEBUG_MODE = 'Y' THEN
3392: ret status: '||x_return_status,
3393: p_module_name => l_module_name,
3394: p_log_level => 5);
3395: END IF;
3396: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3397: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3398: END IF;
3399:
3400: SELECT wp_version_flag
3417: P_STRUCTURE_VERSION_ID => l_fp_cols_rec.x_project_structure_version_id,
3418: X_RETURN_STATUS => X_RETURN_STATUS,
3419: X_MSG_COUNT => X_MSG_COUNT,
3420: X_MSG_DATA => X_MSG_DATA);
3421: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3422: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3423: END IF;
3424: IF p_pa_debug_mode = 'Y' THEN
3425: pa_fp_gen_amount_utils.fp_debug
3449: P_FP_COLS_REC => l_fp_cols_rec,
3450: X_RETURN_STATUS => X_RETURN_STATUS,
3451: X_MSG_COUNT => X_MSG_COUNT,
3452: X_MSG_DATA => X_MSG_DATA);
3453: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3454: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3455: END IF;
3456: IF p_pa_debug_mode = 'Y' THEN
3457: pa_fp_gen_amount_utils.fp_debug
3485: ret status: '||x_return_status,
3486: p_module_name => l_module_name,
3487: p_log_level => 5);
3488: END IF;
3489: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3490: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3491: END IF;
3492: END IF;
3493:
3518: ret status: '||x_return_status,
3519: p_module_name => l_module_name,
3520: p_log_level => 5);
3521: END IF;
3522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3523: RAISE g_mrc_exception;
3524: END IF;
3525:
3526: PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3546: ret status: '||x_return_status,
3547: p_module_name => l_module_name,
3548: p_log_level => 5);
3549: END IF;
3550: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3551: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3552: END IF;
3553:
3554: IF l_fp_cols_rec.X_RBS_VERSION_ID IS NOT NULL THEN
3565: P_FP_COLS_REC => l_fp_cols_rec,
3566: X_RETURN_STATUS => X_RETURN_STATUS,
3567: X_MSG_COUNT => X_MSG_COUNT,
3568: X_MSG_DATA => X_MSG_DATA);
3569: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3570: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3571: END IF;
3572:
3573: IF P_PA_DEBUG_MODE = 'Y' THEN
3594: ret status: '||x_return_status,
3595: p_module_name => l_module_name,
3596: p_log_level => 5);
3597: END IF;
3598: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
3599: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3600: END IF;
3601:
3602: IF P_PA_DEBUG_MODE = 'Y' THEN
3703: 'POPULATE_DISPLAY_QTY: '||x_return_status,
3704: --P_CALLED_MODE => p_called_mode,
3705: P_MODULE_NAME => l_module_name);
3706: END IF;
3707: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3708: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3709: END IF;
3710:
3711: -- Call MAINTAIN_DATA to roll up amounts to pa_resource_asgn_curr
3757: 'MAINTAIN_DATA: '||x_return_status,
3758: --P_CALLED_MODE => p_called_mode,
3759: P_MODULE_NAME => l_module_name);
3760: END IF;
3761: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3762: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3763: END IF;
3764:
3765: -- VERSION LEVEL Processing: ----------------------------------
3792: 'POPULATE_DISPLAY_QTY: '||x_return_status,
3793: --P_CALLED_MODE => p_called_mode,
3794: P_MODULE_NAME => l_module_name);
3795: END IF;
3796: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3797: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3798: END IF;
3799:
3800: -- Call MAINTAIN_DATA to roll up amounts to pa_resource_asgn_curr.
3827: 'MAINTAIN_DATA: '||x_return_status,
3828: --P_CALLED_MODE => p_called_mode,
3829: P_MODULE_NAME => l_module_name);
3830: END IF;
3831: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3832: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3833: END IF;
3834: END IF;
3835:
3863: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3864: l_msg_count := FND_MSG_PUB.count_msg;
3865: IF l_msg_count = 1 THEN
3866: PA_INTERFACE_UTILS_PUB.get_messages
3867: ( p_encoded => FND_API.G_TRUE,
3868: p_msg_index => 1,
3869: p_msg_count => l_msg_count,
3870: p_msg_data => l_msg_data,
3871: p_data => l_data,
3876: x_msg_count := l_msg_count;
3877: END IF;
3878:
3879: ROLLBACK;
3880: x_return_status := FND_API.G_RET_STS_ERROR;
3881:
3882: IF P_PA_DEBUG_MODE = 'Y' THEN
3883: pa_fp_gen_amount_utils.fp_debug
3884: (p_msg => 'Invalid Arguments Passed',
3888: END IF;
3889: RAISE;
3890: WHEN OTHERS THEN
3891: rollback;
3892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3893: x_msg_count := 1;
3894: x_msg_data := substr(sqlerrm,1,240);
3895: -- dbms_output.put_line('error msg :'||x_msg_data);
3896: FND_MSG_PUB.add_exc_msg
3904: p_module_name => l_module_name,
3905: p_log_level => 5);
3906: PA_DEBUG.RESET_CURR_FUNCTION;
3907: END IF;
3908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3909: END MAINTAIN_BUDGET_VERSION;
3910:
3911:
3912:
4122: x_fin_plan_version_id => l_etc_fp_ver_id,
4123: x_return_status => l_return_status,
4124: x_msg_count => l_msg_count,
4125: x_msg_data => l_msg_data);
4126: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4127: RETURN l_dummy;
4128: END IF;
4129: ELSIF l_etc_fp_ver_code = 'CURRENT_WORKING' THEN
4130: /*Get the current working version*/
4136: x_fin_plan_version_id => l_etc_fp_ver_id,
4137: x_return_status => l_return_status,
4138: x_msg_count => l_msg_count,
4139: x_msg_data => l_msg_data);
4140: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4141: RETURN l_dummy;
4142: END IF;
4143: ELSE
4144: RETURN l_dummy;
4199: IF p_pa_debug_mode = 'Y' THEN
4200: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
4201: p_debug_mode => p_pa_debug_mode);
4202: END IF;
4203: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
4204: X_MSG_COUNT := 0;
4205:
4206: l_wp_bdgt_ver_id := p_fp_cols_tgt_rec.x_gen_src_wp_version_id;
4207:
4288: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4289: l_msg_count := FND_MSG_PUB.count_msg;
4290: IF l_msg_count = 1 THEN
4291: PA_INTERFACE_UTILS_PUB.get_messages
4292: ( p_encoded => FND_API.G_TRUE,
4293: p_msg_index => 1,
4294: p_msg_count => l_msg_count,
4295: p_msg_data => l_msg_data,
4296: p_data => l_data,
4301: x_msg_count := l_msg_count;
4302: END IF;
4303:
4304: ROLLBACK;
4305: x_return_status := FND_API.G_RET_STS_ERROR;
4306:
4307: IF P_PA_DEBUG_MODE = 'Y' THEN
4308: pa_fp_gen_amount_utils.fp_debug
4309: (p_msg => 'Invalid Arguments Passed',
4313: END IF;
4314: RAISE;
4315: WHEN OTHERS THEN
4316: rollback;
4317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4318: x_msg_count := 1;
4319: x_msg_data := substr(sqlerrm,1,240);
4320: -- dbms_output.put_line('error msg :'||x_msg_data);
4321: FND_MSG_PUB.add_exc_msg
4329: p_module_name => l_module_name,
4330: p_log_level => 5);
4331: PA_DEBUG.RESET_CURR_FUNCTION;
4332: END IF;
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334: END GET_WP_ACTUALS_FOR_RA;
4335:
4336: PROCEDURE call_clnt_extn_and_update_bl(
4337: p_project_id IN pa_projects_all.project_id%TYPE
4521: l_rate_change_indicator VARCHAR2(1) := 'N';
4522: l_etc_method_code VARCHAR2(30);
4523: l_etc_plan_qty NUMBER;
4524: l_act_work_qty NUMBER;
4525: l_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
4526: l_struct_status_flag VARCHAR2(1);
4527: l_proj_per_comp NUMBER;
4528:
4529:
4534: IF p_pa_debug_mode = 'Y' THEN
4535: pa_debug.set_curr_function( p_function => 'call_clnt_extn_and_update_bl',
4536: p_debug_mode => p_pa_debug_mode);
4537: END IF;
4538: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
4539: X_MSG_COUNT := 0;
4540:
4541:
4542:
4570: (p_msg => 'Status after calling pa_fp_gen_amount_utils.get_plan_version_dtls'||x_return_status,
4571: p_module_name => l_module_name,
4572: p_log_level => 5);
4573: END IF;
4574: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4575: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4576: END IF;
4577:
4578: l_etc_start_date := PA_FP_GEN_AMOUNT_UTILS.GET_ETC_START_DATE(p_budget_version_id);
4621: p_module_name => l_module_name,
4622: p_log_level => 5);
4623: END IF;
4624:
4625: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4626: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4627: END IF;
4628:
4629:
4642: (p_budget_version_id => p_budget_version_id,
4643: p_context => 'FINANCIAL',
4644: x_return_status => X_RETURN_STATUS);
4645:
4646: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4647: IF P_PA_debug_mode = 'Y' THEN
4648: pa_fp_gen_amount_utils.fp_debug
4649: (p_msg => 'Status after calling PA_BUDGET_LINES_UTILS.populate_display_qty'||X_RETURN_STATUS,
4650: p_module_name => l_module_name,
4679: 'UPD_NRB_TXN_OVR_RATES: '||x_return_status,
4680: --P_CALLED_MODE => p_called_mode,
4681: P_MODULE_NAME => l_module_name);
4682: END IF;
4683: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4685: END IF;
4686:
4687:
4696: x_return_status => X_RETURN_STATUS,
4697: x_msg_data => X_MSG_DATA,
4698: x_msg_count => X_MSG_COUNT);
4699:
4700: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4701: IF P_PA_debug_mode = 'Y' THEN
4702: pa_fp_gen_amount_utils.fp_debug
4703: (p_msg => 'Status after calling PA_RES_ASG_CURRENCY_PUB.maintain_data'||X_RETURN_STATUS,
4704: p_module_name => l_module_name,
4717: X_RETURN_STATUS => X_RETURN_STATUS,
4718: X_MSG_COUNT => X_MSG_COUNT,
4719: X_MSG_DATA => X_MSG_DATA);
4720:
4721: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
4722: IF P_PA_debug_mode = 'Y' THEN
4723: pa_fp_gen_amount_utils.fp_debug
4724: (p_msg => 'PA_FP_MAINTAIN_ACTUAL_PUB.SYNC_UP_PLANNING_DATES_NONE_TP'||X_RETURN_STATUS,
4725: p_module_name => l_module_name,
5053: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
5054: P_MSG => 'After calling pa_fp_fcst_gen_client_ext.fcst_gen_client_extn: '||x_return_status,
5055: P_MODULE_NAME => l_module_name);
5056: END IF;
5057: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5058: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5059: END IF;
5060:
5061:
5632: 'After calling PA_FP_CALC_PLAN_PKG.calculate '
5633: ||x_return_status,
5634: P_MODULE_NAME => l_module_name);
5635: END IF;
5636: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5637: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5638: END IF;
5639: END IF;
5640:
5672: 'After calling PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC '
5673: ||x_return_status,
5674: P_MODULE_NAME => l_module_name);
5675: END IF;
5676: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
5677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5678: END IF;
5679:
5680: EXCEPTION
5681: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5682: l_msg_count := FND_MSG_PUB.count_msg;
5683: IF l_msg_count = 1 THEN
5684: PA_INTERFACE_UTILS_PUB.GET_MESSAGES
5685: ( p_encoded => FND_API.G_TRUE,
5686: p_msg_index => 1,
5687: p_msg_count => l_msg_count,
5688: p_msg_data => l_msg_data,
5689: p_data => l_data,
5694: x_msg_count := l_msg_count;
5695: END IF;
5696:
5697: ROLLBACK;
5698: x_return_status := FND_API.G_RET_STS_ERROR;
5699: WHEN OTHERS THEN
5700: ROLLBACK;
5701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5702: x_msg_count := 1;
5697: ROLLBACK;
5698: x_return_status := FND_API.G_RET_STS_ERROR;
5699: WHEN OTHERS THEN
5700: ROLLBACK;
5701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5702: x_msg_count := 1;
5703: x_msg_data := substr(sqlerrm,1,240);
5704: FND_MSG_PUB.ADD_EXC_MSG
5705: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB1',
5712: p_module_name => l_module_name,
5713: p_log_level => 5);
5714: PA_DEBUG.RESET_CURR_FUNCTION;
5715: END IF;
5716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5717:
5718: END call_clnt_extn_and_update_bl;
5719:
5720: