[Home] [Help]
389: END IF;
390:
391: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
392: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
393: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
394: END IF;
395:
396: l_adj_percentage := NVL(p_adj_percentage,0);
397:
425: pa_debug.g_err_stage:='Checking the compatability of the plans';
426: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
427: END IF;
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
426: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
427: END IF;
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
427: END IF;
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.g_err_stage:='Versions are incompatible';
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
431: OR ( l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY AND
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.g_err_stage:='Versions are incompatible';
438: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
439: END IF;
440:
441: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
442: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
443: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
444: END IF;
445:
446: /* Bug 3149010 - Included the following validation */
447: /* Bug 3276128 - Included source appr rev plan flag condition.
458: END IF;
459:
460: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
461: p_msg_name => 'PA_FP_CP_INV_MC_TO_APPR_REV');
462: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
463:
464: END IF; */
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
582: ,x_msg_data => l_msg_data );
583:
584: /* Bug# 2647047 - Raise if return status is not success */
585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
587: END IF;
588:
589: --Calling the api to copy source version to target version
590:
597:
598: PA_FIN_PLAN_PUB.COPY_VERSION(
599: p_project_id => l_project_id
600: ,p_source_version_id => p_source_plan_version_id
601: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
602: ,px_target_version_id => l_target_plan_version_id
603: ,p_adj_percentage => l_adj_percentage
604: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
605: ,x_return_status => l_return_status
600: ,p_source_version_id => p_source_plan_version_id
601: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
602: ,px_target_version_id => l_target_plan_version_id
603: ,p_adj_percentage => l_adj_percentage
604: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
605: ,x_return_status => l_return_status
606: ,x_msg_count => l_msg_count
607: ,x_msg_data => l_msg_data);
608:
607: ,x_msg_data => l_msg_data);
608:
609: /* Bug# 2647047 - Raise if return status is not success */
610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
611: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
612: END IF;
613:
614: -- Start of changes for bug 2729191
615:
741: x_return_status:= FND_API.G_RET_STS_ERROR;
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.reset_err_stack;
744: END IF;
745: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
746: l_msg_count := FND_MSG_PUB.count_msg;
747: IF l_msg_count = 1 THEN
748: PA_INTERFACE_UTILS_PUB.get_messages
749: (p_encoded => FND_API.G_TRUE
787: IS
788: l_amount_type VARCHAR2(30);
789: BEGIN
790: SELECT DECODE(fin_plan_preference_code
791: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'A'
792: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'R'
793: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'C')
794: INTO l_amount_type
795: FROM PA_PROJ_FP_OPTIONS
788: l_amount_type VARCHAR2(30);
789: BEGIN
790: SELECT DECODE(fin_plan_preference_code
791: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'A'
792: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'R'
793: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'C')
794: INTO l_amount_type
795: FROM PA_PROJ_FP_OPTIONS
796: WHERE fin_plan_version_id = p_fin_plan_version_id;
789: BEGIN
790: SELECT DECODE(fin_plan_preference_code
791: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'A'
792: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'R'
793: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'C')
794: INTO l_amount_type
795: FROM PA_PROJ_FP_OPTIONS
796: WHERE fin_plan_version_id = p_fin_plan_version_id;
797:
1171:
1172: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1173: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1174:
1175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1176:
1177: END IF;
1178:
1179: --Throw an error if the struct element version id is not passed in workplan context
1176:
1177: END IF;
1178:
1179: --Throw an error if the struct element version id is not passed in workplan context
1180: IF p_calling_module=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1181: p_struct_elem_version_id IS NULL THEN
1182:
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.g_err_stage := 'In workplan context p_struct_elem_version_id passed is '||p_struct_elem_version_id;
1186: END IF;
1187: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1188: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1189:
1190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1191: END IF;
1192:
1193: IF P_PA_DEBUG_MODE = 'Y' THEN
1194: pa_debug.g_err_stage := 'Parameter validation complete';
1194: pa_debug.g_err_stage := 'Parameter validation complete';
1195: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1196: END IF;
1197:
1198: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1199: -- Bug 4337221:
1200: l_adj_percentage := 0;
1201: ELSE
1202: -- Make the adjustment percentage zero if it is null
1290: pa_debug.g_err_stage := 'Fetch the maximum version number';
1291: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293:
1294: IF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING THEN
1295:
1296: -- Get the max version number of working versions for this plan type
1297: --start of changes for bug:- 2570250
1298: /*
1300: INTO l_max_version
1301: FROM pa_budget_versions
1302: WHERE project_id = l_project_id
1303: AND fin_plan_type_id = l_fin_plan_type_id
1304: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1305: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED); */
1306: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
1307: (p_project_id => l_target_project_id
1308: ,p_fin_plan_type_id => l_fin_plan_type_id
1301: FROM pa_budget_versions
1302: WHERE project_id = l_project_id
1303: AND fin_plan_type_id = l_fin_plan_type_id
1304: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
1305: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED); */
1306: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
1307: (p_project_id => l_target_project_id
1308: ,p_fin_plan_type_id => l_fin_plan_type_id
1309: ,p_version_type => l_version_type
1306: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
1307: (p_project_id => l_target_project_id
1308: ,p_fin_plan_type_id => l_fin_plan_type_id
1309: ,p_version_type => l_version_type
1310: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
1311: ,p_ci_id => l_ci_id /* FP M changes */
1312: ,p_lock_required_flag => 'Y'
1313: ,x_version_number => l_max_version
1314: ,x_return_status => l_return_status
1317:
1318: --end of changes for bug :- 2570250
1319:
1320: l_version_number := l_max_version + 1;
1321: l_budget_status_code := PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING;
1322: l_current_flag := 'N';
1323:
1324: -- baselined info should be null for a working version
1325:
1339: ELSE
1340: l_current_working_flag := 'N';
1341: END IF;
1342:
1343: ELSIF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
1344:
1345: -- Get the max version number of baselined versions for this plan type
1346:
1347: --start of changes for bug :- 2570250
1350: INTO l_max_version
1351: FROM pa_budget_versions
1352: WHERE project_id = l_project_id
1353: AND fin_plan_type_id = l_fin_plan_type_id
1354: AND budget_status_code = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED;
1355: */
1356:
1357: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
1358: (p_project_id => l_target_project_id
1357: PA_FIN_PLAN_UTILS.Get_Max_Budget_Version_Number
1358: (p_project_id => l_target_project_id
1359: ,p_fin_plan_type_id => l_fin_plan_type_id
1360: ,p_version_type => l_version_type
1361: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED
1362: ,p_ci_id => l_ci_id /* FP M changes */
1363: ,p_lock_required_flag => 'Y'
1364: ,x_version_number => l_max_version
1365: ,x_return_status => l_return_status
1368:
1369: --end of changes for bug :- 2570250
1370:
1371: l_version_number := l_max_version+1;
1372: l_budget_status_code := PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED;
1373: l_current_flag := 'Y';
1374:
1375: -- For bug 3858601
1376: -- Stamp employee_id in baseliend_by_person_id of pa_budget_versions table when
1406: -- For workplan context project structure version id should be populated
1407: -- For Finplan the column is not maintained
1408:
1409: IF p_struct_elem_version_id IS NOT NULL AND
1410: p_calling_module=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1411: THEN
1412: l_wbs_struct_version_id := p_struct_elem_version_id;
1413:
1414: ELSE
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.g_err_stage:='Invalid Arguments Passed';
1451: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1452: END IF;
1453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1454: Exception
1455: When No_Data_Found Then
1456: Null;
1457: End;
1566: ,sysdate
1567: ,fnd_global.user_id
1568: ,fnd_global.login_id
1569: ,l_current_flag --local_variable
1570: ,DECODE(p_copy_mode, PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING ,'N',
1571: DECODE (l_version_number,1,'Y','N')) --original_flag
1572: ,DECODE(p_copy_mode, PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING ,'N',
1573: DECODE (l_version_number,1,'Y','N')) --current_original_flag
1574: ,'N' --resource_accumulated_flag
1568: ,fnd_global.login_id
1569: ,l_current_flag --local_variable
1570: ,DECODE(p_copy_mode, PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING ,'N',
1571: DECODE (l_version_number,1,'Y','N')) --original_flag
1572: ,DECODE(p_copy_mode, PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING ,'N',
1573: DECODE (l_version_number,1,'Y','N')) --current_original_flag
1574: ,'N' --resource_accumulated_flag
1575: ,pbv.resource_list_id
1576: ,SUBSTR(l_version_name,1,60) --local_variable
1665:
1666:
1667: ELSE --if target_version_id is passed then we update the version
1668:
1669: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
1670:
1671: --To decide what amounts are to be copied from source to target
1672: --version set local flags using target fin plan preference code
1673:
1680:
1681: /* UT Fix : decoded G_PREF_COST_AND_REV_SAME as Y for revenue_flag */
1682:
1683: SELECT DECODE(fin_plan_preference_code,
1684: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'Y',
1685: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'N',
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1681: /* UT Fix : decoded G_PREF_COST_AND_REV_SAME as Y for revenue_flag */
1682:
1683: SELECT DECODE(fin_plan_preference_code,
1684: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'Y',
1685: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'N',
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1689: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'Y',
1682:
1683: SELECT DECODE(fin_plan_preference_code,
1684: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'Y',
1685: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'N',
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1689: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'Y',
1690: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --revenue_flag
1684: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'Y',
1685: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'N',
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1689: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'Y',
1690: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --revenue_flag
1691: INTO l_cost_flag
1692: ,l_revenue_flag
1685: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'N',
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1689: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'Y',
1690: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --revenue_flag
1691: INTO l_cost_flag
1692: ,l_revenue_flag
1693: FROM pa_proj_fp_options
1686: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --cost_flag
1687: ,DECODE(fin_plan_preference_code,
1688: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, 'N',
1689: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, 'Y',
1690: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, 'Y') --revenue_flag
1691: INTO l_cost_flag
1692: ,l_revenue_flag
1693: FROM pa_proj_fp_options
1694: WHERE fin_plan_version_id = px_target_version_id;
1830: END IF;
1831:
1832: EXCEPTION
1833:
1834: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1835: l_msg_count := FND_MSG_PUB.count_msg;
1836: IF l_msg_count = 1 THEN
1837: PA_INTERFACE_UTILS_PUB.get_messages
1838: (p_encoded => FND_API.G_TRUE
1967:
1968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1969: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1970:
1971: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1972:
1973: END IF;
1974:
1975: --If the no of elements in source and target element version id tbls are not same, throw error
1981: END IF;
1982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1983: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1984:
1985: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1986: END IF;
1987:
1988: --If the no of elements in source ra id and target project assignment id tbls are not same, throw error
1989: IF p_targ_proj_assmt_id_tbl.count <> p_src_ra_id_tbl.count OR
2000: END IF;
2001: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2002: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2003:
2004: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2005: END IF;
2006:
2007: IF p_src_ra_id_tbl.count=0 THEN
2008:
2157: pa_debug.reset_curr_function;
2158: END IF;
2159: EXCEPTION
2160:
2161: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2162: l_msg_count := FND_MSG_PUB.count_msg;
2163: IF l_msg_count = 1 THEN
2164: PA_INTERFACE_UTILS_PUB.get_messages
2165: (p_encoded => FND_API.G_TRUE
2308: END IF;
2309:
2310: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2311: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: END IF;
2314:
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.g_err_stage := 'Parameter validation complete';
2328: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2331: SELECT DECODE(pfot.fin_plan_preference_code
2332: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
2333: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N') --cost_flag
2334: ,DECODE(pfot.fin_plan_preference_code
2335: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
2336: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')--revenue_flag
2329: END IF;
2330:
2331: SELECT DECODE(pfot.fin_plan_preference_code
2332: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
2333: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N') --cost_flag
2334: ,DECODE(pfot.fin_plan_preference_code
2335: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
2336: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')--revenue_flag
2337: ,pfot.project_id
2331: SELECT DECODE(pfot.fin_plan_preference_code
2332: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
2333: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N') --cost_flag
2334: ,DECODE(pfot.fin_plan_preference_code
2335: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
2336: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')--revenue_flag
2337: ,pfot.project_id
2338: ,pfos.project_id
2339: ,nvl(pfos.cost_fin_plan_level_code, nvl(pfos.revenue_fin_plan_level_code,pfos.all_fin_plan_level_code))
2332: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
2333: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N') --cost_flag
2334: ,DECODE(pfot.fin_plan_preference_code
2335: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
2336: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')--revenue_flag
2337: ,pfot.project_id
2338: ,pfos.project_id
2339: ,nvl(pfos.cost_fin_plan_level_code, nvl(pfos.revenue_fin_plan_level_code,pfos.all_fin_plan_level_code))
2340: ,nvl(pfos.cost_resource_list_id, nvl(pfos.revenue_resource_list_id,pfos.all_resource_list_id))
4044: pa_debug.reset_err_stack; -- bug:- 2815593
4045: END IF;
4046: EXCEPTION
4047:
4048: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4049: l_msg_count := FND_MSG_PUB.count_msg;
4050: IF l_msg_count = 1 THEN
4051: PA_INTERFACE_UTILS_PUB.get_messages
4052: (p_encoded => FND_API.G_TRUE
4198: p_token2 => 'STAGE',
4199: p_value2 => 'Invalid Input Params');
4200:
4201:
4202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4203:
4204: END IF;
4205:
4206:
4280: IF l_debug_mode = 'Y' THEN
4281: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4282: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4283: END IF;
4284: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4285: END IF;
4286:
4287: l_quantity_tbl := l_quantity_out_tbl; --Bug 5078538
4288: l_txn_raw_cost_tbl := l_txn_raw_cost_out_tbl; --Bug 5078538
4301: p_token2 => 'STAGE',
4302: p_value2 => 'l_non_rb_ra_id_tbl.count for Non All Fcst version is '||l_non_rb_ra_id_tbl.COUNT);
4303:
4304:
4305: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4306:
4307: END IF;
4308:
4309: END IF;--IF p_derv_rates_missing_amts_flag='Y' THEN
4352: IF l_debug_mode = 'Y' THEN
4353: pa_debug.g_err_stage:= 'Error in PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4354: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4355: END IF;
4356: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4357: END IF;
4358:
4359: END IF;--IF p_adj_percentage <> 0 OR
4360: */
4640: pa_debug.reset_curr_function;
4641: END IF;
4642:
4643: EXCEPTION
4644: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4645: l_msg_count := FND_MSG_PUB.count_msg;
4646: IF l_msg_count = 1 THEN
4647: PA_INTERFACE_UTILS_PUB.get_messages
4648: (p_encoded => FND_API.G_TRUE
4790:
4791: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4792: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4793:
4794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4795:
4796: END IF;
4797:
4798: IF P_PA_DEBUG_MODE = 'Y' THEN
4827: END IF;
4828:
4829: --Bug 4290043. Selected preference code for the target version
4830: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4831: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4832: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4833: ,DECODE(fin_plan_preference_code -- l_cost_flag
4834: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4835: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4828:
4829: --Bug 4290043. Selected preference code for the target version
4830: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4831: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4832: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4833: ,DECODE(fin_plan_preference_code -- l_cost_flag
4834: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4835: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4836: ,fin_plan_preference_code
4830: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4831: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4832: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4833: ,DECODE(fin_plan_preference_code -- l_cost_flag
4834: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4835: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4836: ,fin_plan_preference_code
4837: INTO l_revenue_flag
4838: ,l_cost_flag
4831: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4832: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4833: ,DECODE(fin_plan_preference_code -- l_cost_flag
4834: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4835: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4836: ,fin_plan_preference_code
4837: INTO l_revenue_flag
4838: ,l_cost_flag
4839: ,l_target_pref_code
5037: ,pbl.attribute12
5038: ,pbl.attribute13
5039: ,pbl.attribute14
5040: ,pbl.attribute15
5041: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5042: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5043: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5044: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5045: ,pbl.pm_product_code
5038: ,pbl.attribute13
5039: ,pbl.attribute14
5040: ,pbl.attribute15
5041: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5042: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5043: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5044: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5045: ,pbl.pm_product_code
5046: ,pbl.pm_budget_line_reference
5039: ,pbl.attribute14
5040: ,pbl.attribute15
5041: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5042: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5043: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5044: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5045: ,pbl.pm_product_code
5046: ,pbl.pm_budget_line_reference
5047: ,DECODE(l_cost_flag, 'Y',cost_rejection_code, NULL)
5040: ,pbl.attribute15
5041: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5042: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5043: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5044: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5045: ,pbl.pm_product_code
5046: ,pbl.pm_budget_line_reference
5047: ,DECODE(l_cost_flag, 'Y',cost_rejection_code, NULL)
5048: ,DECODE(l_revenue_flag, 'Y',revenue_rejection_code, NULL)
5183: IF P_PA_debug_mode = 'Y' THEN
5184: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
5185: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5186: END IF;
5187: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5188: END IF;
5189: END IF;
5190:
5191: --Bug 4290043. Call the API to correct the missing amounts in the target version in case it can have
5210: IF P_PA_debug_mode = 'Y' THEN
5211: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
5212: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5213: END IF;
5214: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5215:
5216: END IF;
5217:
5218: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
5223: pa_debug.reset_err_stack; -- bug:- 2815593
5224: END IF;
5225: EXCEPTION
5226:
5227: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5228: l_msg_count := FND_MSG_PUB.count_msg;
5229: IF l_msg_count = 1 THEN
5230: PA_INTERFACE_UTILS_PUB.get_messages
5231: (p_encoded => FND_API.G_TRUE
5326:
5327: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5328: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5329:
5330: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5331:
5332: END IF;
5333:
5334: IF P_PA_DEBUG_MODE = 'Y' THEN
5357: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5358: END IF;
5359:
5360: SELECT DECODE(fin_plan_preference_code
5361: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5362: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5363: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5364: ,project_id
5365: INTO l_ignore_amount_type
5358: END IF;
5359:
5360: SELECT DECODE(fin_plan_preference_code
5361: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5362: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5363: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5364: ,project_id
5365: INTO l_ignore_amount_type
5366: ,l_target_project_id
5359:
5360: SELECT DECODE(fin_plan_preference_code
5361: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5362: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5363: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5364: ,project_id
5365: INTO l_ignore_amount_type
5366: ,l_target_project_id
5367: FROM pa_proj_fp_options
5454: ,l_target_project_id --project_id
5455: ,pfrmt.target_res_assignment_id --resource_assignment_id
5456: /* Bug# 2677867 - Object_id shoudl always be res assgnmnt id irrespect of FP or ORG_FCST
5457: ,DECODE(p_calling_module
5458: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5459: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5460: */
5461: ,pfrmt.target_res_assignment_id
5462: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5455: ,pfrmt.target_res_assignment_id --resource_assignment_id
5456: /* Bug# 2677867 - Object_id shoudl always be res assgnmnt id irrespect of FP or ORG_FCST
5457: ,DECODE(p_calling_module
5458: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5459: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5460: */
5461: ,pfrmt.target_res_assignment_id
5462: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5463: ,period_profile_id
5458: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5459: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5460: */
5461: ,pfrmt.target_res_assignment_id
5462: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5463: ,period_profile_id
5464: ,amount_type_code
5465: ,amount_subtype_code
5466: ,amount_type_id
5531: FROM PA_PROJ_PERIODS_DENORM pppd
5532: ,PA_FP_RA_MAP_TMP pfrmt
5533: WHERE budget_version_id = p_source_plan_version_id
5534: AND pppd.resource_assignment_id = pfrmt.source_res_assignment_id
5535: AND pppd.object_type_code = PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
5536: AND pppd.amount_type_code <> l_ignore_amount_type;
5537:
5538: IF P_PA_DEBUG_MODE = 'Y' THEN
5539: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5541: pa_debug.reset_err_stack; --bug:- 2815593
5542: END IF;
5543: EXCEPTION
5544:
5545: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5546: l_msg_count := FND_MSG_PUB.count_msg;
5547: IF l_msg_count = 1 THEN
5548: PA_INTERFACE_UTILS_PUB.get_messages
5549: (p_encoded => FND_API.G_TRUE
5854:
5855: -- 1. Submit/Baseline budget if the original template
5856: -- has baselined budget with the same budget type.
5857: -- 2. Display warning message if no baselined cost
5858: -- budget for PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST based revenue accrual project and
5859: -- try to baseline its revenue budget.
5860:
5861: IF (x_mark_as_original = 'Y' and x_orig_template_flag = 'Y' and
5862: (with_funding = 1 or
5869: SELECT budget_version_id
5870: INTO x_new_budget_ver_id
5871: FROM pa_budget_versions
5872: WHERE project_id = x_new_project_id
5873: AND budget_status_code = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
5874: AND budget_type_code = c1_rec.budget_type_code;
5875:
5876: x_err_stage :=
5877: 'submit revenue budget for new project'
6116: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6117: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6118: p_token1 => 'PROCEDURENAME',
6119: p_value1 => 'PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6120: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6121:
6122: END IF;
6123:
6124: IF P_PA_DEBUG_MODE = 'Y' THEN
6201: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6202: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6203: END IF;
6204:
6205: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6206:
6207: /* Bug# 2636723
6208: RETURN; -- Application or Oracle error */
6209:
6230:
6231: /* Added the following check for the NOCOPY changes. */
6232:
6233: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6234: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6235: END IF;
6236:
6237: --Bug :- 2570874
6238: IF NVL(l_proj_fp_options_id_tbl.first,0) >0 THEN --only if something to be copied
6273: --Copy the budget version if option level code is plan version
6274: --We call the api with .99999 as adj_percentage to prevent
6275: --population of amount columns
6276:
6277: IF l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6278:
6279: l_ar_exists := NULL; -- Bug #12998107.This variable was not reset (before reading from cursor)previously for each iteration due to which non AR versions did not get copied to new project.
6280:
6281: /* Code addition for Bug 2986930 starts */
6300: PA_FP_COPY_FROM_PKG.Copy_Budget_Version(
6301: p_source_project_id => p_source_project_id
6302: ,p_target_project_id => p_target_project_id
6303: ,p_source_version_id => l_source_version_id
6304: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
6305: ,p_adj_percentage => .99999
6306: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6307: ,p_struct_elem_version_id => l_struct_elem_version_id
6308: ,p_shift_days => l_shift_days
6302: ,p_target_project_id => p_target_project_id
6303: ,p_source_version_id => l_source_version_id
6304: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
6305: ,p_adj_percentage => .99999
6306: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6307: ,p_struct_elem_version_id => l_struct_elem_version_id
6308: ,p_shift_days => l_shift_days
6309: ,px_target_version_id => l_target_version_id
6310: ,x_return_status => l_return_status
6318:
6319: END IF;/* Added for bug 2986930 */
6320: END IF;
6321:
6322: IF l_fp_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6323: --Create equivalent fp option in pa_proj_fp_options for target
6324:
6325: IF P_PA_DEBUG_MODE = 'Y' THEN
6326: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6352: ,x_return_status => l_return_status
6353: ,x_msg_count => l_msg_count
6354: ,x_msg_data => l_msg_data);
6355:
6356: ELSIF l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6357:
6358: /* Code addition for Bug 2986930 starts */
6359:
6360: IF ( NVL(p_agreement_amount,-1) > 0 AND nvl(l_ar_exists,'N') <> 'Y' ) OR
6416: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6417: IF P_PA_DEBUG_MODE = 'Y' THEN
6418: pa_debug.write(g_module_name,' Return status from copy RA api is ' || l_Return_Status,3);
6419: END IF;
6420: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6421: END IF;
6422:
6423: -- Copying budget_lines from source to target
6424:
6440: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6441: IF P_PA_DEBUG_MODE = 'Y' THEN
6442: pa_debug.write(g_module_name,' Return status from copy bl api is ' || l_Return_Status,3);
6443: END IF;
6444: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6445: END IF;
6446:
6447: --Calling Convert_Txn_Currency api to complete budget lines
6448: --in all respects
6459: ,x_msg_count => l_msg_count
6460: ,x_msg_data => l_msg_data);
6461:
6462: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug# 2634726
6463: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6464: END IF;
6465:
6466: -- Bug Fix: 4569365. Removed MRC code.
6467: -- FPB2: MRC - Calling MRC APIs
6543: IF P_PA_debug_mode = 'Y' THEN
6544: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
6545: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6546: END IF;
6547: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6548: END IF;
6549:
6550: --Calling populate_display_qty for populating display_quantity in pa_budget_lines
6551: PA_BUDGET_LINES_UTILS.populate_display_qty
6558: IF P_PA_debug_mode = 'Y' THEN
6559: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
6560: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6561: END IF;
6562: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6563: END IF;
6564:
6565: /*This piece of code calls maintain_data api with p_version_level_flag => 'N' i.e temp table mode for copying
6566: overrides from the source version and with p_rollup_flag => 'Y' for rolling up the amounts in the target
6607: IF P_PA_debug_mode = 'Y' THEN
6608: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA while doing the rollup';
6609: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6610: END IF;
6611: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6612: END IF;
6613:
6614:
6615: --IPM Architechture Enhancement Bug 4865563 - End
6662: x_return_status => l_return_status,
6663: x_msg_code => l_err_stack);
6664:
6665: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6666: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
6667: p_msg_name => l_err_stack);
6668:
6669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6670: END IF;
6665: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6666: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
6667: p_msg_name => l_err_stack);
6668:
6669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6670: END IF;
6671:
6672: End;
6673:
6711: (l_source_current_flag = 'Y' )
6712: THEN
6713:
6714: IF (nvl(l_funding_exists_flag,'N') = 'Y') OR
6715: (l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
6716: THEN
6717:
6718: --submit and baseline the the plan version
6719:
6733: ,x_msg_data => l_msg_data );
6734:
6735: /* Bug# 2647047 - Raise if return status is not success */
6736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6737: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6738: END IF;
6739:
6740: IF P_PA_DEBUG_MODE = 'Y' THEN
6741: pa_debug.g_err_stage := 'Calling Submit_Current_Working';
6754: ,x_msg_data => l_msg_data );
6755:
6756: /* Bug# 2647047 - Raise if return status is not success */
6757: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6758: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6759: END IF;
6760:
6761: IF P_PA_DEBUG_MODE = 'Y' THEN
6762: pa_debug.g_err_stage := 'Calling Baseline';
6781: -- PA_MRC_FINPLAN.G_CALLING_MODULE := NULL; /* MRC */
6782:
6783: /* Bug# 2647047 - Raise if return status is not success */
6784: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6785: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6786: END IF;
6787:
6788: END IF;
6789:
6802: pa_debug.reset_err_stack;
6803: END IF;
6804: EXCEPTION
6805:
6806: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6807:
6808: l_msg_count := FND_MSG_PUB.count_msg;
6809: IF l_msg_count = 1 THEN
6810: PA_INTERFACE_UTILS_PUB.get_messages
6929: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6930: END IF;
6931: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6932: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6933: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6934:
6935: END IF;
6936:
6937: IF P_PA_DEBUG_MODE = 'Y' THEN
6945: pa_debug.g_err_stage := 'Fetching project level fp option id';
6946: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6947: END IF;
6948:
6949: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT);
6950:
6951: FETCH cur_for_fp_options INTO
6952: l_proj_fp_options_id_tbl(1)
6953: ,l_fin_plan_type_id
6961: pa_debug.g_err_stage := 'Opening cur_for_plan_type_fp_options';
6962: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6963: END IF;
6964:
6965: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE);
6966: LOOP
6967:
6968: l_fp_options_id := NULL;
6969: l_fin_plan_version_id := NULL;
6987:
6988: --For COST_AND REV_SEP plan type we have to copy both revenue and cost
6989: --versions.
6990:
6991: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
6992:
6993: IF P_PA_DEBUG_MODE = 'Y' THEN
6994: pa_debug.g_err_stage := 'Fetching baselined cost plan version';
6995: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6997:
6998: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
6999: p_project_id => p_source_project_id
7000: ,p_fin_plan_type_id => l_fin_plan_type_id
7001: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7002: ,x_fp_options_id => l_fp_options_id
7003: ,x_fin_plan_version_id => l_fin_plan_version_id
7004: ,x_return_status => l_return_status
7005: ,x_msg_count => l_msg_count
7020:
7021: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7022: p_project_id => p_source_project_id
7023: ,p_fin_plan_type_id => l_fin_plan_type_id
7024: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7025: ,x_fp_options_id => l_fp_options_id
7026: ,x_fin_plan_version_id => l_fin_plan_version_id
7027: ,x_return_status => l_return_status
7028: ,x_msg_count => l_msg_count
7055:
7056: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7057: p_project_id => p_source_project_id
7058: ,p_fin_plan_type_id => l_fin_plan_type_id
7059: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
7060: ,x_fp_options_id => l_fp_options_id
7061: ,x_fin_plan_version_id => l_fin_plan_version_id
7062: ,x_return_status => l_return_status
7063: ,x_msg_count => l_msg_count
7078:
7079: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7080: p_project_id => p_source_project_id
7081: ,p_fin_plan_type_id => l_fin_plan_type_id
7082: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
7083: ,x_fp_options_id => l_fp_options_id
7084: ,x_fin_plan_version_id => l_fin_plan_version_id
7085: ,x_return_status => l_return_status
7086: ,x_msg_count => l_msg_count
7185: END IF;
7186:
7187: EXCEPTION
7188:
7189: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7190: l_msg_count := FND_MSG_PUB.count_msg;
7191: IF l_msg_count = 1 THEN
7192: PA_INTERFACE_UTILS_PUB.get_messages
7193: (p_encoded => FND_API.G_TRUE
7278: END IF;
7279:
7280: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7281: p_msg_name => l_err_stage);
7282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7283: END IF;
7284:
7285: If (l_period_name IS NOT NULL) then -- Added if condition for Bug 7556248 --Bug 9062715
7286: INSERT INTO pa_fp_cpy_periods_tmp
7289: ,PERIOD_NAME
7290: ,START_DATE
7291: ,END_DATE)
7292: VALUES
7293: (decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,i.period_name,'-99')
7294: ,decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,i.period_name,'-99')
7295: ,l_period_name
7296: ,l_start_date
7297: ,l_end_date);
7290: ,START_DATE
7291: ,END_DATE)
7292: VALUES
7293: (decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,i.period_name,'-99')
7294: ,decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,i.period_name,'-99')
7295: ,l_period_name
7296: ,l_start_date
7297: ,l_end_date);
7298: END IF;
7391: END IF;
7392:
7393: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7394: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7396:
7397: END IF;
7398:
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7436: FROM pa_projects p
7437: WHERE p.project_id = p_target_project_id;
7438:
7439: IF l_shift_days <> 0
7440: AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7441: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
7442: THEN
7443: BEGIN
7444:
7437: WHERE p.project_id = p_target_project_id;
7438:
7439: IF l_shift_days <> 0
7440: AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7441: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
7442: THEN
7443: BEGIN
7444:
7445: IF P_PA_DEBUG_MODE = 'Y' THEN
7512: END IF;
7513:
7514: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7515: p_msg_name => l_err_stage);
7516: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7517: END IF;
7518: END IF; /* IF l_shift_days <> 0 AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) */
7519:
7520: --If shift_days is zero or the timephasing is none.
7514: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7515: p_msg_name => l_err_stage);
7516: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7517: END IF;
7518: END IF; /* IF l_shift_days <> 0 AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P) */
7519:
7520: --If shift_days is zero or the timephasing is none.
7521:
7522: IF (l_shift_days = 0) OR (l_periods = 0) OR
7519:
7520: --If shift_days is zero or the timephasing is none.
7521:
7522: IF (l_shift_days = 0) OR (l_periods = 0) OR
7523: (l_target_time_phased_code NOT IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7524: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P))
7525: THEN
7526: /* If the time phasing is none, stamp the resource assignments' planning
7527: start and end dates for budget line start and end dates
7520: --If shift_days is zero or the timephasing is none.
7521:
7522: IF (l_shift_days = 0) OR (l_periods = 0) OR
7523: (l_target_time_phased_code NOT IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7524: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P))
7525: THEN
7526: /* If the time phasing is none, stamp the resource assignments' planning
7527: start and end dates for budget line start and end dates
7528: */
7651: SELECT pa_budget_lines_s.nextval /* FPB2 */
7652: ,p_target_plan_version_id /* FPB2 */
7653: ,pra.resource_assignment_id
7654: ,DECODE(l_target_time_phased_code,
7655: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,nvl(l_target_proj_start_date , pbl.start_date + l_shift_days), --Bug 4739375,l_target_proj_start_date.--bug 3841942 l_target_proj_start_date,
7656: pbl.start_date ) -- start_date
7657: ,sysdate
7658: ,fnd_global.user_id
7659: ,sysdate
7660: ,fnd_global.user_id
7661: ,fnd_global.login_id
7662: -- Commented by skkoppul for bug 7238582 and replaced this with the decode statement below
7663: -- ,DECODE(l_target_time_phased_code,
7664: -- PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N, nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), --Bug 4739375,l_target_proj_completion_date,--bug 3841942 l_target_proj_completion_date,
7665: -- pbl.end_date ) -- end_date
7666: -- Default end date with start date if start date > end date else leave end date as is
7667: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7668: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7663: -- ,DECODE(l_target_time_phased_code,
7664: -- PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N, nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), --Bug 4739375,l_target_proj_completion_date,--bug 3841942 l_target_proj_completion_date,
7665: -- pbl.end_date ) -- end_date
7666: -- Default end date with start date if start date > end date else leave end date as is
7667: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7668: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7669: -
7670: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7671: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7666: -- Default end date with start date if start date > end date else leave end date as is
7667: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7668: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7669: -
7670: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7671: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7672: 1,
7673: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7674: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7669: -
7670: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7671: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7672: 1,
7673: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7674: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7675: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7676: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date)) -- end_date
7677: ,pbl.period_name
7671: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7672: 1,
7673: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7674: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7675: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7676: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date)) -- end_date
7677: ,pbl.period_name
7678: ,pbl.quantity
7679: ,pbl.display_quantity --IPM Arch Enhancement Bug 4865563.
7697: ,pbl.attribute12
7698: ,pbl.attribute13
7699: ,pbl.attribute14
7700: ,pbl.attribute15
7701: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7702: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7703: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7704: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7705: ,NULL --pm_product_code
7698: ,pbl.attribute13
7699: ,pbl.attribute14
7700: ,pbl.attribute15
7701: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7702: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7703: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7704: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7705: ,NULL --pm_product_code
7706: ,NULL --pm_budget_line_reference
7699: ,pbl.attribute14
7700: ,pbl.attribute15
7701: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7702: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7703: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7704: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7705: ,NULL --pm_product_code
7706: ,NULL --pm_budget_line_reference
7707: ,cost_rejection_code
7700: ,pbl.attribute15
7701: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7702: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7703: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7704: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7705: ,NULL --pm_product_code
7706: ,NULL --pm_budget_line_reference
7707: ,cost_rejection_code
7708: ,revenue_rejection_code
7790:
7791:
7792: /* Start of Code Fix for Bug:4739375.*/
7793:
7794: IF (l_target_time_phased_code NOT IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7795: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)) THEN
7796: /*
7797: UPDATE pa_resource_assignments pra
7798: SET (pra.planning_start_date , pra.planning_end_date , pra.sp_fixed_date)
7791:
7792: /* Start of Code Fix for Bug:4739375.*/
7793:
7794: IF (l_target_time_phased_code NOT IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7795: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)) THEN
7796: /*
7797: UPDATE pa_resource_assignments pra
7798: SET (pra.planning_start_date , pra.planning_end_date , pra.sp_fixed_date)
7799: = (SELECT least(pra.planning_start_date + l_shift_days,
7998: ,pbl.attribute12
7999: ,pbl.attribute13
8000: ,pbl.attribute14
8001: ,pbl.attribute15
8002: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
8003: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
8004: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
8005: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
8006: ,NULL --pm_product_code
7999: ,pbl.attribute13
8000: ,pbl.attribute14
8001: ,pbl.attribute15
8002: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
8003: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
8004: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
8005: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
8006: ,NULL --pm_product_code
8007: ,NULL --pm_budget_line_reference
8000: ,pbl.attribute14
8001: ,pbl.attribute15
8002: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
8003: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
8004: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
8005: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
8006: ,NULL --pm_product_code
8007: ,NULL --pm_budget_line_reference
8008: ,cost_rejection_code
8001: ,pbl.attribute15
8002: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
8003: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
8004: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
8005: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
8006: ,NULL --pm_product_code
8007: ,NULL --pm_budget_line_reference
8008: ,cost_rejection_code
8009: ,revenue_rejection_code
8085: ,pa_resource_assignments pra
8086: ,PA_FP_CPY_PERIODS_TMP pptmp /* Bug# 2634726 */
8087: WHERE pra.parent_assignment_id = pbl.resource_assignment_id
8088: AND decode(l_target_time_phased_code,
8089: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, pptmp.pa_period_name,
8090: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G, pptmp.gl_period_name) = pbl.period_name
8091: AND pbl.budget_version_id = p_source_plan_version_id
8092: AND pra.budget_version_id=p_target_plan_version_id;
8093:
8086: ,PA_FP_CPY_PERIODS_TMP pptmp /* Bug# 2634726 */
8087: WHERE pra.parent_assignment_id = pbl.resource_assignment_id
8088: AND decode(l_target_time_phased_code,
8089: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, pptmp.pa_period_name,
8090: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G, pptmp.gl_period_name) = pbl.period_name
8091: AND pbl.budget_version_id = p_source_plan_version_id
8092: AND pra.budget_version_id=p_target_plan_version_id;
8093:
8094: /* End of code fix for bug# 2634726 */
8118: pa_debug.reset_err_stack;
8119: END IF;
8120: EXCEPTION
8121:
8122: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8123: l_msg_count := FND_MSG_PUB.count_msg;
8124: IF l_msg_count = 1 THEN
8125: PA_INTERFACE_UTILS_PUB.get_messages
8126: (p_encoded => FND_API.G_TRUE
8217: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8218: END IF;
8219: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8220: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8221: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8222:
8223: END IF;
8224:
8225: -- For the copied budget versions, create a new period profile
8242: ,x_msg_count => l_msg_count
8243: ,x_msg_data => l_msg_data );
8244:
8245: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8247: END IF;
8248:
8249: END LOOP;
8250: CLOSE current_period_profiles_cur;
8250: CLOSE current_period_profiles_cur;
8251:
8252: IF p_pa_debug_mode = 'Y' THEN
8253: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8254: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8255: pa_debug.reset_err_stack;
8256: END IF;
8257:
8258: EXCEPTION
8256: END IF;
8257:
8258: EXCEPTION
8259:
8260: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8261:
8262: x_return_status := FND_API.G_RET_STS_ERROR;
8263: l_msg_count := FND_MSG_PUB.count_msg;
8264: IF l_msg_count = 1 THEN
8289: ,p_procedure_name => 'Copy_Current_Period_Profiles'
8290: ,p_error_text => sqlerrm);
8291: IF p_pa_debug_mode = 'Y' THEN
8292: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8293: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8294: pa_debug.reset_err_stack;
8295: END IF;
8296: RAISE;
8297:
8392: (p_shift_days IS NULL)
8393: THEN
8394: IF p_pa_debug_mode = 'Y' THEN
8395: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8396: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8397: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8398: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8399: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8400: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8394: IF p_pa_debug_mode = 'Y' THEN
8395: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8396: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8397: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8398: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8399: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8400: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8401: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8402: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8396: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8397: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8398: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8399: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8400: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8401: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8402: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8403: END IF;
8404: PA_UTILS.ADD_MESSAGE
8398: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8399: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8400: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8401: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8402: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8403: END IF;
8404: PA_UTILS.ADD_MESSAGE
8405: (p_app_short_name => 'PA',
8406: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8403: END IF;
8404: PA_UTILS.ADD_MESSAGE
8405: (p_app_short_name => 'PA',
8406: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8407: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8408: END IF;
8409:
8410: -- Check for the target project if a period profile has been already created
8411: -- for the passed source period profile
8431:
8432: -- Fetch the source period profile details
8433: IF p_pa_debug_mode = 'Y' THEN
8434: pa_debug.g_err_stage:= 'Opening source_profile_info_cur';
8435: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8436: END IF;
8437:
8438: OPEN source_profile_info_cur(p_source_period_profile_id);
8439: FETCH source_profile_info_cur INTO source_profile_info_rec;
8443: -- Fetching the details required to create period profile for the target project
8444:
8445: SELECT b.period_set_name
8446: ,DECODE(source_profile_info_rec.plan_period_type,
8447: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8448: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8449: ,DECODE(source_profile_info_rec.plan_period_type,
8450: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8451: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8444:
8445: SELECT b.period_set_name
8446: ,DECODE(source_profile_info_rec.plan_period_type,
8447: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8448: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8449: ,DECODE(source_profile_info_rec.plan_period_type,
8450: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8451: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8452: INTO l_period_set_name
8446: ,DECODE(source_profile_info_rec.plan_period_type,
8447: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8448: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8449: ,DECODE(source_profile_info_rec.plan_period_type,
8450: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8451: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8452: INTO l_period_set_name
8453: ,l_accounted_period_type
8454: ,l_pa_period_type
8447: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8448: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8449: ,DECODE(source_profile_info_rec.plan_period_type,
8450: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8451: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8452: INTO l_period_set_name
8453: ,l_accounted_period_type
8454: ,l_pa_period_type
8455: FROM pa_projects_all p
8467: EXCEPTION
8468: WHEN OTHERS THEN
8469: IF p_pa_debug_mode = 'Y' THEN
8470: pa_debug.g_err_stage:= 'Unexp Error while fetching the accounted period type||SQLERRM';
8471: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8472: END IF;
8473: RAISE;
8474: END;
8475:
8477: -- Fetch the target project start and completion dates
8478: -- Fetch the GL/PA periods into which the target project start and completion dates fall.
8479: IF p_pa_debug_mode = 'Y' THEN
8480: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
8481: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8482: END IF;
8483:
8484: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
8485: p_project_id => p_target_project_id
8509:
8510: -- Shift the source period profile start date by p_shift_days input.
8511: IF p_pa_debug_mode = 'Y' THEN
8512: pa_debug.g_err_stage:= 'Shifting source period profile by shift days i/p';
8513: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8514: END IF;
8515:
8516: BEGIN /* Bug 2987076 - If shifted period is not available then return without creating the period profile */
8517:
8542: WHEN NO_DATA_FOUND THEN
8543:
8544: IF p_pa_debug_mode = 'Y' THEN
8545: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8546: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8547: pa_debug.g_err_stage:= 'Period profile is not created.....';
8548: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8549: END IF;
8550:
8544: IF p_pa_debug_mode = 'Y' THEN
8545: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8546: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8547: pa_debug.g_err_stage:= 'Period profile is not created.....';
8548: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8549: END IF;
8550:
8551: l_create_period_profile := 'N';
8552:
8557: -- Fetch the target profile end period by shifting the fetching the target profile start period forward
8558: -- by the number of periods of the source period profile
8559: IF p_pa_debug_mode = 'Y' THEN
8560: pa_debug.g_err_stage:= 'Calling get_Shifted_period';
8561: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8562: END IF;
8563:
8564: PA_FIN_PLAN_UTILS.Get_Shifted_Period (
8565: p_period_name => l_start_period
8573: ,x_msg_data => l_msg_data );
8574:
8575: IF p_pa_debug_mode = 'Y' THEN
8576: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8577: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8578: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8579: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8580: END IF;
8581:
8575: IF p_pa_debug_mode = 'Y' THEN
8576: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8577: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8578: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8579: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8580: END IF;
8581:
8582: IF (l_prj_end_date IS NOT NULL) AND
8583: (to_date(l_prj_end_date,'rrrr/mm/dd') < l_end_period_start_date)
8637: -- Call Maintain_Prj_Period_Profile
8638:
8639: IF p_pa_debug_mode = 'Y' THEN
8640: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile';
8641: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8642: END IF;
8643:
8644: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
8645: p_project_id => p_target_project_id
8670: END IF; /* l_create_period_profile = 'Y' */
8671:
8672: IF p_pa_debug_mode = 'Y' THEN
8673: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8674: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8675: pa_debug.reset_err_stack;
8676: END IF;
8677: EXCEPTION
8678:
8675: pa_debug.reset_err_stack;
8676: END IF;
8677: EXCEPTION
8678:
8679: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8680:
8681: x_return_status := FND_API.G_RET_STS_ERROR;
8682: l_msg_count := FND_MSG_PUB.count_msg;
8683: IF l_msg_count = 1 THEN
8708: ,p_procedure_name => 'Get_Create_Shifted_PD_Profile'
8709: ,p_error_text => sqlerrm);
8710: IF p_pa_debug_mode = 'Y' THEN
8711: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8712: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8713: pa_debug.reset_err_stack;
8714: END IF;
8715: RAISE;
8716: END Get_Create_Shifted_PD_Profile;
8865:
8866: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8867: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8868:
8869: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8870:
8871: END IF;
8872:
8873:
8898:
8899: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8900: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8901:
8902: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8903:
8904: END IF;
8905:
8906: --Derive the workplan fin plan type id
8916: IF l_debug_mode = 'Y' THEN
8917: pa_debug.g_err_stage:='pa_fp_planning_transaction_pub.add_wp_plan_type returned error';
8918: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8919: END IF;
8920: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8921:
8922: END IF;
8923:
8924: BEGIN
8933: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8934: END IF;
8935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8936: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE');
8937: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8938: END;
8939:
8940: IF l_debug_mode = 'Y' THEN
8941: pa_debug.g_err_stage:='About to loop thru the source version id tbl '||p_src_sv_ids_tbl.count;
8978: ,p_target_project_id => p_target_project_id
8979: ,p_source_version_id => l_src_budget_version_id
8980: ,p_copy_mode => 'W'
8981: ,p_adj_percentage => l_adj_percentage
8982: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8983: ,p_shift_days => l_shift_days
8984: ,px_target_version_id => l_targ_budget_version_id
8985: ,p_struct_elem_version_id => p_target_sv_ids_tbl(i)
8986: ,x_return_status => x_return_status
8992: IF l_debug_mode = 'Y' THEN
8993: pa_debug.g_err_stage:='Copy Budget version returned error';
8994: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8995: END IF;
8996: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8997:
8998: END IF;
8999: --Get the details required to call the Create FP Option API
9000: BEGIN
9025: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option
9026: (
9027: px_target_proj_fp_option_id => l_targ_proj_fp_options_id
9028: ,p_source_proj_fp_option_id => l_src_proj_fp_options_id
9029: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
9030: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
9031: ,p_target_fin_plan_version_id => l_targ_budget_version_id
9032: ,p_target_plan_type_id => l_wp_plan_type_id
9033: ,p_target_project_id => p_target_project_id
9026: (
9027: px_target_proj_fp_option_id => l_targ_proj_fp_options_id
9028: ,p_source_proj_fp_option_id => l_src_proj_fp_options_id
9029: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
9030: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
9031: ,p_target_fin_plan_version_id => l_targ_budget_version_id
9032: ,p_target_plan_type_id => l_wp_plan_type_id
9033: ,p_target_project_id => p_target_project_id
9034: ,x_return_status => x_return_status
9040: IF l_debug_mode = 'Y' THEN
9041: pa_debug.g_err_stage:='Create_Fp_Option returned error';
9042: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9043: END IF;
9044: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9045:
9046: END IF;
9047:
9048: --Derive the multi currency flag so as to call the copy planning txn currencies
9071: IF l_debug_mode = 'Y' THEN
9072: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9073: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9074: END IF;
9075: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9076:
9077: END IF;
9078:
9079: --Call the PJI API to register the creation of plan version
9112: x_msg_code => l_msg_data);
9113: END IF;
9114:
9115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9116: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
9117: p_msg_name => l_msg_data);
9118: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9119: END IF;
9120:
9114:
9115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9116: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
9117: p_msg_name => l_msg_data);
9118: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9119: END IF;
9120:
9121:
9122:
9142:
9143:
9144: --Calling the copy planning txn API
9145: pa_fp_planning_transaction_pub.copy_planning_transactions(
9146: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9147: ,p_copy_external_flag => l_copy_external_flag
9148: ,p_src_project_id => p_source_project_id
9149: ,p_target_project_id => p_target_project_id
9150: ,p_src_budget_version_id => l_src_budget_version_id
9165: IF l_debug_mode = 'Y' THEN
9166: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9167: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9168: END IF;
9169: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9170:
9171: END IF;
9172:
9173: -- Bug 3619687
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9189: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9190: END IF;
9191: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9192: END IF;
9193:
9194: -- If copy actuals from structure id is passed progress actuals should be copied
9195: -- for the target version
9236: IF l_debug_mode = 'Y' THEN
9237: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9238: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9239: END IF;
9240: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9241: END IF;
9242: END IF;
9243:
9244: PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api
9253: IF l_debug_mode = 'Y' THEN
9254: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9255: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9256: END IF;
9257: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9258: END IF;
9259:
9260:
9261: END LOOP;
9267: pa_debug.reset_curr_function;
9268: END IF;
9269: EXCEPTION
9270:
9271: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9272: l_msg_count := FND_MSG_PUB.count_msg;
9273: IF l_msg_count = 1 THEN
9274: PA_INTERFACE_UTILS_PUB.get_messages
9275: (p_encoded => FND_API.G_TRUE
9538: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9539: p_token1=>'PROCEDURENAME',
9540: p_value1=>'COPY_BUDGET_LINES_APPR_REV');
9541:
9542: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9543:
9544: END IF;
9545:
9546: IF P_PA_DEBUG_MODE = 'Y' THEN
9560: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9561: END IF;
9562:
9563: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9564: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9565: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9566: ,DECODE(fin_plan_preference_code -- l_cost_flag
9567: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9568: ,fin_plan_preference_code
9561: END IF;
9562:
9563: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9564: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9565: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9566: ,DECODE(fin_plan_preference_code -- l_cost_flag
9567: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9568: ,fin_plan_preference_code
9569: INTO l_revenue_flag
9563: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9564: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9565: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9566: ,DECODE(fin_plan_preference_code -- l_cost_flag
9567: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9568: ,fin_plan_preference_code
9569: INTO l_revenue_flag
9570: ,l_cost_flag
9571: ,l_targ_pref_code
9870: ,l_attribute12Tab(l_ref)
9871: ,l_attribute13Tab(l_ref)
9872: ,l_attribute14Tab(l_ref)
9873: ,l_attribute15Tab(l_ref)
9874: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9875: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9876: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9877: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9878: ,null -- pm_product_code
9871: ,l_attribute13Tab(l_ref)
9872: ,l_attribute14Tab(l_ref)
9873: ,l_attribute15Tab(l_ref)
9874: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9875: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9876: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9877: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9878: ,null -- pm_product_code
9879: ,null
9872: ,l_attribute14Tab(l_ref)
9873: ,l_attribute15Tab(l_ref)
9874: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9875: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9876: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9877: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9878: ,null -- pm_product_code
9879: ,null
9880: ,null
9873: ,l_attribute15Tab(l_ref)
9874: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9875: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9876: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9877: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9878: ,null -- pm_product_code
9879: ,null
9880: ,null
9881: ,null
9983: IF P_PA_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9985: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9988: END IF;
9989: END IF;
9990:
9991: --Bug 4290043. Call the API to correct the missing amounts in the target version in case it can have
10010: IF P_PA_debug_mode = 'Y' THEN
10011: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
10012: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
10013: END IF;
10014: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10015:
10016: END IF;
10017:
10018: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
10023: pa_debug.reset_err_stack; -- bug:- 2815593
10024: END IF;
10025: EXCEPTION
10026:
10027: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10028: l_msg_count := FND_MSG_PUB.count_msg;
10029: IF l_msg_count = 1 THEN
10030: PA_INTERFACE_UTILS_PUB.get_messages
10031: (p_encoded => FND_API.G_TRUE
10208: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10209: p_token1 => 'PROCEDURENAME',
10210: p_value1 => 'PA_FP_COPY_FROM_PKG.Update_Plan_Setup_For_WP_Copy');
10211:
10212: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10213:
10214: END IF;
10215:
10216: -- Fetch all the plan type values that could have changed
10306: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies
10307: api returned error';
10308: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10309: END IF;
10310: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10311: END IF;
10312:
10313: -- If resource list has changed, resource assingments data should be re-mapped as per
10314: -- the new resource list
10329: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids
10330: api returned error';
10331: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10332: END IF;
10333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10334: END IF;
10335:
10336: -- Update all the task planning elements with new PEOPLE rlmid
10337: IF l_debug_mode = 'Y' THEN
10376: IF l_debug_mode = 'Y' THEN
10377: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
10378: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10379: END IF;
10380: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10381: ELSE
10382: -- Check count of the required out tables to be the same
10383: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
10384: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
10394: pa_debug.g_err_stage:=
10395: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10396: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10397: END IF;
10398: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10399: END IF;
10400: END IF;
10401:
10402: -- Check if out table has any records first
10429: END IF;
10430:
10431: EXCEPTION
10432:
10433: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10434: l_msg_count := FND_MSG_PUB.count_msg;
10435: IF l_msg_count = 1 THEN
10436: PA_INTERFACE_UTILS_PUB.get_messages
10437: (p_encoded => FND_API.G_TRUE