[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))
4032: pa_debug.reset_err_stack; -- bug:- 2815593
4033: END IF;
4034: EXCEPTION
4035:
4036: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4037: l_msg_count := FND_MSG_PUB.count_msg;
4038: IF l_msg_count = 1 THEN
4039: PA_INTERFACE_UTILS_PUB.get_messages
4040: (p_encoded => FND_API.G_TRUE
4186: p_token2 => 'STAGE',
4187: p_value2 => 'Invalid Input Params');
4188:
4189:
4190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4191:
4192: END IF;
4193:
4194:
4268: IF l_debug_mode = 'Y' THEN
4269: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4270: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4271: END IF;
4272: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4273: END IF;
4274:
4275: l_quantity_tbl := l_quantity_out_tbl; --Bug 5078538
4276: l_txn_raw_cost_tbl := l_txn_raw_cost_out_tbl; --Bug 5078538
4289: p_token2 => 'STAGE',
4290: p_value2 => 'l_non_rb_ra_id_tbl.count for Non All Fcst version is '||l_non_rb_ra_id_tbl.COUNT);
4291:
4292:
4293: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4294:
4295: END IF;
4296:
4297: END IF;--IF p_derv_rates_missing_amts_flag='Y' THEN
4340: IF l_debug_mode = 'Y' THEN
4341: pa_debug.g_err_stage:= 'Error in PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4342: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4343: END IF;
4344: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4345: END IF;
4346:
4347: END IF;--IF p_adj_percentage <> 0 OR
4348: */
4628: pa_debug.reset_curr_function;
4629: END IF;
4630:
4631: EXCEPTION
4632: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4633: l_msg_count := FND_MSG_PUB.count_msg;
4634: IF l_msg_count = 1 THEN
4635: PA_INTERFACE_UTILS_PUB.get_messages
4636: (p_encoded => FND_API.G_TRUE
4778:
4779: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4780: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4781:
4782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4783:
4784: END IF;
4785:
4786: IF P_PA_DEBUG_MODE = 'Y' THEN
4815: END IF;
4816:
4817: --Bug 4290043. Selected preference code for the target version
4818: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4819: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4820: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4821: ,DECODE(fin_plan_preference_code -- l_cost_flag
4822: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4823: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4816:
4817: --Bug 4290043. Selected preference code for the target version
4818: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4819: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4820: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4821: ,DECODE(fin_plan_preference_code -- l_cost_flag
4822: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4823: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4824: ,fin_plan_preference_code
4818: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4819: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4820: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4821: ,DECODE(fin_plan_preference_code -- l_cost_flag
4822: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4823: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4824: ,fin_plan_preference_code
4825: INTO l_revenue_flag
4826: ,l_cost_flag
4819: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
4820: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
4821: ,DECODE(fin_plan_preference_code -- l_cost_flag
4822: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
4823: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
4824: ,fin_plan_preference_code
4825: INTO l_revenue_flag
4826: ,l_cost_flag
4827: ,l_target_pref_code
5025: ,pbl.attribute12
5026: ,pbl.attribute13
5027: ,pbl.attribute14
5028: ,pbl.attribute15
5029: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5030: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5031: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5032: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5033: ,pbl.pm_product_code
5026: ,pbl.attribute13
5027: ,pbl.attribute14
5028: ,pbl.attribute15
5029: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5030: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5031: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5032: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5033: ,pbl.pm_product_code
5034: ,pbl.pm_budget_line_reference
5027: ,pbl.attribute14
5028: ,pbl.attribute15
5029: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5030: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5031: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5032: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5033: ,pbl.pm_product_code
5034: ,pbl.pm_budget_line_reference
5035: ,DECODE(l_cost_flag, 'Y',cost_rejection_code, NULL)
5028: ,pbl.attribute15
5029: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
5030: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
5031: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
5032: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
5033: ,pbl.pm_product_code
5034: ,pbl.pm_budget_line_reference
5035: ,DECODE(l_cost_flag, 'Y',cost_rejection_code, NULL)
5036: ,DECODE(l_revenue_flag, 'Y',revenue_rejection_code, NULL)
5171: IF P_PA_debug_mode = 'Y' THEN
5172: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
5173: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5174: END IF;
5175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5176: END IF;
5177: END IF;
5178:
5179: --Bug 4290043. Call the API to correct the missing amounts in the target version in case it can have
5198: IF P_PA_debug_mode = 'Y' THEN
5199: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
5200: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5201: END IF;
5202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5203:
5204: END IF;
5205:
5206: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
5211: pa_debug.reset_err_stack; -- bug:- 2815593
5212: END IF;
5213: EXCEPTION
5214:
5215: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5216: l_msg_count := FND_MSG_PUB.count_msg;
5217: IF l_msg_count = 1 THEN
5218: PA_INTERFACE_UTILS_PUB.get_messages
5219: (p_encoded => FND_API.G_TRUE
5314:
5315: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5316: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5317:
5318: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5319:
5320: END IF;
5321:
5322: IF P_PA_DEBUG_MODE = 'Y' THEN
5345: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5346: END IF;
5347:
5348: SELECT DECODE(fin_plan_preference_code
5349: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5350: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5351: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5352: ,project_id
5353: INTO l_ignore_amount_type
5346: END IF;
5347:
5348: SELECT DECODE(fin_plan_preference_code
5349: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5350: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5351: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5352: ,project_id
5353: INTO l_ignore_amount_type
5354: ,l_target_project_id
5347:
5348: SELECT DECODE(fin_plan_preference_code
5349: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5350: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
5351: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'-99') --copy both cost and revenue
5352: ,project_id
5353: INTO l_ignore_amount_type
5354: ,l_target_project_id
5355: FROM pa_proj_fp_options
5442: ,l_target_project_id --project_id
5443: ,pfrmt.target_res_assignment_id --resource_assignment_id
5444: /* Bug# 2677867 - Object_id shoudl always be res assgnmnt id irrespect of FP or ORG_FCST
5445: ,DECODE(p_calling_module
5446: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5447: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5448: */
5449: ,pfrmt.target_res_assignment_id
5450: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5443: ,pfrmt.target_res_assignment_id --resource_assignment_id
5444: /* Bug# 2677867 - Object_id shoudl always be res assgnmnt id irrespect of FP or ORG_FCST
5445: ,DECODE(p_calling_module
5446: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5447: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5448: */
5449: ,pfrmt.target_res_assignment_id
5450: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5451: ,period_profile_id
5446: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_ORG_FORECAST ,pfrmt.target_res_assignment_id
5447: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN , -1) --object_id
5448: */
5449: ,pfrmt.target_res_assignment_id
5450: ,PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT --object_type_code
5451: ,period_profile_id
5452: ,amount_type_code
5453: ,amount_subtype_code
5454: ,amount_type_id
5519: FROM PA_PROJ_PERIODS_DENORM pppd
5520: ,PA_FP_RA_MAP_TMP pfrmt
5521: WHERE budget_version_id = p_source_plan_version_id
5522: AND pppd.resource_assignment_id = pfrmt.source_res_assignment_id
5523: AND pppd.object_type_code = PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
5524: AND pppd.amount_type_code <> l_ignore_amount_type;
5525:
5526: IF P_PA_DEBUG_MODE = 'Y' THEN
5527: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5529: pa_debug.reset_err_stack; --bug:- 2815593
5530: END IF;
5531: EXCEPTION
5532:
5533: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5534: l_msg_count := FND_MSG_PUB.count_msg;
5535: IF l_msg_count = 1 THEN
5536: PA_INTERFACE_UTILS_PUB.get_messages
5537: (p_encoded => FND_API.G_TRUE
5842:
5843: -- 1. Submit/Baseline budget if the original template
5844: -- has baselined budget with the same budget type.
5845: -- 2. Display warning message if no baselined cost
5846: -- budget for PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST based revenue accrual project and
5847: -- try to baseline its revenue budget.
5848:
5849: IF (x_mark_as_original = 'Y' and x_orig_template_flag = 'Y' and
5850: (with_funding = 1 or
5857: SELECT budget_version_id
5858: INTO x_new_budget_ver_id
5859: FROM pa_budget_versions
5860: WHERE project_id = x_new_project_id
5861: AND budget_status_code = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
5862: AND budget_type_code = c1_rec.budget_type_code;
5863:
5864: x_err_stage :=
5865: 'submit revenue budget for new project'
6103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6104: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6105: p_token1 => 'PROCEDURENAME',
6106: p_value1 => 'PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6108:
6109: END IF;
6110:
6111: IF P_PA_DEBUG_MODE = 'Y' THEN
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6190: END IF;
6191:
6192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6193:
6194: /* Bug# 2636723
6195: RETURN; -- Application or Oracle error */
6196:
6217:
6218: /* Added the following check for the NOCOPY changes. */
6219:
6220: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6221: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6222: END IF;
6223:
6224: --Bug :- 2570874
6225: IF NVL(l_proj_fp_options_id_tbl.first,0) >0 THEN --only if something to be copied
6260: --Copy the budget version if option level code is plan version
6261: --We call the api with .99999 as adj_percentage to prevent
6262: --population of amount columns
6263:
6264: IF l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6265:
6266: /* Code addition for Bug 2986930 starts */
6267: OPEN c_ar_chk(l_source_version_id);
6268: FETCH c_ar_chk INTO l_ar_exists;
6284: PA_FP_COPY_FROM_PKG.Copy_Budget_Version(
6285: p_source_project_id => p_source_project_id
6286: ,p_target_project_id => p_target_project_id
6287: ,p_source_version_id => l_source_version_id
6288: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
6289: ,p_adj_percentage => .99999
6290: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6291: ,p_struct_elem_version_id => l_struct_elem_version_id
6292: ,p_shift_days => l_shift_days
6286: ,p_target_project_id => p_target_project_id
6287: ,p_source_version_id => l_source_version_id
6288: ,p_copy_mode => PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING
6289: ,p_adj_percentage => .99999
6290: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN
6291: ,p_struct_elem_version_id => l_struct_elem_version_id
6292: ,p_shift_days => l_shift_days
6293: ,px_target_version_id => l_target_version_id
6294: ,x_return_status => l_return_status
6302:
6303: END IF;/* Added for bug 2986930 */
6304: END IF;
6305:
6306: IF l_fp_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6307: --Create equivalent fp option in pa_proj_fp_options for target
6308:
6309: IF P_PA_DEBUG_MODE = 'Y' THEN
6310: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6336: ,x_return_status => l_return_status
6337: ,x_msg_count => l_msg_count
6338: ,x_msg_data => l_msg_data);
6339:
6340: ELSIF l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6341:
6342: /* Code addition for Bug 2986930 starts */
6343:
6344: IF ( NVL(p_agreement_amount,-1) > 0 AND nvl(l_ar_exists,'N') <> 'Y' ) OR
6399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6400: IF P_PA_DEBUG_MODE = 'Y' THEN
6401: pa_debug.write(g_module_name,' Return status from copy RA api is ' || l_Return_Status,3);
6402: END IF;
6403: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6404: END IF;
6405:
6406: -- Copying budget_lines from source to target
6407:
6423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424: IF P_PA_DEBUG_MODE = 'Y' THEN
6425: pa_debug.write(g_module_name,' Return status from copy bl api is ' || l_Return_Status,3);
6426: END IF;
6427: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6428: END IF;
6429:
6430: --Calling Convert_Txn_Currency api to complete budget lines
6431: --in all respects
6442: ,x_msg_count => l_msg_count
6443: ,x_msg_data => l_msg_data);
6444:
6445: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- Bug# 2634726
6446: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6447: END IF;
6448:
6449: -- Bug Fix: 4569365. Removed MRC code.
6450: -- FPB2: MRC - Calling MRC APIs
6526: IF P_PA_debug_mode = 'Y' THEN
6527: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
6528: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6529: END IF;
6530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6531: END IF;
6532:
6533: --Calling populate_display_qty for populating display_quantity in pa_budget_lines
6534: PA_BUDGET_LINES_UTILS.populate_display_qty
6541: IF P_PA_debug_mode = 'Y' THEN
6542: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
6543: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6544: END IF;
6545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6546: END IF;
6547:
6548: /*This piece of code calls maintain_data api with p_version_level_flag => 'N' i.e temp table mode for copying
6549: overrides from the source version and with p_rollup_flag => 'Y' for rolling up the amounts in the target
6590: IF P_PA_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA while doing the rollup';
6592: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6593: END IF;
6594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6595: END IF;
6596:
6597:
6598: --IPM Architechture Enhancement Bug 4865563 - End
6645: x_return_status => l_return_status,
6646: x_msg_code => l_err_stack);
6647:
6648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6649: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
6650: p_msg_name => l_err_stack);
6651:
6652: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6653: END IF;
6648: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6649: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
6650: p_msg_name => l_err_stack);
6651:
6652: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6653: END IF;
6654:
6655: End;
6656:
6694: (l_source_current_flag = 'Y' )
6695: THEN
6696:
6697: IF (nvl(l_funding_exists_flag,'N') = 'Y') OR
6698: (l_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
6699: THEN
6700:
6701: --submit and baseline the the plan version
6702:
6716: ,x_msg_data => l_msg_data );
6717:
6718: /* Bug# 2647047 - Raise if return status is not success */
6719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6721: END IF;
6722:
6723: IF P_PA_DEBUG_MODE = 'Y' THEN
6724: pa_debug.g_err_stage := 'Calling Submit_Current_Working';
6737: ,x_msg_data => l_msg_data );
6738:
6739: /* Bug# 2647047 - Raise if return status is not success */
6740: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6741: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6742: END IF;
6743:
6744: IF P_PA_DEBUG_MODE = 'Y' THEN
6745: pa_debug.g_err_stage := 'Calling Baseline';
6764: -- PA_MRC_FINPLAN.G_CALLING_MODULE := NULL; /* MRC */
6765:
6766: /* Bug# 2647047 - Raise if return status is not success */
6767: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6768: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6769: END IF;
6770:
6771: END IF;
6772:
6785: pa_debug.reset_err_stack;
6786: END IF;
6787: EXCEPTION
6788:
6789: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6790:
6791: l_msg_count := FND_MSG_PUB.count_msg;
6792: IF l_msg_count = 1 THEN
6793: PA_INTERFACE_UTILS_PUB.get_messages
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6913: END IF;
6914: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6915: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6917:
6918: END IF;
6919:
6920: IF P_PA_DEBUG_MODE = 'Y' THEN
6928: pa_debug.g_err_stage := 'Fetching project level fp option id';
6929: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6930: END IF;
6931:
6932: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT);
6933:
6934: FETCH cur_for_fp_options INTO
6935: l_proj_fp_options_id_tbl(1)
6936: ,l_fin_plan_type_id
6944: pa_debug.g_err_stage := 'Opening cur_for_plan_type_fp_options';
6945: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6946: END IF;
6947:
6948: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE);
6949: LOOP
6950:
6951: l_fp_options_id := NULL;
6952: l_fin_plan_version_id := NULL;
6970:
6971: --For COST_AND REV_SEP plan type we have to copy both revenue and cost
6972: --versions.
6973:
6974: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
6975:
6976: IF P_PA_DEBUG_MODE = 'Y' THEN
6977: pa_debug.g_err_stage := 'Fetching baselined cost plan version';
6978: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6980:
6981: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
6982: p_project_id => p_source_project_id
6983: ,p_fin_plan_type_id => l_fin_plan_type_id
6984: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
6985: ,x_fp_options_id => l_fp_options_id
6986: ,x_fin_plan_version_id => l_fin_plan_version_id
6987: ,x_return_status => l_return_status
6988: ,x_msg_count => l_msg_count
7003:
7004: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7005: p_project_id => p_source_project_id
7006: ,p_fin_plan_type_id => l_fin_plan_type_id
7007: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7008: ,x_fp_options_id => l_fp_options_id
7009: ,x_fin_plan_version_id => l_fin_plan_version_id
7010: ,x_return_status => l_return_status
7011: ,x_msg_count => l_msg_count
7038:
7039: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7040: p_project_id => p_source_project_id
7041: ,p_fin_plan_type_id => l_fin_plan_type_id
7042: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
7043: ,x_fp_options_id => l_fp_options_id
7044: ,x_fin_plan_version_id => l_fin_plan_version_id
7045: ,x_return_status => l_return_status
7046: ,x_msg_count => l_msg_count
7061:
7062: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7063: p_project_id => p_source_project_id
7064: ,p_fin_plan_type_id => l_fin_plan_type_id
7065: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
7066: ,x_fp_options_id => l_fp_options_id
7067: ,x_fin_plan_version_id => l_fin_plan_version_id
7068: ,x_return_status => l_return_status
7069: ,x_msg_count => l_msg_count
7168: END IF;
7169:
7170: EXCEPTION
7171:
7172: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7173: l_msg_count := FND_MSG_PUB.count_msg;
7174: IF l_msg_count = 1 THEN
7175: PA_INTERFACE_UTILS_PUB.get_messages
7176: (p_encoded => FND_API.G_TRUE
7261: END IF;
7262:
7263: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7264: p_msg_name => l_err_stage);
7265: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7266: END IF;
7267:
7268: INSERT INTO pa_fp_cpy_periods_tmp
7269: (PA_PERIOD_NAME
7271: ,PERIOD_NAME
7272: ,START_DATE
7273: ,END_DATE)
7274: VALUES
7275: (decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,i.period_name,'-99')
7276: ,decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,i.period_name,'-99')
7277: ,l_period_name
7278: ,l_start_date
7279: ,l_end_date);
7272: ,START_DATE
7273: ,END_DATE)
7274: VALUES
7275: (decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,i.period_name,'-99')
7276: ,decode(p_period_type,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,i.period_name,'-99')
7277: ,l_period_name
7278: ,l_start_date
7279: ,l_end_date);
7280: END LOOP;
7372: END IF;
7373:
7374: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7375: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7377:
7378: END IF;
7379:
7380: IF P_PA_DEBUG_MODE = 'Y' THEN
7417: FROM pa_projects p
7418: WHERE p.project_id = p_target_project_id;
7419:
7420: IF l_shift_days <> 0
7421: AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7422: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
7423: THEN
7424: BEGIN
7425:
7418: WHERE p.project_id = p_target_project_id;
7419:
7420: IF l_shift_days <> 0
7421: AND l_target_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7422: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
7423: THEN
7424: BEGIN
7425:
7426: IF P_PA_DEBUG_MODE = 'Y' THEN
7493: END IF;
7494:
7495: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7496: p_msg_name => l_err_stage);
7497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7498: END IF;
7499: 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) */
7500:
7501: --If shift_days is zero or the timephasing is none.
7495: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7496: p_msg_name => l_err_stage);
7497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7498: END IF;
7499: 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) */
7500:
7501: --If shift_days is zero or the timephasing is none.
7502:
7503: IF (l_shift_days = 0) OR (l_periods = 0) OR
7500:
7501: --If shift_days is zero or the timephasing is none.
7502:
7503: IF (l_shift_days = 0) OR (l_periods = 0) OR
7504: (l_target_time_phased_code NOT IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7505: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P))
7506: THEN
7507: /* If the time phasing is none, stamp the resource assignments' planning
7508: start and end dates for budget line start and end dates
7501: --If shift_days is zero or the timephasing is none.
7502:
7503: IF (l_shift_days = 0) OR (l_periods = 0) OR
7504: (l_target_time_phased_code NOT IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7505: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P))
7506: THEN
7507: /* If the time phasing is none, stamp the resource assignments' planning
7508: start and end dates for budget line start and end dates
7509: */
7632: SELECT pa_budget_lines_s.nextval /* FPB2 */
7633: ,p_target_plan_version_id /* FPB2 */
7634: ,pra.resource_assignment_id
7635: ,DECODE(l_target_time_phased_code,
7636: 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,
7637: pbl.start_date ) -- start_date
7638: ,sysdate
7639: ,fnd_global.user_id
7640: ,sysdate
7641: ,fnd_global.user_id
7642: ,fnd_global.login_id
7643: -- Commented by skkoppul for bug 7238582 and replaced this with the decode statement below
7644: -- ,DECODE(l_target_time_phased_code,
7645: -- 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,
7646: -- pbl.end_date ) -- end_date
7647: -- Default end date with start date if start date > end date else leave end date as is
7648: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7649: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7644: -- ,DECODE(l_target_time_phased_code,
7645: -- 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,
7646: -- pbl.end_date ) -- end_date
7647: -- Default end date with start date if start date > end date else leave end date as is
7648: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7649: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7650: -
7651: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7652: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7647: -- Default end date with start date if start date > end date else leave end date as is
7648: ,DECODE(SIGN(DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7649: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date)
7650: -
7651: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7652: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7653: 1,
7654: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7655: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7650: -
7651: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7652: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7653: 1,
7654: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7655: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7656: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7657: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date)) -- end_date
7658: ,pbl.period_name
7652: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date )),
7653: 1,
7654: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7655: nvl(l_target_proj_start_date, pbl.start_date + l_shift_days), pbl.start_date),
7656: DECODE(l_target_time_phased_code,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N,
7657: nvl(l_target_proj_completion_date, pbl.end_date + l_shift_days), pbl.end_date)) -- end_date
7658: ,pbl.period_name
7659: ,pbl.quantity
7660: ,pbl.display_quantity --IPM Arch Enhancement Bug 4865563.
7678: ,pbl.attribute12
7679: ,pbl.attribute13
7680: ,pbl.attribute14
7681: ,pbl.attribute15
7682: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7683: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7684: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7685: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7686: ,NULL --pm_product_code
7679: ,pbl.attribute13
7680: ,pbl.attribute14
7681: ,pbl.attribute15
7682: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7683: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7684: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7685: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7686: ,NULL --pm_product_code
7687: ,NULL --pm_budget_line_reference
7680: ,pbl.attribute14
7681: ,pbl.attribute15
7682: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7683: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7684: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7685: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7686: ,NULL --pm_product_code
7687: ,NULL --pm_budget_line_reference
7688: ,cost_rejection_code
7681: ,pbl.attribute15
7682: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7683: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7684: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7685: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7686: ,NULL --pm_product_code
7687: ,NULL --pm_budget_line_reference
7688: ,cost_rejection_code
7689: ,revenue_rejection_code
7771:
7772:
7773: /* Start of Code Fix for Bug:4739375.*/
7774:
7775: IF (l_target_time_phased_code NOT IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7776: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)) THEN
7777: /*
7778: UPDATE pa_resource_assignments pra
7779: SET (pra.planning_start_date , pra.planning_end_date , pra.sp_fixed_date)
7772:
7773: /* Start of Code Fix for Bug:4739375.*/
7774:
7775: IF (l_target_time_phased_code NOT IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G,
7776: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)) THEN
7777: /*
7778: UPDATE pa_resource_assignments pra
7779: SET (pra.planning_start_date , pra.planning_end_date , pra.sp_fixed_date)
7780: = (SELECT least(pra.planning_start_date + l_shift_days,
7971: ,pbl.attribute12
7972: ,pbl.attribute13
7973: ,pbl.attribute14
7974: ,pbl.attribute15
7975: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7976: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7977: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7978: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7979: ,NULL --pm_product_code
7972: ,pbl.attribute13
7973: ,pbl.attribute14
7974: ,pbl.attribute15
7975: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7976: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7977: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7978: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7979: ,NULL --pm_product_code
7980: ,NULL --pm_budget_line_reference
7973: ,pbl.attribute14
7974: ,pbl.attribute15
7975: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7976: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7977: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7978: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7979: ,NULL --pm_product_code
7980: ,NULL --pm_budget_line_reference
7981: ,cost_rejection_code
7974: ,pbl.attribute15
7975: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --raw_cost_souce
7976: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --burdened_cost_source
7977: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --quantity_source
7978: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_MANUAL_M --revenue source
7979: ,NULL --pm_product_code
7980: ,NULL --pm_budget_line_reference
7981: ,cost_rejection_code
7982: ,revenue_rejection_code
8058: ,pa_resource_assignments pra
8059: ,PA_FP_CPY_PERIODS_TMP pptmp /* Bug# 2634726 */
8060: WHERE pra.parent_assignment_id = pbl.resource_assignment_id
8061: AND decode(l_target_time_phased_code,
8062: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, pptmp.pa_period_name,
8063: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G, pptmp.gl_period_name) = pbl.period_name
8064: AND pbl.budget_version_id = p_source_plan_version_id
8065: AND pra.budget_version_id=p_target_plan_version_id;
8066:
8059: ,PA_FP_CPY_PERIODS_TMP pptmp /* Bug# 2634726 */
8060: WHERE pra.parent_assignment_id = pbl.resource_assignment_id
8061: AND decode(l_target_time_phased_code,
8062: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P, pptmp.pa_period_name,
8063: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G, pptmp.gl_period_name) = pbl.period_name
8064: AND pbl.budget_version_id = p_source_plan_version_id
8065: AND pra.budget_version_id=p_target_plan_version_id;
8066:
8067: /* End of code fix for bug# 2634726 */
8091: pa_debug.reset_err_stack;
8092: END IF;
8093: EXCEPTION
8094:
8095: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8096: l_msg_count := FND_MSG_PUB.count_msg;
8097: IF l_msg_count = 1 THEN
8098: PA_INTERFACE_UTILS_PUB.get_messages
8099: (p_encoded => FND_API.G_TRUE
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8191: END IF;
8192: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8193: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8195:
8196: END IF;
8197:
8198: -- For the copied budget versions, create a new period profile
8215: ,x_msg_count => l_msg_count
8216: ,x_msg_data => l_msg_data );
8217:
8218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8219: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8220: END IF;
8221:
8222: END LOOP;
8223: CLOSE current_period_profiles_cur;
8223: CLOSE current_period_profiles_cur;
8224:
8225: IF p_pa_debug_mode = 'Y' THEN
8226: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8227: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8228: pa_debug.reset_err_stack;
8229: END IF;
8230:
8231: EXCEPTION
8229: END IF;
8230:
8231: EXCEPTION
8232:
8233: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8234:
8235: x_return_status := FND_API.G_RET_STS_ERROR;
8236: l_msg_count := FND_MSG_PUB.count_msg;
8237: IF l_msg_count = 1 THEN
8262: ,p_procedure_name => 'Copy_Current_Period_Profiles'
8263: ,p_error_text => sqlerrm);
8264: IF p_pa_debug_mode = 'Y' THEN
8265: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8266: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8267: pa_debug.reset_err_stack;
8268: END IF;
8269: RAISE;
8270:
8365: (p_shift_days IS NULL)
8366: THEN
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8378: (p_app_short_name => 'PA',
8379: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8378: (p_app_short_name => 'PA',
8379: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8380: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8381: END IF;
8382:
8383: -- Check for the target project if a period profile has been already created
8384: -- for the passed source period profile
8404:
8405: -- Fetch the source period profile details
8406: IF p_pa_debug_mode = 'Y' THEN
8407: pa_debug.g_err_stage:= 'Opening source_profile_info_cur';
8408: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8409: END IF;
8410:
8411: OPEN source_profile_info_cur(p_source_period_profile_id);
8412: FETCH source_profile_info_cur INTO source_profile_info_rec;
8416: -- Fetching the details required to create period profile for the target project
8417:
8418: SELECT b.period_set_name
8419: ,DECODE(source_profile_info_rec.plan_period_type,
8420: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8421: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8422: ,DECODE(source_profile_info_rec.plan_period_type,
8423: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8424: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8417:
8418: SELECT b.period_set_name
8419: ,DECODE(source_profile_info_rec.plan_period_type,
8420: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8421: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8422: ,DECODE(source_profile_info_rec.plan_period_type,
8423: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8424: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8425: INTO l_period_set_name
8419: ,DECODE(source_profile_info_rec.plan_period_type,
8420: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8421: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8422: ,DECODE(source_profile_info_rec.plan_period_type,
8423: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8424: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8425: INTO l_period_set_name
8426: ,l_accounted_period_type
8427: ,l_pa_period_type
8420: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8421: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,accounted_period_type) --accounted_period_type
8422: ,DECODE(source_profile_info_rec.plan_period_type,
8423: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA ,pa_period_type,
8424: PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL ,NULL) --pa_period_type
8425: INTO l_period_set_name
8426: ,l_accounted_period_type
8427: ,l_pa_period_type
8428: FROM pa_projects_all p
8440: EXCEPTION
8441: WHEN OTHERS THEN
8442: IF p_pa_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage:= 'Unexp Error while fetching the accounted period type||SQLERRM';
8444: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8445: END IF;
8446: RAISE;
8447: END;
8448:
8450: -- Fetch the target project start and completion dates
8451: -- Fetch the GL/PA periods into which the target project start and completion dates fall.
8452: IF p_pa_debug_mode = 'Y' THEN
8453: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
8454: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8455: END IF;
8456:
8457: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
8458: p_project_id => p_target_project_id
8482:
8483: -- Shift the source period profile start date by p_shift_days input.
8484: IF p_pa_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Shifting source period profile by shift days i/p';
8486: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8487: END IF;
8488:
8489: BEGIN /* Bug 2987076 - If shifted period is not available then return without creating the period profile */
8490:
8515: WHEN NO_DATA_FOUND THEN
8516:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8523:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8523:
8524: l_create_period_profile := 'N';
8525:
8530: -- Fetch the target profile end period by shifting the fetching the target profile start period forward
8531: -- by the number of periods of the source period profile
8532: IF p_pa_debug_mode = 'Y' THEN
8533: pa_debug.g_err_stage:= 'Calling get_Shifted_period';
8534: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8535: END IF;
8536:
8537: PA_FIN_PLAN_UTILS.Get_Shifted_Period (
8538: p_period_name => l_start_period
8546: ,x_msg_data => l_msg_data );
8547:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8554:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8554:
8555: IF (l_prj_end_date IS NOT NULL) AND
8556: (to_date(l_prj_end_date,'rrrr/mm/dd') < l_end_period_start_date)
8610: -- Call Maintain_Prj_Period_Profile
8611:
8612: IF p_pa_debug_mode = 'Y' THEN
8613: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile';
8614: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8615: END IF;
8616:
8617: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
8618: p_project_id => p_target_project_id
8643: END IF; /* l_create_period_profile = 'Y' */
8644:
8645: IF p_pa_debug_mode = 'Y' THEN
8646: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8647: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8648: pa_debug.reset_err_stack;
8649: END IF;
8650: EXCEPTION
8651:
8648: pa_debug.reset_err_stack;
8649: END IF;
8650: EXCEPTION
8651:
8652: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8653:
8654: x_return_status := FND_API.G_RET_STS_ERROR;
8655: l_msg_count := FND_MSG_PUB.count_msg;
8656: IF l_msg_count = 1 THEN
8681: ,p_procedure_name => 'Get_Create_Shifted_PD_Profile'
8682: ,p_error_text => sqlerrm);
8683: IF p_pa_debug_mode = 'Y' THEN
8684: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8685: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8686: pa_debug.reset_err_stack;
8687: END IF;
8688: RAISE;
8689: END Get_Create_Shifted_PD_Profile;
8838:
8839: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8840: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8841:
8842: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8843:
8844: END IF;
8845:
8846:
8871:
8872: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8873: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8874:
8875: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8876:
8877: END IF;
8878:
8879: --Derive the workplan fin plan type id
8889: IF l_debug_mode = 'Y' THEN
8890: pa_debug.g_err_stage:='pa_fp_planning_transaction_pub.add_wp_plan_type returned error';
8891: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8892: END IF;
8893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8894:
8895: END IF;
8896:
8897: BEGIN
8906: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8907: END IF;
8908: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8909: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE');
8910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8911: END;
8912:
8913: IF l_debug_mode = 'Y' THEN
8914: pa_debug.g_err_stage:='About to loop thru the source version id tbl '||p_src_sv_ids_tbl.count;
8951: ,p_target_project_id => p_target_project_id
8952: ,p_source_version_id => l_src_budget_version_id
8953: ,p_copy_mode => 'W'
8954: ,p_adj_percentage => l_adj_percentage
8955: ,p_calling_module => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8956: ,p_shift_days => l_shift_days
8957: ,px_target_version_id => l_targ_budget_version_id
8958: ,p_struct_elem_version_id => p_target_sv_ids_tbl(i)
8959: ,x_return_status => x_return_status
8965: IF l_debug_mode = 'Y' THEN
8966: pa_debug.g_err_stage:='Copy Budget version returned error';
8967: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8968: END IF;
8969: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8970:
8971: END IF;
8972: --Get the details required to call the Create FP Option API
8973: BEGIN
8998: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option
8999: (
9000: px_target_proj_fp_option_id => l_targ_proj_fp_options_id
9001: ,p_source_proj_fp_option_id => l_src_proj_fp_options_id
9002: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
9003: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
9004: ,p_target_fin_plan_version_id => l_targ_budget_version_id
9005: ,p_target_plan_type_id => l_wp_plan_type_id
9006: ,p_target_project_id => p_target_project_id
8999: (
9000: px_target_proj_fp_option_id => l_targ_proj_fp_options_id
9001: ,p_source_proj_fp_option_id => l_src_proj_fp_options_id
9002: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION
9003: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
9004: ,p_target_fin_plan_version_id => l_targ_budget_version_id
9005: ,p_target_plan_type_id => l_wp_plan_type_id
9006: ,p_target_project_id => p_target_project_id
9007: ,x_return_status => x_return_status
9013: IF l_debug_mode = 'Y' THEN
9014: pa_debug.g_err_stage:='Create_Fp_Option returned error';
9015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9016: END IF;
9017: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9018:
9019: END IF;
9020:
9021: --Derive the multi currency flag so as to call the copy planning txn currencies
9044: IF l_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9046: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9049:
9050: END IF;
9051:
9052: --Call the PJI API to register the creation of plan version
9085: x_msg_code => l_msg_data);
9086: END IF;
9087:
9088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9089: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
9090: p_msg_name => l_msg_data);
9091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9092: END IF;
9093:
9087:
9088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9089: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
9090: p_msg_name => l_msg_data);
9091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9092: END IF;
9093:
9094:
9095:
9115:
9116:
9117: --Calling the copy planning txn API
9118: pa_fp_planning_transaction_pub.copy_planning_transactions(
9119: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9120: ,p_copy_external_flag => l_copy_external_flag
9121: ,p_src_project_id => p_source_project_id
9122: ,p_target_project_id => p_target_project_id
9123: ,p_src_budget_version_id => l_src_budget_version_id
9138: IF l_debug_mode = 'Y' THEN
9139: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9140: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9141: END IF;
9142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9143:
9144: END IF;
9145:
9146: -- Bug 3619687
9160: IF l_debug_mode = 'Y' THEN
9161: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9162: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9163: END IF;
9164: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9165: END IF;
9166:
9167: -- If copy actuals from structure id is passed progress actuals should be copied
9168: -- for the target version
9209: IF l_debug_mode = 'Y' THEN
9210: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9211: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9212: END IF;
9213: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9214: END IF;
9215: END IF;
9216:
9217: PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9228: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9229: END IF;
9230: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9231: END IF;
9232:
9233:
9234: END LOOP;
9240: pa_debug.reset_curr_function;
9241: END IF;
9242: EXCEPTION
9243:
9244: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9245: l_msg_count := FND_MSG_PUB.count_msg;
9246: IF l_msg_count = 1 THEN
9247: PA_INTERFACE_UTILS_PUB.get_messages
9248: (p_encoded => FND_API.G_TRUE
9511: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9512: p_token1=>'PROCEDURENAME',
9513: p_value1=>'COPY_BUDGET_LINES_APPR_REV');
9514:
9515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9516:
9517: END IF;
9518:
9519: IF P_PA_DEBUG_MODE = 'Y' THEN
9533: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9534: END IF;
9535:
9536: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9537: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9538: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9539: ,DECODE(fin_plan_preference_code -- l_cost_flag
9540: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9541: ,fin_plan_preference_code
9534: END IF;
9535:
9536: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9537: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9538: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9539: ,DECODE(fin_plan_preference_code -- l_cost_flag
9540: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9541: ,fin_plan_preference_code
9542: INTO l_revenue_flag
9536: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9537: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9538: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME ,'Y','N')
9539: ,DECODE(fin_plan_preference_code -- l_cost_flag
9540: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME , 'Y','N')
9541: ,fin_plan_preference_code
9542: INTO l_revenue_flag
9543: ,l_cost_flag
9544: ,l_targ_pref_code
9843: ,l_attribute12Tab(l_ref)
9844: ,l_attribute13Tab(l_ref)
9845: ,l_attribute14Tab(l_ref)
9846: ,l_attribute15Tab(l_ref)
9847: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9848: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9849: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9850: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9851: ,null -- pm_product_code
9844: ,l_attribute13Tab(l_ref)
9845: ,l_attribute14Tab(l_ref)
9846: ,l_attribute15Tab(l_ref)
9847: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9848: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9849: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9850: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9851: ,null -- pm_product_code
9852: ,null
9845: ,l_attribute14Tab(l_ref)
9846: ,l_attribute15Tab(l_ref)
9847: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9848: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9849: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9850: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9851: ,null -- pm_product_code
9852: ,null
9853: ,null
9846: ,l_attribute15Tab(l_ref)
9847: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --raw_cost_souce
9848: ,DECODE(l_cost_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --burdened_cost_source
9849: ,PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P --quantity_source
9850: ,DECODE(l_revenue_flag,'Y',PA_FP_CONSTANTS_PKG.G_AMOUNT_SOURCE_COPY_P,NULL) --revenue source
9851: ,null -- pm_product_code
9852: ,null
9853: ,null
9854: ,null
9956: IF P_PA_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9958: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9959: END IF;
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9961: END IF;
9962: END IF;
9963:
9964: --Bug 4290043. Call the API to correct the missing amounts in the target version in case it can have
9983: IF P_PA_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
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:
9989: END IF;
9990:
9991: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
9996: pa_debug.reset_err_stack; -- bug:- 2815593
9997: END IF;
9998: EXCEPTION
9999:
10000: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10001: l_msg_count := FND_MSG_PUB.count_msg;
10002: IF l_msg_count = 1 THEN
10003: PA_INTERFACE_UTILS_PUB.get_messages
10004: (p_encoded => FND_API.G_TRUE
10181: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10182: p_token1 => 'PROCEDURENAME',
10183: p_value1 => 'PA_FP_COPY_FROM_PKG.Update_Plan_Setup_For_WP_Copy');
10184:
10185: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10186:
10187: END IF;
10188:
10189: -- Fetch all the plan type values that could have changed
10279: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies
10280: api returned error';
10281: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10282: END IF;
10283: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10284: END IF;
10285:
10286: -- If resource list has changed, resource assingments data should be re-mapped as per
10287: -- the new resource list
10302: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids
10303: api returned error';
10304: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10305: END IF;
10306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10307: END IF;
10308:
10309: -- Update all the task planning elements with new PEOPLE rlmid
10310: IF l_debug_mode = 'Y' THEN
10349: IF l_debug_mode = 'Y' THEN
10350: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
10351: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10352: END IF;
10353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10354: ELSE
10355: -- Check count of the required out tables to be the same
10356: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
10357: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10369: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10370: END IF;
10371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10372: END IF;
10373: END IF;
10374:
10375: -- Check if out table has any records first
10402: END IF;
10403:
10404: EXCEPTION
10405:
10406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10407: l_msg_count := FND_MSG_PUB.count_msg;
10408: IF l_msg_count = 1 THEN
10409: PA_INTERFACE_UTILS_PUB.get_messages
10410: (p_encoded => FND_API.G_TRUE