[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
516: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
517: END IF;
518:
519: --Call the api that validates the input information
520: pa_budget_pvt.Validate_Header_Info
521: ( p_api_version_number => p_api_version_number
522: /* Bug 3133930- parameter included to pass version name */
523: ,p_budget_version_name => p_budget_version_name
524: ,p_init_msg_list => p_init_msg_list
1146: --3569883 end
1147: **/ -- Bug 3709462 we are in old model context no additional checks are necessary
1148: -- l_old_model := 'Y';
1149: --Done with Changes by xin liu
1150: pa_budget_pvt.Validate_Budget_Lines
1151: ( p_pa_project_id => l_project_id
1152: ,p_budget_type_code => p_budget_type_code
1153: ,p_fin_plan_type_id => NULL
1154: ,p_version_type => NULL
1250: /* End Of bug # 675869 Fix */
1251:
1252:
1253: --Call the api that inserts the budget line
1254: pa_budget_pvt.insert_budget_line
1255: ( p_return_status => l_return_status
1256: ,p_pa_project_id => l_project_id
1257: ,p_budget_type_code => p_budget_type_code
1258: ,p_pa_task_id => l_budget_line_in_rec.pa_task_id
1577: **/
1578: -- Bug 3709462 We are in new model context, no new checks are necessary
1579: -- l_old_model := 'N';
1580: --Validate the finplan lines passed
1581: pa_budget_pvt.Validate_Budget_Lines
1582: ( p_pa_project_id => l_project_id
1583: ,p_budget_type_code => NULL
1584: ,p_fin_plan_type_id => l_fin_plan_type_id
1585: ,p_version_type => l_version_type
2232:
2233: END IF;
2234:
2235: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2236: --Added a call to PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS to get the return statuses of the input budget lines.
2237:
2238: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS(
2239: p_fin_plan_version_id => l_budget_version_id
2240: ,p_budget_lines_in => l_budget_lines_in /* Bug # 3589304 */
2234:
2235: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
2236: --Added a call to PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS to get the return statuses of the input budget lines.
2237:
2238: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS(
2239: p_fin_plan_version_id => l_budget_version_id
2240: ,p_budget_lines_in => l_budget_lines_in /* Bug # 3589304 */
2241: ,x_fp_lines_retn_status_tab => p_budget_lines_out
2242: ,x_return_status => p_return_status
2250:
2251: END IF;
2252:
2253: IF l_debug_mode = 'Y' THEN
2254: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2256: END IF;
2257:
2258:
4994: --Description: This procedure can be used to add a budgetline to an
4995: -- existing WORKING budget.
4996: --
4997: --Called subprograms:
4998: -- pa_budget_pvt.insert_budget_line
4999: -- pa_budget_lines_v_pkg.check_overlapping_dates
5000: -- PA_BUDGET_UTILS.summerize_project_totals
5001: --
5002: --
5002: --
5003: --
5004: --History:
5005: -- 01-OCT-1996 L. de Werker Created
5006: -- 19-NOV-1996 L. de Werker Changed to use pa_budget_pvt.insert_budget_line
5007: -- 28-NOV-1996 L. de Werker Add 16 parameters for descriptive flexfields
5008: -- 26-APR-2005 Ritesh Shukla Bug 4224464: FP.M Changes - Did changes in
5009: -- add_budget_line for FP.M FinPlan model.
5010:
5155:
5156: --Set API return status to success
5157: p_return_status := FND_API.G_RET_STS_SUCCESS;
5158:
5159: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
5160: --header level validations
5161: PA_BUDGET_PVT.validate_header_info
5162: ( p_api_version_number => p_api_version_number
5163: ,p_api_name => l_api_name
5157: p_return_status := FND_API.G_RET_STS_SUCCESS;
5158:
5159: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
5160: --header level validations
5161: PA_BUDGET_PVT.validate_header_info
5162: ( p_api_version_number => p_api_version_number
5163: ,p_api_name => l_api_name
5164: ,p_init_msg_list => p_init_msg_list
5165: ,px_pa_project_id => l_project_id
5230: IF l_budget_type_code IS NOT NULL
5231: THEN
5232:
5233: --Insert BUDGET LINES
5234: PA_BUDGET_PVT.insert_budget_line
5235: ( p_return_status => p_return_status
5236: ,p_pa_project_id => l_project_id
5237: ,p_budget_type_code => l_budget_type_code
5238: ,p_pa_task_id => p_pa_task_id
5276:
5277: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5278: THEN
5279: IF(l_debug_mode='Y') THEN
5280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5282: END IF;
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284:
5284:
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5286: THEN
5287: IF(l_debug_mode='Y') THEN
5288: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5290: END IF;
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5648: END IF;
5649:
5650:
5651: --Validate the budget line data
5652: PA_BUDGET_PVT.Validate_Budget_Lines
5653: ( p_calling_context => 'BUDGET_LINE_LEVEL_VALIDATION'
5654: ,p_pa_project_id => l_project_id
5655: ,p_budget_type_code => l_budget_type_code
5656: ,p_fin_plan_type_id => l_fin_plan_type_id
6406:
6407: --Check if budgetary control is enabled for this project and budget version
6408: --If a record is present for this budget version in PA_BC_BALANCES table
6409: --then we do not proceed with delete.
6410: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_id) )
6411: THEN
6412: IF(l_debug_mode='Y') THEN
6413: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6414: || 'budgetary control is enabled';
7431:
7432: --Check if budgetary control is enabled for this project and budget version
7433: --If a record is present for this budget version in PA_BC_BALANCES table
7434: --then we do not proceed with delete.
7435: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_no_rec.budget_version_id) )
7436: THEN
7437: IF(l_debug_mode='Y') THEN
7438: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7439: || 'budgetary control is enabled';
8122:
8123: --Set API return status to success
8124: p_return_status := FND_API.G_RET_STS_SUCCESS;
8125:
8126: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8127: --header level validations
8128: PA_BUDGET_PVT.validate_header_info
8129: ( p_api_version_number => p_api_version_number
8130: ,p_api_name => l_api_name
8124: p_return_status := FND_API.G_RET_STS_SUCCESS;
8125:
8126: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
8127: --header level validations
8128: PA_BUDGET_PVT.validate_header_info
8129: ( p_api_version_number => p_api_version_number
8130: ,p_api_name => l_api_name
8131: ,p_init_msg_list => p_init_msg_list
8132: ,px_pa_project_id => l_project_id
8491: INTO l_plan_class_code
8492: ,l_etc_start_date;
8493: CLOSE budget_version_info_cur;
8494: --Since we have already validated the presence of a budget version id
8495: --in PA_BUDGET_PVT.validate_header_info, hence we do not check for
8496: --budget_version_info_cur%NOT FOUND here.
8497:
8498: /* Added for Bug# 5998035 */
8499: IF ( l_time_phased_code NOT IN ('G', 'P') AND l_etc_start_date IS NULL) THEN
8944: --Type: Procedure
8945: --Description: This procedure can be used to update a working budget and it's
8946: -- budget lines.
8947: --
8948: --Called subprograms: pa_budget_pvt.insert_budget_line
8949: -- pa_budget_pvt.update_budget_line_sql
8950: --
8951: --
8952: --
8945: --Description: This procedure can be used to update a working budget and it's
8946: -- budget lines.
8947: --
8948: --Called subprograms: pa_budget_pvt.insert_budget_line
8949: -- pa_budget_pvt.update_budget_line_sql
8950: --
8951: --
8952: --
8953: --History:
9597: l_fin_plan_type_id := p_finplan_type_id;
9598: lx_fin_plan_type_name := p_finplan_type_name;
9599: lx_version_type := p_version_type ;
9600:
9601: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
9602: --header level validations
9603: PA_BUDGET_PVT.validate_header_info
9604: ( p_api_version_number => p_api_version_number
9605: ,p_api_name => l_api_name
9599: lx_version_type := p_version_type ;
9600:
9601: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
9602: --header level validations
9603: PA_BUDGET_PVT.validate_header_info
9604: ( p_api_version_number => p_api_version_number
9605: ,p_api_name => l_api_name
9606: ,p_init_msg_list => p_init_msg_list
9607: ,px_pa_project_id => l_project_id
10677: l_version_info_rec.x_budget_version_id := l_budget_version_id; --Added for bug 4290310.
10678:
10679: IF l_budget_type_code IS NOT NULL THEN
10680:
10681: pa_budget_pvt.Validate_Budget_Lines
10682: (p_pa_project_id => l_project_id
10683: ,p_budget_type_code => l_budget_type_code
10684: ,p_fin_plan_type_id => NULL
10685: ,p_version_type => NULL
10732: l_allow_qty_flag := lx_all_qty_flag;
10733: END IF;
10734:
10735: --Validate the finplan lines passed
10736: pa_budget_pvt.Validate_Budget_Lines
10737: ( p_pa_project_id => l_project_id
10738: ,p_budget_type_code => NULL
10739: ,p_fin_plan_type_id => l_fin_plan_type_id
10740: ,p_version_type => lx_version_type
10886: AND fin_plan_type_id=l_fin_plan_type_id
10887: AND fin_plan_version_id IS NULL
10888: AND fin_plan_option_level_code= PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
10889:
10890: pa_budget_pvt.valid_rate_type
10891: (p_pt_project_cost_rate_type => l_project_cost_rate_type,
10892: p_pt_project_rev_rate_type => l_project_rev_rate_type,
10893: p_pt_projfunc_cost_rate_type=> l_projfunc_cost_rate_type,
10894: p_pt_projfunc_rev_rate_type => l_projfunc_rev_rate_type,
11333:
11334: IF l_budget_type_code IS NOT NULL THEN
11335: --if new line then call insert_budget_line (for old model)
11336: IF (l_dummy <> 'X' OR l_dummy IS NULL) OR (l_new_resource_assignment) OR (lx_resource_list_id <> l_resource_list_id) THEN
11337: pa_budget_pvt.insert_budget_line
11338: ( p_return_status => l_return_status
11339: ,p_pa_project_id => l_project_id
11340: ,p_budget_type_code => l_budget_type_code
11341: ,p_pa_task_id => l_budget_line_in_rec.pa_task_id
11571: ELSE
11572: l_budget_line_in_rec.attribute15 := l_budget_line_in_rec.attribute15;
11573: END IF;
11574:
11575: PA_BUDGET_PVT.UPDATE_BUDGET_LINE_SQL
11576: ( p_return_status => l_return_status
11577: --,p_budget_amount_code => l_budget_amount_code
11578: ,p_budget_entry_method_code => l_budget_entry_method_code
11579: ,p_resource_assignment_id => l_resource_assignment_id
12908: --Type: Procedure
12909: --Description: This procedure can be used to update a budgetline of an
12910: -- existing WORKING budget.
12911: --
12912: --Called subprograms: pa_budget_pvt.update_budget_line_sql
12913: --
12914: --
12915: --
12916: --
13118:
13119: --Set API return status to success
13120: p_return_status := FND_API.G_RET_STS_SUCCESS;
13121:
13122: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13123: --header level validations
13124: PA_BUDGET_PVT.validate_header_info
13125: ( p_api_version_number => p_api_version_number
13126: ,p_api_name => l_api_name
13120: p_return_status := FND_API.G_RET_STS_SUCCESS;
13121:
13122: --Call PA_BUDGET_PVT.validate_header_info to do the necessary
13123: --header level validations
13124: PA_BUDGET_PVT.validate_header_info
13125: ( p_api_version_number => p_api_version_number
13126: ,p_api_name => l_api_name
13127: ,p_init_msg_list => p_init_msg_list
13128: ,px_pa_project_id => l_project_id
13498: END IF;--IF l_budget_type_code IS NULL AND l_fin_plan_type_id IS NOT NULL
13499:
13500:
13501: --Validate the budget line data
13502: PA_BUDGET_PVT.Validate_Budget_Lines
13503: ( p_calling_context => 'BUDGET_LINE_LEVEL_VALIDATION'
13504: ,p_pa_project_id => l_project_id
13505: ,p_budget_type_code => l_budget_type_code
13506: ,p_fin_plan_type_id => l_fin_plan_type_id
13630: OPEN l_lock_budget_line_csr( l_budget_line_rowid );
13631: CLOSE l_lock_budget_line_csr; --FYI, does not release lock
13632:
13633: --Calling update_budget_line_sql to build a dynamic update statement
13634: pa_budget_pvt.update_budget_line_sql
13635: ( p_return_status => p_return_status
13636: ,p_budget_entry_method_code => l_budget_entry_method_code
13637: ,p_resource_assignment_id => l_resource_assignment_id
13638: ,p_start_date => l_budget_lines_in(1).budget_start_date
15542:
15543: --RE-Populate global for subsequent conditional budget LINE validation
15544: -- Storing a value other than -99 is essential to conditional LINE validation
15545:
15546: PA_BUDGET_PVT.Get_Latest_BC_Year
15547: ( p_pa_project_id => l_project_id
15548: ,x_latest_encumbrance_year => PA_BUDGET_PUB.G_Latest_Encumbrance_Year
15549: ,x_return_status => p_return_status
15550: ,x_msg_count => p_msg_count
17286: l_attribute29_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
17287: l_attribute30_tbl SYSTEM.PA_VARCHAR2_150_TBL_TYPE := SYSTEM.PA_VARCHAR2_150_TBL_TYPE();
17288:
17289: /*=======================================================+
17290: | Used to call pa_budget_pvt.get_fin_plan_lines_status. |
17291: +=======================================================*/
17292: l_budget_lines_in pa_budget_pub.budget_line_in_tbl_type;
17293: l_budget_lines_out pa_budget_pub.budget_line_out_tbl_type;
17294:
17292: l_budget_lines_in pa_budget_pub.budget_line_in_tbl_type;
17293: l_budget_lines_out pa_budget_pub.budget_line_out_tbl_type;
17294:
17295: /*===================================================+
17296: | Used to call pa_budget_pvt.validate_budget_lines. |
17297: +===================================================*/
17298: l_res_asg_in_tbl pa_budget_pub.budget_line_in_tbl_type;
17299: l_res_asg_out_tbl pa_budget_pub.budget_line_out_tbl_type;
17300:
17610:
17611:
17612: l_user_id := FND_GLOBAL.User_id;
17613:
17614: pa_budget_pvt.Validate_Header_Info
17615: ( p_api_version_number => p_api_version_number
17616: ,p_budget_version_name => p_budget_version_name
17617: ,p_init_msg_list => p_init_msg_list
17618: ,px_pa_project_id => l_project_id
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17946: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
17947: /*========================================================+
17948: | Prepare to call pa_budget_pvt.validate_budget_lines() |
17949: *========================================================*/
17950: IF ( p_finplan_trans_tab.COUNT > 0 )
17951: THEN
17952: FOR i IN p_finplan_trans_tab.FIRST .. p_finplan_trans_tab.LAST
18003:
18004: l_version_info_rec.x_budget_version_id := l_created_version_id; -- Added for bug 4290310
18005: /* Bug 5478041: Modified the following 3 variables from parameterized variables to
18006: local variables : l_raw_cost_flag,l_burdened_cost_flag,l_revenue_flag */
18007: --dbms_output.put_line('calling pa_budget_pvt.Validate_Budget_Lines');
18008:
18009: pa_budget_pvt.Validate_Budget_Lines
18010: (p_calling_context => 'RES_ASSGNMT_LEVEL_VALIDATION'
18011: ,p_pa_project_id => l_project_id
18005: /* Bug 5478041: Modified the following 3 variables from parameterized variables to
18006: local variables : l_raw_cost_flag,l_burdened_cost_flag,l_revenue_flag */
18007: --dbms_output.put_line('calling pa_budget_pvt.Validate_Budget_Lines');
18008:
18009: pa_budget_pvt.Validate_Budget_Lines
18010: (p_calling_context => 'RES_ASSGNMT_LEVEL_VALIDATION'
18011: ,p_pa_project_id => l_project_id
18012: ,p_budget_type_code => NULL
18013: ,p_fin_plan_type_id => l_fin_plan_type_id
18049: ,x_msg_data => l_msg_data
18050: ,x_return_status => l_return_status);
18051:
18052: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18053: --dbms_output.put_line('error occurred while calling pa_budget_pvt.Validate_Budget_Lines');
18054: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18055: END IF;
18056:
18057: END IF; -- p_finplan_trans_tab.COUNT > 0
18054: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18055: END IF;
18056:
18057: END IF; -- p_finplan_trans_tab.COUNT > 0
18058: --dbms_output.put_line('after calling pa_budget_pvt.Validate_Budget_Lines');
18059:
18060: /* Calling Add Planning Transaction */
18061:
18062: cnt := P_finplan_trans_tab.COUNT;
18585: END IF;
18586: END IF; --l_created_version_id <> l_CW_version_id
18587:
18588: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18589: --dbms_output.put_line('PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS');
18590: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS
18591: (p_fin_plan_version_id => l_created_version_id
18592: ,p_budget_lines_in => l_budget_lines_in
18593: ,p_calling_context => 'CREATE_DRAFT_FINPLAN'
18586: END IF; --l_created_version_id <> l_CW_version_id
18587:
18588: END IF; --p_create_new_curr_working_flag = 'Y' OR p_replace_current_working_flag = 'Y'
18589: --dbms_output.put_line('PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS');
18590: PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS
18591: (p_fin_plan_version_id => l_created_version_id
18592: ,p_budget_lines_in => l_budget_lines_in
18593: ,p_calling_context => 'CREATE_DRAFT_FINPLAN'
18594: ,x_fp_lines_retn_status_tab => l_budget_lines_out
19063: --Description: This procedure can be used to update attributes of existing
19064: -- Planning Elements
19065: --
19066: --
19067: --Called subprograms: pa_budget_pvt.validate_header_info,pa_budget_pvt.validate_budget_lines
19068: -- pa_fp_planning_transaction_pub.update_planning_transactions
19069: --
19070: --
19071: --
19252: l_attribute28_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19253: l_attribute29_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19254: l_attribute30_tbl := SYSTEM.pa_varchar2_150_tbl_type();
19255:
19256: pa_budget_pvt.G_res_assign_tbl.delete;
19257: --end initialize
19258:
19259: if p_planning_element_rec_tbl.count = 0 then
19260: IF l_debug_mode = 'Y' THEN
19276: -- DBMS_OUTPUT.PUT_LINE('p_budget_version_number'||p_budget_version_number);
19277: -- DBMS_OUTPUT.PUT_LINE('l_version_type'||l_version_type);
19278:
19279:
19280: PA_BUDGET_PVT.validate_header_info(
19281: p_api_version_number => p_api_version_number
19282: ,p_api_name => l_api_name
19283: ,p_init_msg_list => p_init_msg_list
19284: ,px_pa_project_id => l_project_id
19320: */
19321: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19322: THEN
19323: IF l_debug_mode = 'Y' THEN
19324: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19325: END IF;
19326: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19327: END IF;
19328:
19325: END IF;
19326: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19327: END IF;
19328:
19329: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_header_info successful project number is '||l_project_number||' bversion id '||l_budget_version_id);
19330:
19331: l_version_info_rec.x_budget_version_id := l_budget_version_id;
19332:
19333: FOR i IN p_planning_element_rec_tbl.first..p_planning_element_rec_tbl.last LOOP
19384: l_mfc_cost_type_tbl(i):=null;
19385:
19386: end loop;
19387:
19388: pa_budget_pvt.Validate_Budget_Lines
19389: (p_calling_context => 'UPDATE_PLANNING_ELEMENT_ATTR'
19390: ,p_pa_project_id => l_project_id
19391: ,p_budget_type_code => NULL
19392: ,p_fin_plan_type_id => l_fin_plan_type_id
19435:
19436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19437:
19438: IF l_debug_mode = 'Y' THEN
19439: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19440: END IF;
19441: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19442: END IF;
19443:
19440: END IF;
19441: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19442: END IF;
19443:
19444: --DBMS_OUTPUT.PUT_LINE('PA_BUDGET_PVT.validate_budget_lines successful');
19445: /*
19446: for i in l_etc_method_code_tbl.first..l_etc_method_code_tbl.count loop
19447: DBMS_OUTPUT.PUT_LINE('resource alias '||i||' '||l_budget_lines_in_tbl(i).pm_task_reference);
19448: end loop;
19516: p_value1 => l_budget_lines_in_tbl(i).pm_task_reference,
19517: p_token2 => 'RESOURCE',
19518: p_value2 => l_budget_lines_in_tbl(i).resource_alias);
19519: end;*/
19520: l_resource_assignment_id_tbl(i) := pa_budget_pvt.G_res_assign_tbl(i).resource_assignment_id;
19521: begin
19522: select txn_currency_code into l_currency_code_tbl(i)
19523: from pa_budget_lines
19524: where resource_assignment_id=l_resource_assignment_id_tbl(i)