[Home] [Help]
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
305: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
306: p_token1 => 'PROCEDURENAME',
307: p_value1 => l_module_name);
308: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
309: END IF;
310:
311: l_ra_id_count := p_resource_assignment_id_tbl.COUNT;
312:
364: pa_debug.g_err_stage:='0 rows returned by c_plan_ver_settings_csr';
365: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
366: END IF;
367: CLOSE c_plan_ver_settings_csr;
368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
369:
370: END IF;
371: CLOSE c_plan_ver_settings_csr;
372: --dbms_output.put_line('6.1');
631: );
632: /* end of bug fix: 5752337 */
633:
634:
635: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
636: END IF;--IF ((x_plan_start_date_new_tbl(i)=FND_API.G_MISS_DATE) OR
637:
638: --Bug 4083605. This block of code makes sure that the planning start date is not changed to a date
639: --which falls after the date where actuals exist. Similar validations are done for planning end date too
696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
697: p_msg_name => 'PA_FP_PLAN_DT_CHG_ACTL_EXST');
698: END IF;
699:
700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
701:
702: END IF;
703:
704:
720: END IF;
721:
722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
723: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
725:
726: -- Added for bug 4247427. Fixed Date cannot be less than the etc_start_date
727: 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
728: IF (x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date) THEN
731: print_msg(pa_debug.g_err_stage,l_module_name);
732: END IF;
733: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
734: p_msg_name => 'PA_FP_SP_FIXED_DATE_LESS');
735: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
736: END IF; -- x_sp_fixed_date_new_tbl(i) < l_plan_ver_settings_rec.etc_start_date
737:
738: 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
739:
780: p_token4 => 'L_LINE_START_DATE',
781: p_value4 => x_plan_start_date_new_tbl(i),
782: p_token5 => 'L_LINE_END_DATE',
783: p_value5 => x_plan_start_date_old_tbl(i));
784: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
785:
786: END IF;--IF x_sp_fixed_date_new_tbl(i) = FND_API.G_MISS_DATE THEN
787:
788: ELSE
817:
818: IF x_rlm_id_change_flag_tbl(i)='Y' THEN
819:
820: -- An rbs element id can change for a planning transaction only in Task Assignments Flow.
821: IF p_context <> PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
822:
823: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
824: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
825: p_token1 => 'PROCEDURENAME',
825: p_token1 => 'PROCEDURENAME',
826: p_value1 => 'PROCESS_RES_CHG_DERV_CALC_PRMS',
827: p_token2 => 'STAGE',
828: p_value2 => 'RBS Elem Id change in NON TA context');
829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
830:
831: END IF;
832: --dbms_output.put_line('7.1');
833:
886: l_rbf_rbs_prm_tbl(l_rbs_map_index) := l_rate_based_flag_tbl(i);
887: --dbms_output.put_line('7.3');
888:
889: /* Bug fix: 5759413 */
890: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
891: l_rtx_rateOvrds_rec := NULL;
892: OPEN get_rateOvrds (p_resource_assignment_id_tbl(i));
893: FETCH get_rateOvrds INTO l_rtx_rateOvrds_rec;
894: CLOSE get_rateOvrds;
1091: IF l_debug_mode = 'Y' THEN
1092: pa_debug.g_err_stage:='Called API delete_planning_transactions returned error';
1093: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1094: END IF;
1095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1096:
1097: END IF;
1098: --dbms_output.put_line('7.6');
1099:
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage, 5);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162:
1163: END IF;
1164: --dbms_output.put_line('7.8');
1165:
1205: print_msg(pa_debug.g_err_stage,l_module_name);
1206: pa_debug.reset_curr_function;
1207: END IF;
1208: EXCEPTION
1209: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1210: l_msg_count := FND_MSG_PUB.count_msg;
1211: IF l_msg_count = 1 THEN
1212: PA_INTERFACE_UTILS_PUB.get_messages
1213: (p_encoded => FND_API.G_TRUE
1661: END IF;
1662:
1663: --p_context should never be null
1664: IF p_context IS NULL OR
1665: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1666: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1662:
1663: --p_context should never be null
1664: IF p_context IS NULL OR
1665: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1666: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1670: IF l_debug_mode = 'Y' THEN
1663: --p_context should never be null
1664: IF p_context IS NULL OR
1665: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1666: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.g_err_stage:='p_context passed is '||p_context;
1664: IF p_context IS NULL OR
1665: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
1666: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
1667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
1668: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.g_err_stage:='p_context passed is '||p_context;
1672: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1672: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1673: END IF;
1674: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1675: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1676: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1677:
1678: END IF;
1679:
1680: -- Added for Bug 3719918 -- ONE-TO-ONE MAPPING BETWEEN ELEM_VER-RLM IDS PASSED
1680: -- Added for Bug 3719918 -- ONE-TO-ONE MAPPING BETWEEN ELEM_VER-RLM IDS PASSED
1681: -- Validation for p_one_to_one_mapping_flag passed as Y only for Budget/Forecast context
1682: -- Modified Validation Below for Only WORKPLAN Context - Changes for Bug 3665097
1683: IF (p_one_to_one_mapping_flag = 'Y'
1684: AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
1685: IF l_debug_mode = 'Y' THEN
1686: pa_debug.g_err_stage:='p_one_to_one_mapping_flag passed as Y for WORKPLAN context :'||p_context;
1687: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1688: END IF;
1687: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1688: END IF;
1689: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1690: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1691: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1692: END IF;
1693:
1694:
1695: -- Added for Bug 3719918 and Bug 3665097
1703: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1706: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1707: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1708:
1709: END IF;
1710:
1711:
1723: p_token1 => 'PROCEDURENAME',
1724: p_value1 => 'PAFPPTPB.add_planning_transactions',
1725: p_token2 => 'STAGE',
1726: p_value2 => 'Planning Date Passed when one to one mapping is N');
1727: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1728:
1729: END IF;
1730:
1731: -- Bug 3793623 Planning Start Date and Planning End Date Should have the same
1740: p_token1 => 'PROCEDURENAME',
1741: p_value1 => 'PAFPPTPB.add_planning_transactions',
1742: p_token2 => 'STAGE',
1743: p_value2 => 'Planning Start Date - End Date MISMATCH');
1744: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1745: END IF;
1746:
1747: -- Bug 3793623 If Planning Start/End Date is passed its should be same as
1748: -- task_elem_version_id COUNT
1757: p_token1 => 'PROCEDURENAME',
1758: p_value1 => 'PAFPPTPB.add_planning_transactions',
1759: p_token2 => 'STAGE',
1760: p_value2 => 'Planning Start Date - Task Elem Mismatch');
1761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1762: END IF;
1763: END IF;
1764:
1765: /* bug#16200605 CBS enhancement
1803: p_token1 => 'PROCEDURENAME',
1804: p_value1 => 'PAFPPTPB.add_planning_transactions',
1805: p_token2 => 'STAGE',
1806: p_value2 => 'Duplicate RLM Id Passed');
1807: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1808: ELSE
1809: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1810: IF l_debug_mode = 'Y' THEN
1811: pa_debug.g_err_stage:='Dup RLM ID Passed';
1816: p_token1 => 'PROCEDURENAME',
1817: p_value1 => 'PAFPPTPB.add_planning_transactions',
1818: p_token2 => 'STAGE',
1819: p_value2 => 'Duplicate Cost Code Passed');
1820: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1821: END IF;
1822: END IF;
1823: END IF;
1824: END LOOP;
1841: p_token1 => 'PROCEDURENAME',
1842: p_value1 => 'PAFPPTPB.add_planning_transactions',
1843: p_token2 => 'STAGE',
1844: p_value2 => 'Duplicate Task Elem Version Id Passed');
1845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1846: END IF;
1847: END LOOP;
1848: END LOOP;
1849: END IF;
1852: -- when p one to one mapping flag is Y
1853: -- FOR B/F Context dup rlm/task elem combination cannot be passed until
1854: -- and unless the currecy code is diff
1855: -- for TA WOKRPLAN dup rlm/task elem combination cannot be passed
1856: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1857: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
1858: IF p_task_elem_version_id_tbl.COUNT > 1 THEN
1859: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1860: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1853: -- FOR B/F Context dup rlm/task elem combination cannot be passed until
1854: -- and unless the currecy code is diff
1855: -- for TA WOKRPLAN dup rlm/task elem combination cannot be passed
1856: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
1857: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
1858: IF p_task_elem_version_id_tbl.COUNT > 1 THEN
1859: FOR i IN p_task_elem_version_id_tbl.FIRST .. (p_task_elem_version_id_tbl.LAST-1) LOOP
1860: FOR j in (i+1) .. p_task_elem_version_id_tbl.LAST LOOP
1861: IF ( (p_task_elem_version_id_tbl(i) = p_task_elem_version_id_tbl(j)) AND
1873: p_token1 => 'PROCEDURENAME',
1874: p_value1 => 'PAFPPTPB.add_planning_transactions',
1875: p_token2 => 'STAGE',
1876: p_value2 => 'Duplicate CurrCode/RlmId/TaskId Passed');
1877: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1878: ELSE
1879: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1886: p_token1 => 'PROCEDURENAME',
1887: p_value1 => 'PAFPPTPB.add_planning_transactions',
1888: p_token2 => 'STAGE',
1889: p_value2 => 'Duplicate CurrCode/RlmId/TaskId/CostCode Passed');
1890: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1891: END IF;
1892: END IF;
1893: END IF;
1894: ELSE
1902: p_token1 => 'PROCEDURENAME',
1903: p_value1 => 'PAFPPTPB.add_planning_transactions',
1904: p_token2 => 'STAGE',
1905: p_value2 => 'Duplicate CurrCode/RlmId/TaskId Passed');
1906: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1907: ELSE
1908: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1909: IF l_debug_mode = 'Y' THEN
1910: pa_debug.g_err_stage:='Dup Rec passed - Curr Code (B/F) - will error out in Ins Stat';
1915: p_token1 => 'PROCEDURENAME',
1916: p_value1 => 'PAFPPTPB.add_planning_transactions',
1917: p_token2 => 'STAGE',
1918: p_value2 => 'Duplicate CurrCode/RlmId/TaskId/CostCode Passed');
1919: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1920: END IF;
1921: END IF;
1922: END IF;
1923:
1943: p_token1 => 'PROCEDURENAME',
1944: p_value1 => 'PAFPPTPB.add_planning_transactions',
1945: p_token2 => 'STAGE',
1946: p_value2 => 'Duplicate RlmId/TaskId Passed');
1947: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1948: ELSE
1949: IF p_cbs_element_id_tbl(j) = p_cbs_element_id_tbl(i) THEN
1950: IF l_debug_mode = 'Y' THEN
1951: pa_debug.g_err_stage:='Dup Rec passed - will error out in Ins Stat p_context :'||p_context;
1956: p_token1 => 'PROCEDURENAME',
1957: p_value1 => 'PAFPPTPB.add_planning_transactions',
1958: p_token2 => 'STAGE',
1959: p_value2 => 'Duplicate RlmId/TaskId/CostCode Passed');
1960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1961: END IF;
1962: END IF;
1963: END IF;
1964: END LOOP;
1994: -------------------------------------------------------------------------------------------
1995: -- Extending all table lengths to the permissible values they would take.
1996: -------------------------------------------------------------------------------------------
1997:
1998: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1999: -- Bug 3749516 only for PEOPLE
2000: l_rlm_id_no_of_rows := 1;
2001: ELSE
2002: l_rlm_id_no_of_rows := p_resource_list_member_id_tbl.LAST;
2141: l_ins_cal_burdened_cost_tbl.extend(l_elem_ver_id_no_of_rows);
2142: l_ins_cal_raw_cost_tbl.extend(l_elem_ver_id_no_of_rows);
2143:
2144: -- Bug 8829159 - Fix to reduce PGA memory usage and avoid ORA-4030
2145: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) AND (p_one_to_one_mapping_flag = 'Y')) THEN
2146: l_ra_id_del_tbl.extend(l_elem_ver_id_no_of_rows);
2147: l_spread_amount_flags_tbl.extend(l_elem_ver_id_no_of_rows);
2148: l_delete_budget_lines_tbl.extend(l_elem_ver_id_no_of_rows);
2149: l_res_assignment_id_tbl.extend(l_elem_ver_id_no_of_rows);
2184: -- 1. , p_task_elem_version_id_tbl table cannot be empty
2185: -------------------------------------------------------------------------------------------
2186:
2187: --If the input tasks table is empty in the context of budget or forecast then return
2188: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
2189: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
2190: l_elem_version_id_count := p_task_elem_version_id_tbl.COUNT;
2191: l_trace_stage := 140;
2192: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2185: -------------------------------------------------------------------------------------------
2186:
2187: --If the input tasks table is empty in the context of budget or forecast then return
2188: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
2189: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
2190: l_elem_version_id_count := p_task_elem_version_id_tbl.COUNT;
2191: l_trace_stage := 140;
2192: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2193:
2211:
2212:
2213: --In the context of workplan the start date and end date tbl count should always be equal to the input
2214: --task tbl count
2215: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
2216: IF (p_end_date_tbl.COUNT <> p_start_date_tbl.COUNT) OR
2217: (p_start_date_tbl.COUNT <> p_task_elem_version_id_tbl.COUNT) THEN
2218:
2219: IF l_debug_mode = 'Y' THEN
2222: END IF;
2223: --dbms_output.put_line('$$$$%%%');
2224: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2225: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2226: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2227: END IF;
2228: END IF;
2229:
2230:
2231: -------------------------------------------------------------------------------------------
2232: -- Validation - p_resource_list_member_id_tbl can be empty only for p_context = 'WORKPLAN'
2233: -- Otherwise return NULL
2234: -------------------------------------------------------------------------------------------
2235: IF NOT(p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
2236: l_rlm_id_tbl_count := p_resource_list_member_id_tbl.COUNT;
2237:
2238: IF l_debug_mode = 'Y' THEN
2239: pa_debug.g_err_stage:='Validating input parameters - count of p_resource_list_member_id_tbl = '||l_rlm_id_tbl_count;
2275: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2276: END IF;
2277: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2278: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2280: END IF;
2281:
2282: --dbms_output.put_line('2');
2283:
2288: -- 1. for p_context ('WORKPLAN','TASK_ASSIGNMENT')- p_struct_elem_version_id cannot be null
2289: -- 2. , p_task_elem_version_id_tbl table cannot be empty
2290: -------------------------------------------------------------------------------------------
2291:
2292: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)) THEN
2293:
2294: l_trace_stage := 70;
2295: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2296: IF p_struct_elem_version_id IS NULL THEN
2300: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2301: END IF;
2302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2303: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2304: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2305:
2306: ELSE
2307:
2308: l_trace_stage := 80;
2333: IF l_debug_mode = 'Y' THEN
2334: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_wp_plan_type api returned error';
2335: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2336: END IF;
2337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2338: END IF;
2339: -----------------------------------------------------
2340: -- If l_budget_version_id IS NULL then create version
2341: -----------------------------------------------------
2355:
2356: pa_fin_plan_pub.Create_Version (
2357: p_project_id => p_project_id
2358: ,p_fin_plan_type_id => l_fin_plan_type_id
2359: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
2360: ,p_version_name => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2361: ,p_description => null
2362: ,p_ci_id => null
2363: ,p_est_proj_raw_cost => null
2356: pa_fin_plan_pub.Create_Version (
2357: p_project_id => p_project_id
2358: ,p_fin_plan_type_id => l_fin_plan_type_id
2359: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
2360: ,p_version_name => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2361: ,p_description => null
2362: ,p_ci_id => null
2363: ,p_est_proj_raw_cost => null
2364: ,p_est_proj_bd_cost => null
2365: ,p_est_proj_revenue => null
2366: ,p_est_qty => null
2367: ,p_impacted_task_id => null
2368: ,p_agreement_id => null
2369: ,p_calling_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
2370: ,p_resource_list_id => null
2371: ,p_time_phased_code => null
2372: ,p_fin_plan_level_code => null
2373: ,p_plan_in_multi_curr_flag => null
2414: IF l_debug_mode = 'Y' THEN
2415: pa_debug.g_err_stage:='Called API pa_fin_plan_pub.create_version api returned error';
2416: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2417: END IF;
2418: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2419: END IF;
2420:
2421: END IF;
2422:
2449: END IF;
2450:
2451: l_trace_stage := 160;
2452: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2453: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
2454:
2455: l_trace_stage := 170;
2456: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2457: IF p_budget_version_id IS NULL THEN
2462: END IF;
2463: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2464: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2465: --dbms_output.put_line('bv id is null for BF');
2466: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2467: ELSE
2468: l_trace_stage := 180;
2469: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2470: l_budget_version_id := p_budget_version_id;
2531: -- and setting all Cost PLsql tables that will be needed for calling Calculate API as Empty tabs
2532: -- Bug 3749516 Removing rlm id for EQUIPMENT below
2533: -----------------------------------------------------------------------------------------------------------------------
2534:
2535: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN
2536: l_trace_stage := 220;
2537: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2538:
2539: IF l_debug_mode = 'Y' THEN
2557: IF l_debug_mode = 'Y' THEN
2558: pa_debug.g_err_stage:='Called API pa_planning_transaction_utils.Get_Res_Class_Rlm_Ids api returned error';
2559: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2560: END IF;
2561: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2562: END IF;
2563:
2564: l_trace_stage := 240;
2565: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2673: IF l_debug_mode = 'Y' THEN
2674: pa_debug.g_err_stage:='Called APIPA_PLANNING_RESOURCE_UTILS.get_resource_defaults api returned error';
2675: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2676: END IF;
2677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2678:
2679: END IF;
2680:
2681: IF l_debug_mode = 'Y' THEN
2743:
2744:
2745: END IF;
2746: --Added For CBS 12.2 Enhancement
2747: IF (((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
2748: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK))
2749: AND p_struct_elem_version_id IS NOT NULL)
2750: THEN
2751: l_res_class_flag := PA_PROJECT_STRUCTURE_UTILS.get_resource_class_flag(p_project_id);
2744:
2745: END IF;
2746: --Added For CBS 12.2 Enhancement
2747: IF (((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
2748: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK))
2749: AND p_struct_elem_version_id IS NOT NULL)
2750: THEN
2751: l_res_class_flag := PA_PROJECT_STRUCTURE_UTILS.get_resource_class_flag(p_project_id);
2752: IF l_res_class_flag = 'N'
2839: IF l_debug_mode = 'Y' THEN
2840: pa_debug.g_err_stage:='Called API PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
2841: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
2842: END IF;
2843: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2844:
2845: END IF;
2846:
2847: END IF; --IF l_rbs_version_id IS NOT NULL THEN
2865: -- For p_context = TASK_ASSIGNMENTS - Processing Starts Here
2866: -------------------------------------------------------------------------
2867: l_trace_stage := 330;
2868: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2869: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
2870: l_trace_stage := 340;
2871: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
2872: IF l_debug_mode = 'Y' THEN
2873: pa_debug.g_err_stage:='Doing processing for TASK ASSIGNMENTS : p_context is'|| p_context;
3247: IF l_debug_mode = 'Y' THEN
3248: pa_debug.g_err_stage:='Called API pa_task_assignment_utils.Validate_Create_Assignment returned error';
3249: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3250: END IF;
3251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3252: END IF;
3253: IF l_debug_mode = 'Y' THEN
3254: pa_debug.g_err_stage:='Returned from pa_task_assignment_utils.Validate_Create_Assignment';
3255: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
3608: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
3609: END IF;
3610: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3611: p_msg_name => 'PA_FP_SP_FIXED_DATE_OUT');
3612: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3613: END IF;
3614: -- Bug 3607061 Ends
3615: END IF;
3616:
3889: END IF;
3890: l_trace_stage := 550;
3891: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3892:
3893: 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
3894: l_spread_amounts_for_ver := 'Y';
3895: ELSE
3896: l_spread_amounts_for_ver := 'N';
3897: END IF;
3959: ---------------------------------------------------------------
3960: -- For p_context = BUDGET or FORECAST
3961: -- Deriving start date and end date for task_element_version_id
3962: ---------------------------------------------------------------
3963: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
3964: l_trace_stage := 610;
3965: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
3966:
3967: IF l_debug_mode = 'Y' THEN
3987: IF l_debug_mode = 'Y' THEN
3988: pa_debug.g_err_stage:='Called API pafpptub.get_default_planning_dates returned error';
3989: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ',pa_debug.g_err_stage, 3);
3990: END IF;
3991: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3992: END IF;
3993:
3994: l_trace_stage := 710;
3995: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
4037: -- One to One Mapping Flag is passed as Y
4038: -- Bug 3719918 and Bug 3665097
4039: ----------------------------------------------------------------------
4040: IF (p_one_to_one_mapping_flag = 'Y' AND
4041: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
4042: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4043: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
4044: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
4045: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
4038: -- Bug 3719918 and Bug 3665097
4039: ----------------------------------------------------------------------
4040: IF (p_one_to_one_mapping_flag = 'Y' AND
4041: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
4042: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4043: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
4044: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
4045: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
4046: IF l_prj_cbs_enabled = 'Y' THEN
4039: ----------------------------------------------------------------------
4040: IF (p_one_to_one_mapping_flag = 'Y' AND
4041: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
4042: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4043: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST))THEN
4044: l_task_elem_rlm_tbl := p_task_elem_version_id_tbl;
4045: l_proj_elem_rlm_tbl := l_proj_element_id_tbl;
4046: IF l_prj_cbs_enabled = 'Y' THEN
4047: l_cbs_id_rlm_tbl := p_cbs_element_id_tbl;--Bug#16200605
4061: -- the below logic is used in BF context and will reduce the input data to the
4062: -- following form -- Task elem ver id : t1,t2 and RLM : r1,r2
4063: -- This will be used in the insert statment for B/F
4064:
4065: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4066: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST ) THEN
4067:
4068: IF (p_one_to_one_mapping_flag = 'Y') THEN
4069:
4062: -- following form -- Task elem ver id : t1,t2 and RLM : r1,r2
4063: -- This will be used in the insert statment for B/F
4064:
4065: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4066: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST ) THEN
4067:
4068: IF (p_one_to_one_mapping_flag = 'Y') THEN
4069:
4070: l_bf_start_date_tbl := l_start_date_tbl;
4124: l_bf_cost_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_cost_rate_tbl.count);
4125: l_bf_bill_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_bill_rate_tbl.count);
4126: l_bf_burdened_rate_tbl.extend(l_rlm_id_no_of_rows-l_bf_burdened_rate_tbl.count);
4127:
4128: END IF; -- IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
4129:
4130: ----------------------------------------------------
4131: -- THESE DEBUG MESSAGES ARE BEING PLACED HERE ONLY FOR
4132: -- REFERENCE SO THAT THEY CAN BE USED WHEN AND WHERE
4234:
4235: --------------------------------------------
4236: -- for p_context - WORKPLAN
4237: --------------------------------------------
4238: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
4239:
4240: -- Bug 3749516 Changing All reference of l_ppl_equip_index to l_ppl_index below
4241: l_ppl_index:=1; --This will be used in the bulk insert for people -- -- Bug 3749516
4242:
4552: -----------------------------------------------------------------------------------
4553: ----------------------------------------------------
4554: -- Loop for all the task_elem_version_id --- Starts
4555: ----------------------------------------------------
4556: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4557: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4558: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4559:
4560: -- Resetting value of l_index
4553: ----------------------------------------------------
4554: -- Loop for all the task_elem_version_id --- Starts
4555: ----------------------------------------------------
4556: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4557: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4558: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4559:
4560: -- Resetting value of l_index
4561: l_index := 1;
4554: -- Loop for all the task_elem_version_id --- Starts
4555: ----------------------------------------------------
4556: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK)
4557: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET)
4558: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4559:
4560: -- Resetting value of l_index
4561: l_index := 1;
4562: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
4564: -- hr_utility.trace('PA_FP_PLAN_TXN_PUB.add_planning_transactions: '||to_char(l_trace_stage));
4565: --------------------------------------------
4566: -- for p_context - TASK_ASSIGNMENTS
4567: --------------------------------------------
4568: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
4569: IF l_debug_mode = 'Y' THEN
4570: pa_debug.g_err_stage:='BULK INSERTING DATA - Context TASK p_context : '||p_context;
4571: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4572: END IF;
4791: IF l_debug_mode = 'Y' THEN
4792: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
4793: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4796: END IF;
4797: -----------------------------------------------------------------------
4798: -- Populating resource assignments and corresponding spread amount flags
4799: -- in PLSql tables. for IN parameters of Calculate API
4900:
4901: -----------------------------------------------------------
4902: -- For p_context = BUDGET or FORECAST
4903: -----------------------------------------------------------
4904: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
4905: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4906:
4907: ---------------------------------------------------------
4908: -- BULK Inserting records into pa_resource_assignments
4901: -----------------------------------------------------------
4902: -- For p_context = BUDGET or FORECAST
4903: -----------------------------------------------------------
4904: ELSIF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
4905: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
4906:
4907: ---------------------------------------------------------
4908: -- BULK Inserting records into pa_resource_assignments
4909: -- by iterating throught elligle resource list member ids
5373: p_value1 => 'ADD_PLANNING_TRANSACTIONS',
5374: p_token2 => 'STAGE',
5375: p_value2 => 'Ins Recs + Err Recs <> Total Recs ['||l_index||' , '||SQL%BULK_EXCEPTIONS.COUNT ||' , '||l_eligible_rlm_ids_tbl.COUNT );
5376:
5377: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5378:
5379: END IF;
5380:
5381: l_bf_task_id_tbl.extend(l_rlm_id_no_of_rows-l_bf_task_id_tbl.count);
5472: p_value1 => 'ADD_PLANNING_TRANSACTIONS',
5473: p_token2 => 'STAGE',
5474: p_value2 => 'Ins Recs + Err Recs <> Total Recs ['||l_index||' , '||SQL%BULK_EXCEPTIONS.COUNT ||' , '||l_eligible_rlm_ids_tbl.COUNT );
5475:
5476: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5477:
5478: END IF;
5479:
5480: l_orig_count := l_ra_id_temp_tbl.COUNT; -- bug 5003827 issue 22
5515:
5516: pa_debug.g_err_stage:='For Budget and Forcast p_context - data mismatch';
5517: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5518: END IF;
5519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5520:
5521: END IF;
5522:
5523: l_index := 1;
5589: --dbms_output.put_line('curr code not passed');
5590: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5591: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5592:
5593: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5594:
5595: END IF;
5596:
5597:
5680:
5681: PA_FP_CALC_PLAN_PKG.calculate(
5682: p_project_id => p_project_id
5683: ,p_budget_version_id => l_budget_version_id
5684: ,p_source_context => PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT
5685: ,p_resource_assignment_tab => l_res_assignment_id_tbl
5686: ,p_delete_budget_lines_tab => l_delete_budget_lines_tbl
5687: -- bug fix:5726773,p_spread_amts_flag_tab => l_spread_amount_flags_tbl
5688: ,p_txn_currency_code_tab => l_currency_code_tbl -- derive
5710: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
5711: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5712: END IF;
5713:
5714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5715: END IF;
5716:
5717: -- Added for bug 4492493, 4548240
5718: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5715: END IF;
5716:
5717: -- Added for bug 4492493, 4548240
5718: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5719: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5720: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5721: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5722: /* Bug 13419867 starts */
5716:
5717: -- Added for bug 4492493, 4548240
5718: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
5719: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_project_id) = 'Y') OR
5720: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
5721: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
5722: /* Bug 13419867 starts */
5723: /* PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
5724: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
5757: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
5758: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
5759: END IF;
5760:
5761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5762: END IF;
5763: --End bug 4492493
5764:
5765: END IF;
5765: END IF;
5766:
5767:
5768: -- Bug 8370812 - Fix is done for the TASK_ASSIGNMENTS context.
5769: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
5770:
5771: PA_FIN_PLAN_PUB.create_default_plan_txn_rec
5772: (p_budget_version_id => l_budget_version_id,
5773: p_calling_module => 'UPDATE_PLAN_TRANSACTION',
5797: IF l_debug_mode = 'Y' THEN
5798: pa_debug.g_err_stage:='Called API PA_FIN_PLAN_PUB.create_default_plan_txn_rec returned error';
5799: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5800: END IF;
5801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5802: END IF; /* 7161809 */
5803:
5804: -- Call the UTIL API to get the financial plan info l_fp_cols_rec
5805:
5823: IF l_debug_mode = 'Y' THEN
5824: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
5825: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5826: END IF;
5827: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5828: END IF;
5829:
5830: -- IPM changes - populate tmp table to use for rollup
5831: delete pa_resource_asgn_curr_tmp;
5833: IF l_ra_id_temp_tbl.COUNT > 0 THEN
5834: -- IPM - populate the currency code
5835: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5836: FOR j IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last LOOP
5837: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
5838: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) THEN
5839: -- Use project currency for workplan
5840: -- Bug 5003827 Issue 1
5841: l_curr_code_temp_tbl(j) := nvl(l_curr_code_temp_tbl(j),
5834: -- IPM - populate the currency code
5835: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5836: FOR j IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last LOOP
5837: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN,
5838: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) THEN
5839: -- Use project currency for workplan
5840: -- Bug 5003827 Issue 1
5841: l_curr_code_temp_tbl(j) := nvl(l_curr_code_temp_tbl(j),
5842: l_proj_curr_code);
5890: IF l_debug_mode = 'Y' THEN
5891: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
5892: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions: ' || g_module_name,pa_debug.g_err_stage, 3);
5893: END IF;
5894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5895: END IF; */
5896:
5897: IF l_debug_mode = 'Y' THEN
5898: pa_debug.g_err_stage:='CALLED THE PA_FP_CALC_PLAN_PKG.CALCULATE API';
5900: pa_debug.reset_curr_function;
5901: END IF;
5902: EXCEPTION
5903:
5904: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5905: ROLLBACK TO SAVEPOINT ADD_PLANNING_TRANS_SP;
5906: l_msg_count := FND_MSG_PUB.count_msg;
5907: IF l_msg_count = 1 THEN
5908: PA_INTERFACE_UTILS_PUB.get_messages
6305:
6306:
6307:
6308: IF p_context IS NULL OR
6309: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
6310: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6306:
6307:
6308: IF p_context IS NULL OR
6309: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
6310: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6314: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
6307:
6308: IF p_context IS NULL OR
6309: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
6310: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6314: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
6315: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
6308: IF p_context IS NULL OR
6309: p_context NOT IN ( PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST
6310: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
6311: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
6312: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET ) THEN
6313:
6314: pa_debug.g_err_stage := 'The Context IN parameter is NULL';
6315: pa_debug.write(l_module_name, pa_debug.g_err_stage,l_debug_level5);
6316: --dbms_output.put_line('p_context is null');
6316: --dbms_output.put_line('p_context is null');
6317:
6318: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6319: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6320: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6321: END IF;
6322: --dbms_output.put_line('U01');
6323:
6324: IF l_debug_mode = 'Y' THEN
6339:
6340:
6341: /* If the calling Context is Workplan or Task Assignment, the element version Id can't be null
6342: */
6343: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
6344: IF p_struct_elem_version_id IS NULL THEN
6345: IF l_debug_mode = 'Y' THEN
6346: pa_debug.g_err_stage:= 'p_struct_elem_version_id is null';
6347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6349: --dbms_output.put_line('p_struct_elem_version_id is null');
6350:
6351: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6352: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6354: ELSE
6355: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
6356: IF l_budget_version_id IS NULL THEN
6357: IF l_debug_mode = 'Y' THEN
6373: END IF;
6374: --dbms_output.put_line('Invalid value for p_struct_elem_version_id');
6375: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6376: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6377: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6378: END;
6379:
6380:
6381:
6391: IF l_debug_mode = 'Y' THEN
6392: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
6393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6394: END IF;
6395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6396: END IF;
6397: l_budget_version_id := PA_PLANNING_TRANSACTION_UTILS.Get_wp_budget_version_id(p_struct_elem_version_id);
6398: END IF;
6399:
6399:
6400: END IF;
6401: /* If the calling Context is BUDGET or FORECAST, the budget version Id can't be null
6402: */
6403: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6404: IF p_budget_version_id IS NULL THEN
6405: IF l_debug_mode = 'Y' THEN
6406: pa_debug.g_err_stage:= 'p_budget_version_id is null';
6407: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6408: END IF;
6409: --dbms_output.put_line('p_budget_version_id is null');
6410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6411: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6413: ELSE
6414: l_budget_version_id := p_budget_version_id;
6415: END IF;
6416: END IF;
6455: l_in_schedule_end_date_tbl := p_schedule_end_date_tbl;
6456: l_in_sp_fixed_date_tbl := p_sp_fixed_date_tbl;
6457: l_direct_expenditure_type_tbl :=p_direct_expenditure_type_tbl;
6458: -- Please note that the l_in_ tables will be reference instead of p_ tables in Code Flow
6459: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
6460: IF p_task_elem_version_id_tbl.COUNT > 0 THEN
6461: FOR i IN p_task_elem_version_id_tbl.FIRST .. p_task_elem_version_id_tbl.LAST LOOP
6462: IF p_start_date_tbl.EXISTS(i)
6463: AND p_start_date_tbl(i) = l_temp_gmiss_date THEN
6528: /* If the calling context is workplan, then checking, if the passed task info is present or not
6529: * If not present, the called procedure would insert it.
6530: */
6531: --dbms_output.put_line ('pq1 is '||p_planned_people_effort_tbl(1));
6532: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
6533: check_and_create_task_rec_info
6534: ( p_project_id => l_project_id
6535: ,p_struct_elem_version_id => p_struct_elem_version_id
6536: ,p_element_version_id_tbl => p_task_elem_version_id_tbl
6555: IF l_debug_mode = 'Y' THEN
6556: pa_debug.g_err_stage:='Called API pa_planning_transaction_pub.check_and_create_task_rec_info api returned error';
6557: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6558: END IF;
6559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6560: END IF;
6561: --dbms_output.put_line ('pq1 is '||l_total_quantity_tbl(1));
6562: l_trace_stage := 150;
6563: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
6603: RETURN;
6604: ELSE
6605: -- 3817356 Replacing p_xxxx_date_tbls by l_in_xxxx_date_tbls
6606: l_resource_assignment_id_tbl := p_resource_assignment_id_tbl;
6607: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
6608: /* Budgets and forecasts case schedule start/end dates,
6609: * though not relevant are always kept in synch with planning start and end
6610: * dates */
6611: l_schedule_start_date_tbl := l_in_planning_start_date_tbl;
6620: END IF;
6621: l_total_quantity_tbl := p_quantity_tbl;
6622: --In the context of BUDGET or FORECAST throw an error if the p_currency_code_tbl does not
6623: --have same no of elements as that p_resource_assignment_id_tbl
6624: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
6625: IF p_resource_assignment_id_tbl.COUNT <> p_currency_code_tbl.COUNT THEN
6626: IF l_debug_mode = 'Y' THEN
6627: pa_debug.g_err_stage:='the contents of p_currency_code_tbl not equal in number to contents in res assmt tbl';
6628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6629: END IF;
6630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6631: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6632: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6633: END IF;
6634: END IF;
6635: END IF;
6636: END IF;
7128: l_resource_rec_tbl(i).attribute30 := p_attribute30_tbl(i);
7129: END IF;
7130:
7131: --For bug 3948128
7132: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK AND p_scheduled_delay.EXISTS(i) THEN
7133: l_resource_rec_tbl(i).scheduled_delay := p_scheduled_delay(i);
7134: END IF;
7135: END LOOP;
7136:
7137: l_trace_stage := 2500;
7138: --hr_utility.trace('PA_FP_PLAN_TXN_PUB.update_planning_transactions: '||to_char(l_trace_stage));
7139:
7140: --dbms_output.put_line('3');
7141: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
7142: /*-------------------------------------------------
7143: Calling Task validation API
7144: -------------------------------------------------*/
7145: IF l_debug_mode = 'Y' THEN
7163: IF l_debug_mode = 'Y' THEN
7164: pa_debug.g_err_stage:='Called API PA_TASK_ASSIGNMENT_UTILS.Validate_Update_Assignment returned error';
7165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7166: END IF;
7167: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7168: END IF;
7169:
7170: --If the rec tbl returned by validate API does not contain records then return
7171: IF l_resource_rec_tbl.COUNT=0 THEN
7214: END IF;
7215: END IF;
7216:
7217: -- The following if-else clause has been added for bug 3678814
7218: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
7219: l_rate_based_flag_tbl(i) := l_resource_rec_tbl(i).rate_based_flag;
7220: ELSE
7221: l_rate_based_flag_tbl(i) := null;
7222: END If;
7319: END IF;
7320:
7321:
7322: --For bug 3948128
7323: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
7324: l_scheduled_delay(i) := l_resource_rec_tbl(i).scheduled_delay;
7325: END IF;
7326: END IF;
7327: /* Commenting out this code for check for spread curve date to be null
7343: print_msg(pa_debug.g_err_stage,l_module_name);
7344: END IF;
7345: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7346: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
7347: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7348: END IF;
7349: END IF;
7350: -- Added for Bug 3607061 - Ends
7351: */
7369: IF l_debug_mode = 'Y' THEN
7370: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7374: END IF;
7375:
7376: --Derive the tables that are required for Calculate API
7377: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
7373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7374: END IF;
7375:
7376: --Derive the tables that are required for Calculate API
7377: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR p_context = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
7378:
7379: IF l_debug_mode = 'Y' THEN
7380: pa_debug.g_err_stage:='Preparing the pl/sql tables for calling calc api for BF';
7381: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7413:
7414:
7415: -- In the context of Task Assignment and Workplan, the block below will calculate the additional quantity
7416: -- i.e. the difference between the existing quantity and the quantity passed.
7417: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
7418:
7419: IF l_debug_mode = 'Y' THEN
7420: pa_debug.g_err_stage:='About to bulk collect into pl/sql tables req for calc api '||l_override_currency_code_tbl.last;
7421: print_msg(pa_debug.g_err_stage,l_module_name);
7433:
7434: /** added for progress upload **/
7435: -- Bug 3807763. For Workplan Context, check_and_create_task_rec info has already been called.
7436: -- This takes care of populating l_burdened_cost_tbl and l_total_raw_cost_tbl as per the I/P Data.
7437: If ((p_apply_progress_flag = 'Y' AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK) OR
7438: p_upd_cost_amts_too_for_ta_flg = 'Y' ) THEN --Added for bug#4538286.
7439: --l_revenue_tbl := p_revenue_tbl;
7440: l_burdened_cost_tbl := p_burdened_cost_tbl;
7441: l_total_raw_cost_tbl := p_raw_cost_tbl;
7550: IF l_debug_mode = 'Y' THEN
7551: pa_debug.g_err_stage:='Derive_Parameters_For_Calc_Api returned error';
7552: print_msg(pa_debug.g_err_stage,l_module_name);
7553: END IF;
7554: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7555: END IF;
7556:
7557: --The Sp Fixed Date will be defaulted in Process_res_chg_Derv_calc_prms to planning start date if not passed
7558: --for a resource assignment with fixed spread curve. Hence the value returned should be considered
7642: ,named_role = DECODE (l_named_role_tbl(i), l_g_miss_char,null,nvl(l_named_role_tbl(i),named_role ))
7643: ,rbs_element_id = l_rbs_element_id_tbl(i)
7644: ,txn_accum_header_id = l_txn_accum_header_id_tbl(i)
7645: ,rate_expenditure_org_id = DECODE (p_context
7646: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7647: ,DECODE(l_rate_exp_org_id_tbl(i)
7648: ,l_g_miss_num
7649: ,null
7650: ,nvl(l_rate_exp_org_id_tbl(i),rate_expenditure_org_id))
7649: ,null
7650: ,nvl(l_rate_exp_org_id_tbl(i),rate_expenditure_org_id))
7651: ,rate_expenditure_org_id)
7652: ,rate_expenditure_type = DECODE (p_context
7653: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7654: ,DECODE(l_rate_exp_type_tbl(i)
7655: ,l_g_miss_char
7656: ,null
7657: ,nvl(l_rate_exp_type_tbl(i),rate_expenditure_type))
7656: ,null
7657: ,nvl(l_rate_exp_type_tbl(i),rate_expenditure_type))
7658: ,rate_expenditure_type)
7659: ,rate_exp_func_curr_code = DECODE (p_context
7660: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7661: ,DECODE(l_rate_func_curr_code_tbl(i)
7662: ,l_g_miss_char
7663: ,null
7664: ,nvl(l_rate_func_curr_code_tbl(i),rate_exp_func_curr_code))
7663: ,null
7664: ,nvl(l_rate_func_curr_code_tbl(i),rate_exp_func_curr_code))
7665: ,rate_exp_func_curr_code)
7666: ,rate_based_flag = DECODE (p_context /* Bug 3678814 */
7667: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7668: ,DECODE(l_rate_based_flag_tbl(i),
7669: l_g_miss_char,'N',
7670: nvl(l_rate_based_flag_tbl(i),rate_based_flag))
7671: ,rate_based_flag)
7669: l_g_miss_char,'N',
7670: nvl(l_rate_based_flag_tbl(i),rate_based_flag))
7671: ,rate_based_flag)
7672: /* Bug fix:5759413 */
7673: ,resource_rate_based_flag = DECODE (p_context,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7674: ,DECODE(nvl(l_rlm_id_change_flag_tbl(i),'N'), 'N'
7675: ,resource_rate_based_flag
7676: ,DECODE(l_rate_based_flag_tbl(i),
7677: l_g_miss_char,'N',
7677: l_g_miss_char,'N',
7678: nvl(l_rate_based_flag_tbl(i),resource_rate_based_flag)))
7679: ,resource_rate_based_flag)
7680: ,scheduled_delay = DECODE (p_context /* Bug 3678814 */
7681: ,PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
7682: ,DECODE(l_scheduled_delay(i),
7683: l_g_miss_num,null,
7684: nvl(l_scheduled_delay(i),scheduled_delay))
7685: ,scheduled_delay)
7711: END IF;
7712:
7713: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7714: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7715: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7716:
7717: END IF;
7718: */
7719:
8054: --,p_refresh_rates_flag => 'N' --need to pass any variables that are passed from calling API
8055: --,p_refresh_conv_rates_flag => 'N' --need to pass any variables that are passed from calling API
8056: --,p_spread_required_flag => 'N'
8057: --,p_conv_rates_required_flag => 'N'
8058: ,p_source_context => PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT
8059: ,p_resource_assignment_tab => l_resource_assignment_id_tbl
8060: ,p_txn_currency_code_tab => l_currency_code_tbl
8061: ,p_txn_currency_override_tab => l_override_currency_code_tbl
8062: ,p_total_qty_tab => l_total_quantity_tbl
8095: IF l_debug_mode = 'Y' THEN
8096: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
8097: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8098: END IF;
8099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8100: END IF;
8101:
8102: END IF; -- If condition added for Bug 5906826
8103:
8106: -- Call the UTIL API to get the financial plan info l_fp_cols_rec
8107: --Added For CBS 12.2 Enhancement
8108: --If context is workplan and resource class flag is N, then we need to set
8109: --rate_based_flag as N and uom as Dollor
8110: IF (((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
8111: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK))
8112: AND p_struct_elem_version_id IS NOT NULL)
8113: THEN
8114: l_res_class_flag := PA_PROJECT_STRUCTURE_UTILS.get_resource_class_flag(l_project_id);
8107: --Added For CBS 12.2 Enhancement
8108: --If context is workplan and resource class flag is N, then we need to set
8109: --rate_based_flag as N and uom as Dollor
8110: IF (((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)
8111: OR (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK))
8112: AND p_struct_elem_version_id IS NOT NULL)
8113: THEN
8114: l_res_class_flag := PA_PROJECT_STRUCTURE_UTILS.get_resource_class_flag(l_project_id);
8115: IF l_res_class_flag = 'N'
8135: IF l_debug_mode = 'Y' THEN
8136: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8137: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8138: END IF;
8139: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8140: END IF;
8141:
8142:
8143: --Enc changes
8191: IF l_debug_mode = 'Y' THEN
8192: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8193: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8194: END IF;
8195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8196: END IF;
8197: */
8198:
8199: -- Added for bug 4492493
8197: */
8198:
8199: -- Added for bug 4492493
8200:
8201: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8202: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
8203: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8204: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8205:
8199: -- Added for bug 4492493
8200:
8201: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8202: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR
8203: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
8204: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
8205:
8206: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
8207: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
8221: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
8222: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.update_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
8223: END IF;
8224:
8225: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8226: END IF;
8227: --End bug 4492493
8228:
8229: IF l_debug_mode = 'Y' THEN
8230: pa_debug.reset_curr_function;
8231: END IF;
8232:
8233: EXCEPTION
8234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8235: IF l_debug_mode = 'Y' THEN
8236: pa_debug.g_err_stage:='In invalid args exception';
8237: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8238: END IF;
8451:
8452: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8453: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8454:
8455: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8456:
8457: END IF;
8458:
8459: --If the tables are empty then return
8491:
8492: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8493: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8494:
8495: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8496:
8497: END IF;
8498:
8499:
8505: l_adj_percent := 0;
8506: END IF;
8507:
8508: --If context is WORKPLAN call the TA Validation API with the required parameters
8509: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR
8510: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
8511:
8512: IF l_debug_mode = 'Y' THEN
8513: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
8506: END IF;
8507:
8508: --If context is WORKPLAN call the TA Validation API with the required parameters
8509: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN OR
8510: p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK THEN
8511:
8512: IF l_debug_mode = 'Y' THEN
8513: pa_debug.g_err_stage:='The calling context is workplan / task assignment p_src_version_id_tbl(1) '||p_src_version_id_tbl(1);
8514: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8587: pa_debug.g_err_stage:='validate_copy_assignment returned error';
8588: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8589:
8590: END IF;
8591: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8592:
8593: END IF;
8594:
8595: IF l_resource_rec_tbl.COUNT =0 THEN
8637: --dbms_output.put_line('calling create res task maps');
8638:
8639: --Call the API to create the mapping between source and target version ids.
8640: pa_fp_copy_from_pkg.create_res_task_maps(
8641: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
8642: ,p_src_ra_id_tbl => l_ra_id_tbl
8643: ,p_src_elem_ver_id_tbl => p_src_version_id_tbl
8644: ,p_targ_elem_ver_id_tbl => p_targ_version_id_tbl
8645: ,p_targ_proj_assmt_id_tbl => l_project_assignment_id_tbl
8661: pa_debug.g_err_stage:='create_res_task_maps returned error';
8662: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8663:
8664: END IF;
8665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8666:
8667: END IF;
8668:
8669:
8692: pa_debug.g_err_stage:='Copy_Resource_Assignments returned error';
8693: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8694:
8695: END IF;
8696: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8697:
8698: END IF;
8699:
8700: -- IPM changes - rollup amounts in new entity
8714: IF l_debug_mode = 'Y' THEN
8715: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
8716: print_msg(pa_debug.g_err_stage,l_module_name);
8717: END IF;
8718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8719: END IF;
8720:
8721: IF l_calculate_flag = 'Y' then
8722:
8767: IF l_debug_mode = 'Y' THEN
8768: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
8769: print_msg(pa_debug.g_err_stage,l_module_name);
8770: END IF;
8771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8772: END IF;
8773: -- END Bug 5070740
8774:
8775: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
8857: IF l_debug_mode = 'Y' THEN
8858: pa_debug.g_err_stage:='Cpa_budget_utils.Get_Project_Currency_Info returned error';
8859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8860: END IF;
8861: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8862: END IF;
8863:
8864: i:=1;
8865: FOR c_calc_api_param_rec IN c_calc_api_param_csr LOOP
8952: pa_debug.g_err_stage:='PA_FP_CALC_PLAN_PKG.calculate returned error';
8953: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8954:
8955: END IF;
8956: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8957:
8958: END IF;
8959:
8960:
8983: pa_debug.g_err_stage:='Copy_Budget_Lines returned error';
8984: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8985:
8986: END IF;
8987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8988:
8989: END IF;
8990:
8991: --Bug 4097749. Update the resource assigments created above with the named_role attribute returned by
9110: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9111:
9112: END IF;
9113:
9114: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9115: END IF;
9116:
9117: END IF;
9118:
9134: IF l_debug_mode = 'Y' THEN
9135: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9136: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9137: END IF;
9138: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9139: END IF;
9140:
9141: END IF;
9142:
9140:
9141: END IF;
9142:
9143: -- Added for bug 4492493, Updated for bug 5198662
9144: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9145: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
9146: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9147: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
9148:
9142:
9143: -- Added for bug 4492493, Updated for bug 5198662
9144: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
9145: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(p_target_project_id) = 'Y') OR
9146: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
9147: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y') THEN
9148:
9149: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
9150: ( p_calling_context => 'ASGMT_PLAN_CHANGE'
9164: pa_debug.g_err_stage:='Called API PA_PROJ_TASK_STRUC_PUB.process_wbs_updates_wrp';
9165: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.copy_planning_transactions: ' || g_module_name,pa_debug.g_err_stage,3);
9166: END IF;
9167:
9168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9169: END IF;
9170: --End bug 4492493
9171:
9172: END IF;
9219: IF l_debug_mode = 'Y' THEN
9220: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
9221: print_msg(pa_debug.g_err_stage,l_module_name);
9222: END IF;
9223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9224: END IF;
9225:
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='Exiting copy_planning_transactions';
9230: pa_debug.reset_curr_function;
9231: END IF;
9232: EXCEPTION
9233:
9234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9235: l_msg_count := FND_MSG_PUB.count_msg;
9236: IF l_msg_count = 1 THEN
9237: PA_INTERFACE_UTILS_PUB.get_messages
9238: (p_encoded => FND_API.G_TRUE
9493: END IF;
9494:
9495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9496: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9498: END IF;
9499:
9500: IF p_task_or_res = 'TASKS' AND p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
9501: IF l_debug_mode = 'Y' THEN
9505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9506: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9507: p_token1 => 'PROCEDURENAME',
9508: p_value1 => 'PAFPPTPB.Delete_planning_transactions');
9509: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9510:
9511: END IF;
9512: -- Bug 3546208
9513: IF ( p_task_or_res = 'TASKS'
9510:
9511: END IF;
9512: -- Bug 3546208
9513: IF ( p_task_or_res = 'TASKS'
9514: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9515: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
9516: IF l_debug_mode = 'Y' THEN
9517: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
9518: print_msg(pa_debug.g_err_stage,l_module_name);
9511: END IF;
9512: -- Bug 3546208
9513: IF ( p_task_or_res = 'TASKS'
9514: AND p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
9515: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST)) THEN
9516: IF l_debug_mode = 'Y' THEN
9517: pa_debug.g_err_stage:='P_task_or_res is Task for B/F Context';
9518: print_msg(pa_debug.g_err_stage,l_module_name);
9519: END IF;
9522: p_token1 => 'PROCEDURENAME',
9523: p_value1 => 'PAFPPTPB.Delete_planning_transactions',
9524: p_token2 => 'STAGE',
9525: p_value2 => 'Invalid Data : B/F - TASK');
9526: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9527: END IF;
9528:
9529: IF p_calling_module='PROCESS_RES_CHG_DERV_CALC_PRMS' AND
9530: (p_task_id_tbl.COUNT <> p_resource_assignment_tbl.COUNT OR
9555: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9556: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9557: p_token1 => 'PROCEDURENAME',
9558: p_value1 => 'PAFPPTPB.Delete_planning_transactions');
9559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9560:
9561: END IF;
9562:
9563:
9592: * Modified Delete logic for Bug 3808720. Since Validate Delete Assignments API
9593: * needs to be called for WORKPLAN context as well. Merginng Delete Logic for
9594: * G_CALLING_MODULE_TASK and G_CALLING_MODULE_WORKPLAN below.
9595: */
9596: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9597: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
9598:
9599: IF l_debug_mode = 'Y' THEN
9600: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9593: * needs to be called for WORKPLAN context as well. Merginng Delete Logic for
9594: * G_CALLING_MODULE_TASK and G_CALLING_MODULE_WORKPLAN below.
9595: */
9596: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9597: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN --{
9598:
9599: IF l_debug_mode = 'Y' THEN
9600: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9601: print_msg(pa_debug.g_err_stage,l_module_name);
9629: IF l_debug_mode = 'Y' THEN
9630: pa_debug.g_err_stage:='The calling context is task assignment. Calling the validation API';
9631: print_msg(pa_debug.g_err_stage,l_module_name);
9632: END IF;
9633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9634: End If;
9635: END IF; --}
9636:
9637: /* Bug fix:5349668: Get project,budget,ciid details upfront based on
9639: * nothing to delete any budget lines or resource assignments.
9640: * Note: executing this sql at many places to get budget version is failing with
9641: * ORA-No data found error
9642: */ --{
9643: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9644: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN --{
9645:
9646: If p_task_or_res = 'TASKS' --- bug 6076066: added the checking of p_task_res to the existing IF loop
9647: and p_element_version_id_tbl.count > 0
9640: * Note: executing this sql at many places to get budget version is failing with
9641: * ORA-No data found error
9642: */ --{
9643: IF (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9644: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN) THEN --{
9645:
9646: If p_task_or_res = 'TASKS' --- bug 6076066: added the checking of p_task_res to the existing IF loop
9647: and p_element_version_id_tbl.count > 0
9648: and NVL(p_element_version_id_tbl(1),0) <> 0
9768: RETURN;
9769: End If;
9770: /* End of Bug fix:5349668: */
9771:
9772: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9773: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
9774:
9775: IF p_task_or_res = 'TASKS' THEN
9776:
9769: End If;
9770: /* End of Bug fix:5349668: */
9771:
9772: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK OR
9773: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
9774:
9775: IF p_task_or_res = 'TASKS' THEN
9776:
9777: IF l_delete_task_flag_tbl.count=0 THEN
9789: print_msg(pa_debug.g_err_stage,l_module_name);
9790: END IF;
9791: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9792: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9794: END IF;
9795:
9796: --Bug 4951422. Validate_Delete_Assignment returns the correct resource assignments that should be deleted.
9797: --Note:
9938: print_msg(pa_debug.g_err_stage,l_module_name);
9939: END IF;
9940: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9941: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9943: END IF;
9944:
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage:='Deleting all budget lines for the res assmts for Assignment Context';
10088: RETURN;
10089: END IF;
10090:
10091:
10092: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
10093: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
10094: l_wp_version_flag:='N';
10095: l_ta_display_flag:=null;
10096: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
10089: END IF;
10090:
10091:
10092: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
10093: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
10094: l_wp_version_flag:='N';
10095: l_ta_display_flag:=null;
10096: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
10097: l_wp_version_flag:='Y';
10092: IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET OR
10093: p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST THEN
10094: l_wp_version_flag:='N';
10095: l_ta_display_flag:=null;
10096: /* ELSIF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
10097: l_wp_version_flag:='Y';
10098: l_ta_display_flag:='N'; */ --Bug 3808720
10099: END IF;
10100:
10103: print_msg(pa_debug.g_err_stage,l_module_name);
10104: END IF;
10105:
10106:
10107: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
10108: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
10109:
10110: -- Bug Fix: 4569365. Removed MRC code.
10111: null;
10104: END IF;
10105:
10106:
10107: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
10108: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
10109:
10110: -- Bug Fix: 4569365. Removed MRC code.
10111: null;
10112: END IF;
10276: p_token1 => 'PROCEDURENAME',
10277: p_value1 => 'PAFPPTPB.Delete_planning_transactions',
10278: p_token2 => 'STAGE',
10279: p_value2 => 'Curr Code - RA Mismatch');
10280: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10281: END IF;
10282:
10283: l_currency_code_tbl := p_currency_code_tbl;
10284:
10327: print_msg(pa_debug.g_err_stage,l_module_name);
10328: END IF;
10329: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10330: p_msg_name => 'PA_FP_AMT_EXISTS_FOR_PLAN_ELEM');
10331: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10332: END;
10333:
10334: END IF ; --IF p_validate_delete_flag='Y' THEN
10335:
10332: END;
10333:
10334: END IF ; --IF p_validate_delete_flag='Y' THEN
10335:
10336: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
10337: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
10338: NULL;
10339: -- Bug Fix: 4569365. Removed MRC code.
10340: END IF;
10333:
10334: END IF ; --IF p_validate_delete_flag='Y' THEN
10335:
10336: IF p_context in (PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET,
10337: PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FORECAST) THEN
10338: NULL;
10339: -- Bug Fix: 4569365. Removed MRC code.
10340: END IF;
10341:
10476: END IF;-- IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
10477:
10478: END IF;-- IF p_task_or_res = 'TASKS' THEN
10479:
10480: END IF;--IF p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
10481:
10482: --Rollup the amounts to budget versions as some of the budget lines with amounts might have got
10483: --deleted
10484: IF l_debug_mode = 'Y' THEN
10515: IF l_debug_mode = 'Y' THEN
10516: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
10517: print_msg(pa_debug.g_err_stage,l_module_name);
10518: END IF;
10519: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10520: END IF;
10521:
10522: pa_debug.g_err_stage:='Calling pa_res_asg_currency_pub.maintain_data:bv_id ' || l_budget_version_id;
10523: print_msg(pa_debug.g_err_stage,l_module_name);
10542: IF l_debug_mode = 'Y' THEN
10543: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
10544: print_msg(pa_debug.g_err_stage,l_module_name);
10545: END IF;
10546: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10547: END IF;
10548:
10549: END IF; --} IPM
10550:
10579: IF l_debug_mode = 'Y' THEN
10580: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10581: print_msg(pa_debug.g_err_stage,l_module_name);
10582: END IF;
10583: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10584: END IF;
10585:
10586: END IF;
10587: END IF; /* p_rollup_required_flag = Y */
10747: IF l_debug_mode = 'Y' THEN
10748: pa_debug.g_err_stage:='The API pa_planning_transaction_utils.call_update_rep_lines_api returned error';
10749: print_msg(pa_debug.g_err_stage,l_module_name);
10750: END IF;
10751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10752: END IF;
10753:
10754: END IF;-- IF l_resource_assignment_id_tbl.count >0 THEN
10755:
10760: -- Bug Fix 4635951
10761: -- Commenting out the below select as it has been moved into the below IF condition
10762: -- and it was a left out and this stranded select is causing this bug.
10763:
10764: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
10765: AND NVL(p_calling_context, 'X' ) <> 'PA_DELETE_TASKS' -- Bug 9535723
10766: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
10767: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
10768: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
10763:
10764: IF ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
10765: AND NVL(p_calling_context, 'X' ) <> 'PA_DELETE_TASKS' -- Bug 9535723
10766: AND PA_TASK_ASSIGNMENT_UTILS.Is_Progress_Rollup_Required(l_project_id) = 'Y') OR -- 5198662
10767: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_TASK
10768: AND pa_task_assignment_utils.g_require_progress_rollup = 'Y')) AND
10769: l_budget_version_id IS NOT NULL THEN -- Bug 5381920
10770:
10771: IF l_debug_mode = 'Y' THEN
10790: pa_debug.g_err_stage:='After Called process_wbs_updates_wrp:retSts['||x_return_status||']';
10791: print_msg(pa_debug.g_err_stage,l_module_name);
10792: END IF;
10793:
10794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10795: END IF;
10796: --End bug 4492493
10797:
10798: IF l_debug_mode = 'Y' THEN
10802: pa_debug.reset_curr_function;
10803: END IF;
10804: EXCEPTION
10805:
10806: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10807: l_msg_count := FND_MSG_PUB.count_msg;
10808: IF l_msg_count = 1 THEN
10809: PA_INTERFACE_UTILS_PUB.get_messages
10810: (p_encoded => FND_API.G_TRUE
10913: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
10914: END IF;
10915: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10916: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10918: END IF;
10919:
10920: ---------------------------------------------------------------
10921: -- checking if a workplan type is present in the system with
10947: END IF;
10948:
10949: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10950: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE' );
10951: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10952: END; -- BLOCK to check if workplan_type is is present in the system - Ends
10953:
10954:
10955: ---------------------------------------------------------
11023:
11024: pa_proj_fp_options_pub.Create_FP_Option (
11025: px_target_proj_fp_option_id => l_proj_fp_options_id
11026: ,p_source_proj_fp_option_id => l_src_fp_option_id
11027: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
11028: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
11029: ,p_target_fin_plan_version_id => null
11030: ,p_target_project_id => p_targ_project_id
11031: ,p_target_plan_type_id => l_wp_type_id
11024: pa_proj_fp_options_pub.Create_FP_Option (
11025: px_target_proj_fp_option_id => l_proj_fp_options_id
11026: ,p_source_proj_fp_option_id => l_src_fp_option_id
11027: ,p_target_fp_option_level_code => PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
11028: ,p_target_fp_preference_code => PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
11029: ,p_target_fin_plan_version_id => null
11030: ,p_target_project_id => p_targ_project_id
11031: ,p_target_plan_type_id => l_wp_type_id
11032: ,x_return_status => l_return_status
11037: IF l_debug_mode = 'Y' THEN
11038: pa_debug.g_err_stage:='Called API pa_proj_fp_options_pub.Create_FP_Option returned error';
11039: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11040: END IF;
11041: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11042: END IF;
11043:
11044: SELECT plan_in_multi_curr_flag
11045: INTO l_plan_in_multi_curr_flag
11064: IF l_debug_mode = 'Y' THEN
11065: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.COPY_FP_TXN_CURRENCIES returned error';
11066: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Add_wp_plan_type: ' || g_module_name,pa_debug.g_err_stage,5);
11067: END IF;
11068: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11069: END IF;
11070:
11071: END IF;
11072: IF l_debug_mode = 'Y' THEN
11074: END IF;
11075:
11076: EXCEPTION
11077:
11078: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11079: l_msg_count := FND_MSG_PUB.count_msg;
11080: IF l_msg_count = 1 THEN
11081: PA_INTERFACE_UTILS_PUB.get_messages
11082: (p_encoded => FND_API.G_TRUE
11189: SELECT resource_assignment_id,resource_class_code
11190: FROM pa_resource_assignments
11191: WHERE wbs_element_version_id = c_wbs_element_version_id
11192: AND ta_display_flag = 'N' -- Bug 3749516
11193: AND resource_class_code in (PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_PPL);
11194:
11195: BEGIN
11196:
11197: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11310: x_burdened_cost_tbl(l_out_tbl_index) := p_burdened_cost_tbl(i);
11311: END IF;
11312:
11313: x_element_version_id_tbl(l_out_tbl_index) := p_element_version_id_tbl(i);
11314: IF l_res_class_code_tbl(j) = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_PPL THEN
11315: IF (p_planned_people_effort_tbl.EXISTS(i)) THEN --AND
11316: -- (nvl(p_planned_people_effort_tbl(i),FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM) AND
11317: -- (p_planned_people_effort_tbl(i) > 0)) THEN
11318: x_planned_effort_tbl(l_out_tbl_index) := p_planned_people_effort_tbl(i);
11463: IF l_add_tbl_index > 1 THEN
11464:
11465: add_planning_transactions
11466: (
11467: p_context => PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN
11468: ,p_project_id => p_project_id
11469: ,p_struct_elem_version_id => p_struct_elem_version_id
11470: ,p_budget_version_id => NULL
11471: ,p_task_elem_version_id_tbl => l_element_version_id_tbl
11494: IF l_debug_mode = 'Y' THEN
11495: pa_debug.g_err_stage:='Called API PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions ,api returned error';
11496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11497: END IF;
11498: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11499: END IF;
11500:
11501: END IF;
11502:
11503: IF l_debug_mode = 'Y' THEN
11504: pa_debug.reset_curr_function;
11505: END IF;
11506: EXCEPTION
11507: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11508: l_msg_count := FND_MSG_PUB.count_msg;
11509: IF l_msg_count = 1 THEN
11510: PA_INTERFACE_UTILS_PUB.get_messages
11511: (p_encoded => FND_API.G_TRUE
11660:
11661: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11662: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
11663:
11664: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11665:
11666: END IF;
11667:
11668: -- If there is no change in planning level or res list or RBS return
11721: IF l_debug_mode = 'Y' THEN
11722: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11723: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11724: END IF;
11725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11726: END IF;
11727:
11728: -- Bug 5003827 Issue 28
11729: IF nvl(p_ci_ver_agr_change_flag,'N') = 'Y' THEN
11756: IF l_debug_mode = 'Y' THEN
11757: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11758: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11759: END IF;
11760: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11761: END IF;
11762:
11763: END IF;
11764: ----IPM Arch Enhancement Bug 4865563
11807: IF l_debug_mode = 'Y' THEN
11808: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11809: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11810: END IF;
11811: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11812: END IF;
11813:
11814: pa_res_asg_currency_pub.maintain_data(
11815: p_fp_cols_rec => l_fp_cols_rec,
11831: IF l_debug_mode = 'Y' THEN
11832: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
11833: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11834: END IF;
11835: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11836: END IF;
11837:
11838: END IF;
11839: ----IPM Arch Enhancement Bug 5754758/4865563
11860: IF l_debug_mode = 'Y' THEN
11861: pa_debug.g_err_stage:='No uncategorized flag found for the resource list id passed';
11862: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,3);
11863: END IF;
11864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11865: END;
11866:
11867: -- added for bug 4724017:
11868: -- Creation of default planning transaction is not done for versions
11882: ,x_msg_count => x_msg_count
11883: ,x_msg_data => x_msg_data );
11884:
11885: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11886: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11887: END IF;
11888:
11889: END IF; -- end bug 4724017
11890: END IF;
11941: IF l_debug_mode = 'Y' THEN
11942: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
11943: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
11944: END IF;
11945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11946: END IF;
11947:
11948: -- Update all the task planning elements with new FINACIAL ELEMENT rlmid
11949: IF l_debug_mode = 'Y' THEN
11974: IF l_debug_mode = 'Y' THEN
11975: pa_debug.g_err_stage:='Called API pa_fp_gen_amount_utils.get_plan_version_dtls returned error';
11976: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
11977: END IF;
11978: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11979: END IF;
11980:
11981: pa_res_asg_currency_pub.maintain_data(
11982: p_fp_cols_rec => l_fp_cols_rec,
11998: IF l_debug_mode = 'Y' THEN
11999: pa_debug.g_err_stage:='Called API pa_res_asg_currency_pub.maintain_data returned error';
12000: pa_debug.WRITE('pa_fp_planning_transaction_pub.Refresh_Plan_Txns',pa_debug.g_err_stage, 3);
12001: END IF;
12002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12003: END IF;
12004: END IF; --} IF l_delete_ra_id_tbl.COUNT > 0 THEN
12005: -- END of IPM changes Bug 5003827 Issue 22
12006:
12018: IF l_debug_mode = 'Y' THEN
12019: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version returned error';
12020: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12021: END IF;
12022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12023: END IF;
12024: END IF;
12025:
12026: -- Note: As of now rbs can not be changed at version level.
12043: IF l_debug_mode = 'Y' THEN
12044: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
12045: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12046: END IF;
12047: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12048: END IF;
12049: END IF;
12050:
12051: -- If Planning Level, Resource list or Time phasing is changed, calling PJI apis for
12073:
12074: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12075: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12076: p_msg_name => l_error_msg_code);
12077: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12078: END IF;
12079:
12080: IF l_debug_mode = 'Y' THEN
12081: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE';
12095:
12096: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12097: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12098: p_msg_name => l_error_msg_code);
12099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12100: END IF;
12101:
12102: IF l_debug_mode = 'Y' THEN
12103: pa_debug.g_err_stage:='Call complete to PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE';
12114: END IF;
12115:
12116: EXCEPTION
12117:
12118: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12119: l_msg_count := FND_MSG_PUB.count_msg;
12120: IF l_msg_count = 1 THEN
12121: PA_INTERFACE_UTILS_PUB.get_messages
12122: (p_encoded => FND_API.G_TRUE
12192: CURSOR version_info_cur (c_budget_version_id number) is
12193: select bv.project_id
12194: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
12195: ,bv.fin_plan_type_id
12196: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
12197: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12193: select bv.project_id
12194: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
12195: ,bv.fin_plan_type_id
12196: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
12197: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12201: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
12194: ,PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(bv.project_id) STRUCTURE_VERSION_ID --Bug 3546208
12195: ,bv.fin_plan_type_id
12196: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
12197: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12201: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
12202: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
12196: ,Decode(bv.version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,pfo.cost_fin_plan_level_code
12197: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12201: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
12202: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
12203: from pa_budget_versions bv,
12204: pa_proj_fp_options pfo
12197: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,pfo.revenue_fin_plan_level_code
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12201: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
12202: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
12203: from pa_budget_versions bv,
12204: pa_proj_fp_options pfo
12205: where bv.budget_version_id = c_budget_version_id
12198: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,pfo.all_fin_plan_level_code) plan_level_code
12199: ,DECODE(fin_plan_preference_code,
12200: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, pfo.all_resource_list_id,
12201: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, pfo.cost_resource_list_id,
12202: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, pfo.revenue_resource_list_id) resource_list_id
12203: from pa_budget_versions bv,
12204: pa_proj_fp_options pfo
12205: where bv.budget_version_id = c_budget_version_id
12206: and pfo.project_id = bv.project_id
12301: IF l_debug_mode = 'Y' THEN
12302: pa_debug.g_err_stage:='Invalid Arguments Passed';
12303: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12304: END IF;
12305: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12306:
12307: END IF;
12308:
12309: --Fetch budget version values
12356: IF l_debug_mode = 'Y' THEN
12357: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12358: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12359: END IF;
12360: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12361: END IF;
12362:
12363: BEGIN
12364: SELECT plan_class_code
12400: pr.enabled_flag = 'Y';
12401: END IF;
12402:
12403:
12404: IF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage:= 'Planning at project level: Inserting a record';
12407: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12408: END IF;
12426: IF l_debug_mode = 'Y' THEN
12427: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12428: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12429: END IF;
12430: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12431: END IF;
12432:
12433:
12434: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
12430: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12431: END IF;
12432:
12433:
12434: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
12435: IF l_debug_mode = 'Y' THEN
12436: pa_debug.g_err_stage:= 'Planning at top task level: Opening cursor top_tasks_cur';
12437: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12438: END IF;
12465: IF l_debug_mode = 'Y' THEN
12466: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12467: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12468: END IF;
12469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12470: END IF;
12471: -- Exit if fetch size is less than 200
12472: EXIT WHEN NVL(l_element_version_id_tbl.last,0) < l_max_fetch_size;
12473: END LOOP;
12473: END LOOP;
12474:
12475: CLOSE top_tasks_cur;
12476:
12477: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST THEN
12478: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
12479:
12480: IF l_debug_mode = 'Y' THEN
12481: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
12474:
12475: CLOSE top_tasks_cur;
12476:
12477: ELSIF version_info_rec.plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST THEN
12478: --hr_utility.trace('G_BUDGET_ENTRY_LEVEL_LOWEST -> '||PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST);
12479:
12480: IF l_debug_mode = 'Y' THEN
12481: pa_debug.g_err_stage:= 'Planning at lowest task level: Opening cursor lowest_tasks_cur';
12482: pa_debug.write('Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,3);
12511: IF l_debug_mode = 'Y' THEN
12512: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12513: pa_debug.write('PA_FP_PLANNING_TRANSACTION_PUB.Create_Default_Task_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
12514: END IF;
12515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12516: END IF;
12517: END IF;
12518: -- Exit if fetch size is less than 200
12519: EXIT WHEN NVL(l_element_version_id_tbl.last,0) < l_max_fetch_size;
12529: pa_debug.reset_curr_function;
12530: END IF;
12531: EXCEPTION
12532:
12533: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12534: l_msg_count := FND_MSG_PUB.count_msg;
12535: IF l_msg_count = 1 THEN
12536: PA_INTERFACE_UTILS_PUB.get_messages
12537: (p_encoded => FND_API.G_TRUE
12792:
12793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12794: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12795:
12796: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12797:
12798: END IF;
12799:
12800: -- Fetch all the plan type values that could have changed
12863: IF l_debug_mode = 'Y' THEN
12864: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
12865: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
12866: END IF;
12867: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
12868: END IF;
12869:
12870: END LOOP;
12871:
12901: IF l_debug_mode = 'Y' THEN
12902: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
12903: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
12904: END IF;
12905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12906: END IF;
12907:
12908: FORALL i IN l_pub_budget_version_id_tbl.first .. l_pub_budget_version_id_tbl.last
12909: --Fix for bug#7279771, uncommented the code comment done earlier for resource_class_code,
13033: IF l_debug_mode = 'Y' THEN
13034: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids api returned error';
13035: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13036: END IF;
13037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13038: END IF;
13039: END IF;
13040: /* Bug 4200168: FP.M:B12: Pref Changes:-----*/
13041:
13057: IF l_debug_mode = 'Y' THEN
13058: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies api returned error';
13059: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13060: END IF;
13061: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13062: END IF;
13063:
13064: -- If resource list or time phasing has changed all the Task Assignments
13065: -- related data should be deleted
13108: ,x_msg_count => x_msg_count
13109: ,x_msg_data => x_msg_data );
13110:
13111: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13112: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13113: END IF;
13114: END IF;
13115:
13116: /* Bug 4200168: FP.M:B12: Pref Changes: Clearing the pl/sql tables*/
13179: IF l_debug_mode = 'Y' THEN
13180: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate api returned error';
13181: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13182: END IF;
13183: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13184: END IF;
13185: END IF;
13186: END IF;
13187:
13200: IF l_debug_mode = 'Y' THEN
13201: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version api returned error';
13202: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13203: END IF;
13204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13205: END IF;
13206: END IF;
13207: END LOOP;
13208:
13282: IF l_debug_mode = 'Y' THEN
13283: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13284: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13285: END IF;
13286: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13287: ELSE
13288: -- Check count of the required out tables to be the same
13289: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
13290: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
13300: pa_debug.g_err_stage:=
13301: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13302: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13303: END IF;
13304: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13305: END IF;
13306: END IF;
13307:
13308: -- Check if out table has any records first
13376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13377: IF l_debug_mode = 'Y' THEN
13378: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
13379: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
13380: END IF; RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13381: END IF;
13382: END LOOP;
13383:
13384: /* Start of commented code for bug 5073350.
13394:
13395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13396: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13397: p_msg_name => l_error_msg_code);
13398: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13399: END IF;
13400:
13401: End of commented code for bug 5073350*/
13402: END IF; -- inserting positive rows
13409: END IF;
13410:
13411: EXCEPTION
13412:
13413: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13414: l_msg_count := FND_MSG_PUB.count_msg;
13415: IF l_msg_count = 1 THEN
13416: PA_INTERFACE_UTILS_PUB.get_messages
13417: (p_encoded => FND_API.G_TRUE
13577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
13578: p_token1 => 'PROCEDURENAME',
13579: p_value1 => 'pa_fp_planning_transaction_pub.Refresh_rbs_for_versions');
13580:
13581: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13582:
13583: END IF;
13584:
13585: -- fetch plan type level rbs version id
13678: IF l_debug_mode = 'Y' THEN
13679: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
13680: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13681: END IF;
13682: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13683: ELSE
13684: -- Check count of the required out tables to be the same
13685: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
13686: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
13696: pa_debug.g_err_stage:=
13697: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
13698: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
13699: END IF;
13700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13701: END IF;
13702: END IF;
13703:
13704: -- Check if out table has any records first
13739:
13740: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13741: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13742: p_msg_name => l_error_msg_code);
13743: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13744: END IF;
13745:
13746: -- Call PLAN_CREATE to create summarization data as per the new RBS
13747: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE (
13751:
13752: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13754: p_msg_name => l_error_msg_code);
13755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13756: END IF;
13757:
13758: IF l_debug_mode = 'Y' THEN
13759: pa_debug.g_err_stage:='Exiting Refresh_rbs_for_versions';
13763: END IF;
13764:
13765: EXCEPTION
13766:
13767: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13768: l_msg_count := FND_MSG_PUB.count_msg;
13769: IF l_msg_count = 1 THEN
13770: PA_INTERFACE_UTILS_PUB.get_messages
13771: (p_encoded => FND_API.G_TRUE