[Home] [Help]
93: X_RETURN_STATUS => L_RET_STATUS,
94: X_MSG_COUNT => L_MSG_COUNT,
95: X_MSG_DATA => L_MSG_DATA);
96: IF L_RET_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
97: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
98: END IF;
99: IF p_pa_debug_mode = 'Y' THEN
100: pa_fp_gen_amount_utils.fp_debug
101: (p_msg => 'Status after calling
317: X_RETURN_STATUS => l_RETURN_STATUS,
318: X_MSG_COUNT => l_MSG_COUNT,
319: X_MSG_DATA => l_MSG_DATA);
320: IF l_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
321: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
322: END IF;
323: IF p_pa_debug_mode = 'Y' THEN
324: pa_fp_gen_amount_utils.fp_debug
325: (p_msg => 'Status after calling
409: X_RETURN_STATUS => l_RETURN_STATUS,
410: X_MSG_COUNT => l_MSG_COUNT,
411: X_MSG_DATA => l_MSG_DATA);
412: IF l_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
413: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
414: END IF;
415:
416: IF p_pa_debug_mode = 'Y' THEN
417: pa_fp_gen_amount_utils.fp_debug
526: X_RETURN_STATUS => l_RETURN_STATUS,
527: X_MSG_COUNT => l_MSG_COUNT,
528: X_MSG_DATA => l_MSG_DATA);
529: IF l_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
531: END IF;
532:
533: IF p_pa_debug_mode = 'Y' THEN
534: pa_fp_gen_amount_utils.fp_debug
579: IF p_pa_debug_mode = 'Y' THEN
580: PA_DEBUG.Reset_Curr_Function;
581: END IF;
582: EXCEPTION
583: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
584: -- Bug Fix: 4569365. Removed MRC code.
585: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
586: l_msg_count := FND_MSG_PUB.count_msg;
587: IF l_msg_count = 1 THEN
645: X_RETURN_STATUS => l_RETURN_STATUS,
646: X_MSG_COUNT => l_MSG_COUNT,
647: X_MSG_DATA => l_MSG_DATA);
648: IF l_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
650: END IF;
651: IF p_pa_debug_mode = 'Y' THEN
652: pa_fp_gen_amount_utils.fp_debug
653: (p_msg => 'Status after calling
762:
763: END IF;
764:
765: EXCEPTION
766: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
767: l_msg_count := FND_MSG_PUB.count_msg;
768: IF l_msg_count = 1 THEN
769: PA_INTERFACE_UTILS_PUB.get_messages
770: (p_encoded => FND_API.G_TRUE
860: X_RETURN_STATUS => X_RETURN_STATUS,
861: X_MSG_COUNT => X_MSG_COUNT,
862: X_MSG_DATA => X_MSG_DATA);
863: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
865: END IF;
866: IF p_pa_debug_mode = 'Y' THEN
867: pa_fp_gen_amount_utils.fp_debug
868: (p_msg => 'Status after calling
880: p_msg_name => 'PA_FP_NON_TIME_PHASE_NOT_SUPP',
881: p_token1 => 'PLAN_TYPE',
882: p_value1 => 'Work Plan');
883:
884: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
885: END IF;
886: END IF;
887:
888: -- Get the financial plan details by calling the following
901: X_RETURN_STATUS => X_RETURN_STATUS,
902: X_MSG_COUNT => X_MSG_COUNT,
903: X_MSG_DATA => X_MSG_DATA);
904: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
906: END IF;
907: IF p_pa_debug_mode = 'Y' THEN
908: pa_fp_gen_amount_utils.fp_debug
909: (p_msg => 'Status after calling
921: p_msg_name => 'PA_FP_NON_TIME_PHASE_NOT_SUPP',
922: p_token1 => 'PLAN_TYPE',
923: p_value1 => 'Source Financial Plan');
924:
925: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
926: END IF;
927:
928: END IF;
929:
937: ( p_app_short_name => 'PA',
938: p_msg_name => 'PA_FP_ETC_SRC_NOT_SUPPORTED',
939: p_token1 => 'TASK_NAME',
940: p_value1 => l_gen_etc_source_code.task_name);
941: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
942: END IF;
943: END LOOP;
944:
945: IF P_PA_DEBUG_MODE = 'Y' THEN
946: PA_DEBUG.Reset_Curr_Function;
947: END IF;
948:
949: EXCEPTION
950: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
951: l_msg_count := FND_MSG_PUB.count_msg;
952: IF l_msg_count = 1 THEN
953: PA_INTERFACE_UTILS_PUB.get_messages
954: (p_encoded => FND_API.G_TRUE
1096: X_MSG_DATA => X_MSG_DATA);
1097: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1098: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
1099: p_msg_name => x_msg_data);
1100: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1101: END IF;
1102:
1103: /*Bug fix:3818180 for locking*/
1104: --acquire version lock
1189: X_RETURN_STATUS => X_RETURN_STATUS,
1190: X_MSG_COUNT => X_MSG_COUNT,
1191: X_MSG_DATA => X_MSG_DATA);
1192: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1194: END IF;
1195: IF p_pa_debug_mode = 'Y' THEN
1196: pa_fp_gen_amount_utils.fp_debug
1197: (p_msg => 'Status after calling
1221: IF ( P_VERSION_TYPE <> 'COST' ) THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
1224: p_msg_name => 'PA_FP_COST_PLAN_TYPE_ONLY_SUPP');
1225: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1226: END IF;
1227: IF ( L_FP_COLS_REC.X_GEN_ETC_SRC_CODE <> 'TASK_LEVEL_SEL' ) THEN
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
1227: IF ( L_FP_COLS_REC.X_GEN_ETC_SRC_CODE <> 'TASK_LEVEL_SEL' ) THEN
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
1230: p_msg_name => 'PA_FP_TASK_LEVEL_SEL_ONLY');
1231: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1232: END IF;
1233: -- Check whether destination financial plan is non time phased.
1234: -- if so, throw an error.
1235: -- Only time phased plan is supported for Copy ETC From plan AAI requirement
1239: p_msg_name => 'PA_FP_NON_TIME_PHASE_NOT_SUPP',
1240: p_token1 => 'PLAN_TYPE',
1241: p_value1 => 'Financial Plan');
1242:
1243: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1244: END IF;
1245:
1246: IF p_pa_debug_mode = 'Y' THEN
1247: pa_fp_gen_amount_utils.fp_debug
1299: X_MSG_COUNT => X_MSG_COUNT,
1300: X_MSG_DATA => X_MSG_DATA);
1301: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1302: l_return_status := X_RETURN_STATUS;
1303: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1304: END IF;
1305: IF p_pa_debug_mode = 'Y' THEN
1306: pa_fp_gen_amount_utils.fp_debug
1307: (p_msg => 'Status after calling
1333: X_MSG_COUNT => X_MSG_COUNT,
1334: X_MSG_DATA => X_MSG_DATA);
1335: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1336: l_return_status := X_RETURN_STATUS;
1337: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1338: END IF;
1339: IF p_pa_debug_mode = 'Y' THEN
1340: pa_fp_gen_amount_utils.fp_debug
1341: ( p_msg => 'Status after calling
1385: P_MODULE_NAME => l_module_name,
1386: P_LOG_LEVEL => 5 );
1387: END IF;
1388: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1389: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1390: END IF;
1391: -- END OF IPM: New Entity ER ------------------------------------------
1392:
1393: -- Bug 4136545: Delete actuals budget lines when target timephasing is PA
1466: P_MODULE_NAME => l_module_name,
1467: P_LOG_LEVEL => 5 );
1468: END IF;
1469: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1470: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1471: END IF;
1472: -- END OF IPM: New Entity ER ------------------------------------------
1473:
1474: END IF; --IF (l_res_asg_id_del_tab.count > 0) THEN
1576: X_MSG_COUNT => X_MSG_COUNT,
1577: X_MSG_DATA => X_MSG_DATA );
1578:
1579: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1580: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1581: END IF;
1582: IF p_pa_debug_mode = 'Y' THEN
1583: pa_fp_gen_amount_utils.fp_debug
1584: ( p_msg => 'Status after calling
1614: p_module_name => l_module_name,
1615: p_log_level => 5 );
1616: END IF;
1617: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1619: END IF;
1620:
1621: /* When VALIDATE_SUPPORT_CASES returns a non-null warning message,
1622: * we need to Return control to the page/front-end so that a warning
1671: X_MSG_COUNT => X_MSG_COUNT,
1672: X_MSG_DATA => X_MSG_DATA);
1673: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1674: l_return_status := X_RETURN_STATUS;
1675: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1676: END IF;
1677: IF p_pa_debug_mode = 'Y' THEN
1678: pa_fp_gen_amount_utils.fp_debug
1679: (p_msg => 'Status after calling
1686:
1687: x_return_status := l_return_status;
1688:
1689: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1690: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1691: END IF;
1692:
1693: IF p_pa_debug_mode = 'Y' THEN
1694: PA_DEBUG.Reset_Curr_Function;
1694: PA_DEBUG.Reset_Curr_Function;
1695: END IF;
1696:
1697: EXCEPTION
1698: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1699: -- Bug Fix: 4569365. Removed MRC code.
1700: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
1701: l_msg_count := FND_MSG_PUB.count_msg;
1702: IF l_msg_count = 1 THEN
2034:
2035: x_return_status := l_return_status;
2036:
2037: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2038: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2039: END IF;
2040:
2041: IF p_pa_debug_mode = 'Y' THEN
2042: PA_DEBUG.Reset_Curr_Function;
2042: PA_DEBUG.Reset_Curr_Function;
2043: END IF;
2044:
2045: EXCEPTION
2046: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2047: -- Bug Fix: 4569365. Removed MRC code.
2048: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
2049: l_msg_count := FND_MSG_PUB.count_msg;
2050: IF l_msg_count = 1 THEN
2191: END IF;
2192: RAISE;
2193:
2194:
2195: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2196: -- Bug Fix: 4569365. Removed MRC code.
2197: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
2198: l_msg_count := FND_MSG_PUB.count_msg;
2199: IF l_msg_count = 1 THEN
2326: PA_DEBUG.Reset_Curr_Function;
2327: END IF;
2328: RAISE;
2329:
2330: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2331: l_msg_count := FND_MSG_PUB.count_msg;
2332: IF l_msg_count = 1 THEN
2333: PA_INTERFACE_UTILS_PUB.get_messages
2334: (p_encoded => FND_API.G_TRUE