[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
1288: ----------------------------------------------------------------------
1289: -- CHECK FOR CURRENT WORKING VERSIONS
1290: -- only for BUDGET Context -- CHECK FOR CURRENT WORKING VERSIONS STARTS
1291: ----------------------------------------------------------------------
1292: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1293:
1294: /* if the deleted version was the current working version, need to find a replacement */
1295: if l_current_working_flag='Y' then
1296: /* find next most recent version */
1369: end if;
1370:
1371: exception
1372:
1373: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1374: l_msg_count := FND_MSG_PUB.count_msg;
1375: IF l_msg_count = 1 THEN
1376: PA_INTERFACE_UTILS_PUB.get_messages
1377: (p_encoded => FND_API.G_TRUE
1406: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1407: end Delete_Version;
1408: /* ------------------------------------------------------------------------- */
1409:
1410: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1411: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1412: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1413: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1414: procedure Delete_Version_Helper
1407: end Delete_Version;
1408: /* ------------------------------------------------------------------------- */
1409:
1410: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1411: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1412: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1413: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1414: procedure Delete_Version_Helper
1415: (p_project_id IN pa_projects_all.project_id%TYPE ,
1408: /* ------------------------------------------------------------------------- */
1409:
1410: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1411: --p_budget_version_id is mandatory whenever p_context is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET.
1412: --When PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN, data for the version will be deleted when p_budget_version_id
1413: --is passed. Otherwise when p_project_id is passed data for the entire project will be deleted.
1414: procedure Delete_Version_Helper
1415: (p_project_id IN pa_projects_all.project_id%TYPE ,
1416: p_context IN VARCHAR2 ,
1472: END IF;
1473: x_msg_count := 0;
1474: /* CHECK FOR BUSINESS RULES VIOLATIONS */
1475: /* check for null budget_version_id */
1476: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1477: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
1478: IF l_debug_mode = 'Y' THEN
1479: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1480: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1473: x_msg_count := 0;
1474: /* CHECK FOR BUSINESS RULES VIOLATIONS */
1475: /* check for null budget_version_id */
1476: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1477: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
1478: IF l_debug_mode = 'Y' THEN
1479: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1480: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1481: END IF;
1482: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1483: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1484: p_token1 => 'PROCEDURENAME',
1485: p_value1 => l_module_name);
1486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1487: END IF;
1488:
1489: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1485: p_value1 => l_module_name);
1486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1487: END IF;
1488:
1489: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1492: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1493: end if;
1491: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1492: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1493: end if;
1494:
1495: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1496: p_budget_version_id IS NULL AND
1497: p_project_id IS NULL THEN
1498:
1499: IF l_debug_mode = 'Y' THEN
1511: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1512: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1513: p_token1 => 'PROCEDURENAME',
1514: p_value1 => l_module_name);
1515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1516: END IF;
1517: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
1518: l_msg_count := FND_MSG_PUB.count_msg;
1519: if l_msg_count > 0 then
1539: IF P_PA_DEBUG_MODE = 'Y' THEN
1540: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version Helper');
1541: END IF;
1542: SAVEPOINT PA_FIN_PLAN_PUB_DELETE_H;
1543: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1544:
1545: BEGIN
1546: SELECT fin_plan_type_id
1547: INTO l_wp_fin_plan_type_id
1589: fin_plan_type_id IS NULL);
1590:
1591: END IF;
1592:
1593: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1594:
1595: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1596:
1597: /* PA_FIN_PLAN_ADJ_LINES: delete row (keyed on budget_version_id) */
1602: budget_version_id=l_budget_Version_id_tbl(i);
1603:
1604: END IF;
1605:
1606: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1607:
1608: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1609:
1610: /* PA_FP_ADJ_ELEMENTS: delete row (keyed on budget_version_id) */
1615: budget_version_id=l_budget_Version_id_tbl(i);
1616:
1617: END IF;
1618:
1619: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1620:
1621: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1622:
1623: /* PA_ORG_FORECAST_LINES: delete row (keyed on budget_version_id as of 2/20/2002) */
1628: budget_version_id = l_budget_Version_id_tbl(i);
1629:
1630: END IF;
1631:
1632: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1633: FORALL i IN 1..l_budget_Version_id_tbl.COUNT
1634: /* PA_ORG_FORECAST_ELEMENTS: delete row (keyed on budget_version_id) */
1635: delete
1636: from
1702: IF P_PA_debug_mode = 'Y' THEN
1703: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
1704: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1705: END IF;
1706: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1707: END IF;
1708:
1709: pa_res_asg_currency_pub.maintain_data
1710: (p_fp_cols_rec => l_fp_cols_rec,
1720: IF P_PA_debug_mode = 'Y' THEN
1721: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
1722: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1723: END IF;
1724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1725: END IF;
1726: end if; --bug 5441949
1727: END LOOP;
1728: --IPM Architechture Enhancement Bug 4865563 - End
1732: =================================================================*/
1733: /*===================================================================
1734: Start of changes for Bug :- 2634900 , Control Item Changes On APIs
1735: ===================================================================*/
1736: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET THEN
1737: BEGIN
1738: SELECT project_id,
1739: ci_id
1740: INTO l_project_id,
1744: EXCEPTION
1745: WHEN OTHERS THEN
1746: pa_debug.g_err_stage:= 'Error while Fetching the data for '||p_budget_version_id;
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write('Delete_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1749: END IF;
1750: RAISE;
1751: END;
1752:
1948: (p_project_id IN pa_budget_versions.project_id%TYPE,
1949: p_source_version_id IN pa_budget_versions.budget_version_id%TYPE,
1950: p_copy_mode IN VARCHAR2,
1951: p_adj_percentage IN NUMBER DEFAULT 0,
1952: p_calling_module IN VARCHAR2 DEFAULT PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST,
1953: p_pji_rollup_required IN VARCHAR2 DEFAULT 'Y', --Bug 4200168
1954: px_target_version_id IN OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
1955: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1956: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
2091:
2092: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2093: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
2094:
2095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2096: END IF;
2097:
2098: SAVEPOINT PA_FIN_PLAN_PUB_COPY_VERSION;
2099:
2122: ,pfo.fin_plan_preference_code
2123: ,pfo.project_id
2124: ,pfo.fin_plan_type_id
2125: ,DECODE(pfo.fin_plan_preference_code,
2126: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2127: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2128: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2129: pfo.plan_in_multi_curr_flag,
2130: nvl(pfo.approved_rev_plan_type_flag,'N'),
2123: ,pfo.project_id
2124: ,pfo.fin_plan_type_id
2125: ,DECODE(pfo.fin_plan_preference_code,
2126: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2127: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2128: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2129: pfo.plan_in_multi_curr_flag,
2130: nvl(pfo.approved_rev_plan_type_flag,'N'),
2131: pfo.rbs_version_id,
2124: ,pfo.fin_plan_type_id
2125: ,DECODE(pfo.fin_plan_preference_code,
2126: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2127: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2128: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2129: pfo.plan_in_multi_curr_flag,
2130: nvl(pfo.approved_rev_plan_type_flag,'N'),
2131: pfo.rbs_version_id,
2132: fin.plan_class_code
2151: SELECT pfo.proj_fp_options_id
2152: ,pfo.fin_plan_preference_code
2153: ,pfo.fin_plan_type_id
2154: ,DECODE(pfo.fin_plan_preference_code,
2155: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2156: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2157: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2158: nvl(pfo.approved_rev_plan_type_flag,'N'),
2159: fin.plan_class_code
2152: ,pfo.fin_plan_preference_code
2153: ,pfo.fin_plan_type_id
2154: ,DECODE(pfo.fin_plan_preference_code,
2155: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2156: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2157: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2158: nvl(pfo.approved_rev_plan_type_flag,'N'),
2159: fin.plan_class_code
2160: INTO l_target_proj_fp_options_id
2153: ,pfo.fin_plan_type_id
2154: ,DECODE(pfo.fin_plan_preference_code,
2155: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,
2156: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY , PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,
2157: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL),
2158: nvl(pfo.approved_rev_plan_type_flag,'N'),
2159: fin.plan_class_code
2160: INTO l_target_proj_fp_options_id
2161: ,l_target_fp_preference_code
2259: ,x_msg_count => l_msg_count
2260: ,x_msg_data => l_msg_data );
2261:
2262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2263: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2264: END IF;
2265:
2266: -- End of changes for BUG :- 2634900
2267:
2279:
2280: PA_PROJ_FP_OPTIONS_PUB.create_fp_option (
2281: px_target_proj_fp_option_id => l_target_proj_fp_options_id
2282: ,p_source_proj_fp_option_id => l_source_proj_fp_options_id
2283: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
2284: ,p_target_fp_preference_code => l_target_fp_preference_code
2285: ,p_target_fin_plan_version_id => l_budget_version_id --newly derived ot passed value
2286: ,p_target_project_id => l_project_id --project_id of source version
2287: ,p_target_plan_type_id => l_target_fin_plan_type_id --plan type id of target version
2292: --Calling apis specific to FIN_PLAN
2293:
2294: --Calling api which inserts/updates elements into pa_fp_elements
2295:
2296: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2297:
2298:
2299: --Calling an api to copy transaction currencies selected in source version to target version
2300: --Fetch multi currency flag for the target/new budget.
2332:
2333:
2334: --If the calling module is Financial Planning then its not required to go thru te route of
2335: --create_res_Task_maps as copy_resource_assignments would take care of the mapping logic too
2336: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2337:
2338: IF P_PA_DEBUG_MODE = 'Y' THEN
2339: pa_debug.g_err_stage := 'Calling copy_resource_assignment';
2340: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2351: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2352:
2353: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_resource_assignments returned error';
2354: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2355: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2356:
2357: END IF;
2358:
2359: --Delete budget lines of target version if any then insert new rows for target
2388: ,x_msg_count => l_msg_count
2389: ,x_msg_data => l_msg_data );
2390:
2391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2392: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2393: END IF;
2394:
2395: ELSE
2396:
2408: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2409:
2410: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_budget_lines returned error';
2411: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2413:
2414: END IF;
2415:
2416:
2417: END IF; -- 3156057
2418:
2419: --In Org Forecasting Context, create res task maps should be called to create the mapping between source
2420: --and target resource assignments. After that resource assignments and budget lines should be copied.
2421: ELSIF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2422:
2423: --Calling create_res_task_maps api to generate new resource_assignment_ids
2424: --and store them in pa_fp_ra_map_tmp table
2425:
2443: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2444:
2445: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.create_res_task_maps returned error';
2446: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2448:
2449: END IF;
2450:
2451:
2465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2466:
2467: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_resource_assignments returned error';
2468: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2470:
2471: END IF;
2472:
2473:
2487: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2488:
2489: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_budget_lines returned error';
2490: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2491: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2492:
2493: END IF;
2494:
2495:
2501: --Bug 4290043. IF the target version can have missing amounts which will be derived during copyu
2502: --then the PC/PFC amounts should be rederived. Note that even if l_derv_rates_missing_amts_flag is Y,
2503: --only the rates will be derived(and not amounts) when l_source_fp_preference_code is same as
2504: --l_target_fp_preference_code and hence the MC api need not be called
2505: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
2506: AND (l_adj_percentage <> 0
2507: OR ( l_derv_rates_missing_amts_flag='Y' AND
2508: l_source_fp_preference_code <> l_target_fp_preference_code)) THEN
2509:
2529: ,x_return_status => l_return_status
2530: ,x_msg_count => l_msg_count
2531: ,x_msg_data => l_msg_data );
2532: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2533: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2534: END IF;
2535: END IF; -- 3156057
2536: END IF;
2537:
2543: pa_debug.g_err_stage:='Calling mrc api ........ ';
2544: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2545: END IF;
2546:
2547: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
2548:
2549: -- Nvl is handled because we donot want to overwrite calling_module set already ,eg., COPY_PROJECTS
2550:
2551: PA_MRC_FINPLAN.G_CALLING_MODULE := Nvl(PA_MRC_FINPLAN.G_CALLING_MODULE,PA_MRC_FINPLAN.G_COPY_VERSION);
2601: x_msg_data => x_msg_data);
2602:
2603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2604:
2605: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2606:
2607: END IF;
2608:
2609: ELSE
2682:
2683:
2684: -- Bug 3362316, 08-JAN-2003: Added New IF/END IF fro ORG_FORECAST ----------
2685:
2686: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2687: THEN
2688:
2689:
2690: --copy the period denorm directly from source to target
2707:
2708: -- End, Bug 3362316, 08-JAN-2003: Added New IF/END IF fro ORG_FORECAST --------
2709:
2710:
2711: ELSIF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2712:
2713: /* Please note that in case of org forecast, we are NOT using the current
2714: period profile id for the target version. We copy the period profile id
2715: from the source version. This is a known bug and bug# 2521711 is logged
2748: END IF;
2749:
2750: Call_maintain_plan_matrix(
2751: p_budget_version_id => l_budget_version_id,
2752: p_data_source => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST,
2753: x_return_status => l_return_status,
2754: x_msg_count => l_msg_count,
2755: x_msg_data => l_msg_data ); */
2756: END IF;
2757: END IF; --l_target_profile_id IS NOT NULL
2758: END IF; --l_adj_percentage
2759:
2760: --IPM Arch Enhancement - Start - Bug 4865563
2761: IF p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
2762:
2763: PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS
2764: (P_BUDGET_VERSION_ID => p_source_version_id,
2765: X_FP_COLS_REC => l_src_fp_cols_rec,
2771: IF P_PA_debug_mode = 'Y' THEN
2772: pa_debug.g_err_stage:= 'Error in SRC PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2773: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2774: END IF;
2775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2776: END IF;
2777:
2778: PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS
2779: (P_BUDGET_VERSION_ID => l_budget_version_id,
2786: IF P_PA_debug_mode = 'Y' THEN
2787: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2788: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2789: END IF;
2790: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2791: END IF;
2792:
2793: l_src_version_type :=l_src_fp_cols_rec.x_version_type;
2794: l_target_version_type :=l_fp_cols_rec.x_version_type;
2804: IF P_PA_debug_mode = 'Y' THEN
2805: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
2806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2807: END IF;
2808: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2809: END IF;
2810:
2811: 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
2812:
2824: IF P_PA_debug_mode = 'Y' THEN
2825: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
2826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2827: END IF;
2828: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2829: END IF;
2830:
2831: ELSIF (l_adj_percentage = 0 AND l_src_version_type = l_target_version_type) THEN
2832:
2859: IF P_PA_debug_mode = 'Y' THEN
2860: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Copy Overrides';
2861: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2862: END IF;
2863: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2864: END IF;
2865:
2866: -- Does the rollup from budget lines
2867: pa_res_asg_currency_pub.maintain_data
2878: IF P_PA_debug_mode = 'Y' THEN
2879: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Rollup';
2880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2881: END IF;
2882: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2883: END IF;
2884: END IF;
2885:
2886: END IF; --p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2882: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2883: END IF;
2884: END IF;
2885:
2886: END IF; --p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST
2887:
2888: IF NOT (l_adj_percentage = 0 AND
2889: ( l_derv_rates_missing_amts_flag='N' OR
2890: l_source_fp_preference_code = l_target_fp_preference_code))THEN
2903: ,x_return_status => l_return_status
2904: ,x_msg_count => l_msg_count
2905: ,x_msg_data => l_msg_data );
2906: /* Bug 5099353 Start */
2907: ELSIF p_calling_module <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then
2908:
2909: open is_eligible_for_rollup(p_project_id,l_source_proj_fp_options_id);
2910: fetch is_eligible_for_rollup into l_is_eligible_for_rollup;
2911: close is_eligible_for_rollup;
2938:
2939: -- Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity --------------------------
2940:
2941:
2942: IF (p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
2943: THEN
2944: IF p_copy_mode = 'B' THEN
2945:
2946: /* We want to handle the reporting lines integration for baseline case
2976: IF l_debug_mode = 'Y' THEN
2977: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
2978: pa_debug.write('Refresh_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
2979: END IF;
2980: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2981: END IF;
2982:
2983:
2984: ELSE -- bug 3731925 rbs version is same so summarization data can be copied
3018: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
3019: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3020: END IF;
3021:
3022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3023:
3024: END IF;
3025:
3026:
3028: , x_return_status => l_return_status
3029: , x_msg_code => l_error_msg_code);
3030:
3031: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3033: END IF;
3034:
3035: ELSE
3036:
3052: FROM PA_BUDGET_VERSIONS
3053: WHERE budget_version_id = p_source_version_id;
3054: EXCEPTION
3055: WHEN NO_DATA_FOUND THEN
3056: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3057: END;
3058:
3059:
3060: BEGIN
3064: FROM PA_BUDGET_VERSIONS
3065: WHERE budget_version_id = l_budget_version_id;
3066: EXCEPTION
3067: WHEN NO_DATA_FOUND THEN
3068: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3069: END;
3070:
3071: IF P_PA_DEBUG_MODE = 'Y' THEN
3072: pa_debug.g_err_stage := 'Calling PJI_FM_XBS_ACCUM_MAINT.FINPLAN_COPY';
3095:
3096: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3097: , p_msg_name => l_error_msg_code);
3098:
3099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3100: END IF;
3101:
3102: END IF;
3103: END IF; -- IF p_pji_rollup_required = 'Y' THEN --for Bug 4200168
3105: END IF; -- p_copy_mode
3106:
3107:
3108: -- End, Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity ----------------------
3109: END IF;-- p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
3110:
3111: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3112: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3113:
3107:
3108: -- End, Bug 3362316, 08-JAN-2003: Populate Reporting Lines Entity ----------------------
3109: END IF;-- p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN)
3110:
3111: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3112: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3113:
3114: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
3115:
3110:
3111: --IF p_calling_module is PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then call create_org_fcst_elements to insert into
3112: --pa_fp_adj_elements,pa_fin_plan_adj_lines,pa_org_fcst_elements,pa_org_forecast_lines.
3113:
3114: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST THEN
3115:
3116: IF P_PA_DEBUG_MODE = 'Y' THEN
3117: pa_debug.g_err_stage := 'Calling create_org_fcst_elements api';
3118: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
3137:
3138: pa_debug.reset_err_stack;
3139:
3140: EXCEPTION
3141: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3142: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3143: -- Bug Fix: 4569365. Removed MRC code.
3144: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3145: l_msg_count := FND_MSG_PUB.count_msg;
3416: p_token2 => 'STAGE',
3417: p_value2 => 'l_orig_budget_version_id IS '||l_orig_budget_version_id
3418: ||' AND p_orig_budget_version_id IS '||p_orig_budget_version_id );
3419:
3420: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3421:
3422: WHEN OTHERS THEN
3423:
3424: IF P_PA_DEBUG_MODE = 'Y' THEN
3448: p_token2 => 'STAGE',
3449: p_value2 => 'l_orig_budget_version_id IS '||l_orig_budget_version_id
3450: ||' AND p_orig_budget_version_id IS '||p_orig_budget_version_id );
3451:
3452: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3453:
3454: ELSIF p_orig_budget_version_id IS NOT NULL THEN
3455:
3456: l_orig_budget_version_id:=p_orig_budget_version_id;
3517: p_value1 => 'PAFPPUBB.Baseline',
3518: p_token2 => 'STAGE',
3519: p_value2 => 'No. of current baselined versions '||l_temp);
3520:
3521: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3522:
3523: END IF;
3524:
3525: end if; -- l_fin_plan_type_code = ORG_FORECAST
3527: x_return_status := FND_API.G_RET_STS_SUCCESS;
3528: pa_debug.reset_err_stack;
3529:
3530: exception
3531: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3532: l_msg_count := FND_MSG_PUB.count_msg;
3533: IF l_msg_count = 1 THEN
3534: PA_INTERFACE_UTILS_PUB.get_messages
3535: (p_encoded => FND_API.G_TRUE
3721: if p_resource_list_id is NULL then
3722: IF P_PA_DEBUG_MODE = 'Y' THEN
3723: pa_debug.write_file('Create_Version_OrgFcst: ' || 'p_resource_list_id is null');
3724: END IF;
3725: if l_version_type_code = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST then
3726: l_resource_list_id := FND_PROFILE.value('PA_FORECAST_RESOURCE_LIST');
3727: else
3728: l_msg_count := l_msg_count + 1;
3729: if x_msg_count = 1 then
3783: p_msg_name => l_error_msg_code);
3784: raise pa_fin_plan_pub.rollback_on_error;
3785: end if;
3786:
3787: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3788: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3789: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3790: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3791: end if;
3784: raise pa_fin_plan_pub.rollback_on_error;
3785: end if;
3786:
3787: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3788: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3789: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3790: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3791: end if;
3792: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3785: end if;
3786:
3787: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3788: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3789: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3790: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3791: end if;
3792: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3793: * we create one
3786:
3787: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3788: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
3789: elsif l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3790: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P;
3791: end if;
3792: /* GETTING PERIOD PROFILE ID: first check to see if we can find it; if not, then
3793: * we create one
3794: */
3793: * we create one
3794: */
3795: pa_fp_org_fcst_utils.get_period_profile
3796: (p_project_id => p_project_id,
3797: p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
3798: p_plan_period_type => l_org_fcst_period_type,
3799: p_period_set_name => l_period_set_name,
3800: p_act_period_type => l_act_period_type,
3801: p_start_date => l_fcst_start_date,
3808: IF P_PA_DEBUG_MODE = 'Y' THEN
3809: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_period_profile_id < 0');
3810: END IF;
3811: l_period_profile_id := NULL;
3812: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA then
3813: l_pa_period_type := l_act_period_type;
3814: else
3815: l_pa_period_type := NULL;
3816: end if;
3829: END IF;
3830: */
3831: pa_prj_period_profile_utils.maintain_prj_period_profile
3832: (p_project_id => p_project_id,
3833: p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
3834: p_plan_period_type => l_org_fcst_period_type,
3835: p_period_set_name => l_period_set_name,
3836: p_gl_period_type => l_act_period_type,
3837: p_pa_period_type => l_pa_period_type,
4209: END IF;
4210: /* submit the concurrent request to generate the forecast */
4211: /* will need to FND_REQUEST.set_mode if submit_request is called from database trigger */
4212:
4213: /* SUBMIT THE REQUEST ONLY WHEN version_type = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST */
4214: /* Moac changes:4510784 initialize org id before submitting the request for single org context */
4215: MO_GLOBAL.INIT('PA');
4216: If P_PA_DEBUG_MODE = 'Y' THEN
4217: PA_DEBUG.Log_Message(p_message => 'Calling MO_GLOBAL.SET_POLICY_CONTEXT for OrgId:'||l_org_id);
4266: update
4267: pa_budget_versions
4268: set
4269: request_id = l_request_id,
4270: plan_processing_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, /* "Generation in process" */
4271: record_version_number = record_version_number + 1
4272: where
4273: budget_version_id = p_budget_version_id;
4274: end if;
5331: ,rev_period_mask_id
5332: FROM pa_proj_fp_options
5333: WHERE project_id = c_project_id
5334: AND fin_plan_type_id = c_fin_plan_type_id
5335: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
5336:
5337: plan_type_info_rec plan_type_info_cur%ROWTYPE;
5338:
5339: CURSOR plan_version_info_cur (
5377: WHERE pfo.project_id = c_project_id
5378: AND pfo.fin_plan_type_id = c_fin_plan_type_id
5379: AND pfo.fin_plan_version_id = c_fin_plan_version_id
5380: AND bv.budget_version_id = c_fin_plan_version_id
5381: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION;
5382:
5383: plan_version_info_rec plan_version_info_cur%ROWTYPE;
5384:
5385: TYPE new_version_rec_type IS RECORD (
5473: IF P_PA_DEBUG_MODE = 'Y' THEN
5474: pa_debug.g_err_stage:='Invalid Arguments Passed';
5475: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5476: END IF;
5477: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5478:
5479: END IF;
5480:
5481: --Bug 3354518. If the calling context is WORKPLAN and if p_struct_elem_version_id IS NULL then
5479: END IF;
5480:
5481: --Bug 3354518. If the calling context is WORKPLAN and if p_struct_elem_version_id IS NULL then
5482: --Throw error
5483: IF (p_calling_context =PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
5484: p_struct_elem_version_id IS NULL) THEN
5485:
5486: IF P_PA_DEBUG_MODE = 'Y' THEN
5487: pa_debug.g_err_stage:='p_struct_elem_version_id in workplan context is'||p_struct_elem_version_id;
5488: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5489: END IF;
5490: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5491: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5492: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5493:
5494: END IF;
5495:
5496: --Fetch plan type values
5505: CLOSE plan_type_info_cur;
5506:
5507: --Raise an error if element type isn't passed for cost and rev separate plan type
5508:
5509: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
5510: (p_element_type IS NULL )
5511: THEN
5512:
5513: IF P_PA_DEBUG_MODE = 'Y' THEN
5516: END IF;
5517:
5518: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5519: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5520: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5521:
5522: END IF;
5523:
5524: IF (p_element_type IS NULL) THEN
5522: END IF;
5523:
5524: IF (p_element_type IS NULL) THEN
5525:
5526: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5527:
5528: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5529:
5530: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5524: IF (p_element_type IS NULL) THEN
5525:
5526: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5527:
5528: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5529:
5530: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5531:
5532: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5526: IF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
5527:
5528: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5529:
5530: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5531:
5532: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5533:
5534: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5528: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
5529:
5530: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5531:
5532: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5533:
5534: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5535:
5536: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5530: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
5531:
5532: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5533:
5534: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5535:
5536: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5537:
5538: END IF;
5532: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
5533:
5534: ELSIF plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
5535:
5536: new_version_info_rec.version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
5537:
5538: END IF;
5539: ELSE
5540: new_version_info_rec.version_type := p_element_type;
5556: x_return_status => l_return_status,
5557: x_msg_count => l_msg_count,
5558: x_msg_data => l_msg_data );
5559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5560: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5561: END IF;
5562:
5563: OPEN plan_version_info_cur (p_project_id,p_fin_plan_type_id, l_ci_apprv_cw_bv_id);
5564: FETCH plan_version_info_cur INTO plan_version_info_rec;
5577: ,x_msg_count => l_msg_count
5578: ,x_msg_data => l_msg_data );
5579:
5580: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5581: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5582: END IF;
5583:
5584: IF ( l_fin_plan_version_id IS NOT NULL )
5585: THEN
5599: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5600: END IF;
5601:
5602: -- Derive fin_plan_level_code, resource list id plan version based on element type
5603: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5604: THEN
5605: l_cw_fin_plan_level_code := plan_version_info_rec.cost_fin_plan_level_code;
5606: l_cw_ver_res_list_id := plan_version_info_rec.cost_resource_list_id;
5607: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5603: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5604: THEN
5605: l_cw_fin_plan_level_code := plan_version_info_rec.cost_fin_plan_level_code;
5606: l_cw_ver_res_list_id := plan_version_info_rec.cost_resource_list_id;
5607: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5608: THEN
5609: l_cw_fin_plan_level_code := plan_version_info_rec.revenue_fin_plan_level_code;
5610: l_cw_ver_res_list_id := plan_version_info_rec.revenue_resource_list_id;
5611: ELSE
5614: END IF;
5615:
5616: -- Bug 3658080 copy options info from current working version only for ci versions
5617: IF (p_ci_id is not null) AND
5618: (NVL(p_calling_context,'-99') <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
5619: THEN
5620: IF P_PA_DEBUG_MODE = 'Y' THEN
5621: pa_debug.g_err_stage:='Assigning values to new_version_info_rec' ;
5622: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5633: new_version_info_rec.primary_rev_forecast_flag := plan_version_info_rec.primary_rev_forecast_flag;
5634: new_version_info_rec.project_structure_version_id := plan_version_info_rec.project_structure_version_id;
5635: new_version_info_rec.source_fp_options_id := plan_version_info_rec.proj_fp_options_id;
5636:
5637: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5638: THEN
5639:
5640: IF P_PA_DEBUG_MODE = 'Y' THEN
5641: pa_debug.g_err_stage:='Element type is COST'||new_version_info_rec.version_type ;
5649: new_version_info_rec.select_res_auto_flag := plan_version_info_rec.select_cost_res_auto_flag;
5650: new_version_info_rec.CURRENT_PLANNING_PERIOD := plan_version_info_rec.cost_CURRENT_PLANNING_PERIOD;
5651: new_version_info_rec.PERIOD_MASK_ID := plan_version_info_rec.cost_PERIOD_MASK_ID;
5652:
5653: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5654:
5655: IF P_PA_DEBUG_MODE = 'Y' THEN
5656: pa_debug.g_err_stage:='Element type is REVENUE'||new_version_info_rec.version_type ;
5657: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5682:
5683: END IF;
5684:
5685: ELSE
5686: new_version_info_rec.fin_plan_option_level_code := PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION ;
5687:
5688: -- bug 3658080 l_copy_res_assmt_from_cwv_flag:='N';
5689:
5690: -- If plan type's preference code is cost and rev sep then use
5690: -- If plan type's preference code is cost and rev sep then use
5691: -- new_version_info_rec.version_type to derive preference code
5692: -- for plan version.
5693:
5694: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5695: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5696: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5697: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5698: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5691: -- new_version_info_rec.version_type to derive preference code
5692: -- for plan version.
5693:
5694: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5695: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5696: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5697: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5698: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5699: END IF;
5692: -- for plan version.
5693:
5694: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5695: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5696: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5697: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5698: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5699: END IF;
5700: ELSE
5693:
5694: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5695: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5696: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5697: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5698: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5699: END IF;
5700: ELSE
5701: --If not then plan version preference code would be same as
5694: IF ( plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
5695: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5696: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY;
5697: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
5698: new_version_info_rec.fin_plan_preference_code := PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY;
5699: END IF;
5700: ELSE
5701: --If not then plan version preference code would be same as
5702: --plan type's preference code
5711: new_version_info_rec.primary_rev_forecast_flag := plan_type_info_rec.primary_rev_forecast_flag;
5712: new_version_info_rec.project_structure_version_id := NULL;
5713: new_version_info_rec.source_fp_options_id := plan_type_info_rec.proj_fp_options_id;
5714:
5715: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST )
5716: THEN
5717: new_version_info_rec.fin_plan_level_code := plan_type_info_rec.cost_fin_plan_level_code;
5718: new_version_info_rec.time_phased_code := plan_type_info_rec.cost_time_phased_code;
5719: new_version_info_rec.resource_list_id := plan_type_info_rec.cost_resource_list_id;
5720: new_version_info_rec.amount_set_id := plan_type_info_rec.cost_amount_set_id;
5721: new_version_info_rec.select_res_auto_flag := plan_type_info_rec.select_cost_res_auto_flag;
5722: new_version_info_rec.CURRENT_PLANNING_PERIOD := plan_type_info_rec.cost_CURRENT_PLANNING_PERIOD;
5723: new_version_info_rec.PERIOD_MASK_ID := plan_type_info_rec.cost_PERIOD_MASK_ID;
5724: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5725: new_version_info_rec.fin_plan_level_code := plan_type_info_rec.revenue_fin_plan_level_code;
5726: new_version_info_rec.time_phased_code := plan_type_info_rec.revenue_time_phased_code;
5727: new_version_info_rec.resource_list_id := plan_type_info_rec.revenue_resource_list_id;
5728: new_version_info_rec.amount_set_id := plan_type_info_rec.revenue_amount_set_id;
5741:
5742: END IF;
5743:
5744: /* Bug# 2637789 */
5745: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5746: new_version_info_rec.approved_rev_plan_type_flag := 'N';
5747: new_version_info_rec.primary_rev_forecast_flag := 'N';
5748: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5749: new_version_info_rec.approved_cost_plan_type_flag := 'N';
5744: /* Bug# 2637789 */
5745: IF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ) THEN
5746: new_version_info_rec.approved_rev_plan_type_flag := 'N';
5747: new_version_info_rec.primary_rev_forecast_flag := 'N';
5748: ELSIF ( new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
5749: new_version_info_rec.approved_cost_plan_type_flag := 'N';
5750: new_version_info_rec.primary_cost_forecast_flag := 'N';
5751: END IF;
5752:
5802: ,x_msg_count => x_msg_count
5803: ,x_error_msg_data => x_msg_data );
5804:
5805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5806: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5807: END IF;
5808: END IF;
5809: ELSE -- added for bug 4724017
5810: -- this code block would be executed for all the flows other than the AMG flow.
5830: IF P_PA_DEBUG_MODE = 'Y' THEN
5831: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
5832: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,3);
5833: END IF;
5834: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5835: END; -- bug 4724017 ends.
5836: END IF;
5837:
5838: IF p_time_phased_code IS NOT NULL
5896: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
5897: (p_project_id => p_project_id
5898: ,p_fin_plan_type_id => p_fin_plan_type_id
5899: ,p_version_type => new_version_info_rec.version_type
5900: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
5901: ,p_ci_id => p_ci_id
5902: ,p_lock_required_flag => 'Y'
5903: ,x_version_number => l_max_version_number
5904: ,x_return_status => x_return_status
5905: ,x_msg_count => x_msg_count
5906: ,x_msg_data => x_msg_data );
5907:
5908: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5910: END IF;
5911:
5912: --End of changes for Bug :- 2570250
5913:
6039: IF P_PA_DEBUG_MODE = 'Y' THEN
6040: pa_debug.g_err_stage:='Invalid Arguments Passed';
6041: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6042: END IF;
6043: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6044: Exception
6045: When No_Data_Found Then
6046: Null;
6047: End;
6150: -- End, jwhite, 26-JUN-2003: Plannable Task Effort --------------------------------
6151:
6152: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6153:
6154: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6155:
6156: END IF;
6157:
6158: pa_budget_utils.Get_Project_Currency_Info -- Bug # 2634900
6170:
6171: IF P_PA_DEBUG_MODE = 'Y' THEN
6172: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6173: pa_debug.write('Create_Version: ' || l_module_name,
6174: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6175: END IF;
6176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6177: END IF;
6178:
6172: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6173: pa_debug.write('Create_Version: ' || l_module_name,
6174: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6175: END IF;
6176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6177: END IF;
6178:
6179: -- for a control item budget version, the only plannable currency should be
6180: -- agreement currency.
6197: (x_return_status <> FND_API.G_RET_STS_SUCCESS)
6198: THEN
6199: IF P_PA_DEBUG_MODE = 'Y' THEN
6200: pa_debug.g_err_stage:='Agreement_currency_code is null';
6201: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6202: END IF;
6203: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6204: END IF;
6205:
6199: IF P_PA_DEBUG_MODE = 'Y' THEN
6200: pa_debug.g_err_stage:='Agreement_currency_code is null';
6201: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6202: END IF;
6203: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6204: END IF;
6205:
6206: IF (l_agreement_currency_code NOT IN (l_projfunc_currency_code,l_project_currency_code)) THEN
6207: new_version_info_rec.plan_in_multi_curr_flag := 'Y';
6220:
6221: PA_PROJ_FP_OPTIONS_PUB.create_fp_option (
6222: px_target_proj_fp_option_id => l_new_proj_fp_options_id
6223: ,p_source_proj_fp_option_id => new_version_info_rec.source_fp_options_id
6224: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
6225: ,p_target_fp_preference_code => new_version_info_rec.fin_plan_preference_code
6226: ,p_target_fin_plan_version_id => l_new_budget_version_id
6227: ,p_target_project_id => p_project_id
6228: ,p_target_plan_type_id => p_fin_plan_type_id
6230: ,x_msg_count => x_msg_count
6231: ,x_msg_data => x_msg_data );
6232:
6233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6234: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6235: END IF;
6236:
6237: --Update the fp option created for plan version with the passed i/p parameters if they are not null
6238:
6235: END IF;
6236:
6237: --Update the fp option created for plan version with the passed i/p parameters if they are not null
6238:
6239: IF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
6240: UPDATE pa_proj_fp_options
6241: SET cost_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6242: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6243: cost_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6247: cost_current_planning_period = new_version_info_rec.current_planning_period,
6248: cost_period_mask_id = new_version_info_rec.period_mask_id,
6249: rbs_version_id = Decode(p_ci_id, null, rbs_version_id, null) -- bug 3867302
6250: WHERE proj_fp_options_id = l_new_proj_fp_options_id;
6251: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
6252: UPDATE pa_proj_fp_options
6253: SET revenue_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6254: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6255: revenue_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6259: rev_current_planning_period = new_version_info_rec.current_planning_period,
6260: rev_period_mask_id = new_version_info_rec.period_mask_id,
6261: rbs_version_id = Decode(p_ci_id, null, rbs_version_id, null) -- bug 3867302
6262: WHERE proj_fp_options_id = l_new_proj_fp_options_id;
6263: ELSIF new_version_info_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
6264: UPDATE pa_proj_fp_options
6265: SET all_amount_set_id = NVL(p_amount_set_id,new_version_info_rec.amount_set_id),
6266: plan_in_multi_curr_flag = new_version_info_rec.plan_in_multi_curr_flag,
6267: all_fin_plan_level_code = new_version_info_rec.fin_plan_level_code,
6291: ,x_msg_count => x_msg_count
6292: ,x_msg_data => x_msg_data );
6293:
6294: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6295: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6296: END IF;
6297:
6298: ELSE
6299:
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: END IF;
6319:
6341:
6342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6343: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6344: p_msg_name => l_msg_data);
6345: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6346: END IF;
6347:
6348: END IF;
6349: END IF;
6391: /* IF nvl(l_multi_currency_billing_flag,'N') = 'N' THEN
6392: -- This will never occur as the required validation is done in the agreement form.
6393: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6394: p_msg_name => 'PAFP_NO_PROJ_CONV_ATTR');
6395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6396: ELSE
6397: */ /* check for FP compatible rate date type - PC*/
6398: IF l_project_bil_rate_date is not null THEN -- Takes care of FIXED_DATE
6399:
6398: IF l_project_bil_rate_date is not null THEN -- Takes care of FIXED_DATE
6399:
6400: -- Rate Date will be as it is.
6401: -- Rate Date type is FIXED_DATE.
6402: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6403:
6404: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6405: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6406:
6401: -- Rate Date type is FIXED_DATE.
6402: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6403:
6404: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6405: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6406:
6407: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6408:
6409: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6403:
6404: ELSIF l_project_bil_rate_date_code IS NOT NULL AND
6405: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6406:
6407: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6408:
6409: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6410:
6411: update pa_fp_txn_currencies
6405: l_project_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6406:
6407: l_project_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6408:
6409: ELSIF l_project_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --USER rate type.
6410:
6411: update pa_fp_txn_currencies
6412: set project_rev_exchange_rate = l_project_bil_exchange_rate
6413: where proj_fp_options_id = l_new_proj_fp_options_id
6417:
6418: /* check for FP compatible rate date type - PFC*/
6419: IF l_projfunc_bil_rate_date IS NOT NULL THEN -- Takes care of FIXED_DATE
6420: -- Rate Date will be as it is.
6421: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6422:
6423: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6424: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6425:
6420: -- Rate Date will be as it is.
6421: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE;
6422:
6423: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6424: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6425:
6426: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6427:
6428: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6422:
6423: ELSIF l_projfunc_bil_rate_date_code IS NOT NULL AND
6424: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6425:
6426: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6427:
6428: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6429:
6430: update pa_fp_txn_currencies
6424: l_projfunc_bil_rate_type <> PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER THEN --Takes care of PA_INVOICE_DATE
6425:
6426: l_projfunc_bil_rate_date_code := PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_START_DATE;
6427:
6428: ELSIF l_projfunc_bil_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER then --USER rate type.
6429:
6430: update pa_fp_txn_currencies
6431: set projfunc_rev_exchange_rate = l_projfunc_bil_exchange_rate
6432: where proj_fp_options_id = l_new_proj_fp_options_id
6472: ,x_msg_count => x_msg_count
6473: ,x_msg_data => x_msg_data );
6474:
6475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6476: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6477: END IF;
6478:
6479: -- Update the budget versions table with the converted estimated amounts in projfunc currency
6480:
6505: -- create resource assignments for the budget version
6506:
6507: /* Did null handing for bug 2663313 */
6508: /* 3831449: do not create records in pa_resource_assignments if p_calling_context is GENERATE */
6509: IF nvl(p_calling_context,'-99') NOT IN (PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT,
6510: -- Bug Fix: 4569365. Removed MRC code.
6511: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6512: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6513: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6509: IF nvl(p_calling_context,'-99') NOT IN (PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT,
6510: -- Bug Fix: 4569365. Removed MRC code.
6511: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6512: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6513: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6514: 'GENERATE', PA_FP_CONSTANTS_PKG.G_AMG_API) --Added this for bug 4224464
6515: THEN
6516:
6517: --Start of changes for Bug :- 2634900
6510: -- Bug Fix: 4569365. Removed MRC code.
6511: -- PA_MRC_FINPLAN.G_AUTOMATIC_BASELINE,
6512: 'AUTOMATIC_BASELINE', --Bug 5700400: Autobaseline case was commented earlier by mistake.
6513: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
6514: 'GENERATE', PA_FP_CONSTANTS_PKG.G_AMG_API) --Added this for bug 4224464
6515: THEN
6516:
6517: --Start of changes for Bug :- 2634900
6518:
6540: , x_msg_data => l_msg_data
6541: );
6542:
6543: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6544: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6545: END IF;
6546: END IF; -- bug 4724017 ends
6547: ELSE
6548:
6568: , x_msg_data => l_msg_data
6569: );
6570:
6571: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6572: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6573: END IF;
6574:
6575: -- For normal budget versions when res assignments data is copied
6576: -- from current working version, if rbs of versions is not same as
6601: ,x_msg_data => x_msg_data);
6602:
6603: -- Check return status
6604: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6605: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6606: END IF;
6607:
6608: -- Check if out table has any records first
6609: IF nvl(l_txn_source_id_tbl.last,0) >= 1 THEN
6652: ,x_msg_count => x_msg_count
6653: ,x_msg_data => x_msg_data );
6654:
6655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6656: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6657: END IF;
6658:
6659: END IF;
6660:
6677: THEN
6678: IF p_pa_debug_mode = 'Y' THEN
6679: pa_debug.write_file('Failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
6680: END IF;
6681: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
6682: END IF;
6683: -- End of changes for Bug :- 2649474
6684:
6685:
6699: pa_debug.reset_curr_function;
6700:
6701: EXCEPTION
6702:
6703: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6704: l_msg_count := FND_MSG_PUB.count_msg;
6705: IF l_msg_count = 1 THEN
6706: PA_INTERFACE_UTILS_PUB.get_messages
6707: (p_encoded => FND_API.G_TRUE
6749: ,x_end_period_end_date OUT NOCOPY DATE) --File.Sql.39 bug 4440895
6750: AS
6751: BEGIN
6752:
6753: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
6754:
6755: BEGIN
6756: SELECT start_date
6757: INTO x_start_period_start_date
6775: INTO x_end_period_end_date
6776: FROM PA_PERIODS;
6777: END;
6778:
6779: ELSIF P_PERIOD_TYPE = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6780:
6781: BEGIN
6782: --Fetch the start date of the period in to which p_profile_start_date falls
6783: SELECT start_date
6851: IF P_PA_DEBUG_MODE = 'Y' THEN
6852: pa_debug.write('Get_Profile_Start_Date: ' || l_module_name,pa_debug.g_err_stage,3);
6853: END IF;
6854: */
6855: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
6856:
6857: BEGIN
6858: --Select start date of period which is 51 periods before end period
6859: SELECT start_date
6875: INTO l_profile_start_date
6876: FROM pa_periods;
6877: END;
6878:
6879: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6880:
6881: BEGIN
6882: --Fetch the start date of the period in to which p_profile_end_date falls
6883: --Select start date of periods which is 51 periods before end period
6964: IF P_PA_DEBUG_MODE = 'Y' THEN
6965: pa_debug.write('Get_Profile_End_Date: ' || l_module_name,pa_debug.g_err_stage,3);
6966: END IF;
6967: */
6968: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
6969:
6970: BEGIN
6971: --Fetch the start date of the period in to which p_profile_start_date falls
6972: --Select the 51st period's start date from start period as profile end date
7002: AND a.set_of_books_id = i.set_of_books_id
7003: AND a.adjustment_period_flag = 'N';
7004: END;
7005:
7006: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7007:
7008: BEGIN
7009: --Fetch the start date of the period in to which p_profile_start_date falls
7010: --Select the 51st period's start date from start period as profile end date
7133: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7134: END IF;
7135: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7136: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7137: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7138: END IF;
7139:
7140: pa_debug.g_err_stage := 'Parameter validation complete';
7141: IF P_PA_DEBUG_MODE = 'Y' THEN
7184: ,pa_budget_lines pbl
7185: WHERE pbv.project_id = p_project_id
7186: AND pbl.budget_version_id = pbv.budget_version_id
7187: AND PA_FIN_PLAN_UTILS.GET_TIME_PHASED_CODE(pbv.budget_version_id)
7188: = DECODE(p_period_type,PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7189: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) ;
7190:
7191:
7192: END IF;
7185: WHERE pbv.project_id = p_project_id
7186: AND pbl.budget_version_id = pbv.budget_version_id
7187: AND PA_FIN_PLAN_UTILS.GET_TIME_PHASED_CODE(pbv.budget_version_id)
7188: = DECODE(p_period_type,PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7189: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) ;
7190:
7191:
7192: END IF;
7193:
7214: END IF;
7215:
7216: SELECT b.period_set_name
7217: ,DECODE(p_period_type,
7218: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7219: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7220: ,DECODE(p_period_type,
7221: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7222: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7215:
7216: SELECT b.period_set_name
7217: ,DECODE(p_period_type,
7218: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7219: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7220: ,DECODE(p_period_type,
7221: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7222: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7223: INTO l_period_set_name
7217: ,DECODE(p_period_type,
7218: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7219: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7220: ,DECODE(p_period_type,
7221: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7222: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7223: INTO l_period_set_name
7224: ,l_accounted_period_type
7225: ,l_pa_period_type
7218: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7219: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
7220: ,DECODE(p_period_type,
7221: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
7222: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
7223: INTO l_period_set_name
7224: ,l_accounted_period_type
7225: ,l_pa_period_type
7226: FROM pa_implementations a
7235: IF P_PA_DEBUG_MODE = 'Y' THEN
7236: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,3);
7237: END IF;
7238: */
7239: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7240:
7241: SELECT count(*)
7242: INTO l_number_of_periods
7243: FROM PA_PERIODS
7242: INTO l_number_of_periods
7243: FROM PA_PERIODS
7244: WHERE start_date BETWEEN TRUNC(SYSDATE) AND l_end_date; /*2690087*/
7245:
7246: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
7247:
7248: SELECT count(*)
7249: INTO l_number_of_periods
7250: FROM GL_PERIOD_STATUSES a
7293:
7294: BEGIN
7295: --Fetch the start date of the period in to which sysdate falls
7296:
7297: IF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL THEN
7298:
7299: SELECT start_date
7300: INTO l_profile_start_date
7301: FROM GL_PERIOD_STATUSES g
7304: AND g.application_id = pa_period_process_pkg.application_id
7305: AND g.set_of_books_id = i.set_of_books_id
7306: AND TRUNC(SYSDATE) BETWEEN g.start_date AND g.end_date; /* Bug:- 2690087 */
7307:
7308: ELSIF p_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA THEN
7309:
7310: SELECT start_date
7311: INTO l_profile_start_date
7312: FROM PA_PERIODS
7421: END IF;
7422:
7423: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
7424: p_project_id => p_project_id
7425: ,p_period_profile_type => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING
7426: ,p_plan_period_type => p_period_type
7427: ,p_period_set_name => l_period_set_name
7428: ,p_gl_period_type => l_accounted_period_type
7429: ,p_pa_period_type => l_pa_period_type
7448: pa_debug.reset_err_stack;
7449:
7450: EXCEPTION
7451:
7452: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7453: l_msg_count := FND_MSG_PUB.count_msg;
7454: IF l_msg_count = 1 THEN
7455: PA_INTERFACE_UTILS_PUB.get_messages
7456: (p_encoded => FND_API.G_TRUE
7578: ,DELETE_FLAG
7579: ,SOURCE_TXN_CURRENCY_CODE
7580: )
7581: VALUES ( p_res_assignment_tbl(i) /* Bug# 2677867-Object id should not be -1 even for FP */
7582: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
7583: ,p_res_assignment_tbl(i)
7584: ,p_period_name_tbl(i)
7585: ,p_start_date_tbl(i)
7586: ,p_end_date_tbl(i)
7882: FROM pa_proj_fp_options
7883: WHERE fin_plan_version_id = p_budget_version_id;
7884:
7885:
7886: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
7887: pa_debug.g_err_stage := 'opening budget_lines_cur';
7888: IF P_PA_DEBUG_MODE = 'Y' THEN
7889: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7890: END IF;
7889: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7890: END IF;
7891:
7892: OPEN budget_lines_cur;
7893: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
7894: pa_debug.g_err_stage := 'opening rollup_tmp_cur';
7895: IF P_PA_DEBUG_MODE = 'Y' THEN
7896: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7897: END IF;
7900: END IF;
7901:
7902: delete from PA_FIN_PLAN_LINES_TMP;
7903: LOOP
7904: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
7905:
7906: pa_debug.g_err_stage := 'fetching from budget_lines_cur';
7907: IF P_PA_DEBUG_MODE = 'Y' THEN
7908: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
7953: ,l_parent_assignment_tbl
7954: ,l_delete_flag_tbl
7955: LIMIT l_plsql_max_array_size;
7956:
7957: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
7958:
7959: pa_debug.g_err_stage := 'fetching from rollup_tmp_cur';
7960: IF P_PA_DEBUG_MODE = 'Y' THEN
7961: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8036: p_res_assignment_tbl => l_res_assignment_tbl
8037: ,p_period_name_tbl => l_period_name_tbl
8038: ,p_start_date_tbl => l_start_date_tbl
8039: ,p_end_date_tbl => l_end_date_tbl
8040: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_TRANSACTION
8041: ,p_currency_code_tbl => l_txn_curr_code_tbl
8042: ,p_quantity_tbl => l_quantity_tbl
8043: ,p_raw_cost_tbl => l_txn_raw_cost_tbl
8044: ,p_burdened_cost_tbl => l_txn_burdened_cost_tbl
8069: p_res_assignment_tbl => l_res_assignment_tbl
8070: ,p_period_name_tbl => l_period_name_tbl
8071: ,p_start_date_tbl => l_start_date_tbl
8072: ,p_end_date_tbl => l_end_date_tbl
8073: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT
8074: ,p_currency_code_tbl => l_proj_curr_code_tbl
8075: ,p_quantity_tbl => l_quantity_tbl
8076: ,p_raw_cost_tbl => l_proj_raw_cost_tbl
8077: ,p_burdened_cost_tbl => l_proj_burdened_cost_tbl
8103: p_res_assignment_tbl => l_res_assignment_tbl
8104: ,p_period_name_tbl => l_period_name_tbl
8105: ,p_start_date_tbl => l_start_date_tbl
8106: ,p_end_date_tbl => l_end_date_tbl
8107: ,p_currency_type => PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC
8108: ,p_currency_code_tbl => l_projfunc_curr_code_tbl
8109: ,p_quantity_tbl => l_quantity_tbl
8110: ,p_raw_cost_tbl => l_projfunc_raw_cost_tbl
8111: ,p_burdened_cost_tbl => l_projfunc_burd_cost_tbl
8131: EXIT WHEN nvl(l_start_date_tbl.last,0) < l_plsql_max_array_size;
8132:
8133: END LOOP; -- loop for bulk insert
8134:
8135: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_BUDGET_LINE) THEN
8136: pa_debug.g_err_stage := 'closing budget_lines_cur';
8137: IF P_PA_DEBUG_MODE = 'Y' THEN
8138: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8139: END IF;
8138: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8139: END IF;
8140:
8141: CLOSE budget_lines_cur;
8142: ELSIF (p_data_source = PA_FP_CONSTANTS_PKG.G_DATA_SOURCE_ROLLUP_TMP) THEN
8143: pa_debug.g_err_stage := 'closing rollup_tmp_cur';
8144: IF P_PA_DEBUG_MODE = 'Y' THEN
8145: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,3);
8146: END IF;
8147:
8148: CLOSE rollup_tmp_cur;
8149: END IF;
8150:
8151: IF (p_data_source = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST) THEN
8152:
8153: -- This portion to be filled up by the HQ team.
8154:
8155: null;
8174: INTO l_budget_version_type
8175: FROM PA_BUDGET_VERSIONS
8176: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8177:
8178: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8179: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8180: 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);
8181: 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);
8182:
8175: FROM PA_BUDGET_VERSIONS
8176: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8177:
8178: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8179: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8180: 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);
8181: 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);
8182:
8183: IF (l_budget_version_type = 'ALL') THEN
8176: WHERE pa_budget_versions.budget_version_id = p_budget_version_id;
8177:
8178: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8179: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8180: 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);
8181: 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);
8182:
8183: IF (l_budget_version_type = 'ALL') THEN
8184:
8177:
8178: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8179: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_QUANTITY;
8180: 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);
8181: 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);
8182:
8183: IF (l_budget_version_type = 'ALL') THEN
8184:
8185: l_tbl_index := l_tbl_index + 1;
8182:
8183: IF (l_budget_version_type = 'ALL') THEN
8184:
8185: l_tbl_index := l_tbl_index + 1;
8186: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8187: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8188: 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);
8189: 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);
8190:
8183: IF (l_budget_version_type = 'ALL') THEN
8184:
8185: l_tbl_index := l_tbl_index + 1;
8186: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8187: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8188: 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);
8189: 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);
8190:
8191: l_tbl_index := l_tbl_index + 1;
8184:
8185: l_tbl_index := l_tbl_index + 1;
8186: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8187: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8188: 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);
8189: 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);
8190:
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8185: l_tbl_index := l_tbl_index + 1;
8186: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8187: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_RAW_COST;
8188: 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);
8189: 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);
8190:
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8193: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8188: 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);
8189: 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);
8190:
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8193: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8194: 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);
8195: 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);
8196:
8189: 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);
8190:
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8193: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8194: 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);
8195: 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);
8196:
8197: l_tbl_index := l_tbl_index + 1;
8190:
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8193: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8194: 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);
8195: 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);
8196:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8191: l_tbl_index := l_tbl_index + 1;
8192: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
8193: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_BURD_COST;
8194: 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);
8195: 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);
8196:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8194: 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);
8195: 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);
8196:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
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_REVENUE);
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_REVENUE);
8202:
8195: 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);
8196:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
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_REVENUE);
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_REVENUE);
8202:
8203: ELSIF (l_budget_version_type = 'COST') THEN
8196:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
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_REVENUE);
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_REVENUE);
8202:
8203: ELSIF (l_budget_version_type = 'COST') THEN
8204:
8197: l_tbl_index := l_tbl_index + 1;
8198: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8199: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
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_REVENUE);
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_REVENUE);
8202:
8203: ELSIF (l_budget_version_type = 'COST') THEN
8204:
8205: l_tbl_index := l_tbl_index + 1;
8202:
8203: ELSIF (l_budget_version_type = 'COST') 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: ELSIF (l_budget_version_type = 'COST') 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: ELSIF (l_budget_version_type = 'REVENUE') THEN
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: ELSIF (l_budget_version_type = 'REVENUE') THEN
8218:
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: ELSIF (l_budget_version_type = 'REVENUE') THEN
8218:
8219: l_tbl_index := l_tbl_index + 1;
8216:
8217: ELSIF (l_budget_version_type = 'REVENUE') THEN
8218:
8219: l_tbl_index := l_tbl_index + 1;
8220: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8221: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8222: 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);
8223: 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);
8224:
8217: ELSIF (l_budget_version_type = 'REVENUE') THEN
8218:
8219: l_tbl_index := l_tbl_index + 1;
8220: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8221: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8222: 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);
8223: 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);
8224:
8225: END IF;
8218:
8219: l_tbl_index := l_tbl_index + 1;
8220: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8221: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8222: 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);
8223: 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);
8224:
8225: END IF;
8226:
8219: l_tbl_index := l_tbl_index + 1;
8220: amt_rec(l_tbl_index).amount_type_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8221: amt_rec(l_tbl_index).amount_subtype_code := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
8222: 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);
8223: 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);
8224:
8225: END IF;
8226:
8227: /* Calling the Maintain_Plan_Matrix API to recalculate profile period amounts as well
8240: p_budget_version_id => p_budget_version_id,
8241: p_project_id => l_project_id,
8242: p_debug_mode => l_debug_mode,
8243: p_add_msg_in_stack => 'Y',
8244: p_calling_module => PA_FP_CONSTANTS_PKG.G_PD_PROFILE_FIN_PLANNING,
8245: x_return_status => x_return_status,
8246: x_msg_count => x_msg_count,
8247: x_msg_data => x_msg_data);
8248:
8246: x_msg_count => x_msg_count,
8247: x_msg_data => x_msg_data);
8248:
8249: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8250: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8251: END IF;
8252:
8253: pa_debug.reset_err_stack;
8254: EXCEPTION
8334:
8335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8336: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8337:
8338: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8339:
8340: END IF;
8341:
8342: -- Check if there already exists a resource list assignment
8365: PA_UTILS.ADD_MESSAGE(
8366: p_app_short_name => 'PA'
8367: ,p_msg_name => l_err_stage);
8368: END IF;
8369: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8370: END IF;
8371: EXCEPTION
8372: When No_Data_Found Then
8373: null; -- do nothing
8389: PA_UTILS.ADD_MESSAGE(
8390: p_app_short_name => 'PA'
8391: ,p_msg_name => l_err_stage);
8392: END IF;
8393: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8394: END IF;
8395:
8396: IF l_debug_mode = 'Y' THEN
8397: pa_debug.g_err_stage:='Exiting Refresh_res_list_assignment';
8402: END IF;
8403:
8404: EXCEPTION
8405:
8406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8407: l_msg_count := FND_MSG_PUB.count_msg;
8408: IF l_msg_count = 1 THEN
8409: PA_INTERFACE_UTILS_PUB.get_messages
8410: (p_encoded => FND_API.G_TRUE
8513: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.create_default_plan_txn_rec');
8514: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8515:
8516: pa_debug.g_err_stage := 'Entered create_default_plan_txn_rec';
8517: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8518:
8519: -- Check for not null parameters
8520:
8521: pa_debug.g_err_stage := 'Checking for valid parameters:';
8518:
8519: -- Check for not null parameters
8520:
8521: pa_debug.g_err_stage := 'Checking for valid parameters:';
8522: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8523: END IF;
8524:
8525: IF p_budget_version_id IS NULL OR
8526: p_calling_module IS NULL THEN
8525: IF p_budget_version_id IS NULL OR
8526: p_calling_module IS NULL THEN
8527: IF p_pa_debug_mode = 'Y' THEN
8528: pa_debug.g_err_stage := 'p_budget_version_id = '||p_budget_version_id;
8529: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8530: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8531: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8532: END IF;
8533:
8527: IF p_pa_debug_mode = 'Y' THEN
8528: pa_debug.g_err_stage := 'p_budget_version_id = '||p_budget_version_id;
8529: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8530: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8531: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8532: END IF;
8533:
8534: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8535: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8533:
8534: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8535: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8536:
8537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8538:
8539: END IF;
8540: IF p_pa_debug_mode = 'Y' THEN
8541: pa_debug.g_err_stage := 'Parameter validation complete';
8538:
8539: END IF;
8540: IF p_pa_debug_mode = 'Y' THEN
8541: pa_debug.g_err_stage := 'Parameter validation complete';
8542: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8543: END IF;
8544:
8545: if (p_calling_module = 'UPDATE_PLAN_TRANSACTION') then /* janani */
8546: l_def_plan_txn_ra_id_tbl := p_ra_id_tbl;
8557:
8558: IF l_def_plan_txn_ra_id_tbl.COUNT = 0 THEN
8559: IF p_pa_debug_mode = 'Y' THEN
8560: pa_debug.g_err_stage := 'No resource assignment to default, returning';
8561: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8562: pa_debug.reset_err_stack;
8563: END IF;
8564: RETURN;
8565: END IF;
8566:
8567: IF l_def_plan_txn_ra_id_tbl.COUNT > 0 THEN
8568: IF p_pa_debug_mode = 'Y' THEN
8569: pa_debug.g_err_stage := 'Getting currency information';
8570: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8571: END IF;
8572:
8573: BEGIN
8574: SELECT pbv.ci_id,
8588: EXCEPTION
8589: WHEN NO_DATA_FOUND THEN
8590: IF p_pa_debug_mode = 'Y' THEN
8591: pa_debug.g_err_stage := 'Invalid budget version id';
8592: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8593: END IF;
8594: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8595: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8596:
8593: END IF;
8594: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8595: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8596:
8597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8598: END;
8599:
8600: -- bug 5007734: for upgrade context, when this API is called to upgrade forms based
8601: -- budget versions to sswa plan versions, the txn currency should always be PFC
8606: IF l_ci_id IS NOT NULL THEN
8607: /* ci version context */
8608: IF p_pa_debug_mode = 'Y' THEN
8609: pa_debug.g_err_stage := 'Ci_id is not null';
8610: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8611: END IF;
8612: IF l_app_rev_flag = 'Y' THEN
8613: IF l_agreement_id IS NOT NULL THEN
8614: /* txn currency should be the agreement currency */
8620: EXCEPTION
8621: WHEN NO_DATA_FOUND THEN
8622: IF p_pa_debug_mode = 'Y' THEN
8623: pa_debug.g_err_stage := 'Invalid agreement id';
8624: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8625: END IF;
8626: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8627: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8628: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8624: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8625: END IF;
8626: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8627: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8628: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8629: END;
8630: l_def_txn_curr_code := l_agr_curr_code;
8631: ELSE
8632: /* it is possible, that for upgraded data, the agreement information may be missing.
8655: END IF; -- p_calling_module
8656:
8657: IF p_pa_debug_mode = 'Y' THEN
8658: pa_debug.g_err_stage := 'l_def_txn_curr_code: ' || l_def_txn_curr_code;
8659: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8660: END IF;
8661:
8662: DELETE pa_resource_asgn_curr_tmp;
8663: /* bulk insert the left over resource assignments into the new table with default txn currency
8687: IF P_PA_debug_mode = 'Y' THEN
8688: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
8689: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8690: END IF;
8691: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8692: END IF;
8693:
8694:
8695: /* calling the maintenance api to insert data into the new planning transaction level table */
8722: THEN
8723: IF p_pa_debug_mode = 'Y' THEN
8724: pa_debug.write_file('Failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
8725: END IF;
8726: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
8727: END IF;
8728: --IPM Arch Enhancement Bug 4865563 End
8729:
8730:
8733: pa_debug.reset_err_stack;
8734: END IF;
8735:
8736: EXCEPTION
8737: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8738:
8739: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8740: CLOSE def_plan_txn_to_ins_csr;
8741: END IF;
8755: x_msg_data := l_msg_data;
8756: END IF;
8757: IF p_pa_debug_mode = 'Y' THEN
8758: pa_debug.g_err_stage:='Invalid Arguments Passed';
8759: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8760: pa_debug.write_file('create_default_plan_txn_rec ' || x_msg_data,5);
8761: END IF;
8762:
8763: x_return_status:= FND_API.G_RET_STS_ERROR;
8777: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8778: ,p_procedure_name => 'create_default_plan_txn_rec');
8779: IF p_pa_debug_mode = 'Y' THEN
8780: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8781: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8782: pa_debug.write_file('create_default_plan_txn_rec ' || pa_debug.G_Err_Stack,5);
8783: END IF;
8784: IF p_pa_debug_mode = 'Y' THEN
8785: pa_debug.reset_err_stack;