[Home] [Help]
248: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
249: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
250: p_token1 => 'PROCEDURENAME',
251: p_value1 => l_module_name);
252: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
253: END IF;
254:
255: l_ra_id_count := p_resource_assignment_id_tbl.COUNT;
256:
308: pa_debug.g_err_stage:='0 rows returned by c_plan_ver_settings_csr';
309: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
310: END IF;
311: CLOSE c_plan_ver_settings_csr;
312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
313:
314: END IF;
315: CLOSE c_plan_ver_settings_csr;
316: --dbms_output.put_line('6.1');
575: );
576: /* end of bug fix: 5752337 */
577:
578:
579: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
580: END IF;--IF ((x_plan_start_date_new_tbl(i)=FND_API.G_MISS_DATE) OR
581:
582: --Bug 4083605. This block of code makes sure that the planning start date is not changed to a date
583: --which falls after the date where actuals exist. Similar validations are done for planning end date too
640: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
641: p_msg_name => 'PA_FP_PLAN_DT_CHG_ACTL_EXST');
642: END IF;
643:
644: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
645:
646: END IF;
647:
648:
664: END IF;
665:
666: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
667: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
668: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
669:
670: -- Added for bug 4247427. Fixed Date cannot be less than the etc_start_date
671: ELSIF (l_plan_ver_settings_rec.etc_start_date IS NOT NULL AND (x_sp_fixed_date_new_tbl(i) BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i))) THEN
672: IF (x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date) THEN
675: print_msg(pa_debug.g_err_stage,l_module_name);
676: END IF;
677: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
678: p_msg_name => 'PA_FP_SP_FIXED_DATE_LESS');
679: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
680: END IF; -- x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date
681:
682: ELSIF (x_sp_fixed_date_new_tbl(i) NOT BETWEEN x_plan_start_date_new_tbl(i) AND x_plan_end_date_new_tbl(i)) THEN
683:
724: p_token4 => 'L_LINE_START_DATE',
725: p_value4 => x_plan_start_date_new_tbl(i),
726: p_token5 => 'L_LINE_END_DATE',
727: p_value5 => x_plan_start_date_old_tbl(i));
728: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
729:
730: END IF;--IF x_sp_fixed_date_new_tbl(i) = FND_API.G_MISS_DATE THEN
731:
732: ELSE
761:
762: IF x_rlm_id_change_flag_tbl(i)='Y' THEN
763:
764: -- An rbs element id can change for a planning transaction only in Task Assignments Flow.
765: IF p_context <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
766:
767: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
768: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
769: p_token1 => 'PROCEDURENAME',
769: p_token1 => 'PROCEDURENAME',
770: p_value1 => 'PROCESS_RES_CHG_DERV_CALC_PRMS',
771: p_token2 => 'STAGE',
772: p_value2 => 'RBS Elem Id change in NON TA context');
773: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
774:
775: END IF;
776: --dbms_output.put_line('7.1');
777:
830: l_rbf_rbs_prm_tbl(l_rbs_map_index) := l_rate_based_flag_tbl(i);
831: --dbms_output.put_line('7.3');
832:
833: /* Bug fix: 5759413 */
834: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
835: l_rtx_rateOvrds_rec := NULL;
836: OPEN get_rateOvrds (p_resource_assignment_id_tbl(i));
837: FETCH get_rateOvrds INTO l_rtx_rateOvrds_rec;
838: CLOSE get_rateOvrds;
1035: IF l_debug_mode = 'Y' THEN
1036: pa_debug.g_err_stage:='Called API delete_planning_transactions returned error';
1037: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1038: END IF;
1039: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1040:
1041: END IF;
1042: --dbms_output.put_line('7.6');
1043:
1101: IF l_debug_mode = 'Y' THEN
1102: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
1103: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1104: END IF;
1105: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1106:
1107: END IF;
1108: --dbms_output.put_line('7.8');
1109:
1149: print_msg(pa_debug.g_err_stage,l_module_name);
1150: pa_debug.reset_curr_function;
1151: END IF;
1152: EXCEPTION
1153: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1154: l_msg_count := FND_MSG_PUB.count_msg;
1155: IF l_msg_count = 1 THEN
1156: PA_INTERFACE_UTILS_PUB.get_messages
1157: (p_encoded => FND_API.G_TRUE
1554: END IF;
1555:
1556: --p_context should never be null
1557: IF p_context IS NULL OR
1558: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1559: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1560: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1561: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1562:
1555:
1556: --p_context should never be null
1557: IF p_context IS NULL OR
1558: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1559: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1560: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1561: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1562:
1563: IF l_debug_mode = 'Y' THEN
1556: --p_context should never be null
1557: IF p_context IS NULL OR
1558: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1559: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1560: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1561: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1562:
1563: IF l_debug_mode = 'Y' THEN
1564: pa_debug.g_err_stage:='p_context passed is '||p_context;
1557: IF p_context IS NULL OR
1558: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1559: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1560: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1561: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1562:
1563: IF l_debug_mode = 'Y' THEN
1564: pa_debug.g_err_stage:='p_context passed is '||p_context;
1565: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1565: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1566: END IF;
1567: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1568: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1569: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1570:
1571: END IF;
1572:
1573: -- Added for Bug 3719918 -- ONE-TO-ONE MAPPING BETWEEN ELEM_VER-RLM IDS PASSED
1573: -- Added for Bug 3719918 -- ONE-TO-ONE MAPPING BETWEEN ELEM_VER-RLM IDS PASSED
1574: -- Validation for p_one_to_one_mapping_flag passed as Y only for Budget/Forecast context
1575: -- Modified Validation Below for Only WORKPLAN Context - Changes for Bug 3665097
1576: IF (p_one_to_one_mapping_flag = 'Y'
1577: AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
1578: IF l_debug_mode = 'Y' THEN
1579: pa_debug.g_err_stage:='p_one_to_one_mapping_flag passed as Y for WORKPLAN context :'||p_context;
1580: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1581: END IF;
1580: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1581: END IF;
1582: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1583: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1585: END IF;
1586:
1587:
1588: -- Added for Bug 3719918 and Bug 3665097
1596: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1597: END IF;
1598: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1599: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1601:
1602: END IF;
1603:
1604:
1616: p_token1 => 'PROCEDURENAME',
1617: p_value1 => 'PAFPPTPB.add_planning_transactions',
1618: p_token2 => 'STAGE',
1619: p_value2 => 'Planning Date Passed when one to one mapping is N');
1620: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1621:
1622: END IF;
1623:
1624: -- Bug 3793623 Planning Start Date and Planning End Date Should have the same
1633: p_token1 => 'PROCEDURENAME',
1634: p_value1 => 'PAFPPTPB.add_planning_transactions',
1635: p_token2 => 'STAGE',
1636: p_value2 => 'Planning Start Date - End Date MISMATCH');
1637: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1638: END IF;
1639:
1640: -- Bug 3793623 If Planning Start/End Date is passed its should be same as
1641: -- task_elem_version_id COUNT
1650: p_token1 => 'PROCEDURENAME',
1651: p_value1 => 'PAFPPTPB.add_planning_transactions',
1652: p_token2 => 'STAGE',
1653: p_value2 => 'Planning Start Date - Task Elem Mismatch');
1654: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1655: END IF;
1656: END IF;
1657:
1658:
1677: p_token1 => 'PROCEDURENAME',
1678: p_value1 => 'PAFPPTPB.add_planning_transactions',
1679: p_token2 => 'STAGE',
1680: p_value2 => 'Duplicate RLM Id Passed');
1681: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1682: END IF;
1683: END LOOP;
1684: END LOOP;
1685: END IF;
1700: p_token1 => 'PROCEDURENAME',
1701: p_value1 => 'PAFPPTPB.add_planning_transactions',
1702: p_token2 => 'STAGE',
1703: p_value2 => 'Duplicate Task Elem Version Id Passed');
1704: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1705: END IF;
1706: END LOOP;
1707: END LOOP;
1708: END IF;
1711: -- when p one to one mapping flag is Y
1712: -- FOR B/F Context dup rlm/task elem combination cannot be passed until
1713: -- and unless the currecy code is diff
1714: -- for TA WOKRPLAN dup rlm/task elem combination cannot be passed
1715: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1716: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
1717: IF p_task_elem_version_id_tbl.COUNT > 1 THEN
1718: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1719: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1712: -- FOR B/F Context dup rlm/task elem combination cannot be passed until
1713: -- and unless the currecy code is diff
1714: -- for TA WOKRPLAN dup rlm/task elem combination cannot be passed
1715: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1716: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
1717: IF p_task_elem_version_id_tbl.COUNT > 1 THEN
1718: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1719: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1720: IF ( (p_task_elem_version_id_tbl(i) = p_task_elem_version_id_tbl(j)) AND
1730: p_token1 => 'PROCEDURENAME',
1731: p_value1 => 'PAFPPTPB.add_planning_transactions',
1732: p_token2 => 'STAGE',
1733: p_value2 => 'Duplicate CurrCode/RlmId/TaskId Passed');
1734: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1735: END IF;
1736: END LOOP;
1737: END LOOP;
1738: END IF;
1753: p_token1 => 'PROCEDURENAME',
1754: p_value1 => 'PAFPPTPB.add_planning_transactions',
1755: p_token2 => 'STAGE',
1756: p_value2 => 'Duplicate RlmId/TaskId Passed');
1757: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1758: END IF;
1759: END LOOP;
1760: END LOOP;
1761: END IF;
1789: -------------------------------------------------------------------------------------------
1790: -- Extending all table lengths to the permissible values they would take.
1791: -------------------------------------------------------------------------------------------
1792:
1793: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1794: -- Bug 3749516 only for PEOPLE
1795: l_rlm_id_no_of_rows := 1;
1796: ELSE
1797: l_rlm_id_no_of_rows := p_resource_list_member_id_tbl.LAST;
1956: -- 1. , p_task_elem_version_id_tbl table cannot be empty
1957: -------------------------------------------------------------------------------------------
1958:
1959: --If the input tasks table is empty in the context of budget or forecast then return
1960: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
1961: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
1962: l_elem_version_id_count := p_task_elem_version_id_tbl.COUNT;
1963: l_trace_stage := 140;
1964: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
1957: -------------------------------------------------------------------------------------------
1958:
1959: --If the input tasks table is empty in the context of budget or forecast then return
1960: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
1961: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
1962: l_elem_version_id_count := p_task_elem_version_id_tbl.COUNT;
1963: l_trace_stage := 140;
1964: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
1965:
1983:
1984:
1985: --In the context of workplan the start date and end date tbl count should always be equal to the input
1986: --task tbl count
1987: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1988: IF (p_end_date_tbl.COUNT <> p_start_date_tbl.COUNT) OR
1989: (p_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
1990:
1991: IF l_debug_mode = 'Y' THEN
1994: END IF;
1995: --dbms_output.put_line('$$$$%%%');
1996: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1997: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1998: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1999: END IF;
2000: END IF;
2001:
2002:
2003: -------------------------------------------------------------------------------------------
2004: -- Validation - p_resource_list_member_id_tbl can be empty only for p_context = 'WORKPLAN'
2005: -- Otherwise return NULL
2006: -------------------------------------------------------------------------------------------
2007: IF NOT(p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
2008: l_rlm_id_tbl_count := p_resource_list_member_id_tbl.COUNT;
2009:
2010: IF l_debug_mode = 'Y' THEN
2011: pa_debug.g_err_stage:='Validating input parameters - count of p_resource_list_member_id_tbl = '||l_rlm_id_tbl_count;
2047: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2048: END IF;
2049: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2050: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2051: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2052: END IF;
2053:
2054: --dbms_output.put_line('2');
2055:
2060: -- 1. for p_context ('WORKPLAN','TASK_ASSIGNMENT')- p_struct_elem_version_id cannot be null
2061: -- 2. , p_task_elem_version_id_tbl table cannot be empty
2062: -------------------------------------------------------------------------------------------
2063:
2064: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)) THEN
2065:
2066: l_trace_stage := 70;
2067: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2068: IF p_struct_elem_version_id IS NULL THEN
2072: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2073: END IF;
2074: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2075: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2076: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2077:
2078: ELSE
2079:
2080: l_trace_stage := 80;
2105: IF l_debug_mode = 'Y' THEN
2106: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_wp_plan_type api returned error';
2107: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2108: END IF;
2109: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2110: END IF;
2111: -----------------------------------------------------
2112: -- If l_budget_version_id IS NULL then create version
2113: -----------------------------------------------------
2127:
2128: pa_fin_plan_pub.Create_Version (
2129: p_project_id => p_project_id
2130: ,p_fin_plan_type_id => l_fin_plan_type_id
2131: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
2132: ,p_version_name => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2133: ,p_description => null
2134: ,p_ci_id => null
2135: ,p_est_proj_raw_cost => null
2128: pa_fin_plan_pub.Create_Version (
2129: p_project_id => p_project_id
2130: ,p_fin_plan_type_id => l_fin_plan_type_id
2131: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
2132: ,p_version_name => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2133: ,p_description => null
2134: ,p_ci_id => null
2135: ,p_est_proj_raw_cost => null
2136: ,p_est_proj_bd_cost => null
2137: ,p_est_proj_revenue => null
2138: ,p_est_qty => null
2139: ,p_impacted_task_id => null
2140: ,p_agreement_id => null
2141: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2142: ,p_resource_list_id => null
2143: ,p_time_phased_code => null
2144: ,p_fin_plan_level_code => null
2145: ,p_plan_in_multi_curr_flag => null
2186: IF l_debug_mode = 'Y' THEN
2187: pa_debug.g_err_stage:='Called API pa_fin_plan_pub.create_version api returned error';
2188: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2189: END IF;
2190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2191: END IF;
2192:
2193: END IF;
2194:
2221: END IF;
2222:
2223: l_trace_stage := 160;
2224: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2225: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
2226:
2227: l_trace_stage := 170;
2228: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2229: IF p_budget_version_id IS NULL THEN
2234: END IF;
2235: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2236: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2237: --dbms_output.put_line('bv id is null for BF');
2238: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2239: ELSE
2240: l_trace_stage := 180;
2241: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2242: l_budget_version_id := p_budget_version_id;
2303: -- and setting all Cost PLsql tables that will be needed for calling Calculate API as Empty tabs
2304: -- Bug 3749516 Removing rlm id for EQUIPMENT below
2305: -----------------------------------------------------------------------------------------------------------------------
2306:
2307: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
2308: l_trace_stage := 220;
2309: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2310:
2311: IF l_debug_mode = 'Y' THEN
2329: IF l_debug_mode = 'Y' THEN
2330: pa_debug.g_err_stage:='Called API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids api returned error';
2331: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2332: END IF;
2333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2334: END IF;
2335:
2336: l_trace_stage := 240;
2337: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2445: IF l_debug_mode = 'Y' THEN
2446: pa_debug.g_err_stage:='Called APIPA_PLANNING_RESOURCE_UTILS.get_resource_defaults api returned error';
2447: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2448: END IF;
2449: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2450:
2451: END IF;
2452:
2453: IF l_debug_mode = 'Y' THEN
2588: IF l_debug_mode = 'Y' THEN
2589: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
2590: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2591: END IF;
2592: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2593:
2594: END IF;
2595:
2596: END IF; --IF l_rbs_version_id IS NOT NULL THEN
2613: -- For p_context = TASK_ASSIGNMENTS - Processing Starts Here
2614: -------------------------------------------------------------------------
2615: l_trace_stage := 330;
2616: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2617: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
2618: l_trace_stage := 340;
2619: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2620: IF l_debug_mode = 'Y' THEN
2621: pa_debug.g_err_stage:='Doing processing for TASK ASSIGNMENTS : p_context is'|| p_context;
2985: IF l_debug_mode = 'Y' THEN
2986: pa_debug.g_err_stage:='Called API pa_task_assignment_utils.Validate_Create_Assignment returned error';
2987: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2988: END IF;
2989: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2990: END IF;
2991: IF l_debug_mode = 'Y' THEN
2992: pa_debug.g_err_stage:='Returned from pa_task_assignment_utils.Validate_Create_Assignment';
2993: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3329: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3330: END IF;
3331: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3332: p_msg_name => 'PA_FP_SP_FIXED_DATE_OUT');
3333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3334: END IF;
3335: -- Bug 3607061 Ends
3336: END IF;
3337:
3610: END IF;
3611: l_trace_stage := 550;
3612: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3613:
3614: IF ((l_time_phased_code = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA) OR (l_time_phased_code = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL)) THEN
3615: l_spread_amounts_for_ver := 'Y';
3616: ELSE
3617: l_spread_amounts_for_ver := 'N';
3618: END IF;
3659: ---------------------------------------------------------------
3660: -- For p_context = BUDGET or FORECAST
3661: -- Deriving start date and end date for task_element_version_id
3662: ---------------------------------------------------------------
3663: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
3664: l_trace_stage := 610;
3665: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3666:
3667: IF l_debug_mode = 'Y' THEN
3687: IF l_debug_mode = 'Y' THEN
3688: pa_debug.g_err_stage:='Called API pafpptub.get_default_planning_dates returned error';
3689: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ',pa_debug.g_err_stage, 3);
3690: END IF;
3691: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3692: END IF;
3693:
3694: l_trace_stage := 710;
3695: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3737: -- One to One Mapping Flag is passed as Y
3738: -- Bug 3719918 and Bug 3665097
3739: ----------------------------------------------------------------------
3740: IF (p_one_to_one_mapping_flag = 'Y' AND
3741: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
3742: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3743: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
3744: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
3745: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
3738: -- Bug 3719918 and Bug 3665097
3739: ----------------------------------------------------------------------
3740: IF (p_one_to_one_mapping_flag = 'Y' AND
3741: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
3742: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3743: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
3744: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
3745: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
3746: END IF;
3739: ----------------------------------------------------------------------
3740: IF (p_one_to_one_mapping_flag = 'Y' AND
3741: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
3742: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3743: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
3744: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
3745: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
3746: END IF;
3747:
3758: -- the below logic is used in BF context and will reduce the input data to the
3759: -- following form -- Task elem ver id : t1,t2 and RLM : r1,r2
3760: -- This will be used in the insert statment for B/F
3761:
3762: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3763: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST ) THEN
3764:
3765: IF (p_one_to_one_mapping_flag = 'Y') THEN
3766:
3759: -- following form -- Task elem ver id : t1,t2 and RLM : r1,r2
3760: -- This will be used in the insert statment for B/F
3761:
3762: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3763: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST ) THEN
3764:
3765: IF (p_one_to_one_mapping_flag = 'Y') THEN
3766:
3767: l_bf_start_date_tbl := l_start_date_tbl;
3791: l_bf_cost_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_cost_rate_tbl.count);
3792: l_bf_bill_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_bill_rate_tbl.count);
3793: l_bf_burdened_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_burdened_rate_tbl.count);
3794:
3795: END IF; -- IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
3796:
3797: ----------------------------------------------------
3798: -- THESE DEBUG MESSAGES ARE BEING PLACED HERE ONLY FOR
3799: -- REFERENCE SO THAT THEY CAN BE USED WHEN AND WHERE
3901:
3902: --------------------------------------------
3903: -- for p_context - WORKPLAN
3904: --------------------------------------------
3905: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
3906:
3907: -- Bug 3749516 Changing All reference of l_ppl_equip_index to l_ppl_index below
3908: l_ppl_index:=1; --This will be used in the bulk insert for people -- -- Bug 3749516
3909:
4190: -----------------------------------------------------------------------------------
4191: ----------------------------------------------------
4192: -- Loop for all the task_elem_version_id --- Starts
4193: ----------------------------------------------------
4194: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4195: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4196: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4197:
4198: -- Resetting value of l_index
4191: ----------------------------------------------------
4192: -- Loop for all the task_elem_version_id --- Starts
4193: ----------------------------------------------------
4194: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4195: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4196: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4197:
4198: -- Resetting value of l_index
4199: l_index := 1;
4192: -- Loop for all the task_elem_version_id --- Starts
4193: ----------------------------------------------------
4194: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4195: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4196: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4197:
4198: -- Resetting value of l_index
4199: l_index := 1;
4200: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
4202: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
4203: --------------------------------------------
4204: -- for p_context - TASK_ASSIGNMENTS
4205: --------------------------------------------
4206: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
4207: IF l_debug_mode = 'Y' THEN
4208: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4209: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4210: END IF;
4394: IF l_debug_mode = 'Y' THEN
4395: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
4396: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4397: END IF;
4398: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4399: END IF;
4400: -----------------------------------------------------------------------
4401: -- Populating resource assignments and corresponding spread amount flags
4402: -- in PLSql tables. for IN parameters of Calculate API
4479:
4480: -----------------------------------------------------------
4481: -- For p_context = BUDGET or FORECAST
4482: -----------------------------------------------------------
4483: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
4484: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4485:
4486: ---------------------------------------------------------
4487: -- BULK Inserting records into pa_resource_assignments
4480: -----------------------------------------------------------
4481: -- For p_context = BUDGET or FORECAST
4482: -----------------------------------------------------------
4483: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
4484: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4485:
4486: ---------------------------------------------------------
4487: -- BULK Inserting records into pa_resource_assignments
4488: -- by iterating throught elligle resource list member ids
4784: p_value1 => 'ADD_PLANNING_TRANSACTIONS',
4785: p_token2 => 'STAGE',
4786: p_value2 => 'Ins Recs + Err Recs <> Total Recs ['||l_index||' , '||SQL%BULK_EXCEPTIONS.COUNT ||' , '||l_eligible_rlm_ids_tbl.COUNT );
4787:
4788: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4789:
4790: END IF;
4791:
4792: l_bf_task_id_tbl.extend(l_rlm_id_no_of_rows-l_bf_task_id_tbl.count);
4897:
4898: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
4899: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4900: END IF;
4901: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4902:
4903: END IF;
4904:
4905: l_index := 1;
4971: --dbms_output.put_line('curr code not passed');
4972: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4973: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4974:
4975: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4976:
4977: END IF;
4978:
4979:
5062:
5063: PA_FP_CALC_PLAN_PKG.calculate(
5064: p_project_id => p_project_id
5065: ,p_budget_version_id => l_budget_version_id
5066: ,p_source_context => PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT
5067: ,p_resource_assignment_tab => l_res_assignment_id_tbl
5068: ,p_delete_budget_lines_tab => l_delete_budget_lines_tbl
5069: -- bug fix:5726773,p_spread_amts_flag_tab => l_spread_amount_flags_tbl
5070: ,p_txn_currency_code_tab => l_currency_code_tbl -- derive
5092: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
5093: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5094: END IF;
5095:
5096: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5097: END IF;
5098:
5099: -- Added for bug 4492493, 4548240
5100: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5096: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5097: END IF;
5098:
5099: -- Added for bug 4492493, 4548240
5100: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5101: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5102: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5103: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5104:
5098:
5099: -- Added for bug 4492493, 4548240
5100: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5101: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5102: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5103: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5104:
5105: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
5106: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
5121: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
5122: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5123: END IF;
5124:
5125: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5126: END IF;
5127: --End bug 4492493
5128:
5129: END IF;
5144: IF l_debug_mode = 'Y' THEN
5145: pa_debug.g_err_stage:='Called API PA_FIN_PLAN_PUB.create_default_plan_txn_rec returned error';
5146: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5147: END IF;
5148: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5149: END IF; /* 7161809 */
5150:
5151: -- Call the UTIL API to get the financial plan info l_fp_cols_rec
5152:
5170: IF l_debug_mode = 'Y' THEN
5171: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
5172: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5173: END IF;
5174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5175: END IF;
5176:
5177: -- IPM changes - populate tmp table to use for rollup
5178: delete pa_resource_asgn_curr_tmp;
5180: IF l_ra_id_temp_tbl.COUNT > 0 THEN
5181: -- IPM - populate the currency code
5182: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5183: FOR j IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last LOOP
5184: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
5185: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) THEN
5186: -- Use project currency for workplan
5187: -- Bug 5003827 Issue 1
5188: l_curr_code_temp_tbl(j) := nvl(l_curr_code_temp_tbl(j),
5181: -- IPM - populate the currency code
5182: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5183: FOR j IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last LOOP
5184: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
5185: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) THEN
5186: -- Use project currency for workplan
5187: -- Bug 5003827 Issue 1
5188: l_curr_code_temp_tbl(j) := nvl(l_curr_code_temp_tbl(j),
5189: l_proj_curr_code);
5235: IF l_debug_mode = 'Y' THEN
5236: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
5237: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5238: END IF;
5239: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5240: END IF; */
5241:
5242: IF l_debug_mode = 'Y' THEN
5243: pa_debug.g_err_stage:='CALLED THE PA_FP_CALC_PLAN_PKG.CALCULATE API';
5245: pa_debug.reset_curr_function;
5246: END IF;
5247: EXCEPTION
5248:
5249: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5250: ROLLBACK TO SAVEPOINT ADD_PLANNING_TRANS_SP;
5251: l_msg_count := FND_MSG_PUB.count_msg;
5252: IF l_msg_count = 1 THEN
5253: PA_INTERFACE_UTILS_PUB.get_messages
5636:
5637:
5638:
5639: IF p_context IS NULL OR
5640: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
5641: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5642: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5643: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
5644:
5637:
5638:
5639: IF p_context IS NULL OR
5640: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
5641: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5642: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5643: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
5644:
5645: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
5638:
5639: IF p_context IS NULL OR
5640: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
5641: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5642: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5643: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
5644:
5645: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
5646: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
5639: IF p_context IS NULL OR
5640: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
5641: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5642: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5643: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
5644:
5645: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
5646: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
5647: --dbms_output.put_line('p_context is null');
5647: --dbms_output.put_line('p_context is null');
5648:
5649: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5650: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5651: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5652: END IF;
5653: --dbms_output.put_line('U01');
5654:
5655: IF l_debug_mode = 'Y' THEN
5670:
5671:
5672: /* If the calling Context is Workplan or Task Assignment, the element version Id can't be null
5673: */
5674: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
5675: IF p_struct_elem_version_id IS NULL THEN
5676: IF l_debug_mode = 'Y' THEN
5677: pa_debug.g_err_stage:= 'p_struct_elem_version_id is null';
5678: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5680: --dbms_output.put_line('p_struct_elem_version_id is null');
5681:
5682: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5683: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5685: ELSE
5686: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
5687: IF l_budget_version_id IS NULL THEN
5688: IF l_debug_mode = 'Y' THEN
5704: END IF;
5705: --dbms_output.put_line('Invalid value for p_struct_elem_version_id');
5706: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5707: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5708: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5709: END;
5710:
5711:
5712:
5722: IF l_debug_mode = 'Y' THEN
5723: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
5724: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5725: END IF;
5726: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5727: END IF;
5728: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
5729: END IF;
5730:
5730:
5731: END IF;
5732: /* If the calling Context is BUDGET or FORECAST, the budget version Id can't be null
5733: */
5734: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
5735: IF p_budget_version_id IS NULL THEN
5736: IF l_debug_mode = 'Y' THEN
5737: pa_debug.g_err_stage:= 'p_budget_version_id is null';
5738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5739: END IF;
5740: --dbms_output.put_line('p_budget_version_id is null');
5741: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5742: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5743: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5744: ELSE
5745: l_budget_version_id := p_budget_version_id;
5746: END IF;
5747: END IF;
5785: l_in_schedule_start_date_tbl := p_schedule_start_date_tbl;
5786: l_in_schedule_end_date_tbl := p_schedule_end_date_tbl;
5787: l_in_sp_fixed_date_tbl := p_sp_fixed_date_tbl;
5788: -- Please note that the l_in_ tables will be reference instead of p_ tables in Code Flow
5789: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
5790: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
5791: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
5792: IF p_start_date_tbl.EXISTS(i)
5793: AND p_start_date_tbl(i) = l_temp_gmiss_date THEN
5858: /* If the calling context is workplan, then checking, if the passed task info is present or not
5859: * If not present, the called procedure would insert it.
5860: */
5861: --dbms_output.put_line ('pq1 is '||p_planned_people_effort_tbl(1));
5862: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
5863: check_and_create_task_rec_info
5864: ( p_project_id => l_project_id
5865: ,p_struct_elem_version_id => p_struct_elem_version_id
5866: ,p_element_version_id_tbl => p_task_elem_version_id_tbl
5885: IF l_debug_mode = 'Y' THEN
5886: pa_debug.g_err_stage:='Called API pa_planning_transaction_pub.check_and_create_task_rec_info api returned error';
5887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5888: END IF;
5889: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5890: END IF;
5891: --dbms_output.put_line ('pq1 is '||l_total_quantity_tbl(1));
5892: l_trace_stage := 150;
5893: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
5933: RETURN;
5934: ELSE
5935: -- 3817356 Replacing p_xxxx_date_tbls by l_in_xxxx_date_tbls
5936: l_resource_assignment_id_tbl := p_resource_assignment_id_tbl;
5937: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
5938: /* Budgets and forecasts case schedule start/end dates,
5939: * though not relevant are always kept in synch with planning start and end
5940: * dates */
5941: l_schedule_start_date_tbl := l_in_planning_start_date_tbl;
5950: END IF;
5951: l_total_quantity_tbl := p_quantity_tbl;
5952: --In the context of BUDGET or FORECAST throw an error if the p_currency_code_tbl does not
5953: --have same no of elements as that p_resource_assignment_id_tbl
5954: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
5955: IF p_resource_assignment_id_tbl.COUNT <> p_currency_code_tbl.COUNT THEN
5956: IF l_debug_mode = 'Y' THEN
5957: pa_debug.g_err_stage:='the contents of p_currency_code_tbl not equal in number to contents in res assmt tbl';
5958: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5958: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5959: END IF;
5960: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5961: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5962: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5963: END IF;
5964: END IF;
5965: END IF;
5966: END IF;
6458: l_resource_rec_tbl(i).attribute30 := p_attribute30_tbl(i);
6459: END IF;
6460:
6461: --For bug 3948128
6462: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK AND p_scheduled_delay.EXISTS(i) THEN
6463: l_resource_rec_tbl(i).scheduled_delay := p_scheduled_delay(i);
6464: END IF;
6465: END LOOP;
6466:
6467: l_trace_stage := 2500;
6468: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
6469:
6470: --dbms_output.put_line('3');
6471: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6472: /*-------------------------------------------------
6473: Calling Task validation API
6474: -------------------------------------------------*/
6475: IF l_debug_mode = 'Y' THEN
6493: IF l_debug_mode = 'Y' THEN
6494: pa_debug.g_err_stage:='Called API PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment returned error';
6495: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6496: END IF;
6497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6498: END IF;
6499:
6500: --If the rec tbl returned by validate API does not contain records then return
6501: IF l_resource_rec_tbl.COUNT=0 THEN
6544: END IF;
6545: END IF;
6546:
6547: -- The following if-else clause has been added for bug 3678814
6548: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6549: l_rate_based_flag_tbl(i) := l_resource_rec_tbl(i).rate_based_flag;
6550: ELSE
6551: l_rate_based_flag_tbl(i) := null;
6552: END If;
6630: l_attribute29_tbl(i) := l_resource_rec_tbl(i).ATTRIBUTE29;
6631: l_attribute30_tbl(i) := l_resource_rec_tbl(i).ATTRIBUTE30;
6632:
6633: --For bug 3948128
6634: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6635: l_scheduled_delay(i) := l_resource_rec_tbl(i).scheduled_delay;
6636: END IF;
6637: END IF;
6638: /* Commenting out this code for check for spread curve date to be null
6654: print_msg(pa_debug.g_err_stage,l_module_name);
6655: END IF;
6656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6657: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
6658: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6659: END IF;
6660: END IF;
6661: -- Added for Bug 3607061 - Ends
6662: */
6680: IF l_debug_mode = 'Y' THEN
6681: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
6682: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6683: END IF;
6684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6685: END IF;
6686:
6687: --Derive the tables that are required for Calculate API
6688: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
6684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6685: END IF;
6686:
6687: --Derive the tables that are required for Calculate API
6688: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
6689:
6690: IF l_debug_mode = 'Y' THEN
6691: pa_debug.g_err_stage:='Preparing the pl/sql tables for calling calc api for BF';
6692: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6724:
6725:
6726: -- In the context of Task Assignment and Workplan, the block below will calculate the additional quantity
6727: -- i.e. the difference between the existing quantity and the quantity passed.
6728: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
6729:
6730: IF l_debug_mode = 'Y' THEN
6731: pa_debug.g_err_stage:='About to bulk collect into pl/sql tables req for calc api '||l_override_currency_code_tbl.last;
6732: print_msg(pa_debug.g_err_stage,l_module_name);
6744:
6745: /** added for progress upload **/
6746: -- Bug 3807763. For Workplan Context, check_and_create_task_rec info has already been called.
6747: -- This takes care of populating l_burdened_cost_tbl and l_total_raw_cost_tbl as per the I/P Data.
6748: If ((p_apply_progress_flag = 'Y' AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) OR
6749: p_upd_cost_amts_too_for_ta_flg = 'Y' ) THEN --Added for bug#4538286.
6750: --l_revenue_tbl := p_revenue_tbl;
6751: l_burdened_cost_tbl := p_burdened_cost_tbl;
6752: l_total_raw_cost_tbl := p_raw_cost_tbl;
6861: IF l_debug_mode = 'Y' THEN
6862: pa_debug.g_err_stage:='Derive_Parameters_For_Calc_Api returned error';
6863: print_msg(pa_debug.g_err_stage,l_module_name);
6864: END IF;
6865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6866: END IF;
6867:
6868: --The Sp Fixed Date will be defaulted in Process_res_chg_Derv_calc_prms to planning start date if not passed
6869: --for a resource assignment with fixed spread curve. Hence the value returned should be considered
6953: ,named_role = DECODE (l_named_role_tbl(i), l_g_miss_char,null,nvl(l_named_role_tbl(i),named_role ))
6954: ,rbs_element_id = l_rbs_element_id_tbl(i)
6955: ,txn_accum_header_id = l_txn_accum_header_id_tbl(i)
6956: ,rate_expenditure_org_id = DECODE (p_context
6957: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6958: ,DECODE(l_rate_exp_org_id_tbl(i)
6959: ,l_g_miss_num
6960: ,null
6961: ,nvl(l_rate_exp_org_id_tbl(i),rate_expenditure_org_id))
6960: ,null
6961: ,nvl(l_rate_exp_org_id_tbl(i),rate_expenditure_org_id))
6962: ,rate_expenditure_org_id)
6963: ,rate_expenditure_type = DECODE (p_context
6964: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6965: ,DECODE(l_rate_exp_type_tbl(i)
6966: ,l_g_miss_char
6967: ,null
6968: ,nvl(l_rate_exp_type_tbl(i),rate_expenditure_type))
6967: ,null
6968: ,nvl(l_rate_exp_type_tbl(i),rate_expenditure_type))
6969: ,rate_expenditure_type)
6970: ,rate_exp_func_curr_code = DECODE (p_context
6971: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6972: ,DECODE(l_rate_func_curr_code_tbl(i)
6973: ,l_g_miss_char
6974: ,null
6975: ,nvl(l_rate_func_curr_code_tbl(i),rate_exp_func_curr_code))
6974: ,null
6975: ,nvl(l_rate_func_curr_code_tbl(i),rate_exp_func_curr_code))
6976: ,rate_exp_func_curr_code)
6977: ,rate_based_flag = DECODE (p_context /* Bug 3678814 */
6978: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6979: ,DECODE(l_rate_based_flag_tbl(i),
6980: l_g_miss_char,'N',
6981: nvl(l_rate_based_flag_tbl(i),rate_based_flag))
6982: ,rate_based_flag)
6980: l_g_miss_char,'N',
6981: nvl(l_rate_based_flag_tbl(i),rate_based_flag))
6982: ,rate_based_flag)
6983: /* Bug fix:5759413 */
6984: ,resource_rate_based_flag = DECODE (p_context,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6985: ,DECODE(nvl(l_rlm_id_change_flag_tbl(i),'N'), 'N'
6986: ,resource_rate_based_flag
6987: ,DECODE(l_rate_based_flag_tbl(i),
6988: l_g_miss_char,'N',
6988: l_g_miss_char,'N',
6989: nvl(l_rate_based_flag_tbl(i),resource_rate_based_flag)))
6990: ,resource_rate_based_flag)
6991: ,scheduled_delay = DECODE (p_context /* Bug 3678814 */
6992: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6993: ,DECODE(l_scheduled_delay(i),
6994: l_g_miss_num,null,
6995: nvl(l_scheduled_delay(i),scheduled_delay))
6996: ,scheduled_delay)
7261: --,p_refresh_rates_flag => 'N' --need to pass any variables that are passed from calling API
7262: --,p_refresh_conv_rates_flag => 'N' --need to pass any variables that are passed from calling API
7263: --,p_spread_required_flag => 'N'
7264: --,p_conv_rates_required_flag => 'N'
7265: ,p_source_context => PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT
7266: ,p_resource_assignment_tab => l_resource_assignment_id_tbl
7267: ,p_txn_currency_code_tab => l_currency_code_tbl
7268: ,p_txn_currency_override_tab => l_override_currency_code_tbl
7269: ,p_total_qty_tab => l_total_quantity_tbl
7302: IF l_debug_mode = 'Y' THEN
7303: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
7304: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
7305: END IF;
7306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7307: END IF;
7308:
7309: -- IPM changes - rollup amounts in new entity
7310:
7323: IF l_debug_mode = 'Y' THEN
7324: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
7325: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
7326: END IF;
7327: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7328: END IF;
7329:
7330: -- IPM changes - populate tmp table to use for update later
7331: /*
7365: IF l_debug_mode = 'Y' THEN
7366: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
7367: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
7368: END IF;
7369: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7370: END IF;
7371: */
7372:
7373: -- Added for bug 4492493
7371: */
7372:
7373: -- Added for bug 4492493
7374:
7375: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
7376: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
7377: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7378: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
7379:
7373: -- Added for bug 4492493
7374:
7375: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
7376: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
7377: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7378: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
7379:
7380: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
7381: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
7395: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
7396: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.update_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
7397: END IF;
7398:
7399: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7400: END IF;
7401: --End bug 4492493
7402:
7403: IF l_debug_mode = 'Y' THEN
7404: pa_debug.reset_curr_function;
7405: END IF;
7406:
7407: EXCEPTION
7408: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7409: IF l_debug_mode = 'Y' THEN
7410: pa_debug.g_err_stage:='In invalid args exception';
7411: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
7412: END IF;
7625:
7626: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7627: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7628:
7629: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7630:
7631: END IF;
7632:
7633: --If the tables are empty then return
7665:
7666: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7667: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7668:
7669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7670:
7671: END IF;
7672:
7673:
7679: l_adj_percent := 0;
7680: END IF;
7681:
7682: --If context is WORKPLAN call the TA Validation API with the required parameters
7683: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR
7684: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
7685:
7686: IF l_debug_mode = 'Y' THEN
7687: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
7680: END IF;
7681:
7682: --If context is WORKPLAN call the TA Validation API with the required parameters
7683: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR
7684: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
7685:
7686: IF l_debug_mode = 'Y' THEN
7687: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
7688: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
7761: pa_debug.g_err_stage:='validate_copy_assignment returned error';
7762: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7763:
7764: END IF;
7765: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7766:
7767: END IF;
7768:
7769: IF l_resource_rec_tbl.COUNT =0 THEN
7811: --dbms_output.put_line('calling create res task maps');
7812:
7813: --Call the API to create the mapping between source and target version ids.
7814: pa_fp_copy_from_pkg.create_res_task_maps(
7815: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
7816: ,p_src_ra_id_tbl => l_ra_id_tbl
7817: ,p_src_elem_ver_id_tbl => p_src_version_id_tbl
7818: ,p_targ_elem_ver_id_tbl => p_targ_version_id_tbl
7819: ,p_targ_proj_assmt_id_tbl => l_project_assignment_id_tbl
7835: pa_debug.g_err_stage:='create_res_task_maps returned error';
7836: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7837:
7838: END IF;
7839: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7840:
7841: END IF;
7842:
7843:
7866: pa_debug.g_err_stage:='Copy_Resource_Assignments returned error';
7867: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7868:
7869: END IF;
7870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7871:
7872: END IF;
7873:
7874: -- IPM changes - rollup amounts in new entity
7888: IF l_debug_mode = 'Y' THEN
7889: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
7890: print_msg(pa_debug.g_err_stage,l_module_name);
7891: END IF;
7892: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7893: END IF;
7894:
7895: IF l_calculate_flag = 'Y' then
7896:
7941: IF l_debug_mode = 'Y' THEN
7942: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
7943: print_msg(pa_debug.g_err_stage,l_module_name);
7944: END IF;
7945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7946: END IF;
7947: -- END Bug 5070740
7948:
7949: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8031: IF l_debug_mode = 'Y' THEN
8032: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
8033: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8034: END IF;
8035: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8036: END IF;
8037:
8038: i:=1;
8039: FOR c_calc_api_param_rec IN c_calc_api_param_csr LOOP
8126: pa_debug.g_err_stage:='PA_FP_CALC_PLAN_PKG.calculate returned error';
8127: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8128:
8129: END IF;
8130: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8131:
8132: END IF;
8133:
8134:
8157: pa_debug.g_err_stage:='Copy_Budget_Lines returned error';
8158: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8159:
8160: END IF;
8161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8162:
8163: END IF;
8164:
8165: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8284: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
8285:
8286: END IF;
8287:
8288: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
8289: END IF;
8290:
8291: END IF;
8292:
8308: IF l_debug_mode = 'Y' THEN
8309: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
8310: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
8311: END IF;
8312: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
8313: END IF;
8314:
8315: END IF;
8316:
8314:
8315: END IF;
8316:
8317: -- Added for bug 4492493, Updated for bug 5198662
8318: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8319: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
8320: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8321: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8322:
8316:
8317: -- Added for bug 4492493, Updated for bug 5198662
8318: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8319: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
8320: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8321: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8322:
8323: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
8324: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
8338: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
8339: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.copy_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
8340: END IF;
8341:
8342: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8343: END IF;
8344: --End bug 4492493
8345:
8346: END IF;
8393: IF l_debug_mode = 'Y' THEN
8394: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8395: print_msg(pa_debug.g_err_stage,l_module_name);
8396: END IF;
8397: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8398: END IF;
8399:
8400: IF l_debug_mode = 'Y' THEN
8401: pa_debug.g_err_stage:='Exiting copy_planning_transactions';
8404: pa_debug.reset_curr_function;
8405: END IF;
8406: EXCEPTION
8407:
8408: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8409: l_msg_count := FND_MSG_PUB.count_msg;
8410: IF l_msg_count = 1 THEN
8411: PA_INTERFACE_UTILS_PUB.get_messages
8412: (p_encoded => FND_API.G_TRUE
8661: END IF;
8662:
8663: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8664: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8666: END IF;
8667:
8668: IF p_task_or_res = 'TASKS' AND p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
8669: IF l_debug_mode = 'Y' THEN
8673: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8674: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8675: p_token1 => 'PROCEDURENAME',
8676: p_value1 => 'PAFPPTPB.Delete_planning_transactions');
8677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8678:
8679: END IF;
8680: -- Bug 3546208
8681: IF ( p_task_or_res = 'TASKS'
8678:
8679: END IF;
8680: -- Bug 3546208
8681: IF ( p_task_or_res = 'TASKS'
8682: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
8683: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
8684: IF l_debug_mode = 'Y' THEN
8685: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
8686: print_msg(pa_debug.g_err_stage,l_module_name);
8679: END IF;
8680: -- Bug 3546208
8681: IF ( p_task_or_res = 'TASKS'
8682: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
8683: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
8684: IF l_debug_mode = 'Y' THEN
8685: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
8686: print_msg(pa_debug.g_err_stage,l_module_name);
8687: END IF;
8690: p_token1 => 'PROCEDURENAME',
8691: p_value1 => 'PAFPPTPB.Delete_planning_transactions',
8692: p_token2 => 'STAGE',
8693: p_value2 => 'Invalid Data : B/F - TASK');
8694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8695: END IF;
8696:
8697: IF p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' AND
8698: (p_task_id_tbl.COUNT <> p_resource_assignment_tbl.COUNT OR
8723: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8724: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8725: p_token1 => 'PROCEDURENAME',
8726: p_value1 => 'PAFPPTPB.Delete_planning_transactions');
8727: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8728:
8729: END IF;
8730:
8731:
8760: * Modified Delete logic for Bug 3808720. Since Validate Delete Assignments API
8761: * needs to be called for WORKPLAN context as well. Merginng Delete Logic for
8762: * G_CALLING_MODULE_TASK and G_CALLING_MODULE_WORKPLAN below.
8763: */
8764: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8765: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
8766:
8767: IF l_debug_mode = 'Y' THEN
8768: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
8761: * needs to be called for WORKPLAN context as well. Merginng Delete Logic for
8762: * G_CALLING_MODULE_TASK and G_CALLING_MODULE_WORKPLAN below.
8763: */
8764: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8765: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
8766:
8767: IF l_debug_mode = 'Y' THEN
8768: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
8769: print_msg(pa_debug.g_err_stage,l_module_name);
8797: IF l_debug_mode = 'Y' THEN
8798: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
8799: print_msg(pa_debug.g_err_stage,l_module_name);
8800: END IF;
8801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8802: End If;
8803: END IF; --}
8804:
8805: /* Bug fix:5349668: Get project,budget,ciid details upfront based on
8807: * nothing to delete any budget lines or resource assignments.
8808: * Note: executing this sql at many places to get budget version is failing with
8809: * ORA-No data found error
8810: */ --{
8811: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8812: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN --{
8813:
8814: If p_task_or_res = 'TASKS' --- bug 6076066: added the checking of p_task_res to the existing IF loop
8815: and p_element_version_id_tbl.count > 0
8808: * Note: executing this sql at many places to get budget version is failing with
8809: * ORA-No data found error
8810: */ --{
8811: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8812: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN --{
8813:
8814: If p_task_or_res = 'TASKS' --- bug 6076066: added the checking of p_task_res to the existing IF loop
8815: and p_element_version_id_tbl.count > 0
8816: and NVL(p_element_version_id_tbl(1),0) <> 0
8936: RETURN;
8937: End If;
8938: /* End of Bug fix:5349668: */
8939:
8940: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8941: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
8942:
8943: IF p_task_or_res = 'TASKS' THEN
8944:
8937: End If;
8938: /* End of Bug fix:5349668: */
8939:
8940: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
8941: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
8942:
8943: IF p_task_or_res = 'TASKS' THEN
8944:
8945: IF l_delete_task_flag_tbl.count=0 THEN
8957: print_msg(pa_debug.g_err_stage,l_module_name);
8958: END IF;
8959: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8960: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8961: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8962: END IF;
8963:
8964: --Bug 4951422. Validate_Delete_Assignment returns the correct resource assignments that should be deleted.
8965: --Note:
9099: print_msg(pa_debug.g_err_stage,l_module_name);
9100: END IF;
9101: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9102: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9103: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9104: END IF;
9105:
9106: IF l_debug_mode = 'Y' THEN
9107: pa_debug.g_err_stage:='Deleting all budget lines for the res assmts for Assignment Context';
9242: RETURN;
9243: END IF;
9244:
9245:
9246: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
9247: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
9248: l_wp_version_flag:='N';
9249: l_ta_display_flag:=null;
9250: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
9243: END IF;
9244:
9245:
9246: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
9247: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
9248: l_wp_version_flag:='N';
9249: l_ta_display_flag:=null;
9250: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
9251: l_wp_version_flag:='Y';
9246: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
9247: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
9248: l_wp_version_flag:='N';
9249: l_ta_display_flag:=null;
9250: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
9251: l_wp_version_flag:='Y';
9252: l_ta_display_flag:='N'; */ --Bug 3808720
9253: END IF;
9254:
9257: print_msg(pa_debug.g_err_stage,l_module_name);
9258: END IF;
9259:
9260:
9261: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9262: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
9263:
9264: -- Bug Fix: 4569365. Removed MRC code.
9265: null;
9258: END IF;
9259:
9260:
9261: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9262: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
9263:
9264: -- Bug Fix: 4569365. Removed MRC code.
9265: null;
9266: END IF;
9422: p_token1 => 'PROCEDURENAME',
9423: p_value1 => 'PAFPPTPB.Delete_planning_transactions',
9424: p_token2 => 'STAGE',
9425: p_value2 => 'Curr Code - RA Mismatch');
9426: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9427: END IF;
9428:
9429: l_currency_code_tbl := p_currency_code_tbl;
9430:
9473: print_msg(pa_debug.g_err_stage,l_module_name);
9474: END IF;
9475: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9476: p_msg_name => 'PA_FP_AMT_EXISTS_FOR_PLAN_ELEM');
9477: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9478: END;
9479:
9480: END IF ; --IF p_validate_delete_flag='Y' THEN
9481:
9478: END;
9479:
9480: END IF ; --IF p_validate_delete_flag='Y' THEN
9481:
9482: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9483: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
9484: NULL;
9485: -- Bug Fix: 4569365. Removed MRC code.
9486: END IF;
9479:
9480: END IF ; --IF p_validate_delete_flag='Y' THEN
9481:
9482: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9483: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
9484: NULL;
9485: -- Bug Fix: 4569365. Removed MRC code.
9486: END IF;
9487:
9614: END IF;-- IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
9615:
9616: END IF;-- IF p_task_or_res = 'TASKS' THEN
9617:
9618: END IF;--IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9619:
9620: --Rollup the amounts to budget versions as some of the budget lines with amounts might have got
9621: --deleted
9622: IF l_debug_mode = 'Y' THEN
9653: IF l_debug_mode = 'Y' THEN
9654: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
9655: print_msg(pa_debug.g_err_stage,l_module_name);
9656: END IF;
9657: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9658: END IF;
9659:
9660: pa_debug.g_err_stage:='Calling pa_res_asg_currency_pub.maintain_data:bv_id ' || l_budget_version_id;
9661: print_msg(pa_debug.g_err_stage,l_module_name);
9680: IF l_debug_mode = 'Y' THEN
9681: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
9682: print_msg(pa_debug.g_err_stage,l_module_name);
9683: END IF;
9684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9685: END IF;
9686:
9687: END IF; --} IPM
9688:
9717: IF l_debug_mode = 'Y' THEN
9718: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
9719: print_msg(pa_debug.g_err_stage,l_module_name);
9720: END IF;
9721: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9722: END IF;
9723:
9724: END IF;
9725: END IF; /* p_rollup_required_flag = Y */
9882: IF l_debug_mode = 'Y' THEN
9883: pa_debug.g_err_stage:='The API pa_planning_transaction_utils.call_update_rep_lines_api returned error';
9884: print_msg(pa_debug.g_err_stage,l_module_name);
9885: END IF;
9886: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9887: END IF;
9888:
9889: END IF;-- IF l_resource_assignment_id_tbl.count >0 THEN
9890:
9895: -- Bug Fix 4635951
9896: -- Commenting out the below select as it has been moved into the below IF condition
9897: -- and it was a left out and this stranded select is causing this bug.
9898:
9899: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9900: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
9901: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9902: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
9903: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
9897: -- and it was a left out and this stranded select is causing this bug.
9898:
9899: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9900: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
9901: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9902: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
9903: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
9904:
9905: IF l_debug_mode = 'Y' THEN
9924: pa_debug.g_err_stage:='After Called process_wbs_updates_wrp:retSts['||x_return_status||']';
9925: print_msg(pa_debug.g_err_stage,l_module_name);
9926: END IF;
9927:
9928: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9929: END IF;
9930: --End bug 4492493
9931:
9932: IF l_debug_mode = 'Y' THEN
9936: pa_debug.reset_curr_function;
9937: END IF;
9938: EXCEPTION
9939:
9940: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9941: l_msg_count := FND_MSG_PUB.count_msg;
9942: IF l_msg_count = 1 THEN
9943: PA_INTERFACE_UTILS_PUB.get_messages
9944: (p_encoded => FND_API.G_TRUE
10047: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10048: END IF;
10049: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10050: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10051: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10052: END IF;
10053:
10054: ---------------------------------------------------------------
10055: -- checking if a workplan type is present in the system with
10081: END IF;
10082:
10083: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10084: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE' );
10085: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10086: END; -- BLOCK to check if workplan_type is is present in the system - Ends
10087:
10088:
10089: ---------------------------------------------------------
10157:
10158: pa_proj_fp_options_pub.Create_FP_Option (
10159: px_target_proj_fp_option_id => l_proj_fp_options_id
10160: ,p_source_proj_fp_option_id => l_src_fp_option_id
10161: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
10162: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
10163: ,p_target_fin_plan_version_id => null
10164: ,p_target_project_id => p_targ_project_id
10165: ,p_target_plan_type_id => l_wp_type_id
10158: pa_proj_fp_options_pub.Create_FP_Option (
10159: px_target_proj_fp_option_id => l_proj_fp_options_id
10160: ,p_source_proj_fp_option_id => l_src_fp_option_id
10161: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
10162: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
10163: ,p_target_fin_plan_version_id => null
10164: ,p_target_project_id => p_targ_project_id
10165: ,p_target_plan_type_id => l_wp_type_id
10166: ,x_return_status => l_return_status
10171: IF l_debug_mode = 'Y' THEN
10172: pa_debug.g_err_stage:='Called API pa_proj_fp_options_pub.Create_FP_Option returned error';
10173: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10174: END IF;
10175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10176: END IF;
10177:
10178: SELECT plan_in_multi_curr_flag
10179: INTO l_plan_in_multi_curr_flag
10198: IF l_debug_mode = 'Y' THEN
10199: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES returned error';
10200: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10201: END IF;
10202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10203: END IF;
10204:
10205: END IF;
10206: IF l_debug_mode = 'Y' THEN
10208: END IF;
10209:
10210: EXCEPTION
10211:
10212: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10213: l_msg_count := FND_MSG_PUB.count_msg;
10214: IF l_msg_count = 1 THEN
10215: PA_INTERFACE_UTILS_PUB.get_messages
10216: (p_encoded => FND_API.G_TRUE
10323: SELECT resource_assignment_id,resource_class_code
10324: FROM pa_resource_assignments
10325: WHERE wbs_element_version_id = c_wbs_element_version_id
10326: AND ta_display_flag = 'N' -- Bug 3749516
10327: AND resource_class_code in (PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_PPL);
10328:
10329: BEGIN
10330:
10331: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10444: x_burdened_cost_tbl(l_out_tbl_index) := p_burdened_cost_tbl(i);
10445: END IF;
10446:
10447: x_element_version_id_tbl(l_out_tbl_index) := p_element_version_id_tbl(i);
10448: IF l_res_class_code_tbl(j) = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_PPL THEN
10449: IF (p_planned_people_effort_tbl.EXISTS(i)) THEN --AND
10450: -- (nvl(p_planned_people_effort_tbl(i),FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM) AND
10451: -- (p_planned_people_effort_tbl(i) > 0)) THEN
10452: x_planned_effort_tbl(l_out_tbl_index) := p_planned_people_effort_tbl(i);
10597: IF l_add_tbl_index > 1 THEN
10598:
10599: add_planning_transactions
10600: (
10601: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
10602: ,p_project_id => p_project_id
10603: ,p_struct_elem_version_id => p_struct_elem_version_id
10604: ,p_budget_version_id => NULL
10605: ,p_task_elem_version_id_tbl => l_element_version_id_tbl
10628: IF l_debug_mode = 'Y' THEN
10629: pa_debug.g_err_stage:='Called API PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions ,api returned error';
10630: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10631: END IF;
10632: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10633: END IF;
10634:
10635: END IF;
10636:
10637: IF l_debug_mode = 'Y' THEN
10638: pa_debug.reset_curr_function;
10639: END IF;
10640: EXCEPTION
10641: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10642: l_msg_count := FND_MSG_PUB.count_msg;
10643: IF l_msg_count = 1 THEN
10644: PA_INTERFACE_UTILS_PUB.get_messages
10645: (p_encoded => FND_API.G_TRUE
10793:
10794: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10795: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10796:
10797: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10798:
10799: END IF;
10800:
10801: -- If there is no change in planning level or res list or RBS return
10854: IF l_debug_mode = 'Y' THEN
10855: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
10856: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
10857: END IF;
10858: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10859: END IF;
10860:
10861: -- Bug 5003827 Issue 28
10862: IF nvl(p_ci_ver_agr_change_flag,'N') = 'Y' THEN
10889: IF l_debug_mode = 'Y' THEN
10890: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
10891: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
10892: END IF;
10893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10894: END IF;
10895:
10896: END IF;
10897: ----IPM Arch Enhancement Bug 4865563
10940: IF l_debug_mode = 'Y' THEN
10941: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
10942: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
10943: END IF;
10944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10945: END IF;
10946:
10947: pa_res_asg_currency_pub.maintain_data(
10948: p_fp_cols_rec => l_fp_cols_rec,
10964: IF l_debug_mode = 'Y' THEN
10965: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
10966: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
10967: END IF;
10968: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10969: END IF;
10970:
10971: END IF;
10972: ----IPM Arch Enhancement Bug 5754758/4865563
10993: IF l_debug_mode = 'Y' THEN
10994: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
10995: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
10996: END IF;
10997: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10998: END;
10999:
11000: -- added for bug 4724017:
11001: -- Creation of default planning transaction is not done for versions
11015: ,x_msg_count => x_msg_count
11016: ,x_msg_data => x_msg_data );
11017:
11018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11019: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11020: END IF;
11021:
11022: END IF; -- end bug 4724017
11023: END IF;
11067: IF l_debug_mode = 'Y' THEN
11068: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11069: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11070: END IF;
11071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11072: END IF;
11073:
11074: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
11075: IF l_debug_mode = 'Y' THEN
11100: IF l_debug_mode = 'Y' THEN
11101: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11102: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11103: END IF;
11104: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11105: END IF;
11106:
11107: pa_res_asg_currency_pub.maintain_data(
11108: p_fp_cols_rec => l_fp_cols_rec,
11124: IF l_debug_mode = 'Y' THEN
11125: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11126: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11127: END IF;
11128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11129: END IF;
11130: END IF; --} IF l_delete_ra_id_tbl.COUNT > 0 THEN
11131: -- END of IPM changes Bug 5003827 Issue 22
11132:
11144: IF l_debug_mode = 'Y' THEN
11145: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version returned error';
11146: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11147: END IF;
11148: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11149: END IF;
11150: END IF;
11151:
11152: -- Note: As of now rbs can not be changed at version level.
11169: IF l_debug_mode = 'Y' THEN
11170: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
11171: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11172: END IF;
11173: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11174: END IF;
11175: END IF;
11176:
11177: -- If Planning Level, Resource list or Time phasing is changed, calling PJI apis for
11199:
11200: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11201: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11202: p_msg_name => l_error_msg_code);
11203: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11204: END IF;
11205:
11206: IF l_debug_mode = 'Y' THEN
11207: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
11221:
11222: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11223: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11224: p_msg_name => l_error_msg_code);
11225: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11226: END IF;
11227:
11228: IF l_debug_mode = 'Y' THEN
11229: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
11240: END IF;
11241:
11242: EXCEPTION
11243:
11244: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11245: l_msg_count := FND_MSG_PUB.count_msg;
11246: IF l_msg_count = 1 THEN
11247: PA_INTERFACE_UTILS_PUB.get_messages
11248: (p_encoded => FND_API.G_TRUE
11318: CURSOR version_info_cur (c_budget_version_id number) is
11319: select bv.project_id
11320: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
11321: ,bv.fin_plan_type_id
11322: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
11323: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11319: select bv.project_id
11320: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
11321: ,bv.fin_plan_type_id
11322: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
11323: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11327: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
11320: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
11321: ,bv.fin_plan_type_id
11322: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
11323: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11327: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
11328: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
11322: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
11323: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11327: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
11328: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
11329: from pa_budget_versions bv,
11330: pa_proj_fp_options pfo
11323: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11327: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
11328: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
11329: from pa_budget_versions bv,
11330: pa_proj_fp_options pfo
11331: where bv.budget_version_id = c_budget_version_id
11324: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
11325: ,DECODE(fin_plan_preference_code,
11326: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
11327: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
11328: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
11329: from pa_budget_versions bv,
11330: pa_proj_fp_options pfo
11331: where bv.budget_version_id = c_budget_version_id
11332: and pfo.project_id = bv.project_id
11427: IF l_debug_mode = 'Y' THEN
11428: pa_debug.g_err_stage:='Invalid Arguments Passed';
11429: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
11430: END IF;
11431: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11432:
11433: END IF;
11434:
11435: --Fetch budget version values
11482: IF l_debug_mode = 'Y' THEN
11483: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11484: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
11485: END IF;
11486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11487: END IF;
11488:
11489: BEGIN
11490: SELECT plan_class_code
11526: pr.enabled_flag = 'Y';
11527: END IF;
11528:
11529:
11530: IF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
11531: IF l_debug_mode = 'Y' THEN
11532: pa_debug.g_err_stage:= 'Planning at project level: Inserting a record';
11533: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
11534: END IF;
11552: IF l_debug_mode = 'Y' THEN
11553: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11554: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
11555: END IF;
11556: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11557: END IF;
11558:
11559:
11560: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
11556: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11557: END IF;
11558:
11559:
11560: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
11561: IF l_debug_mode = 'Y' THEN
11562: pa_debug.g_err_stage:= 'Planning at top task level: Opening cursor top_tasks_cur';
11563: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
11564: END IF;
11591: IF l_debug_mode = 'Y' THEN
11592: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11593: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
11594: END IF;
11595: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11596: END IF;
11597: -- Exit if fetch size is less than 200
11598: EXIT WHEN NVL(l_element_version_id_tbl.last,0) < l_max_fetch_size;
11599: END LOOP;
11599: END LOOP;
11600:
11601: CLOSE top_tasks_cur;
11602:
11603: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST THEN
11604: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
11605:
11606: IF l_debug_mode = 'Y' THEN
11607: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
11600:
11601: CLOSE top_tasks_cur;
11602:
11603: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST THEN
11604: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
11605:
11606: IF l_debug_mode = 'Y' THEN
11607: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
11608: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
11637: IF l_debug_mode = 'Y' THEN
11638: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11639: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
11640: END IF;
11641: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11642: END IF;
11643: END IF;
11644: -- Exit if fetch size is less than 200
11645: EXIT WHEN NVL(l_element_version_id_tbl.last,0) < l_max_fetch_size;
11655: pa_debug.reset_curr_function;
11656: END IF;
11657: EXCEPTION
11658:
11659: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11660: l_msg_count := FND_MSG_PUB.count_msg;
11661: IF l_msg_count = 1 THEN
11662: PA_INTERFACE_UTILS_PUB.get_messages
11663: (p_encoded => FND_API.G_TRUE
11905:
11906: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11907: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
11908:
11909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11910:
11911: END IF;
11912:
11913: -- Fetch all the plan type values that could have changed
11976: IF l_debug_mode = 'Y' THEN
11977: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
11978: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
11979: END IF;
11980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
11981: END IF;
11982:
11983: END LOOP;
11984:
12014: IF l_debug_mode = 'Y' THEN
12015: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12016: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12017: END IF;
12018: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12019: END IF;
12020:
12021: FORALL i IN l_pub_budget_version_id_tbl.first .. l_pub_budget_version_id_tbl.last
12022: --Fix for bug#7279771, uncommented the code comment done earlier for resource_class_code,
12146: IF l_debug_mode = 'Y' THEN
12147: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12148: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12149: END IF;
12150: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12151: END IF;
12152: END IF;
12153: /* Bug 4200168: FP.M:B12: Pref Changes:-----*/
12154:
12170: IF l_debug_mode = 'Y' THEN
12171: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies api returned error';
12172: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12173: END IF;
12174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12175: END IF;
12176:
12177: -- If resource list or time phasing has changed all the Task Assignments
12178: -- related data should be deleted
12207: ,x_msg_count => x_msg_count
12208: ,x_msg_data => x_msg_data );
12209:
12210: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12211: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12212: END IF;
12213: END IF;
12214:
12215: /* Bug 4200168: FP.M:B12: Pref Changes: Clearing the pl/sql tables*/
12278: IF l_debug_mode = 'Y' THEN
12279: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
12280: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12281: END IF;
12282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12283: END IF;
12284: END IF;
12285: END IF;
12286:
12299: IF l_debug_mode = 'Y' THEN
12300: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version api returned error';
12301: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12302: END IF;
12303: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12304: END IF;
12305: END IF;
12306: END LOOP;
12307:
12381: IF l_debug_mode = 'Y' THEN
12382: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
12383: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12384: END IF;
12385: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12386: ELSE
12387: -- Check count of the required out tables to be the same
12388: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
12389: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
12399: pa_debug.g_err_stage:=
12400: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
12401: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12402: END IF;
12403: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12404: END IF;
12405: END IF;
12406:
12407: -- Check if out table has any records first
12475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12476: IF l_debug_mode = 'Y' THEN
12477: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
12478: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
12479: END IF; RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12480: END IF;
12481: END LOOP;
12482:
12483: /* Start of commented code for bug 5073350.
12493:
12494: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12496: p_msg_name => l_error_msg_code);
12497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12498: END IF;
12499:
12500: End of commented code for bug 5073350*/
12501: END IF; -- inserting positive rows
12508: END IF;
12509:
12510: EXCEPTION
12511:
12512: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12513: l_msg_count := FND_MSG_PUB.count_msg;
12514: IF l_msg_count = 1 THEN
12515: PA_INTERFACE_UTILS_PUB.get_messages
12516: (p_encoded => FND_API.G_TRUE
12676: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12677: p_token1 => 'PROCEDURENAME',
12678: p_value1 => 'pa_fp_planning_transaction_pub.Refresh_rbs_for_versions');
12679:
12680: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12681:
12682: END IF;
12683:
12684: -- fetch plan type level rbs version id
12777: IF l_debug_mode = 'Y' THEN
12778: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
12779: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12780: END IF;
12781: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12782: ELSE
12783: -- Check count of the required out tables to be the same
12784: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
12785: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
12795: pa_debug.g_err_stage:=
12796: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
12797: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12798: END IF;
12799: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12800: END IF;
12801: END IF;
12802:
12803: -- Check if out table has any records first
12838:
12839: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12840: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12841: p_msg_name => l_error_msg_code);
12842: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12843: END IF;
12844:
12845: -- Call PLAN_CREATE to create summarization data as per the new RBS
12846: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
12850:
12851: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12852: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12853: p_msg_name => l_error_msg_code);
12854: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12855: END IF;
12856:
12857: IF l_debug_mode = 'Y' THEN
12858: pa_debug.g_err_stage:='Exiting Refresh_rbs_for_versions';
12862: END IF;
12863:
12864: EXCEPTION
12865:
12866: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12867: l_msg_count := FND_MSG_PUB.count_msg;
12868: IF l_msg_count = 1 THEN
12869: PA_INTERFACE_UTILS_PUB.get_messages
12870: (p_encoded => FND_API.G_TRUE