[Home] [Help]
1: PACKAGE BODY pa_fin_plan_pvt AS
2: /* $Header: PAFPPVTB.pls 120.12.12010000.2 2008/08/19 21:32:32 jngeorge ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_UTILS
5: Purpose : utility API's for Org Forecast pages
7: NOTE :
8: End of Comments
9: */
10:
11: g_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_PVT';
12: Delete_Ver_Exc_PVT EXCEPTION;
13:
14: -- PROCEDURE lock_unlock_version
15: -- created 8/27/02
669: NVL(l_auto_baseline_project,'N')='N' THEN
670:
671: IF P_PA_DEBUG_MODE = 'Y' THEN
672: pa_debug.g_err_stage := 'Updating the rev_partially_impl_flag in partially implemented CIs';
673: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
674: END IF;
675:
676: UPDATE pa_budget_versions
677: SET last_update_date = SYSDATE,
684: AND rev_partially_impl_flag='Y';
685:
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.g_err_stage := 'No of records updated '||SQL%ROWCOUNT;
688: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
689: END IF;
690:
691: END IF;
692:
831: * change documents included in that version
832: */
833: IF P_PA_DEBUG_MODE = 'Y' THEN
834: pa_debug.g_err_stage := 'After Copy Version-- Firing Select';
835: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
836: END IF;
837:
838: SELECT ci_id, inclusion_method_code, version_type, creation_date
839: BULK COLLECT INTO l_temp_ci_id_tbl, l_tmp_incl_method_code_tbl, l_version_type_tbl, l_cw_creation_date_tbl
849: AND project_id = p_project_id;
850:
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage := 'Rows returned in ci_id tbl: ' || l_temp_ci_id_tbl.COUNT;
853: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
854: END IF;
855: -- Flipping inclusion_method_code, creation_date, Updating the WHO columns for the baselined version
856: IF l_temp_ci_id_tbl.COUNT > 0 THEN
857: FORALL i in l_temp_ci_id_tbl.FIRST..l_temp_ci_id_tbl.LAST
1281: pa_debug.reset_err_stack;
1282: END IF;
1283: EXCEPTION
1284:
1285: when pa_fin_plan_pvt.baseline_finplan_error then
1286: rollback to before_fp_baseline;
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1288: return;
1289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1313: rollback to before_fp_baseline;
1314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1315: x_msg_count := 1;
1316: x_msg_data := SQLERRM;
1317: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1318: p_procedure_name => 'Baseline_FinPlan');
1319: IF p_pa_debug_mode = 'Y' THEN
1320: pa_debug.reset_err_stack;
1321: END IF;
1556: -- l_err_code = 0 ==> SUCCESS
1557: if l_err_code <> 0 then
1558: -- PA_CLIENT_EXTN_BUDGET_WF.Budget_Wf_Is_Used returned errors
1559: --dbms_output.put_line('PA_CLIENT_EXTN_BUDGET_WF.Budget_Wf_Is_Used: RETURNED ERRORS');
1560: raise pa_fin_plan_pvt.check_wf_error;
1561: else
1562: If l_workflow_is_used = 'T' Then
1563: v_emp_id := pa_utils.GetEmpIdFromUser(pa_budget_wf.g_baselined_by_user_id);
1564:
1577: --dbms_output.put_line('START_BUDGET_WF called');
1578: -- l_err_code = 0 ==> SUCCESS
1579: if l_err_code <> 0 then
1580: -- PA_BUDGET_WF.START_BUDGET_WF returned errors
1581: raise pa_fin_plan_pvt.start_wf_error;
1582: else
1583: -- update pa_budget_versions: set wf_status_code = 'IN_ROUTE'
1584: update pa_budget_versions
1585: set wf_status_code = 'IN_ROUTE'
1600: when others then
1601: rollback to before_fp_sbmt_cur_working;
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: x_msg_count := 1;
1604: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1605: p_procedure_name => 'Submit_Current_Working_FinPlan');
1606: IF p_pa_debug_mode = 'Y' THEN
1607: pa_debug.reset_err_stack;
1608: END IF;
1634: PROCEDURE Get_Included_Ci
1635: ( p_from_bv_id IN pa_budget_versions.budget_version_id%TYPE
1636: ,p_to_bv_id IN pa_budget_versions.budget_version_id%TYPE --DEFAULT NULL
1637: ,p_impact_status IN pa_ci_impacts.status_code%TYPE
1638: ,x_ci_rec_tab OUT NOCOPY pa_fin_plan_pvt.ci_rec_tab
1639: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1640: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1641: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
1642:
1775: x_msg_count := 1;
1776: x_msg_data := substr(SQLERRM,1,240);
1777:
1778: fnd_msg_pub.add_exc_msg
1779: ( p_pkg_name => 'pa_fin_plan_pvt'
1780: ,p_procedure_name => 'Get_Included_Ci'
1781: ,p_error_text => substr(SQLERRM,1,240));
1782:
1783: END Get_Included_Ci;
1811: l_fin_plan_type_id pa_budget_versions.fin_plan_type_id%TYPE;
1812: l_version_type pa_budget_versions.version_type%TYPE;
1813: l_fp_options_id pa_proj_fp_options.proj_fp_options_id%TYPE;
1814: l_fin_plan_version_id pa_proj_fp_options.fin_plan_version_id%TYPE;
1815: l_ci_rec_tab pa_fin_plan_pvt.ci_rec_tab;
1816: l_return_status VARCHAR2(2000);
1817: l_msg_count NUMBER;
1818: l_msg_data VARCHAR2(2000);
1819: l_msg_index_out number;
1852: ,x_msg_data => l_msg_data);
1853:
1854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1855: fnd_msg_pub.add_exc_msg
1856: ( p_pkg_name => 'pa_fin_plan_pvt'
1857: ,p_procedure_name => 'handle_ci_links'
1858: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1859: ELSE
1860: /* Get ci linked to latest baselined versions and not already present
1865:
1866: l_stage := 70;
1867: l_ci_rec_tab.delete;
1868:
1869: pa_fin_plan_pvt.Get_Included_Ci(
1870: p_from_bv_id => l_fin_plan_version_id /* Baselined Version */
1871: , p_to_bv_id => p_target_bv_id /* New Current Working */
1872: , p_impact_status => NULL
1873: , x_ci_rec_tab => l_ci_rec_tab
1877:
1878:
1879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1880: fnd_msg_pub.add_exc_msg
1881: ( p_pkg_name => 'pa_fin_plan_pvt'
1882: ,p_procedure_name => 'handle_ci_links'
1883: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1884: ELSE
1885: l_stage := 80;
1913: ) ;
1914:
1915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1916: fnd_msg_pub.add_exc_msg
1917: ( p_pkg_name => 'pa_fin_plan_pvt'
1918: ,p_procedure_name => 'handle_ci_links'
1919: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1920: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1921: END LOOP;
1929: contains the links to ci from Latest Baselined version */
1930: l_stage := 110;
1931: l_ci_rec_tab.delete;
1932:
1933: pa_fin_plan_pvt.Get_Included_Ci(
1934: p_from_bv_id => p_source_bv_id /* Old Current Working */
1935: , p_to_bv_id => p_target_bv_id /* New Current Working */
1936: , p_impact_status => 'CI_IMPACT_IMPLEMENTED'
1937: , x_ci_rec_tab => l_ci_rec_tab
1941:
1942:
1943: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1944: fnd_msg_pub.add_exc_msg
1945: ( p_pkg_name => 'pa_fin_plan_pvt'
1946: ,p_procedure_name => 'handle_ci_links'
1947: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1948: ELSE
1949: l_stage := 120;
1982: ,x_msg_data => l_msg_data);
1983:
1984: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1985: fnd_msg_pub.add_exc_msg
1986: ( p_pkg_name => 'pa_fin_plan_pvt'
1987: ,p_procedure_name => 'handle_ci_links'
1988: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1989: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1990: END LOOP;
1996: and change their status to implemented */
1997: l_stage := 150;
1998: l_ci_rec_tab.delete;
1999:
2000: pa_fin_plan_pvt.Get_Included_Ci(
2001: p_from_bv_id => p_target_bv_id /* New Current Working */
2002: , p_to_bv_id => NULL
2003: , p_impact_status => 'CI_IMPACT_PENDING'
2004: , x_ci_rec_tab => l_ci_rec_tab
2008:
2009:
2010: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2011: fnd_msg_pub.add_exc_msg
2012: ( p_pkg_name => 'pa_fin_plan_pvt'
2013: ,p_procedure_name => 'handle_ci_links'
2014: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
2015: ELSE
2016: l_stage := 160;
2035: ,x_msg_data => l_msg_data);
2036:
2037: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2038: fnd_msg_pub.add_exc_msg
2039: ( p_pkg_name => 'pa_fin_plan_pvt'
2040: ,p_procedure_name => 'handle_ci_links'
2041: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
2042: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2043: END LOOP;
2059: ,p_data => x_msg_data
2060: ,p_msg_index_out => l_msg_index_out);
2061: END IF;
2062: fnd_msg_pub.add_exc_msg
2063: ( p_pkg_name => 'pa_fin_plan_pvt'
2064: ,p_procedure_name => 'handle_ci_links'
2065: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
2066:
2067: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2124: ,p_project_rev_rate_date_type IN pa_proj_fp_options.project_rev_rate_date_type%TYPE
2125: ,p_project_rev_rate_date IN pa_proj_fp_options.project_rev_rate_date%TYPE
2126: ,p_pm_product_code IN pa_budget_versions.pm_product_code%TYPE
2127: ,p_pm_budget_reference IN pa_budget_versions.pm_budget_reference%TYPE
2128: ,p_budget_lines_tab IN pa_fin_plan_pvt.budget_lines_tab
2129: -- Start of additional columns for Bug :- 2634900 . Commented out the default parameters.
2130: ,p_ci_id IN pa_budget_versions.ci_id%TYPE --:= NULL
2131: ,p_est_proj_raw_cost IN pa_budget_versions.est_project_raw_cost%TYPE --:= NULL
2132: ,p_est_proj_bd_cost IN pa_budget_versions.est_project_burdened_cost%TYPE--:= NULL
2180: l_uncat_rlmid pa_resource_assignments.resource_list_member_id%TYPE;
2181: l_track_as_labor_flag pa_resource_list_members.track_as_labor_flag%TYPE;
2182: l_unit_of_measure pa_resource_assignments.unit_of_measure%TYPE;
2183:
2184: l_ci_rec_tab pa_fin_plan_pvt.ci_rec_tab; /* Included for bug 2672654 */
2185:
2186: -- Bug Fix: 4569365. Removed MRC code.
2187: -- l_calling_context pa_mrc_finplan.g_calling_module%TYPE; /* Bug# 2674353 */
2188: l_calling_context VARCHAR2(30);
2201:
2202: x_msg_count := 0;
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2295: END IF;
2296:
2297: IF (l_curr_work_version_id is not null) THEN /* Bug 2672654 */
2298: pa_fin_plan_pvt.Get_Included_Ci(
2299: p_from_bv_id => l_curr_work_version_id
2300: ,p_to_bv_id => NULL
2301: ,p_impact_status => NULL
2302: ,x_ci_rec_tab => l_ci_rec_tab /* Bug 2672654 */
2334:
2335: --Try to lock the version before deleting the version. This is required so as not to delete
2336: --versions locked by other users. AMG UT2
2337: l_user_id := FND_GLOBAL.User_id;
2338: pa_fin_plan_pvt.lock_unlock_version
2339: (p_budget_version_id => l_curr_work_version_id,
2340: p_record_version_number => l_record_version_number,
2341: p_action => 'L',
2342: p_user_id => l_user_id,
2524:
2525: --Get the record version number of the newly created version
2526: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
2527: l_user_id := FND_GLOBAL.User_id;
2528: pa_fin_plan_pvt.lock_unlock_version
2529: (p_budget_version_id => l_CW_version_id,
2530: p_record_version_number => l_CW_record_version_number,
2531: p_action => 'L',
2532: p_user_id => l_user_id,
2778: END;
2779:
2780: END IF;
2781:
2782: --call PA_FIN_PLAN_PVT.CRETAE_FINPLAN_LINES. This API will create
2783: --resource assignments, elements and budget lines for the version.
2784: /* Bug# 2672654 - create_fin_plan_lines API needs to be called only if p_budget_lines_tab is not null */
2785:
2786: ELSIF ( nvl(p_budget_lines_tab.last,0) > 0 ) THEN
2785:
2786: ELSIF ( nvl(p_budget_lines_tab.last,0) > 0 ) THEN
2787:
2788: --Bug # 3507156-
2789: --Commented the call to PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
2790: --Comment START
2791: /*
2792: PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
2793: ( p_calling_context => l_calling_context -- Bug# 2674353
2788: --Bug # 3507156-
2789: --Commented the call to PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
2790: --Comment START
2791: /*
2792: PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
2793: ( p_calling_context => l_calling_context -- Bug# 2674353
2794: ,p_fin_plan_version_id => l_created_version_id
2795: ,p_budget_lines_tab => p_budget_lines_tab
2796: ,x_return_status => x_return_status
2805: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2806: END IF;
2807: */
2808: --Bug # 3507156-
2809: --Added a call to PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
2810:
2811: PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
2812: ( p_calling_context => l_calling_context
2813: ,p_fin_plan_version_id => l_created_version_id
2807: */
2808: --Bug # 3507156-
2809: --Added a call to PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
2810:
2811: PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES
2812: ( p_calling_context => l_calling_context
2813: ,p_fin_plan_version_id => l_created_version_id
2814: ,p_finplan_lines_tab => p_budget_lines_tab
2815: ,x_return_status => x_return_status
2891:
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: x_msg_count := 1;
2894: x_msg_data := SQLERRM;
2895: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
2896: ,p_procedure_name => 'CREATE_DRAFT');
2897: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2898: IF P_PA_DEBUG_MODE = 'Y' THEN
2899: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2912: ( -- Bug Fix: 4569365. Removed MRC code.
2913: -- p_calling_context IN pa_mrc_finplan.g_calling_module%TYPE /* Bug# 2674353 */
2914: p_calling_context IN VARCHAR2
2915: ,p_fin_plan_version_id IN pa_budget_versions.budget_version_id%TYPE
2916: ,p_budget_lines_tab IN pa_fin_plan_pvt.budget_lines_tab
2917: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2918: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2919: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
2920: IS
3005:
3006: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3007: l_debug_mode := NVL(l_debug_mode, 'Y');
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3011: IF P_PA_DEBUG_MODE = 'Y' THEN
3012: pa_debug.set_process('CREATE_FINPLAN_LINES: ' || 'PLSQL','LOG',l_debug_mode);
3013: END IF;
3707:
3708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3709: x_msg_count := 1;
3710: x_msg_data := SQLERRM;
3711: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
3712: ,p_procedure_name => 'CREATE_FINPLAN_LINES');
3713: IF P_PA_DEBUG_MODE = 'Y' THEN
3714: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3715: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3907: x_msg_data := SQLERRM;
3908:
3909:
3910: FND_MSG_PUB.add_exc_msg
3911: ( p_pkg_name => 'pa_fin_plan_pvt'
3912: ,p_procedure_name => 'convert_plan_type_name_to_id'
3913: ,p_error_text => x_msg_data);
3914:
3915: IF l_debug_mode = 'Y' THEN
3977: l_debug_mode := NVL(l_debug_mode, 'N');
3978: x_msg_count := 0;
3979: x_return_status := FND_API.G_RET_STS_SUCCESS;
3980: IF p_pa_debug_mode = 'Y' THEN
3981: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_option',
3982: p_debug_mode => l_debug_mode );
3983: END IF;
3984: ---------------------------------------------------------------
3985: -- validating input parameter p_project_id.
4151: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4153: x_msg_count := 1;
4154: x_msg_data := SQLERRM;
4155: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4156: ,p_procedure_name => 'Delete_wp_option');
4157:
4158: IF l_debug_mode = 'Y' THEN
4159: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4203: l_debug_mode := NVL(l_debug_mode, 'N');
4204: x_msg_count := 0;
4205: x_return_status := FND_API.G_RET_STS_SUCCESS;
4206: IF p_pa_debug_mode = 'Y' THEN
4207: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_bugdet_versions',
4208: p_debug_mode => l_debug_mode );
4209: END IF;
4210:
4211: ------------------------------------------------------------------------
4332: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4334: x_msg_count := 1;
4335: x_msg_data := SQLERRM;
4336: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4337: ,p_procedure_name => 'Delete_wp_budget_versions');
4338:
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4349: ( -- Bug Fix: 4569365. Removed MRC code.
4350: -- p_calling_context IN pa_mrc_finplan.g_calling_module%TYPE
4351: p_calling_context IN VARCHAR2
4352: ,p_fin_plan_version_id IN pa_budget_versions.budget_version_id%TYPE
4353: ,p_finplan_lines_tab IN pa_fin_plan_pvt.budget_lines_tab
4354: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4355: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4356: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
4357: IS
4374: l_line_start_date_tab SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
4375: l_line_end_date_tab SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
4376: i NUMBER;
4377: l_lines_count NUMBER; -- Bug 3639983
4378: l_module_name VARCHAR2(30) := 'pa.plsql.PA_FIN_PLAN_PVT';
4379: l_project_id pa_budget_versions.project_id%TYPE;
4380: l_fp_version_ids SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
4381: l_txn_currency_code_tab SYSTEM.pa_varchar2_15_tbl_type := SYSTEM.pa_varchar2_15_tbl_type();
4382: l_txn_currency_override_tab SYSTEM.pa_varchar2_15_tbl_type := SYSTEM.pa_varchar2_15_tbl_type();
4400: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4401: l_debug_mode := NVL(l_debug_mode, 'Y');
4402:
4403: IF p_pa_debug_mode = 'Y' THEN
4404: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES',
4405: p_debug_mode => l_debug_mode );
4406: END IF;
4407: l_lines_count := p_finplan_lines_tab.COUNT;
4408: IF l_debug_mode = 'Y' THEN
4425: pa_debug.g_err_stage:='Calling CREATE_FINPLAN_LINES';
4426: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4427: END IF;
4428:
4429: --Call to api PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4430:
4431: IF ( nvl(p_finplan_lines_tab.last,0) > 0 ) THEN
4432:
4433: PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4429: --Call to api PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4430:
4431: IF ( nvl(p_finplan_lines_tab.last,0) > 0 ) THEN
4432:
4433: PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4434: ( p_calling_context => p_calling_context
4435: ,p_fin_plan_version_id => p_fin_plan_version_id
4436: ,p_budget_lines_tab => p_finplan_lines_tab
4437: ,x_return_status => x_return_status
4739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4740: x_msg_count := 1;
4741: x_msg_data := SQLERRM;
4742:
4743: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
4744: ,p_procedure_name => 'ADD_FIN_PLAN_LINES');
4745: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4746:
4747: IF P_PA_DEBUG_MODE = 'Y' THEN
4751: RAISE;
4752:
4753: END ADD_FIN_PLAN_LINES;
4754:
4755: END pa_fin_plan_pvt;