[Home] [Help]
100: /* cannot submit it for baselining */
101: /*** BUG FIX 2779674: check for regeneration in progress OR period profile refresh
102: *** in progress
103: */
104: -- if l_plan_processing_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G then
105: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_P then
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
101: /*** BUG FIX 2779674: check for regeneration in progress OR period profile refresh
102: *** in progress
103: */
104: -- if l_plan_processing_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G then
105: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_P then
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
110: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_PPP then
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
113: p_msg_name => 'PA_FP_SUBMIT_PP_REFRESHING');
114: end if;
965:
966: --------------------------------------------------------------------
967: -- Checking for ellgible values of p_context ('WORKPLAN' or 'BUDGET')
968: --------------------------------------------------------------------
969: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
970: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
971: IF l_debug_mode = 'Y' THEN
972: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
973: pa_debug.write('PA_FIN_PLAN_PUB.Delete_Version: ' || l_module_name,pa_debug.g_err_stage,5);
966: --------------------------------------------------------------------
967: -- Checking for ellgible values of p_context ('WORKPLAN' or 'BUDGET')
968: --------------------------------------------------------------------
969: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
970: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
971: IF l_debug_mode = 'Y' THEN
972: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
973: pa_debug.write('PA_FIN_PLAN_PUB.Delete_Version: ' || l_module_name,pa_debug.g_err_stage,5);
974: END IF;
973: pa_debug.write('PA_FIN_PLAN_PUB.Delete_Version: ' || l_module_name,pa_debug.g_err_stage,5);
974: END IF;
975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
978: END IF;
979:
980: /* CHECK FOR BUSINESS RULES VIOLATIONS */
981: /* check for null budget_version_id */
978: END IF;
979:
980: /* CHECK FOR BUSINESS RULES VIOLATIONS */
981: /* check for null budget_version_id */
982: if p_budget_version_id is NULL AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
985: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
986: end if;
984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
985: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
986: end if;
987:
988: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
989: p_budget_version_id IS NULL AND
990: p_project_id IS NULL THEN
991:
992: IF l_debug_mode = 'Y' THEN
1004: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1005: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1006: p_token1 => 'PROCEDURENAME',
1007: p_value1 => l_module_name);
1008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1009: END IF;
1010:
1011:
1012:
1013: ----------------------------------------------------------------------
1014: -- CHECK FOR BUSINESS RULES VIOLATIONS
1015: -- only for BUDGET Context -- BUSINESS RULES CHECK FOR BUDGET STARTS
1016: ----------------------------------------------------------------------
1017: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) AND (p_budget_version_id IS NOT NULL)) THEN
1018: /* check to see if the budget version we're updating to be current working has */
1019: /* been updated by someone else already */
1020: PA_FIN_PLAN_UTILS.Check_Record_Version_Number
1021: (p_unique_index => p_budget_version_id,
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version');
1185: END IF;
1186: SAVEPOINT PA_FIN_PLAN_PUB_DELETE;
1187: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1188:
1189: BEGIN
1190: SELECT fin_plan_type_id
1191: INTO l_wp_fin_plan_type_id
1304: ----------------------------------------------------------------------
1305: -- CHECK FOR CURRENT WORKING VERSIONS
1306: -- only for BUDGET Context -- CHECK FOR CURRENT WORKING VERSIONS STARTS
1307: ----------------------------------------------------------------------
1308: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1309:
1310: /* if the deleted version was the current working version, need to find a replacement */
1311: if l_current_working_flag='Y' then
1312: /* find next most recent version */
1385: end if;
1386:
1387: exception
1388:
1389: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1390: l_msg_count := FND_MSG_PUB.count_msg;
1391: IF l_msg_count = 1 THEN
1392: PA_INTERFACE_UTILS_PUB.get_messages
1393: (p_encoded => FND_API.G_TRUE
1422: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1423: end Delete_Version;
1424: /* ------------------------------------------------------------------------- */
1425:
1426: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1427: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1428: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1429: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1430: procedure Delete_Version_Helper
1423: end Delete_Version;
1424: /* ------------------------------------------------------------------------- */
1425:
1426: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1427: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1428: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1429: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1430: procedure Delete_Version_Helper
1431: (p_project_id IN pa_projects_all.project_id%TYPE ,
1424: /* ------------------------------------------------------------------------- */
1425:
1426: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1427: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1428: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1429: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1430: procedure Delete_Version_Helper
1431: (p_project_id IN pa_projects_all.project_id%TYPE ,
1432: p_context IN VARCHAR2 ,
1488: END IF;
1489: x_msg_count := 0;
1490: /* CHECK FOR BUSINESS RULES VIOLATIONS */
1491: /* check for null budget_version_id */
1492: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1493: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
1494: IF l_debug_mode = 'Y' THEN
1495: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1489: x_msg_count := 0;
1490: /* CHECK FOR BUSINESS RULES VIOLATIONS */
1491: /* check for null budget_version_id */
1492: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1493: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
1494: IF l_debug_mode = 'Y' THEN
1495: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1497: END IF;
1498: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1499: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1500: p_token1 => 'PROCEDURENAME',
1501: p_value1 => l_module_name);
1502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1503: END IF;
1504:
1505: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1501: p_value1 => l_module_name);
1502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1503: END IF;
1504:
1505: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1508: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1509: end if;
1507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1508: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1509: end if;
1510:
1511: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1512: p_budget_version_id IS NULL AND
1513: p_project_id IS NULL THEN
1514:
1515: IF l_debug_mode = 'Y' THEN
1527: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1528: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1529: p_token1 => 'PROCEDURENAME',
1530: p_value1 => l_module_name);
1531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1532: END IF;
1533: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
1534: l_msg_count := FND_MSG_PUB.count_msg;
1535: if l_msg_count > 0 then
1555: IF P_PA_DEBUG_MODE = 'Y' THEN
1556: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version Helper');
1557: END IF;
1558: SAVEPOINT PA_FIN_PLAN_PUB_DELETE_H;
1559: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1560:
1561: BEGIN
1562: SELECT fin_plan_type_id
1563: INTO l_wp_fin_plan_type_id
1605: fin_plan_type_id IS NULL);
1606:
1607: END IF;
1608:
1609: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1610:
1611: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1612:
1613: /* PA_FIN_PLAN_ADJ_LINES: delete row (keyed on budget_version_id) */
1618: budget_version_id=l_budget_Version_id_tbl(i);
1619:
1620: END IF;
1621:
1622: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1623:
1624: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1625:
1626: /* PA_FP_ADJ_ELEMENTS: delete row (keyed on budget_version_id) */
1631: budget_version_id=l_budget_Version_id_tbl(i);
1632:
1633: END IF;
1634:
1635: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1636:
1637: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1638:
1639: /* PA_ORG_FORECAST_LINES: delete row (keyed on budget_version_id as of 2/20/2002) */
1644: budget_version_id = l_budget_Version_id_tbl(i);
1645:
1646: END IF;
1647:
1648: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1649: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1650: /* PA_ORG_FORECAST_ELEMENTS: delete row (keyed on budget_version_id) */
1651: delete
1652: from
1718: IF P_PA_debug_mode = 'Y' THEN
1719: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
1720: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1721: END IF;
1722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1723: END IF;
1724:
1725: pa_res_asg_currency_pub.maintain_data
1726: (p_fp_cols_rec => l_fp_cols_rec,
1736: IF P_PA_debug_mode = 'Y' THEN
1737: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
1738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1739: END IF;
1740: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1741: END IF;
1742: end if; --bug 5441949
1743: END LOOP;
1744: --IPM Architechture Enhancement Bug 4865563 - End
1748: =================================================================*/
1749: /*===================================================================
1750: Start of changes for Bug :- 2634900 , Control Item Changes On APIs
1751: ===================================================================*/
1752: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1753: BEGIN
1754: SELECT project_id,
1755: ci_id
1756: INTO l_project_id,
1760: EXCEPTION
1761: WHEN OTHERS THEN
1762: pa_debug.g_err_stage:= 'Error while Fetching the data for '||p_budget_version_id;
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write('Delete_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1765: END IF;
1766: RAISE;
1767: END;
1768:
1964: (p_project_id IN pa_budget_versions.project_id%TYPE,
1965: p_source_version_id IN pa_budget_versions.budget_version_id%TYPE,
1966: p_copy_mode IN VARCHAR2,
1967: p_adj_percentage IN NUMBER DEFAULT 0,
1968: p_calling_module IN VARCHAR2 DEFAULT PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST,
1969: p_pji_rollup_required IN VARCHAR2 DEFAULT 'Y', --Bug 4200168
1970: px_target_version_id IN OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
1971: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1972: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
2107:
2108: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2109: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
2110:
2111: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2112: END IF;
2113:
2114: SAVEPOINT PA_FIN_PLAN_PUB_COPY_VERSION;
2115:
2138: ,pfo.fin_plan_preference_code
2139: ,pfo.project_id
2140: ,pfo.fin_plan_type_id
2141: ,DECODE(pfo.fin_plan_preference_code,
2142: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2143: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2144: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2145: pfo.plan_in_multi_curr_flag,
2146: nvl(pfo.approved_rev_plan_type_flag,'N'),
2139: ,pfo.project_id
2140: ,pfo.fin_plan_type_id
2141: ,DECODE(pfo.fin_plan_preference_code,
2142: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2143: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2144: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2145: pfo.plan_in_multi_curr_flag,
2146: nvl(pfo.approved_rev_plan_type_flag,'N'),
2147: pfo.rbs_version_id,
2140: ,pfo.fin_plan_type_id
2141: ,DECODE(pfo.fin_plan_preference_code,
2142: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2143: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2144: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2145: pfo.plan_in_multi_curr_flag,
2146: nvl(pfo.approved_rev_plan_type_flag,'N'),
2147: pfo.rbs_version_id,
2148: fin.plan_class_code
2167: SELECT pfo.proj_fp_options_id
2168: ,pfo.fin_plan_preference_code
2169: ,pfo.fin_plan_type_id
2170: ,DECODE(pfo.fin_plan_preference_code,
2171: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2172: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2173: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2174: nvl(pfo.approved_rev_plan_type_flag,'N'),
2175: fin.plan_class_code
2168: ,pfo.fin_plan_preference_code
2169: ,pfo.fin_plan_type_id
2170: ,DECODE(pfo.fin_plan_preference_code,
2171: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2172: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2173: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2174: nvl(pfo.approved_rev_plan_type_flag,'N'),
2175: fin.plan_class_code
2176: INTO l_target_proj_fp_options_id
2169: ,pfo.fin_plan_type_id
2170: ,DECODE(pfo.fin_plan_preference_code,
2171: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2172: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2173: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2174: nvl(pfo.approved_rev_plan_type_flag,'N'),
2175: fin.plan_class_code
2176: INTO l_target_proj_fp_options_id
2177: ,l_target_fp_preference_code
2275: ,x_msg_count => l_msg_count
2276: ,x_msg_data => l_msg_data );
2277:
2278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2280: END IF;
2281:
2282: -- End of changes for BUG :- 2634900
2283:
2295:
2296: PA_PROJ_FP_OPTIONS_PUB.create_fp_option (
2297: px_target_proj_fp_option_id => l_target_proj_fp_options_id
2298: ,p_source_proj_fp_option_id => l_source_proj_fp_options_id
2299: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
2300: ,p_target_fp_preference_code => l_target_fp_preference_code
2301: ,p_target_fin_plan_version_id => l_budget_version_id --newly derived ot passed value
2302: ,p_target_project_id => l_project_id --project_id of source version
2303: ,p_target_plan_type_id => l_target_fin_plan_type_id --plan type id of target version
2308: --Calling apis specific to FIN_PLAN
2309:
2310: --Calling api which inserts/updates elements into pa_fp_elements
2311:
2312: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2313:
2314:
2315: --Calling an api to copy transaction currencies selected in source version to target version
2316: --Fetch multi currency flag for the target/new budget.
2348:
2349:
2350: --If the calling module is Financial Planning then its not required to go thru te route of
2351: --create_res_Task_maps as copy_resource_assignments would take care of the mapping logic too
2352: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2353:
2354: IF P_PA_DEBUG_MODE = 'Y' THEN
2355: pa_debug.g_err_stage := 'Calling copy_resource_assignment';
2356: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2367: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2368:
2369: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_resource_assignments returned error';
2370: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2372:
2373: END IF;
2374:
2375: --Delete budget lines of target version if any then insert new rows for target
2404: ,x_msg_count => l_msg_count
2405: ,x_msg_data => l_msg_data );
2406:
2407: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2408: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2409: END IF;
2410:
2411: ELSE
2412:
2424: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2425:
2426: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_budget_lines returned error';
2427: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2429:
2430: END IF;
2431:
2432:
2433: END IF; -- 3156057
2434:
2435: --In Org Forecasting Context, create res task maps should be called to create the mapping between source
2436: --and target resource assignments. After that resource assignments and budget lines should be copied.
2437: ELSIF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2438:
2439: --Calling create_res_task_maps api to generate new resource_assignment_ids
2440: --and store them in pa_fp_ra_map_tmp table
2441:
2459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2460:
2461: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.create_res_task_maps returned error';
2462: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2463: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2464:
2465: END IF;
2466:
2467:
2481: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2482:
2483: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_resource_assignments returned error';
2484: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2485: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2486:
2487: END IF;
2488:
2489:
2503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2504:
2505: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_budget_lines returned error';
2506: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2507: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2508:
2509: END IF;
2510:
2511:
2517: --Bug 4290043. IF the target version can have missing amounts which will be derived during copyu
2518: --then the PC/PFC amounts should be rederived. Note that even if l_derv_rates_missing_amts_flag is Y,
2519: --only the rates will be derived(and not amounts) when l_source_fp_preference_code is same as
2520: --l_target_fp_preference_code and hence the MC api need not be called
2521: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
2522: AND (l_adj_percentage <> 0
2523: OR ( l_derv_rates_missing_amts_flag='Y' AND
2524: l_source_fp_preference_code <> l_target_fp_preference_code)) THEN
2525:
2545: ,x_return_status => l_return_status
2546: ,x_msg_count => l_msg_count
2547: ,x_msg_data => l_msg_data );
2548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2549: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2550: END IF;
2551: END IF; -- 3156057
2552: END IF;
2553:
2559: pa_debug.g_err_stage:='Calling mrc api ........ ';
2560: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2561: END IF;
2562:
2563: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2564:
2565: -- Nvl is handled because we donot want to overwrite calling_module set already ,eg., COPY_PROJECTS
2566:
2567: PA_MRC_FINPLAN.G_CALLING_MODULE := Nvl(PA_MRC_FINPLAN.G_CALLING_MODULE,PA_MRC_FINPLAN.G_COPY_VERSION);
2617: x_msg_data => x_msg_data);
2618:
2619: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2620:
2621: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2622:
2623: END IF;
2624:
2625: ELSE
2698:
2699:
2700: -- Bug 3362316, 08-JAN-2003: Added New IF/END IF fro ORG_FORECAST ----------
2701:
2702: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2703: THEN
2704:
2705:
2706: --copy the period denorm directly from source to target
2723:
2724: -- End, Bug 3362316, 08-JAN-2003: Added New IF/END IF fro ORG_FORECAST --------
2725:
2726:
2727: ELSIF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2728:
2729: /* Please note that in case of org forecast, we are NOT using the current
2730: period profile id for the target version. We copy the period profile id
2731: from the source version. This is a known bug and bug# 2521711 is logged
2764: END IF;
2765:
2766: Call_maintain_plan_matrix(
2767: p_budget_version_id => l_budget_version_id,
2768: p_data_source => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST,
2769: x_return_status => l_return_status,
2770: x_msg_count => l_msg_count,
2771: x_msg_data => l_msg_data ); */
2772: END IF;
2773: END IF; --l_target_profile_id IS NOT NULL
2774: END IF; --l_adj_percentage
2775:
2776: --IPM Arch Enhancement - Start - Bug 4865563
2777: IF p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2778:
2779: PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS
2780: (P_BUDGET_VERSION_ID => p_source_version_id,
2781: X_FP_COLS_REC => l_src_fp_cols_rec,
2787: IF P_PA_debug_mode = 'Y' THEN
2788: pa_debug.g_err_stage:= 'Error in SRC PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2790: END IF;
2791: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2792: END IF;
2793:
2794: PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS
2795: (P_BUDGET_VERSION_ID => l_budget_version_id,
2802: IF P_PA_debug_mode = 'Y' THEN
2803: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2804: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2805: END IF;
2806: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2807: END IF;
2808:
2809: l_src_version_type :=l_src_fp_cols_rec.x_version_type;
2810: l_target_version_type :=l_fp_cols_rec.x_version_type;
2820: IF P_PA_debug_mode = 'Y' THEN
2821: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
2822: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2823: END IF;
2824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2825: END IF;
2826:
2827: IF (l_source_appr_rev_plan_flag = 'N' AND l_source_plan_in_mc_flag = 'Y') and l_target_appr_rev_plan_flag = 'Y' THEN
2828:
2840: IF P_PA_debug_mode = 'Y' THEN
2841: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
2842: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2843: END IF;
2844: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2845: END IF;
2846:
2847: ELSIF (l_adj_percentage = 0 AND l_src_version_type = l_target_version_type) THEN
2848:
2875: IF P_PA_debug_mode = 'Y' THEN
2876: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Copy Overrides';
2877: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2878: END IF;
2879: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2880: END IF;
2881:
2882: -- Does the rollup from budget lines
2883: pa_res_asg_currency_pub.maintain_data
2894: IF P_PA_debug_mode = 'Y' THEN
2895: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Rollup';
2896: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2897: END IF;
2898: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2899: END IF;
2900: END IF;
2901:
2902: END IF; --p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2898: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2899: END IF;
2900: END IF;
2901:
2902: END IF; --p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2903:
2904: IF NOT (l_adj_percentage = 0 AND
2905: ( l_derv_rates_missing_amts_flag='N' OR
2906: l_source_fp_preference_code = l_target_fp_preference_code))THEN
2919: ,x_return_status => l_return_status
2920: ,x_msg_count => l_msg_count
2921: ,x_msg_data => l_msg_data );
2922: /* Bug 5099353 Start */
2923: ELSIF p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then
2924:
2925: open is_eligible_for_rollup(p_project_id,l_source_proj_fp_options_id);
2926: fetch is_eligible_for_rollup into l_is_eligible_for_rollup;
2927: close is_eligible_for_rollup;
2954:
2955: -- Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity --------------------------
2956:
2957:
2958: IF (p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
2959: THEN
2960: IF p_copy_mode = 'B' THEN
2961:
2962: /* We want to handle the reporting lines integration for baseline case
2992: IF l_debug_mode = 'Y' THEN
2993: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
2994: pa_debug.write('Refresh_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
2995: END IF;
2996: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2997: END IF;
2998:
2999:
3000: ELSE -- bug 3731925 rbs version is same so summarization data can be copied
3034: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
3035: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3036: END IF;
3037:
3038: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3039:
3040: END IF;
3041:
3042:
3044: , x_return_status => l_return_status
3045: , x_msg_code => l_error_msg_code);
3046:
3047: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3049: END IF;
3050:
3051: ELSE
3052:
3068: FROM PA_BUDGET_VERSIONS
3069: WHERE budget_version_id = p_source_version_id;
3070: EXCEPTION
3071: WHEN NO_DATA_FOUND THEN
3072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3073: END;
3074:
3075:
3076: BEGIN
3080: FROM PA_BUDGET_VERSIONS
3081: WHERE budget_version_id = l_budget_version_id;
3082: EXCEPTION
3083: WHEN NO_DATA_FOUND THEN
3084: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3085: END;
3086:
3087: IF P_PA_DEBUG_MODE = 'Y' THEN
3088: pa_debug.g_err_stage := 'Calling PJI_FM_XBS_ACCUM_MAINT.FINPLAN_COPY';
3111:
3112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3113: , p_msg_name => l_error_msg_code);
3114:
3115: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3116: END IF;
3117:
3118: END IF;
3119: END IF; -- IF p_pji_rollup_required = 'Y' THEN --for Bug 4200168
3121: END IF; -- p_copy_mode
3122:
3123:
3124: -- End, Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity ----------------------
3125: END IF;-- p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
3126:
3127: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3128: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3129:
3123:
3124: -- End, Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity ----------------------
3125: END IF;-- p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
3126:
3127: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3128: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3129:
3130: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
3131:
3126:
3127: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3128: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3129:
3130: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
3131:
3132: IF P_PA_DEBUG_MODE = 'Y' THEN
3133: pa_debug.g_err_stage := 'Calling create_org_fcst_elements api';
3134: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
3153:
3154: pa_debug.reset_err_stack;
3155:
3156: EXCEPTION
3157: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3158: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3159: -- Bug Fix: 4569365. Removed MRC code.
3160: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3161: l_msg_count := FND_MSG_PUB.count_msg;
3432: p_token2 => 'STAGE',
3433: p_value2 => 'l_orig_budget_version_id IS '||l_orig_budget_version_id
3434: ||' AND p_orig_budget_version_id IS '||p_orig_budget_version_id );
3435:
3436: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3437:
3438: WHEN OTHERS THEN
3439:
3440: IF P_PA_DEBUG_MODE = 'Y' THEN
3464: p_token2 => 'STAGE',
3465: p_value2 => 'l_orig_budget_version_id IS '||l_orig_budget_version_id
3466: ||' AND p_orig_budget_version_id IS '||p_orig_budget_version_id );
3467:
3468: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3469:
3470: ELSIF p_orig_budget_version_id IS NOT NULL THEN
3471:
3472: l_orig_budget_version_id:=p_orig_budget_version_id;
3533: p_value1 => 'PAFPPUBB.Baseline',
3534: p_token2 => 'STAGE',
3535: p_value2 => 'No. of current baselined versions '||l_temp);
3536:
3537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3538:
3539: END IF;
3540:
3541: end if; -- l_fin_plan_type_code = ORG_FORECAST
3543: x_return_status := FND_API.G_RET_STS_SUCCESS;
3544: pa_debug.reset_err_stack;
3545:
3546: exception
3547: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3548: l_msg_count := FND_MSG_PUB.count_msg;
3549: IF l_msg_count = 1 THEN
3550: PA_INTERFACE_UTILS_PUB.get_messages
3551: (p_encoded => FND_API.G_TRUE
3737: if p_resource_list_id is NULL then
3738: IF P_PA_DEBUG_MODE = 'Y' THEN
3739: pa_debug.write_file('Create_Version_OrgFcst: ' || 'p_resource_list_id is null');
3740: END IF;
3741: if l_version_type_code = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then
3742: l_resource_list_id := FND_PROFILE.value('PA_FORECAST_RESOURCE_LIST');
3743: else
3744: l_msg_count := l_msg_count + 1;
3745: if x_msg_count = 1 then
3799: p_msg_name => l_error_msg_code);
3800: raise pa_fin_plan_pub.rollback_on_error;
3801: end if;
3802:
3803: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3804: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3805: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3806: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3807: end if;
3800: raise pa_fin_plan_pub.rollback_on_error;
3801: end if;
3802:
3803: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3804: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3805: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3806: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3807: end if;
3808: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3801: end if;
3802:
3803: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3804: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3805: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3806: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3807: end if;
3808: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3809: * we create one
3802:
3803: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3804: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3805: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3806: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3807: end if;
3808: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3809: * we create one
3810: */
3809: * we create one
3810: */
3811: pa_fp_org_fcst_utils.get_period_profile
3812: (p_project_id => p_project_id,
3813: p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
3814: p_plan_period_type => l_org_fcst_period_type,
3815: p_period_set_name => l_period_set_name,
3816: p_act_period_type => l_act_period_type,
3817: p_start_date => l_fcst_start_date,
3824: IF P_PA_DEBUG_MODE = 'Y' THEN
3825: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_period_profile_id < 0');
3826: END IF;
3827: l_period_profile_id := NULL;
3828: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3829: l_pa_period_type := l_act_period_type;
3830: else
3831: l_pa_period_type := NULL;
3832: end if;
3845: END IF;
3846: */
3847: pa_prj_period_profile_utils.maintain_prj_period_profile
3848: (p_project_id => p_project_id,
3849: p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
3850: p_plan_period_type => l_org_fcst_period_type,
3851: p_period_set_name => l_period_set_name,
3852: p_gl_period_type => l_act_period_type,
3853: p_pa_period_type => l_pa_period_type,
4225: END IF;
4226: /* submit the concurrent request to generate the forecast */
4227: /* will need to FND_REQUEST.set_mode if submit_request is called from database trigger */
4228:
4229: /* SUBMIT THE REQUEST ONLY WHEN version_type = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST */
4230: /* Moac changes:4510784 initialize org id before submitting the request for single org context */
4231: MO_GLOBAL.INIT('PA');
4232: If P_PA_DEBUG_MODE = 'Y' THEN
4233: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.SET_POLICY_CONTEXT for OrgId:'||l_org_id);
4282: update
4283: pa_budget_versions
4284: set
4285: request_id = l_request_id,
4286: plan_processing_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, /* "Generation in process" */
4287: record_version_number = record_version_number + 1
4288: where
4289: budget_version_id = p_budget_version_id;
4290: end if;
5348: ,copy_etc_from_plan_flag --skkoppul bug 8318932 - added for AAI enhancement
5349: FROM pa_proj_fp_options
5350: WHERE project_id = c_project_id
5351: AND fin_plan_type_id = c_fin_plan_type_id
5352: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
5353:
5354: plan_type_info_rec plan_type_info_cur%ROWTYPE;
5355:
5356: CURSOR plan_version_info_cur (
5394: WHERE pfo.project_id = c_project_id
5395: AND pfo.fin_plan_type_id = c_fin_plan_type_id
5396: AND pfo.fin_plan_version_id = c_fin_plan_version_id
5397: AND bv.budget_version_id = c_fin_plan_version_id
5398: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION;
5399:
5400: plan_version_info_rec plan_version_info_cur%ROWTYPE;
5401:
5402: TYPE new_version_rec_type IS RECORD (
5490: IF P_PA_DEBUG_MODE = 'Y' THEN
5491: pa_debug.g_err_stage:='Invalid Arguments Passed';
5492: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5493: END IF;
5494: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5495:
5496: END IF;
5497:
5498: --Bug 3354518. If the calling context is WORKPLAN and if p_struct_elem_version_id IS NULL then
5496: END IF;
5497:
5498: --Bug 3354518. If the calling context is WORKPLAN and if p_struct_elem_version_id IS NULL then
5499: --Throw error
5500: IF (p_calling_context =PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
5501: p_struct_elem_version_id IS NULL) THEN
5502:
5503: IF P_PA_DEBUG_MODE = 'Y' THEN
5504: pa_debug.g_err_stage:='p_struct_elem_version_id in workplan context is'||p_struct_elem_version_id;
5505: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5506: END IF;
5507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5508: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5509: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5510:
5511: END IF;
5512:
5513: --Fetch plan type values
5522: CLOSE plan_type_info_cur;
5523:
5524: --Raise an error if element type isn't passed for cost and rev separate plan type
5525:
5526: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
5527: (p_element_type IS NULL )
5528: THEN
5529:
5530: IF P_PA_DEBUG_MODE = 'Y' THEN
5533: END IF;
5534:
5535: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5536: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5538:
5539: END IF;
5540:
5541: IF (p_element_type IS NULL) THEN
5539: END IF;
5540:
5541: IF (p_element_type IS NULL) THEN
5542:
5543: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5544:
5545: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5546:
5547: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5541: IF (p_element_type IS NULL) THEN
5542:
5543: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5544:
5545: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5546:
5547: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5548:
5549: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5543: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5544:
5545: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5546:
5547: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5548:
5549: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5550:
5551: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5545: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5546:
5547: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5548:
5549: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5550:
5551: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5552:
5553: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5547: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5548:
5549: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5550:
5551: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5552:
5553: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5554:
5555: END IF;
5549: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5550:
5551: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5552:
5553: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5554:
5555: END IF;
5556: ELSE
5557: new_version_info_rec.version_type := p_element_type;
5573: x_return_status => l_return_status,
5574: x_msg_count => l_msg_count,
5575: x_msg_data => l_msg_data );
5576: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5578: END IF;
5579:
5580: OPEN plan_version_info_cur (p_project_id,p_fin_plan_type_id, l_ci_apprv_cw_bv_id);
5581: FETCH plan_version_info_cur INTO plan_version_info_rec;
5594: ,x_msg_count => l_msg_count
5595: ,x_msg_data => l_msg_data );
5596:
5597: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5598: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5599: END IF;
5600:
5601: IF ( l_fin_plan_version_id IS NOT NULL )
5602: THEN
5616: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5617: END IF;
5618:
5619: -- Derive fin_plan_level_code, resource list id plan version based on element type
5620: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5621: THEN
5622: l_cw_fin_plan_level_code := plan_version_info_rec.cost_fin_plan_level_code;
5623: l_cw_ver_res_list_id := plan_version_info_rec.cost_resource_list_id;
5624: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5620: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5621: THEN
5622: l_cw_fin_plan_level_code := plan_version_info_rec.cost_fin_plan_level_code;
5623: l_cw_ver_res_list_id := plan_version_info_rec.cost_resource_list_id;
5624: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5625: THEN
5626: l_cw_fin_plan_level_code := plan_version_info_rec.revenue_fin_plan_level_code;
5627: l_cw_ver_res_list_id := plan_version_info_rec.revenue_resource_list_id;
5628: ELSE
5631: END IF;
5632:
5633: -- Bug 3658080 copy options info from current working version only for ci versions
5634: IF (p_ci_id is not null) AND
5635: (NVL(p_calling_context,'-99') <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
5636: THEN
5637: IF P_PA_DEBUG_MODE = 'Y' THEN
5638: pa_debug.g_err_stage:='Assigning values to new_version_info_rec' ;
5639: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5650: new_version_info_rec.primary_rev_forecast_flag := plan_version_info_rec.primary_rev_forecast_flag;
5651: new_version_info_rec.project_structure_version_id := plan_version_info_rec.project_structure_version_id;
5652: new_version_info_rec.source_fp_options_id := plan_version_info_rec.proj_fp_options_id;
5653:
5654: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5655: THEN
5656:
5657: IF P_PA_DEBUG_MODE = 'Y' THEN
5658: pa_debug.g_err_stage:='Element type is COST'||new_version_info_rec.version_type ;
5666: new_version_info_rec.select_res_auto_flag := plan_version_info_rec.select_cost_res_auto_flag;
5667: new_version_info_rec.CURRENT_PLANNING_PERIOD := plan_version_info_rec.cost_CURRENT_PLANNING_PERIOD;
5668: new_version_info_rec.PERIOD_MASK_ID := plan_version_info_rec.cost_PERIOD_MASK_ID;
5669:
5670: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5671:
5672: IF P_PA_DEBUG_MODE = 'Y' THEN
5673: pa_debug.g_err_stage:='Element type is REVENUE'||new_version_info_rec.version_type ;
5674: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5699:
5700: END IF;
5701:
5702: ELSE
5703: new_version_info_rec.fin_plan_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION ;
5704:
5705: -- bug 3658080 l_copy_res_assmt_from_cwv_flag:='N';
5706:
5707: -- If plan type's preference code is cost and rev sep then use
5707: -- If plan type's preference code is cost and rev sep then use
5708: -- new_version_info_rec.version_type to derive preference code
5709: -- for plan version.
5710:
5711: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5712: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5713: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5714: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5715: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5708: -- new_version_info_rec.version_type to derive preference code
5709: -- for plan version.
5710:
5711: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5712: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5713: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5714: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5715: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5716: END IF;
5709: -- for plan version.
5710:
5711: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5712: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5713: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5714: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5715: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5716: END IF;
5717: ELSE
5710:
5711: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5712: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5713: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5714: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5715: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5716: END IF;
5717: ELSE
5718: --If not then plan version preference code would be same as
5711: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5712: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5713: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5714: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5715: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5716: END IF;
5717: ELSE
5718: --If not then plan version preference code would be same as
5719: --plan type's preference code
5728: new_version_info_rec.primary_rev_forecast_flag := plan_type_info_rec.primary_rev_forecast_flag;
5729: new_version_info_rec.project_structure_version_id := NULL;
5730: new_version_info_rec.source_fp_options_id := plan_type_info_rec.proj_fp_options_id;
5731:
5732: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5733: THEN
5734: new_version_info_rec.fin_plan_level_code := plan_type_info_rec.cost_fin_plan_level_code;
5735: new_version_info_rec.time_phased_code := plan_type_info_rec.cost_time_phased_code;
5736: new_version_info_rec.resource_list_id := plan_type_info_rec.cost_resource_list_id;
5737: new_version_info_rec.amount_set_id := plan_type_info_rec.cost_amount_set_id;
5738: new_version_info_rec.select_res_auto_flag := plan_type_info_rec.select_cost_res_auto_flag;
5739: new_version_info_rec.CURRENT_PLANNING_PERIOD := plan_type_info_rec.cost_CURRENT_PLANNING_PERIOD;
5740: new_version_info_rec.PERIOD_MASK_ID := plan_type_info_rec.cost_PERIOD_MASK_ID;
5741: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5742: new_version_info_rec.fin_plan_level_code := plan_type_info_rec.revenue_fin_plan_level_code;
5743: new_version_info_rec.time_phased_code := plan_type_info_rec.revenue_time_phased_code;
5744: new_version_info_rec.resource_list_id := plan_type_info_rec.revenue_resource_list_id;
5745: new_version_info_rec.amount_set_id := plan_type_info_rec.revenue_amount_set_id;
5758:
5759: END IF;
5760:
5761: /* Bug# 2637789 */
5762: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5763: new_version_info_rec.approved_rev_plan_type_flag := 'N';
5764: new_version_info_rec.primary_rev_forecast_flag := 'N';
5765: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5766: new_version_info_rec.approved_cost_plan_type_flag := 'N';
5761: /* Bug# 2637789 */
5762: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5763: new_version_info_rec.approved_rev_plan_type_flag := 'N';
5764: new_version_info_rec.primary_rev_forecast_flag := 'N';
5765: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5766: new_version_info_rec.approved_cost_plan_type_flag := 'N';
5767: new_version_info_rec.primary_cost_forecast_flag := 'N';
5768: END IF;
5769:
5819: ,x_msg_count => x_msg_count
5820: ,x_error_msg_data => x_msg_data );
5821:
5822: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5823: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5824: END IF;
5825: END IF;
5826: ELSE -- added for bug 4724017
5827: -- this code block would be executed for all the flows other than the AMG flow.
5847: IF P_PA_DEBUG_MODE = 'Y' THEN
5848: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
5849: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5850: END IF;
5851: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5852: END; -- bug 4724017 ends.
5853: END IF;
5854:
5855: IF p_time_phased_code IS NOT NULL
5913: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
5914: (p_project_id => p_project_id
5915: ,p_fin_plan_type_id => p_fin_plan_type_id
5916: ,p_version_type => new_version_info_rec.version_type
5917: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
5918: ,p_ci_id => p_ci_id
5919: ,p_lock_required_flag => 'Y'
5920: ,x_version_number => l_max_version_number
5921: ,x_return_status => x_return_status
5922: ,x_msg_count => x_msg_count
5923: ,x_msg_data => x_msg_data );
5924:
5925: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5926: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5927: END IF;
5928:
5929: --End of changes for Bug :- 2570250
5930:
6056: IF P_PA_DEBUG_MODE = 'Y' THEN
6057: pa_debug.g_err_stage:='Invalid Arguments Passed';
6058: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6059: END IF;
6060: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6061: Exception
6062: When No_Data_Found Then
6063: Null;
6064: End;
6167: -- End, jwhite, 26-JUN-2003: Plannable Task Effort --------------------------------
6168:
6169: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6170:
6171: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6172:
6173: END IF;
6174:
6175: pa_budget_utils.Get_Project_Currency_Info -- Bug # 2634900
6187:
6188: IF P_PA_DEBUG_MODE = 'Y' THEN
6189: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6190: pa_debug.write('Create_Version: ' || l_module_name,
6191: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6192: END IF;
6193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6194: END IF;
6195:
6189: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6190: pa_debug.write('Create_Version: ' || l_module_name,
6191: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6192: END IF;
6193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6194: END IF;
6195:
6196: -- for a control item budget version, the only plannable currency should be
6197: -- agreement currency.
6214: (x_return_status <> FND_API.G_RET_STS_SUCCESS)
6215: THEN
6216: IF P_PA_DEBUG_MODE = 'Y' THEN
6217: pa_debug.g_err_stage:='Agreement_currency_code is null';
6218: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6219: END IF;
6220: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6221: END IF;
6222:
6216: IF P_PA_DEBUG_MODE = 'Y' THEN
6217: pa_debug.g_err_stage:='Agreement_currency_code is null';
6218: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6219: END IF;
6220: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6221: END IF;
6222:
6223: IF (l_agreement_currency_code NOT IN (l_projfunc_currency_code,l_project_currency_code)) THEN
6224: new_version_info_rec.plan_in_multi_curr_flag := 'Y';
6237:
6238: PA_PROJ_FP_OPTIONS_PUB.create_fp_option (
6239: px_target_proj_fp_option_id => l_new_proj_fp_options_id
6240: ,p_source_proj_fp_option_id => new_version_info_rec.source_fp_options_id
6241: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
6242: ,p_target_fp_preference_code => new_version_info_rec.fin_plan_preference_code
6243: ,p_target_fin_plan_version_id => l_new_budget_version_id
6244: ,p_target_project_id => p_project_id
6245: ,p_target_plan_type_id => p_fin_plan_type_id
6247: ,x_msg_count => x_msg_count
6248: ,x_msg_data => x_msg_data );
6249:
6250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6252: END IF;
6253:
6254: --Update the fp option created for plan version with the passed i/p parameters if they are not null
6255:
6252: END IF;
6253:
6254: --Update the fp option created for plan version with the passed i/p parameters if they are not null
6255:
6256: IF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
6257: UPDATE pa_proj_fp_options
6258: SET cost_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6259: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6260: cost_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6267: --gboomina bug 8318932 - AAI enhancement - start
6268: copy_etc_from_plan_flag = plan_type_info_rec.copy_etc_from_plan_flag
6269: --gboomina bug 8318932 - AAI enhancement - end
6270: WHERE proj_fp_options_id = l_new_proj_fp_options_id;
6271: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
6272: UPDATE pa_proj_fp_options
6273: SET revenue_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6274: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6275: revenue_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6279: rev_current_planning_period = new_version_info_rec.current_planning_period,
6280: rev_period_mask_id = new_version_info_rec.period_mask_id,
6281: rbs_version_id = Decode(p_ci_id, null, rbs_version_id, null) -- bug 3867302
6282: WHERE proj_fp_options_id = l_new_proj_fp_options_id;
6283: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
6284: UPDATE pa_proj_fp_options
6285: SET all_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6286: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6287: all_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6311: ,x_msg_count => x_msg_count
6312: ,x_msg_data => x_msg_data );
6313:
6314: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6315: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6316: END IF;
6317:
6318: ELSE
6319:
6331: ,x_msg_count => x_msg_count
6332: ,x_msg_data => x_msg_data );
6333:
6334: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6335: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6336: END IF;
6337:
6338: END IF;
6339:
6361:
6362: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6364: p_msg_name => l_msg_data);
6365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6366: END IF;
6367:
6368: END IF;
6369: END IF;
6411: /* IF nvl(l_multi_currency_billing_flag,'N') = 'N' THEN
6412: -- This will never occur as the required validation is done in the agreement form.
6413: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6414: p_msg_name => 'PAFP_NO_PROJ_CONV_ATTR');
6415: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6416: ELSE
6417: */ /* check for FP compatible rate date type - PC*/
6418: IF l_project_bil_rate_date is not null THEN -- Takes care of FIXED_DATE
6419:
6418: IF l_project_bil_rate_date is not null THEN -- Takes care of FIXED_DATE
6419:
6420: -- Rate Date will be as it is.
6421: -- Rate Date type is FIXED_DATE.
6422: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6423:
6424: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6425: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6426:
6421: -- Rate Date type is FIXED_DATE.
6422: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6423:
6424: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6425: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6426:
6427: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6428:
6429: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6423:
6424: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6425: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6426:
6427: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6428:
6429: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6430:
6431: update pa_fp_txn_currencies
6425: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6426:
6427: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6428:
6429: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6430:
6431: update pa_fp_txn_currencies
6432: set project_rev_exchange_rate = l_project_bil_exchange_rate
6433: where proj_fp_options_id = l_new_proj_fp_options_id
6437:
6438: /* check for FP compatible rate date type - PFC*/
6439: IF l_projfunc_bil_rate_date IS NOT NULL THEN -- Takes care of FIXED_DATE
6440: -- Rate Date will be as it is.
6441: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6442:
6443: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6444: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6445:
6440: -- Rate Date will be as it is.
6441: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6442:
6443: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6444: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6445:
6446: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6447:
6448: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6442:
6443: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6444: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6445:
6446: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6447:
6448: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6449:
6450: update pa_fp_txn_currencies
6444: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6445:
6446: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6447:
6448: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6449:
6450: update pa_fp_txn_currencies
6451: set projfunc_rev_exchange_rate = l_projfunc_bil_exchange_rate
6452: where proj_fp_options_id = l_new_proj_fp_options_id
6492: ,x_msg_count => x_msg_count
6493: ,x_msg_data => x_msg_data );
6494:
6495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6496: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6497: END IF;
6498:
6499: -- Update the budget versions table with the converted estimated amounts in projfunc currency
6500:
6525: -- create resource assignments for the budget version
6526:
6527: /* Did null handing for bug 2663313 */
6528: /* 3831449: do not create records in pa_resource_assignments if p_calling_context is GENERATE */
6529: IF nvl(p_calling_context,'-99') NOT IN (PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT,
6530: -- Bug Fix: 4569365. Removed MRC code.
6531: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6532: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6533: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6529: IF nvl(p_calling_context,'-99') NOT IN (PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT,
6530: -- Bug Fix: 4569365. Removed MRC code.
6531: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6532: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6533: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6534: 'GENERATE', PA_FP_CONSTANTS_PKG.G_AMG_API) --Added this for bug 4224464
6535: THEN
6536:
6537: --Start of changes for Bug :- 2634900
6530: -- Bug Fix: 4569365. Removed MRC code.
6531: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6532: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6533: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6534: 'GENERATE', PA_FP_CONSTANTS_PKG.G_AMG_API) --Added this for bug 4224464
6535: THEN
6536:
6537: --Start of changes for Bug :- 2634900
6538:
6560: , x_msg_data => l_msg_data
6561: );
6562:
6563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6564: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6565: END IF;
6566: END IF; -- bug 4724017 ends
6567: ELSE
6568:
6588: , x_msg_data => l_msg_data
6589: );
6590:
6591: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6592: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6593: END IF;
6594:
6595: -- For normal budget versions when res assignments data is copied
6596: -- from current working version, if rbs of versions is not same as
6621: ,x_msg_data => x_msg_data);
6622:
6623: -- Check return status
6624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6625: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6626: END IF;
6627:
6628: -- Check if out table has any records first
6629: IF nvl(l_txn_source_id_tbl.last,0) >= 1 THEN
6672: ,x_msg_count => x_msg_count
6673: ,x_msg_data => x_msg_data );
6674:
6675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6677: END IF;
6678:
6679: END IF;
6680:
6697: THEN
6698: IF p_pa_debug_mode = 'Y' THEN
6699: pa_debug.write_file('Failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
6700: END IF;
6701: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
6702: END IF;
6703: -- End of changes for Bug :- 2649474
6704:
6705:
6719: pa_debug.reset_curr_function;
6720:
6721: EXCEPTION
6722:
6723: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6724: l_msg_count := FND_MSG_PUB.count_msg;
6725: IF l_msg_count = 1 THEN
6726: PA_INTERFACE_UTILS_PUB.get_messages
6727: (p_encoded => FND_API.G_TRUE
6769: ,x_end_period_end_date OUT NOCOPY DATE) --File.Sql.39 bug 4440895
6770: AS
6771: BEGIN
6772:
6773: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
6774:
6775: BEGIN
6776: SELECT start_date
6777: INTO x_start_period_start_date
6795: INTO x_end_period_end_date
6796: FROM PA_PERIODS;
6797: END;
6798:
6799: ELSIF P_PERIOD_TYPE = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6800:
6801: BEGIN
6802: --Fetch the start date of the period in to which p_profile_start_date falls
6803: SELECT start_date
6871: IF P_PA_DEBUG_MODE = 'Y' THEN
6872: pa_debug.write('Get_Profile_Start_Date: ' || l_module_name,pa_debug.g_err_stage,3);
6873: END IF;
6874: */
6875: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
6876:
6877: BEGIN
6878: --Select start date of period which is 51 periods before end period
6879: SELECT start_date
6895: INTO l_profile_start_date
6896: FROM pa_periods;
6897: END;
6898:
6899: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6900:
6901: BEGIN
6902: --Fetch the start date of the period in to which p_profile_end_date falls
6903: --Select start date of periods which is 51 periods before end period
6984: IF P_PA_DEBUG_MODE = 'Y' THEN
6985: pa_debug.write('Get_Profile_End_Date: ' || l_module_name,pa_debug.g_err_stage,3);
6986: END IF;
6987: */
6988: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6989:
6990: BEGIN
6991: --Fetch the start date of the period in to which p_profile_start_date falls
6992: --Select the 51st period's start date from start period as profile end date
7022: AND a.set_of_books_id = i.set_of_books_id
7023: AND a.adjustment_period_flag = 'N';
7024: END;
7025:
7026: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7027:
7028: BEGIN
7029: --Fetch the start date of the period in to which p_profile_start_date falls
7030: --Select the 51st period's start date from start period as profile end date
7153: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7154: END IF;
7155: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7156: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7157: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7158: END IF;
7159:
7160: pa_debug.g_err_stage := 'Parameter validation complete';
7161: IF P_PA_DEBUG_MODE = 'Y' THEN
7204: ,pa_budget_lines pbl
7205: WHERE pbv.project_id = p_project_id
7206: AND pbl.budget_version_id = pbv.budget_version_id
7207: AND PA_FIN_PLAN_UTILS.GET_TIME_PHASED_CODE(pbv.budget_version_id)
7208: = DECODE(p_period_type,PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7209: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) ;
7210:
7211:
7212: END IF;
7205: WHERE pbv.project_id = p_project_id
7206: AND pbl.budget_version_id = pbv.budget_version_id
7207: AND PA_FIN_PLAN_UTILS.GET_TIME_PHASED_CODE(pbv.budget_version_id)
7208: = DECODE(p_period_type,PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7209: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) ;
7210:
7211:
7212: END IF;
7213:
7234: END IF;
7235:
7236: SELECT b.period_set_name
7237: ,DECODE(p_period_type,
7238: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7239: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7240: ,DECODE(p_period_type,
7241: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7242: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7235:
7236: SELECT b.period_set_name
7237: ,DECODE(p_period_type,
7238: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7239: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7240: ,DECODE(p_period_type,
7241: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7242: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7243: INTO l_period_set_name
7237: ,DECODE(p_period_type,
7238: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7239: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7240: ,DECODE(p_period_type,
7241: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7242: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7243: INTO l_period_set_name
7244: ,l_accounted_period_type
7245: ,l_pa_period_type
7238: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7239: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7240: ,DECODE(p_period_type,
7241: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7242: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7243: INTO l_period_set_name
7244: ,l_accounted_period_type
7245: ,l_pa_period_type
7246: FROM pa_implementations a
7255: IF P_PA_DEBUG_MODE = 'Y' THEN
7256: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,3);
7257: END IF;
7258: */
7259: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7260:
7261: SELECT count(*)
7262: INTO l_number_of_periods
7263: FROM PA_PERIODS
7262: INTO l_number_of_periods
7263: FROM PA_PERIODS
7264: WHERE start_date BETWEEN TRUNC(SYSDATE) AND l_end_date; /*2690087*/
7265:
7266: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
7267:
7268: SELECT count(*)
7269: INTO l_number_of_periods
7270: FROM GL_PERIOD_STATUSES a
7313:
7314: BEGIN
7315: --Fetch the start date of the period in to which sysdate falls
7316:
7317: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
7318:
7319: SELECT start_date
7320: INTO l_profile_start_date
7321: FROM GL_PERIOD_STATUSES g
7324: AND g.application_id = pa_period_process_pkg.application_id
7325: AND g.set_of_books_id = i.set_of_books_id
7326: AND TRUNC(SYSDATE) BETWEEN g.start_date AND g.end_date; /* Bug:- 2690087 */
7327:
7328: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7329:
7330: SELECT start_date
7331: INTO l_profile_start_date
7332: FROM PA_PERIODS
7441: END IF;
7442:
7443: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
7444: p_project_id => p_project_id
7445: ,p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING
7446: ,p_plan_period_type => p_period_type
7447: ,p_period_set_name => l_period_set_name
7448: ,p_gl_period_type => l_accounted_period_type
7449: ,p_pa_period_type => l_pa_period_type
7468: pa_debug.reset_err_stack;
7469:
7470: EXCEPTION
7471:
7472: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7473: l_msg_count := FND_MSG_PUB.count_msg;
7474: IF l_msg_count = 1 THEN
7475: PA_INTERFACE_UTILS_PUB.get_messages
7476: (p_encoded => FND_API.G_TRUE
7598: ,DELETE_FLAG
7599: ,SOURCE_TXN_CURRENCY_CODE
7600: )
7601: VALUES ( p_res_assignment_tbl(i) /* Bug# 2677867-Object id should not be -1 even for FP */
7602: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
7603: ,p_res_assignment_tbl(i)
7604: ,p_period_name_tbl(i)
7605: ,p_start_date_tbl(i)
7606: ,p_end_date_tbl(i)
7902: FROM pa_proj_fp_options
7903: WHERE fin_plan_version_id = p_budget_version_id;
7904:
7905:
7906: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
7907: pa_debug.g_err_stage := 'opening budget_lines_cur';
7908: IF P_PA_DEBUG_MODE = 'Y' THEN
7909: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7910: END IF;
7909: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7910: END IF;
7911:
7912: OPEN budget_lines_cur;
7913: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
7914: pa_debug.g_err_stage := 'opening rollup_tmp_cur';
7915: IF P_PA_DEBUG_MODE = 'Y' THEN
7916: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7917: END IF;
7920: END IF;
7921:
7922: delete from PA_FIN_PLAN_LINES_TMP;
7923: LOOP
7924: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
7925:
7926: pa_debug.g_err_stage := 'fetching from budget_lines_cur';
7927: IF P_PA_DEBUG_MODE = 'Y' THEN
7928: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7973: ,l_parent_assignment_tbl
7974: ,l_delete_flag_tbl
7975: LIMIT l_plsql_max_array_size;
7976:
7977: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
7978:
7979: pa_debug.g_err_stage := 'fetching from rollup_tmp_cur';
7980: IF P_PA_DEBUG_MODE = 'Y' THEN
7981: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8056: p_res_assignment_tbl => l_res_assignment_tbl
8057: ,p_period_name_tbl => l_period_name_tbl
8058: ,p_start_date_tbl => l_start_date_tbl
8059: ,p_end_date_tbl => l_end_date_tbl
8060: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_TRANSACTION
8061: ,p_currency_code_tbl => l_txn_curr_code_tbl
8062: ,p_quantity_tbl => l_quantity_tbl
8063: ,p_raw_cost_tbl => l_txn_raw_cost_tbl
8064: ,p_burdened_cost_tbl => l_txn_burdened_cost_tbl
8089: p_res_assignment_tbl => l_res_assignment_tbl
8090: ,p_period_name_tbl => l_period_name_tbl
8091: ,p_start_date_tbl => l_start_date_tbl
8092: ,p_end_date_tbl => l_end_date_tbl
8093: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT
8094: ,p_currency_code_tbl => l_proj_curr_code_tbl
8095: ,p_quantity_tbl => l_quantity_tbl
8096: ,p_raw_cost_tbl => l_proj_raw_cost_tbl
8097: ,p_burdened_cost_tbl => l_proj_burdened_cost_tbl
8123: p_res_assignment_tbl => l_res_assignment_tbl
8124: ,p_period_name_tbl => l_period_name_tbl
8125: ,p_start_date_tbl => l_start_date_tbl
8126: ,p_end_date_tbl => l_end_date_tbl
8127: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC
8128: ,p_currency_code_tbl => l_projfunc_curr_code_tbl
8129: ,p_quantity_tbl => l_quantity_tbl
8130: ,p_raw_cost_tbl => l_projfunc_raw_cost_tbl
8131: ,p_burdened_cost_tbl => l_projfunc_burd_cost_tbl
8151: EXIT WHEN nvl(l_start_date_tbl.last,0) < l_plsql_max_array_size;
8152:
8153: END LOOP; -- loop for bulk insert
8154:
8155: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
8156: pa_debug.g_err_stage := 'closing budget_lines_cur';
8157: IF P_PA_DEBUG_MODE = 'Y' THEN
8158: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8159: END IF;
8158: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8159: END IF;
8160:
8161: CLOSE budget_lines_cur;
8162: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
8163: pa_debug.g_err_stage := 'closing rollup_tmp_cur';
8164: IF P_PA_DEBUG_MODE = 'Y' THEN
8165: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8166: END IF;
8167:
8168: CLOSE rollup_tmp_cur;
8169: END IF;
8170:
8171: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST) THEN
8172:
8173: -- This portion to be filled up by the HQ team.
8174:
8175: null;
8194: INTO l_budget_version_type
8195: FROM PA_BUDGET_VERSIONS
8196: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8197:
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8200: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8201: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8202:
8195: FROM PA_BUDGET_VERSIONS
8196: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8197:
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8200: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8201: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8202:
8203: IF (l_budget_version_type = 'ALL') THEN
8196: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8197:
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8200: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8201: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8202:
8203: IF (l_budget_version_type = 'ALL') THEN
8204:
8197:
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8200: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8201: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY);
8202:
8203: IF (l_budget_version_type = 'ALL') THEN
8204:
8205: l_tbl_index := l_tbl_index + 1;
8202:
8203: IF (l_budget_version_type = 'ALL') THEN
8204:
8205: l_tbl_index := l_tbl_index + 1;
8206: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8207: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8208: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8203: IF (l_budget_version_type = 'ALL') THEN
8204:
8205: l_tbl_index := l_tbl_index + 1;
8206: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8207: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8208: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8211: l_tbl_index := l_tbl_index + 1;
8204:
8205: l_tbl_index := l_tbl_index + 1;
8206: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8207: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8208: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8205: l_tbl_index := l_tbl_index + 1;
8206: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8207: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8208: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8213: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8208: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8213: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8214: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8209: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8210:
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8213: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8214: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8217: l_tbl_index := l_tbl_index + 1;
8210:
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8213: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8214: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8211: l_tbl_index := l_tbl_index + 1;
8212: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8213: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8214: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8219: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8214: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8219: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8220: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8221: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8222:
8215: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8216:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8219: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8220: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8221: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8222:
8223: ELSIF (l_budget_version_type = 'COST') THEN
8216:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8219: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8220: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8221: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8222:
8223: ELSIF (l_budget_version_type = 'COST') THEN
8224:
8217: l_tbl_index := l_tbl_index + 1;
8218: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8219: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8220: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8221: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8222:
8223: ELSIF (l_budget_version_type = 'COST') THEN
8224:
8225: l_tbl_index := l_tbl_index + 1;
8222:
8223: ELSIF (l_budget_version_type = 'COST') THEN
8224:
8225: l_tbl_index := l_tbl_index + 1;
8226: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8227: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8228: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8223: ELSIF (l_budget_version_type = 'COST') THEN
8224:
8225: l_tbl_index := l_tbl_index + 1;
8226: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8227: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8228: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8231: l_tbl_index := l_tbl_index + 1;
8224:
8225: l_tbl_index := l_tbl_index + 1;
8226: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8227: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8228: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8225: l_tbl_index := l_tbl_index + 1;
8226: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8227: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8228: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8233: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8228: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8233: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8234: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8235: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8236:
8229: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST);
8230:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8233: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8234: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8235: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8236:
8237: ELSIF (l_budget_version_type = 'REVENUE') THEN
8230:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8233: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8234: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8235: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8236:
8237: ELSIF (l_budget_version_type = 'REVENUE') THEN
8238:
8231: l_tbl_index := l_tbl_index + 1;
8232: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8233: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8234: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST);
8235: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST);
8236:
8237: ELSIF (l_budget_version_type = 'REVENUE') THEN
8238:
8239: l_tbl_index := l_tbl_index + 1;
8236:
8237: ELSIF (l_budget_version_type = 'REVENUE') THEN
8238:
8239: l_tbl_index := l_tbl_index + 1;
8240: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8241: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8242: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8243: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8244:
8237: ELSIF (l_budget_version_type = 'REVENUE') THEN
8238:
8239: l_tbl_index := l_tbl_index + 1;
8240: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8241: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8242: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8243: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8244:
8245: END IF;
8238:
8239: l_tbl_index := l_tbl_index + 1;
8240: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8241: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8242: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8243: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8244:
8245: END IF;
8246:
8239: l_tbl_index := l_tbl_index + 1;
8240: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8241: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8242: amt_rec(l_tbl_index).amount_type_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8243: amt_rec(l_tbl_index).amount_subtype_id := pa_fin_plan_utils.get_amttype_id(p_amt_typ_code => PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE);
8244:
8245: END IF;
8246:
8247: /* Calling the Maintain_Plan_Matrix API to recalculate profile period amounts as well
8260: p_budget_version_id => p_budget_version_id,
8261: p_project_id => l_project_id,
8262: p_debug_mode => l_debug_mode,
8263: p_add_msg_in_stack => 'Y',
8264: p_calling_module => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
8265: x_return_status => x_return_status,
8266: x_msg_count => x_msg_count,
8267: x_msg_data => x_msg_data);
8268:
8266: x_msg_count => x_msg_count,
8267: x_msg_data => x_msg_data);
8268:
8269: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8270: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8271: END IF;
8272:
8273: pa_debug.reset_err_stack;
8274: EXCEPTION
8354:
8355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8356: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8357:
8358: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8359:
8360: END IF;
8361:
8362: -- Check if there already exists a resource list assignment
8385: PA_UTILS.ADD_MESSAGE(
8386: p_app_short_name => 'PA'
8387: ,p_msg_name => l_err_stage);
8388: END IF;
8389: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8390: END IF;
8391: EXCEPTION
8392: When No_Data_Found Then
8393: null; -- do nothing
8409: PA_UTILS.ADD_MESSAGE(
8410: p_app_short_name => 'PA'
8411: ,p_msg_name => l_err_stage);
8412: END IF;
8413: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8414: END IF;
8415:
8416: IF l_debug_mode = 'Y' THEN
8417: pa_debug.g_err_stage:='Exiting Refresh_res_list_assignment';
8422: END IF;
8423:
8424: EXCEPTION
8425:
8426: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8427: l_msg_count := FND_MSG_PUB.count_msg;
8428: IF l_msg_count = 1 THEN
8429: PA_INTERFACE_UTILS_PUB.get_messages
8430: (p_encoded => FND_API.G_TRUE
8552: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.create_default_plan_txn_rec');
8553: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8554:
8555: pa_debug.g_err_stage := 'Entered create_default_plan_txn_rec';
8556: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8557:
8558: -- Check for not null parameters
8559:
8560: pa_debug.g_err_stage := 'Checking for valid parameters:';
8557:
8558: -- Check for not null parameters
8559:
8560: pa_debug.g_err_stage := 'Checking for valid parameters:';
8561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8562: END IF;
8563:
8564: IF p_budget_version_id IS NULL OR
8565: p_calling_module IS NULL THEN
8564: IF p_budget_version_id IS NULL OR
8565: p_calling_module IS NULL THEN
8566: IF p_pa_debug_mode = 'Y' THEN
8567: pa_debug.g_err_stage := 'p_budget_version_id = '||p_budget_version_id;
8568: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8569: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8570: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8571: END IF;
8572:
8566: IF p_pa_debug_mode = 'Y' THEN
8567: pa_debug.g_err_stage := 'p_budget_version_id = '||p_budget_version_id;
8568: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8569: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8570: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8571: END IF;
8572:
8573: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8574: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8572:
8573: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8574: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8575:
8576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8577:
8578: END IF;
8579: IF p_pa_debug_mode = 'Y' THEN
8580: pa_debug.g_err_stage := 'Parameter validation complete';
8577:
8578: END IF;
8579: IF p_pa_debug_mode = 'Y' THEN
8580: pa_debug.g_err_stage := 'Parameter validation complete';
8581: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8582: END IF;
8583:
8584: if (p_calling_module = 'UPDATE_PLAN_TRANSACTION') then /* janani */
8585: l_def_plan_txn_ra_id_tbl := p_ra_id_tbl;
8598:
8599: IF l_def_plan_txn_ra_id_tbl.COUNT = 0 THEN
8600: IF p_pa_debug_mode = 'Y' THEN
8601: pa_debug.g_err_stage := 'No resource assignment to default, returning';
8602: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8603: pa_debug.reset_err_stack;
8604: END IF;
8605: RETURN;
8606: END IF;
8607:
8608: IF l_def_plan_txn_ra_id_tbl.COUNT > 0 THEN
8609: IF p_pa_debug_mode = 'Y' THEN
8610: pa_debug.g_err_stage := 'Getting currency information';
8611: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8612: END IF;
8613:
8614: BEGIN
8615: SELECT pbv.ci_id,
8629: EXCEPTION
8630: WHEN NO_DATA_FOUND THEN
8631: IF p_pa_debug_mode = 'Y' THEN
8632: pa_debug.g_err_stage := 'Invalid budget version id';
8633: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8634: END IF;
8635: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8636: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8637:
8634: END IF;
8635: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8636: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8637:
8638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8639: END;
8640:
8641: -- bug 5007734: for upgrade context, when this API is called to upgrade forms based
8642: -- budget versions to sswa plan versions, the txn currency should always be PFC
8647: IF l_ci_id IS NOT NULL THEN
8648: /* ci version context */
8649: IF p_pa_debug_mode = 'Y' THEN
8650: pa_debug.g_err_stage := 'Ci_id is not null';
8651: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8652: END IF;
8653: IF l_app_rev_flag = 'Y' THEN
8654: IF l_agreement_id IS NOT NULL THEN
8655: /* txn currency should be the agreement currency */
8661: EXCEPTION
8662: WHEN NO_DATA_FOUND THEN
8663: IF p_pa_debug_mode = 'Y' THEN
8664: pa_debug.g_err_stage := 'Invalid agreement id';
8665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8666: END IF;
8667: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8668: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8666: END IF;
8667: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8668: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8670: END;
8671: l_def_txn_curr_code := l_agr_curr_code;
8672: ELSE
8673: /* it is possible, that for upgraded data, the agreement information may be missing.
8696: END IF; -- p_calling_module
8697:
8698: IF p_pa_debug_mode = 'Y' THEN
8699: pa_debug.g_err_stage := 'l_def_txn_curr_code: ' || l_def_txn_curr_code;
8700: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8701: END IF;
8702:
8703: DELETE pa_resource_asgn_curr_tmp;
8704: /* bulk insert the left over resource assignments into the new table with default txn currency
8751: IF P_PA_debug_mode = 'Y' THEN
8752: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
8753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8754: END IF;
8755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8756: END IF;
8757:
8758:
8759: /* calling the maintenance api to insert data into the new planning transaction level table */
8787: THEN
8788: IF p_pa_debug_mode = 'Y' THEN
8789: pa_debug.write_file('Failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
8790: END IF;
8791: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
8792: END IF;
8793: --IPM Arch Enhancement Bug 4865563 End
8794:
8795:
8798: pa_debug.reset_err_stack;
8799: END IF;
8800:
8801: EXCEPTION
8802: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8803:
8804: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8805: CLOSE def_plan_txn_to_ins_csr;
8806: END IF;
8820: x_msg_data := l_msg_data;
8821: END IF;
8822: IF p_pa_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:='Invalid Arguments Passed';
8824: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8825: pa_debug.write_file('create_default_plan_txn_rec ' || x_msg_data,5);
8826: END IF;
8827:
8828: x_return_status:= FND_API.G_RET_STS_ERROR;
8842: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8843: ,p_procedure_name => 'create_default_plan_txn_rec');
8844: IF p_pa_debug_mode = 'Y' THEN
8845: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8846: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8847: pa_debug.write_file('create_default_plan_txn_rec ' || pa_debug.G_Err_Stack,5);
8848: END IF;
8849: IF p_pa_debug_mode = 'Y' THEN
8850: pa_debug.reset_err_stack;