[Home] [Help]
42: --Description: This procedure can be used to create a draft budget with budget lines
43: --
44: --
45: --Called subprograms: PA_BUDGET_UTILS.create_draft
46: -- pa_budget_pvt.insert_budget_line
47: -- pa_budget_lines_v_pkg.check_overlapping_dates
48: -- PA_BUDGET_UTILS.summerize_project_totals
49: -- PA_BUDGET_FUND_PKG.get_budget_ctrl_options
50: --
51: --
52: --
53: --History:
54: -- 19-SEP-1996 L. de Werker Created
55: -- 19-NOV-1996 L. de Werker Changed for use of PA_BUDGET_PVT.INSERT_BUDGET_LINE
56: -- 28-NOV-1996 L. de Werker Add 16 parameters for descriptive flexfields
57: -- 29-NOV-1996 L. de Werker Added parameter p_pm_budget_reference
58: -- 05-DEC-1996 L. de Werker Added validation for change_reason_code
59: -- 07-DEC-1996 L. de Werker Added locking mechanism, because previous draft budget is deleted
518: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
519: END IF;
520:
521: --Call the api that validates the input information
522: pa_budget_pvt.Validate_Header_Info
523: ( p_api_version_number => p_api_version_number
524: /* Bug 3133930- parameter included to pass version name */
525: ,p_budget_version_name => p_budget_version_name
526: ,p_init_msg_list => p_init_msg_list
1157: --3569883 end
1158: **/ -- Bug 3709462 we are in old model context no additional checks are necessary
1159: -- l_old_model := 'Y';
1160: --Done with Changes by xin liu
1161: pa_budget_pvt.Validate_Budget_Lines
1162: ( p_pa_project_id => l_project_id
1163: ,p_budget_type_code => p_budget_type_code
1164: ,p_fin_plan_type_id => NULL
1165: ,p_version_type => NULL
1261: /* End Of bug # 675869 Fix */
1262:
1263:
1264: --Call the api that inserts the budget line
1265: pa_budget_pvt.insert_budget_line
1266: ( p_return_status => l_return_status
1267: ,p_pa_project_id => l_project_id
1268: ,p_budget_type_code => p_budget_type_code
1269: ,p_pa_task_id => l_budget_line_in_rec.pa_task_id
1598: **/
1599: -- Bug 3709462 We are in new model context, no new checks are necessary
1600: -- l_old_model := 'N';
1601: --Validate the finplan lines passed
1602: pa_budget_pvt.Validate_Budget_Lines
1603: ( p_pa_project_id => l_project_id
1604: ,p_budget_type_code => NULL
1605: ,p_fin_plan_type_id => l_fin_plan_type_id
1606: ,p_version_type => l_version_type
2258:
2259: END IF;
2260:
2261: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2262: --Added a call to PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS to get the return statuses of the input budget lines.
2263:
2264: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS(
2265: p_fin_plan_version_id => l_budget_version_id
2266: ,p_budget_lines_in => l_budget_lines_in /* Bug # 3589304 */
2260:
2261: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2262: --Added a call to PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS to get the return statuses of the input budget lines.
2263:
2264: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS(
2265: p_fin_plan_version_id => l_budget_version_id
2266: ,p_budget_lines_in => l_budget_lines_in /* Bug # 3589304 */
2267: ,x_fp_lines_retn_status_tab => p_budget_lines_out
2268: ,x_return_status => p_return_status
2276:
2277: END IF;
2278:
2279: IF l_debug_mode = 'Y' THEN
2280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2282: END IF;
2283:
2284:
5100: --Description: This procedure can be used to add a budgetline to an
5101: -- existing WORKING budget.
5102: --
5103: --Called subprograms:
5104: -- pa_budget_pvt.insert_budget_line
5105: -- pa_budget_lines_v_pkg.check_overlapping_dates
5106: -- PA_BUDGET_UTILS.summerize_project_totals
5107: --
5108: --
5108: --
5109: --
5110: --History:
5111: -- 01-OCT-1996 L. de Werker Created
5112: -- 19-NOV-1996 L. de Werker Changed to use pa_budget_pvt.insert_budget_line
5113: -- 28-NOV-1996 L. de Werker Add 16 parameters for descriptive flexfields
5114: -- 26-APR-2005 Ritesh Shukla Bug 4224464: FP.M Changes - Did changes in
5115: -- add_budget_line for FP.M FinPlan model.
5116:
5282: END IF;
5283: End if;
5284:
5285:
5286: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
5287: --header level validations
5288: PA_BUDGET_PVT.validate_header_info
5289: ( p_api_version_number => p_api_version_number
5290: ,p_api_name => l_api_name
5284:
5285:
5286: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
5287: --header level validations
5288: PA_BUDGET_PVT.validate_header_info
5289: ( p_api_version_number => p_api_version_number
5290: ,p_api_name => l_api_name
5291: ,p_init_msg_list => p_init_msg_list
5292: ,px_pa_project_id => l_project_id
5367:
5368: END IF;
5369:
5370: --Insert BUDGET LINES
5371: PA_BUDGET_PVT.insert_budget_line
5372: ( p_return_status => p_return_status
5373: ,p_pa_project_id => l_project_id
5374: ,p_budget_type_code => l_budget_type_code
5375: ,p_pa_task_id => p_pa_task_id
5413:
5414: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5415: THEN
5416: IF(l_debug_mode='Y') THEN
5417: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5419: END IF;
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421:
5421:
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5423: THEN
5424: IF(l_debug_mode='Y') THEN
5425: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5799: END IF;
5800:
5801:
5802: --Validate the budget line data
5803: PA_BUDGET_PVT.Validate_Budget_Lines
5804: ( p_calling_context => 'BUDGET_LINE_LEVEL_VALIDATION'
5805: ,p_pa_project_id => l_project_id
5806: ,p_budget_type_code => l_budget_type_code
5807: ,p_fin_plan_type_id => l_fin_plan_type_id
6558:
6559: --Check if budgetary control is enabled for this project and budget version
6560: --If a record is present for this budget version in PA_BC_BALANCES table
6561: --then we do not proceed with delete.
6562: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_id) )
6563: THEN
6564: IF(l_debug_mode='Y') THEN
6565: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6566: || 'budgetary control is enabled';
7585:
7586: --Check if budgetary control is enabled for this project and budget version
7587: --If a record is present for this budget version in PA_BC_BALANCES table
7588: --then we do not proceed with delete.
7589: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_no_rec.budget_version_id) )
7590: THEN
7591: IF(l_debug_mode='Y') THEN
7592: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7593: || 'budgetary control is enabled';
8286:
8287: --Set API return status to success
8288: p_return_status := FND_API.G_RET_STS_SUCCESS;
8289:
8290: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8291: --header level validations
8292: PA_BUDGET_PVT.validate_header_info
8293: ( p_api_version_number => p_api_version_number
8294: ,p_api_name => l_api_name
8288: p_return_status := FND_API.G_RET_STS_SUCCESS;
8289:
8290: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8291: --header level validations
8292: PA_BUDGET_PVT.validate_header_info
8293: ( p_api_version_number => p_api_version_number
8294: ,p_api_name => l_api_name
8295: ,p_init_msg_list => p_init_msg_list
8296: ,px_pa_project_id => l_project_id
8670: INTO l_plan_class_code
8671: ,l_etc_start_date;
8672: CLOSE budget_version_info_cur;
8673: --Since we have already validated the presence of a budget version id
8674: --in PA_BUDGET_PVT.validate_header_info, hence we do not check for
8675: --budget_version_info_cur%NOT FOUND here.
8676:
8677: /* Added for Bug# 5998035 */
8678: IF ( l_time_phased_code NOT IN ('G', 'P') AND l_etc_start_date IS NULL) THEN
9123: --Type: Procedure
9124: --Description: This procedure can be used to update a working budget and it's
9125: -- budget lines.
9126: --
9127: --Called subprograms: pa_budget_pvt.insert_budget_line
9128: -- pa_budget_pvt.update_budget_line_sql
9129: --
9130: --
9131: --
9124: --Description: This procedure can be used to update a working budget and it's
9125: -- budget lines.
9126: --
9127: --Called subprograms: pa_budget_pvt.insert_budget_line
9128: -- pa_budget_pvt.update_budget_line_sql
9129: --
9130: --
9131: --
9132: --History:
9780: l_fin_plan_type_id := p_finplan_type_id;
9781: lx_fin_plan_type_name := p_finplan_type_name;
9782: lx_version_type := p_version_type ;
9783:
9784: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
9785: --header level validations
9786: PA_BUDGET_PVT.validate_header_info
9787: ( p_api_version_number => p_api_version_number
9788: ,p_api_name => l_api_name
9782: lx_version_type := p_version_type ;
9783:
9784: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
9785: --header level validations
9786: PA_BUDGET_PVT.validate_header_info
9787: ( p_api_version_number => p_api_version_number
9788: ,p_api_name => l_api_name
9789: ,p_init_msg_list => p_init_msg_list
9790: ,px_pa_project_id => l_project_id
10875: l_version_info_rec.x_budget_version_id := l_budget_version_id; --Added for bug 4290310.
10876:
10877: IF l_budget_type_code IS NOT NULL THEN
10878:
10879: pa_budget_pvt.Validate_Budget_Lines
10880: (p_pa_project_id => l_project_id
10881: ,p_budget_type_code => l_budget_type_code
10882: ,p_fin_plan_type_id => NULL
10883: ,p_version_type => NULL
10930: l_allow_qty_flag := lx_all_qty_flag;
10931: END IF;
10932:
10933: --Validate the finplan lines passed
10934: pa_budget_pvt.Validate_Budget_Lines
10935: ( p_pa_project_id => l_project_id
10936: ,p_budget_type_code => NULL
10937: ,p_fin_plan_type_id => l_fin_plan_type_id
10938: ,p_version_type => lx_version_type
11084: AND fin_plan_type_id=l_fin_plan_type_id
11085: AND fin_plan_version_id IS NULL
11086: AND fin_plan_option_level_code= PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
11087:
11088: pa_budget_pvt.valid_rate_type
11089: (p_pt_project_cost_rate_type => l_project_cost_rate_type,
11090: p_pt_project_rev_rate_type => l_project_rev_rate_type,
11091: p_pt_projfunc_cost_rate_type=> l_projfunc_cost_rate_type,
11092: p_pt_projfunc_rev_rate_type => l_projfunc_rev_rate_type,
11546:
11547: IF l_budget_type_code IS NOT NULL THEN
11548: --if new line then call insert_budget_line (for old model)
11549: IF (l_dummy <> 'X' OR l_dummy IS NULL) OR (l_new_resource_assignment) OR (lx_resource_list_id <> l_resource_list_id) THEN
11550: pa_budget_pvt.insert_budget_line
11551: ( p_return_status => l_return_status
11552: ,p_pa_project_id => l_project_id
11553: ,p_budget_type_code => l_budget_type_code
11554: ,p_pa_task_id => l_budget_line_in_rec.pa_task_id
11785: ELSE
11786: l_budget_line_in_rec.attribute15 := l_budget_line_in_rec.attribute15;
11787: END IF;
11788:
11789: PA_BUDGET_PVT.UPDATE_BUDGET_LINE_SQL
11790: ( p_return_status => l_return_status
11791: --,p_budget_amount_code => l_budget_amount_code
11792: ,p_budget_entry_method_code => l_budget_entry_method_code
11793: ,p_resource_assignment_id => l_resource_assignment_id
13125: --Type: Procedure
13126: --Description: This procedure can be used to update a budgetline of an
13127: -- existing WORKING budget.
13128: --
13129: --Called subprograms: pa_budget_pvt.update_budget_line_sql
13130: --
13131: --
13132: --
13133: --
13344:
13345: --Set API return status to success
13346: p_return_status := FND_API.G_RET_STS_SUCCESS;
13347:
13348: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13349: --header level validations
13350: PA_BUDGET_PVT.validate_header_info
13351: ( p_api_version_number => p_api_version_number
13352: ,p_api_name => l_api_name
13346: p_return_status := FND_API.G_RET_STS_SUCCESS;
13347:
13348: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13349: --header level validations
13350: PA_BUDGET_PVT.validate_header_info
13351: ( p_api_version_number => p_api_version_number
13352: ,p_api_name => l_api_name
13353: ,p_init_msg_list => p_init_msg_list
13354: ,px_pa_project_id => l_project_id
13742: END IF;--IF l_budget_type_code IS NULL AND l_fin_plan_type_id IS NOT NULL
13743:
13744:
13745: --Validate the budget line data
13746: PA_BUDGET_PVT.Validate_Budget_Lines
13747: ( p_calling_context => 'BUDGET_LINE_LEVEL_VALIDATION'
13748: ,p_pa_project_id => l_project_id
13749: ,p_budget_type_code => l_budget_type_code
13750: ,p_fin_plan_type_id => l_fin_plan_type_id
13875: OPEN l_lock_budget_line_csr( l_budget_line_rowid );
13876: CLOSE l_lock_budget_line_csr; --FYI, does not release lock
13877:
13878: --Calling update_budget_line_sql to build a dynamic update statement
13879: pa_budget_pvt.update_budget_line_sql
13880: ( p_return_status => p_return_status
13881: ,p_budget_entry_method_code => l_budget_entry_method_code
13882: ,p_resource_assignment_id => l_resource_assignment_id
13883: ,p_start_date => l_budget_lines_in(1).budget_start_date
15788:
15789: --RE-Populate global for subsequent conditional budget LINE validation
15790: -- Storing a value other than -99 is essential to conditional LINE validation
15791:
15792: PA_BUDGET_PVT.Get_Latest_BC_Year
15793: ( p_pa_project_id => l_project_id
15794: ,x_latest_encumbrance_year => PA_BUDGET_PUB.G_Latest_Encumbrance_Year
15795: ,x_return_status => p_return_status
15796: ,x_msg_count => p_msg_count
17546: l_attribute29_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
17547: l_attribute30_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
17548:
17549: /*=======================================================+
17550: | Used to call pa_budget_pvt.get_fin_plan_lines_status. |
17551: +=======================================================*/
17552: l_budget_lines_in pa_budget_pub.budget_line_in_tbl_type;
17553: l_budget_lines_out pa_budget_pub.budget_line_out_tbl_type;
17554:
17552: l_budget_lines_in pa_budget_pub.budget_line_in_tbl_type;
17553: l_budget_lines_out pa_budget_pub.budget_line_out_tbl_type;
17554:
17555: /*===================================================+
17556: | Used to call pa_budget_pvt.validate_budget_lines. |
17557: +===================================================*/
17558: l_res_asg_in_tbl pa_budget_pub.budget_line_in_tbl_type;
17559: l_res_asg_out_tbl pa_budget_pub.budget_line_out_tbl_type;
17560:
17870:
17871:
17872: l_user_id := FND_GLOBAL.User_id;
17873:
17874: pa_budget_pvt.Validate_Header_Info
17875: ( p_api_version_number => p_api_version_number
17876: ,p_budget_version_name => p_budget_version_name
17877: ,p_init_msg_list => p_init_msg_list
17878: ,px_pa_project_id => l_project_id
18204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18205: END IF;
18206: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
18207: /*========================================================+
18208: | Prepare to call pa_budget_pvt.validate_budget_lines() |
18209: *========================================================*/
18210: IF ( p_finplan_trans_tab.COUNT > 0 )
18211: THEN
18212: FOR i IN p_finplan_trans_tab.FIRST .. p_finplan_trans_tab.LAST
18265:
18266: l_version_info_rec.x_budget_version_id := l_created_version_id; -- Added for bug 4290310
18267: /* Bug 5478041: Modified the following 3 variables from parameterized variables to
18268: local variables : l_raw_cost_flag,l_burdened_cost_flag,l_revenue_flag */
18269: --dbms_output.put_line('calling pa_budget_pvt.Validate_Budget_Lines');
18270:
18271: --Get the CBS flag 16604257
18272: l_cbs_enabled_project := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => l_project_id);
18273:
18270:
18271: --Get the CBS flag 16604257
18272: l_cbs_enabled_project := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => l_project_id);
18273:
18274: pa_budget_pvt.Validate_Budget_Lines
18275: (p_calling_context => 'RES_ASSGNMT_LEVEL_VALIDATION'
18276: ,p_pa_project_id => l_project_id
18277: ,p_budget_type_code => NULL
18278: ,p_fin_plan_type_id => l_fin_plan_type_id
18314: ,x_msg_data => l_msg_data
18315: ,x_return_status => l_return_status);
18316:
18317: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18318: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18320: END IF;
18321:
18322: END IF; -- p_finplan_trans_tab.COUNT > 0
18319: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18320: END IF;
18321:
18322: END IF; -- p_finplan_trans_tab.COUNT > 0
18323: --dbms_output.put_line('after calling pa_budget_pvt.Validate_Budget_Lines');
18324:
18325: /* Calling Add Planning Transaction */
18326:
18327: cnt := P_finplan_trans_tab.COUNT;
18857: END IF;
18858: END IF; --l_created_version_id <> l_CW_version_id
18859:
18860: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18861: --dbms_output.put_line('PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS');
18862: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS
18863: (p_fin_plan_version_id => l_created_version_id
18864: ,p_budget_lines_in => l_budget_lines_in
18865: ,p_calling_context => 'CREATE_DRAFT_FINPLAN'
18858: END IF; --l_created_version_id <> l_CW_version_id
18859:
18860: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18861: --dbms_output.put_line('PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS');
18862: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS
18863: (p_fin_plan_version_id => l_created_version_id
18864: ,p_budget_lines_in => l_budget_lines_in
18865: ,p_calling_context => 'CREATE_DRAFT_FINPLAN'
18866: ,x_fp_lines_retn_status_tab => l_budget_lines_out
19356: --Description: This procedure can be used to update attributes of existing
19357: -- Planning Elements
19358: --
19359: --
19360: --Called subprograms: pa_budget_pvt.validate_header_info,pa_budget_pvt.validate_budget_lines
19361: -- pa_fp_planning_transaction_pub.update_planning_transactions
19362: --
19363: --
19364: --
19586: l_attribute28_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19587: l_attribute29_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19588: l_attribute30_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19589:
19590: pa_budget_pvt.G_res_assign_tbl.delete;
19591: l_distribute_amounts := p_distribute_amounts; -- Bug 9610380
19592: --end initialize
19593:
19594: -- Bug 9610380 : Start
19627: -- DBMS_OUTPUT.PUT_LINE('p_budget_version_number'||p_budget_version_number);
19628: -- DBMS_OUTPUT.PUT_LINE('l_version_type'||l_version_type);
19629:
19630:
19631: PA_BUDGET_PVT.validate_header_info(
19632: p_api_version_number => p_api_version_number
19633: ,p_api_name => l_api_name
19634: ,p_init_msg_list => p_init_msg_list
19635: ,px_pa_project_id => l_project_id
19671: */
19672: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19673: THEN
19674: IF l_debug_mode = 'Y' THEN
19675: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19676: END IF;
19677: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19678: END IF;
19679:
19676: END IF;
19677: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19678: END IF;
19679:
19680: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_header_info successful project number is '||l_project_number||' bversion id '||l_budget_version_id);
19681:
19682: l_version_info_rec.x_budget_version_id := l_budget_version_id;
19683:
19684: FOR i IN p_planning_element_rec_tbl.first..p_planning_element_rec_tbl.last LOOP
19738: l_mfc_cost_type_tbl(i):=null;
19739:
19740: end loop;
19741:
19742: pa_budget_pvt.Validate_Budget_Lines
19743: (p_calling_context => 'UPDATE_PLANNING_ELEMENT_ATTR'
19744: ,p_pa_project_id => l_project_id
19745: ,p_budget_type_code => NULL
19746: ,p_fin_plan_type_id => l_fin_plan_type_id
19789:
19790: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19791:
19792: IF l_debug_mode = 'Y' THEN
19793: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19794: END IF;
19795: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19796: END IF;
19797:
19794: END IF;
19795: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19796: END IF;
19797:
19798: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_budget_lines successful');
19799: /*
19800: for i in l_etc_method_code_tbl.first..l_etc_method_code_tbl.count loop
19801: DBMS_OUTPUT.PUT_LINE('resource alias '||i||' '||l_budget_lines_in_tbl(i).pm_task_reference);
19802: end loop;
19870: p_value1 => l_budget_lines_in_tbl(i).pm_task_reference,
19871: p_token2 => 'RESOURCE',
19872: p_value2 => l_budget_lines_in_tbl(i).resource_alias);
19873: end;*/
19874: l_resource_assignment_id_tbl(i) := pa_budget_pvt.G_res_assign_tbl(i).resource_assignment_id;
19875: begin
19876: select txn_currency_code into l_currency_code_tbl(i)
19877: from pa_budget_lines
19878: where resource_assignment_id=l_resource_assignment_id_tbl(i)