[Home] [Help]
607: ,pa_projects_all pp
608: ,pa_project_types_all pt
609: where pkt.packet_id = p_packet_id
610: and pkt.document_line_id is NOT NULL -- with R12 this check is not sufficient to find if the PO is an CWK PO
611: and pa_funds_control_utils2.is_CWK_PO(pkt.document_header_id,pkt.document_line_id
612: ,pkt.document_distribution_id,pkt.org_id) = 'Y' -- R12 Funds management uptake
613: and pkt.document_type in ('PO') --,'EXP')
614: and pkt.status_code in ('P','A','C','I')
615: and substr(NVL(pkt.result_code,'P'),1,1) = 'P'
2077: l_new_rec_index NUMBER;
2078:
2079: -- Cursor to fetch PO details for PO relieving record
2080: CURSOR c_po_cwk_accrue_details_cur(p_po_distribution_id NUMBER) IS
2081: SELECT pa_funds_control_utils2.is_CWK_PO
2082: (po.po_header_id,
2083: po.po_line_id,
2084: po.po_distribution_id,
2085: po.org_id) cwk_po_flag,
2275:
2276: FOR c_pkt in c_pkt_details LOOP
2277:
2278: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2279: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID ');
2280: End if;
2281:
2282: OPEN c_get_gl_start_date(c_pkt.period_name,c_pkt.set_of_books_id);
2283: FETCH c_get_gl_start_date INTO l_gl_start_date;
2283: FETCH c_get_gl_start_date INTO l_gl_start_date;
2284: CLOSE c_get_gl_start_date;
2285:
2286:
2287: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
2288: p_project_id => c_pkt.project_id,
2289: p_task_id => c_pkt.task_id,
2290: p_res_list_mem_id => c_pkt.resource_list_member_id,
2291: --p_period_name => c_pkt.period_name,
2298: x_return_status => l_return_status,
2299: x_error_message_code => l_error_message_code);
2300:
2301: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2302: pa_funds_control_pkg.log_message(p_msg_token1 => 'After PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID ');
2303: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.project_id = '||c_pkt.project_id);
2304: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.task_id = '||c_pkt.task_id);
2305: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.resource_list_member_id = '||c_pkt.resource_list_member_id);
2306: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.gl_date = '||c_pkt.gl_date);
2406:
2407: -- Below function returns 1 if the amount should be populated in debit columns
2408: -- and -1 if amounts should be populated in credit columns
2409:
2410: IF PA_FUNDS_CONTROL_UTILS.DERIVE_PO_REQ_AMT_SIDE
2411: (g_tab_event_type_code(l_index) ,
2412: g_tab_main_or_backing_code(l_index),
2413: g_tab_distribution_type(l_index) ) = 1 THEN
2414:
2586: -- 2. Inserts raw records into pa_bc_packets by fetching PO/REQ data from po_bc_distributions
2587: -- and AP data from ap_invoice_distributions_all table for all events in psa_bc_xla_events_gt.
2588: -- 3. Fires populate_burden_cost procedure to Insert burden records for above raw components
2589: -- 4. Fires pa_funds_control_pkg.derive_rlmi to derive resource_list_member_id on bc packets
2590: -- 5. Fires pa_funds_control_utils.get_budegt_ccid to derive budget_ccid and budget_line_id
2591: -- 6. Finally calls pa_xla_interface_pkg.create_events to create events for project
2592: -- encumbrance data and populate BC GT table.
2593: -------------------------------------------------------------------------------------
2594:
2650: pobc.main_or_backing_code main_or_backing_code,
2651: pobc.ae_event_id source_event_id,
2652: pobc.CODE_COMBINATION_ID txn_ccid,
2653: NULL parent_bc_packet_id,
2654: pa_funds_control_utils.get_fnd_reqd_flag
2655: (pobc.pa_project_id,'STD') fck_reqd_flag,
2656: pobc.gl_date gl_date,
2657: pogt.period_name period_name,
2658: -- Below code is added to handle Requisition adjusment scenario :
2765: AND apd.po_distribution_id IS NOT NULL
2766: AND ((NVL(pod.accrue_on_receipt_flag,'N') = 'Y' -- Bug 5348212
2767: AND apd.line_type_lookup_code IN ('ITEM','ACCRUAL','NONREC_TAX'))
2768: OR
2769: (pa_funds_control_utils2.is_CWK_PO -- Bug 5494476
2770: (pod.po_header_id,pod.po_line_id,pod.po_distribution_id,pod.org_id) = 'Y'
2771: AND apd.line_type_lookup_code IN ('ITEM','NONREC_TAX') -- Bug 5533290
2772: AND NVL(apd.amount_variance,0)= 0
2773: AND NVL(apd.base_amount_variance,0)=0
2825: AND apd.po_distribution_id IS NOT NULL
2826: AND ((NVL(pod.accrue_on_receipt_flag,'N') = 'Y'
2827: AND apd.line_type_lookup_code IN ('ITEM','ACCRUAL','NONREC_TAX'))
2828: OR
2829: (pa_funds_control_utils2.is_CWK_PO
2830: (pod.po_header_id,pod.po_line_id,pod.po_distribution_id,pod.org_id) = 'Y'
2831: AND apd.line_type_lookup_code IN ('ITEM','NONREC_TAX')
2832: AND NVL(apd.amount_variance,0)= 0
2833: AND NVL(apd.base_amount_variance,0)=0
2952: NULL main_or_backing_code,
2953: apext.event_id source_event_id,
2954: apext.aid_dist_ccid txn_ccid,
2955: NULL parent_bc_packet_id,
2956: pa_funds_control_utils.get_fnd_reqd_flag
2957: (apext.aid_project_id ,'STD') fck_reqd_flag,
2958: apext.aid_quantity_variance ap_quantity_variance,
2959: apext.aid_amount_variance ap_amount_variance,
2960: apext.aid_base_quantity_variance ap_base_quantity_variance,
3136: NULL main_or_backing_code,
3137: APPH.bc_event_id source_event_id,
3138: AID.Dist_code_combination_id txn_ccid,
3139: NULL parent_bc_packet_id,
3140: pa_funds_control_utils.get_fnd_reqd_flag(AID.project_id
3141: ,'STD') fck_reqd_flag,
3142: NULL ap_quantity_variance,
3143: NULL ap_amount_variance,
3144: NULL ap_base_quantity_variance,
3203: NULL main_or_backing_code,
3204: APPH.bc_event_id source_event_id,
3205: AID.Dist_code_combination_id txn_ccid,
3206: NULL parent_bc_packet_id,
3207: pa_funds_control_utils.get_fnd_reqd_flag(AID.project_id
3208: ,'STD') fck_reqd_flag,
3209: NULL ap_quantity_variance,
3210: NULL ap_amount_variance,
3211: NULL ap_base_quantity_variance,
3359: -- Initialize the pl/sql table which stores pa_bc_packets records
3360: init_plsql_tabs;
3361:
3362: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3363: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling PA_FUNDS_CONTROL_UTILS.init_util_variables');
3364: End if;
3365:
3366: --Initialize the funds control util package global variables
3367: PA_FUNDS_CONTROL_UTILS.init_util_variables;
3363: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling PA_FUNDS_CONTROL_UTILS.init_util_variables');
3364: End if;
3365:
3366: --Initialize the funds control util package global variables
3367: PA_FUNDS_CONTROL_UTILS.init_util_variables;
3368:
3369: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3370: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling pa_multi_currency.init');
3371: End if;
3597: END IF;
3598:
3599: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3600: pa_funds_control_pkg.log_message(p_msg_token1 => 'After deriving DR and CR column ');
3601: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER');
3602: End if;
3603:
3604: -- Code to populate budget_version_id
3605: g_tab_budget_version_id(l_index)
3602: End if;
3603:
3604: -- Code to populate budget_version_id
3605: g_tab_budget_version_id(l_index)
3606: := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3607: (g_tab_project_id(l_index),'GL','BASELINE');
3608: If (g_tab_budget_version_id(l_index) is NULL ) Then
3609:
3610: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3612: End if;
3613: g_tab_result_code(l_index) := 'F166';
3614: g_tab_status_code(l_index) := 'R';
3615: g_tab_fck_reqd_flag(l_index) := 'Y';
3616: g_tab_budget_version_id(l_index) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3617: (g_tab_project_id(l_index),'GL','DRAFT'),-9999);
3618: -- Added as part of bug 13638904
3619: fnd_message.set_name('PA','PA_BC_NO_BASELINE_BGT');
3620: PSA_BC_XLA_PVT.psa_xla_error('PA_BC_NO_BASELINE_BGT',g_tab_source_event_id(l_index));
3861: End if;
3862:
3863: -- Code to populate budget_version_id
3864: g_tab_budget_version_id(l_index)
3865: := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3866: (g_tab_project_id(l_index),'GL','BASELINE');
3867: If (g_tab_budget_version_id(l_index) is NULL ) Then
3868: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3869: pa_funds_control_pkg.log_message(p_msg_token1 => 'Budget derivation failed marking to F166 ');
3870: End if;
3871: g_tab_result_code(l_index) := 'F166';
3872: g_tab_status_code(l_index) := 'R';
3873: g_tab_fck_reqd_flag(l_index) := 'Y';
3874: g_tab_budget_version_id(l_index) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3875: (g_tab_project_id(l_index),'GL','DRAFT'),-9999);
3876: -- Added as part of bug 13638904
3877: fnd_message.set_name('PA','PA_BC_NO_BASELINE_BGT');
3878: PSA_BC_XLA_PVT.psa_xla_error('PA_BC_NO_BASELINE_BGT',g_tab_source_event_id(l_index));
4343: g_tab_main_or_backing_code(i),
4344: g_tab_burden_method_code(i),
4345: g_tab_budget_line_id(i),
4346: g_tab_source_event_id(i),
4347: PA_FUNDS_CONTROL_UTILS.get_bdgt_link(g_tab_project_id(i),'STD' ),
4348: g_tab_gl_date(i),
4349: g_tab_period_name(i),
4350: g_tab_distribution_type(i),
4351: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4349: g_tab_period_name(i),
4350: g_tab_distribution_type(i),
4351: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4352: g_tab_enc_type_id(i),
4353: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(g_tab_project_id(i),'STD')
4354: FROM
4355: dual
4356: WHERE g_tab_fck_reqd_flag(i) in ('R','Y')
4357: -- fck_reqd_flag R - year end rollover
4513: ** ***************************************************************************************/
4514: g_cwk_po_unreserve := 'N' ;
4515: FOR c_rate_po in is_cwk_po_unreserve LOOP
4516:
4517: IF pa_funds_control_utils2.is_cwk_po(c_rate_po.document_header_id,
4518: c_rate_po.document_line_id,
4519: NULL,
4520: c_rate_po.org_id) = 'Y' THEN
4521: g_project_id_tab.delete ;
4852: pbc.status_code,
4853: pa_currency.round_trans_currency_amt(
4854: DECODE ( NVL ( pbc.entered_dr, 0 ), 0, 0,
4855: (( NVL (pbc.entered_dr ,0) *
4856: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4857: ( pbc.expenditure_organization_id,
4858: pbc.task_id,
4859: pbc.expenditure_item_date,
4860: 'C',
4862: ), 0)))),g_acct_currency_code),
4863: pa_currency.round_trans_currency_amt(
4864: DECODE ( NVL ( pbc.entered_cr, 0 ), 0, 0,
4865: (( NVL (pbc.entered_cr ,0) *
4866: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4867: ( pbc.expenditure_organization_id,
4868: pbc.task_id,
4869: pbc.expenditure_item_date,
4870: 'C',
4872: ), 0)))),g_acct_currency_code),
4873: pa_currency.round_trans_currency_amt(
4874: DECODE ( NVL ( pbc.accounted_dr, 0 ), 0, 0,
4875: (( NVL (pbc.accounted_dr ,0) *
4876: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4877: ( pbc.expenditure_organization_id,
4878: pbc.task_id,
4879: pbc.expenditure_item_date,
4880: 'C',
4882: ), 0)))),g_acct_currency_code),
4883: pa_currency.round_trans_currency_amt(
4884: DECODE ( NVL ( pbc.accounted_cr, 0 ), 0, 0,
4885: (( NVL (pbc.accounted_cr ,0) *
4886: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4887: ( pbc.expenditure_organization_id,
4888: pbc.task_id,
4889: pbc.expenditure_item_date,
4890: 'C',
4901: pbc.org_id,
4902: pbc.gl_date,
4903: pbc.pa_date,
4904: pbc.document_line_id,
4905: pa_funds_control_utils.get_fc_compiled_multiplier
4906: ( pbc.expenditure_organization_id,
4907: pbc.task_id,
4908: pbc.expenditure_item_date,
4909: 'C',
4918: AND pbc.parent_bc_packet_id = -1
4919: AND substr(nvl(pbc.result_code,'X'),1,1) <> 'F'
4920: AND pa_funds_control_pkg.check_bdn_on_sep_item
4921: (pbc.project_id ) = 'S'
4922: AND NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4923: ( pbc.expenditure_organization_id,
4924: pbc.task_id,
4925: pbc.expenditure_item_date,
4926: 'C',
5080: AND irs.ind_rate_sch_id = irsr.ind_rate_sch_id
5081: AND ics.ind_rate_sch_revision_id = irsr.ind_rate_sch_revision_id
5082: AND ics.organization_id = pbc.expenditure_organization_id
5083: AND ics.ind_compiled_set_id =
5084: pa_funds_control_utils.get_fc_compiled_set_id
5085: (pbc.task_id,
5086: pbc.expenditure_item_date,
5087: pbc.expenditure_organization_id,
5088: 'C'
5634: IF l_prev_multiplier = 'N' THEN
5635: pa_funds_control_pkg.log_message(p_msg_token1 =>'OLD Multiplier: Calculate Multiplier for p_burden_type '||p_burden_type);
5636: IF p_burden_type = 'SAME' THEN
5637:
5638: SELECT NVL (pa_funds_control_utils.get_fc_compiled_multiplier
5639: ( pbc.expenditure_organization_id,
5640: pbc.task_id,
5641: pbc.expenditure_item_date,
5642: 'C',
5649: WHERE pbc.packet_id = p_packet_id
5650: AND pbc.bc_packet_id = p_bc_packet_id
5651: AND pbc.document_type = p_doc_type
5652: AND substr(nvl(pbc.result_code,'X'),1,1) <> 'F'
5653: AND NVL (pa_funds_control_utils.get_fc_compiled_multiplier
5654: ( pbc.expenditure_organization_id,
5655: pbc.task_id,
5656: pbc.expenditure_item_date,
5657: 'C',
5683: AND irs.ind_rate_sch_id = irsr.ind_rate_sch_id
5684: AND ics.ind_rate_sch_revision_id = irsr.ind_rate_sch_revision_id
5685: AND ics.organization_id = pbc.expenditure_organization_id
5686: AND ics.ind_compiled_set_id =
5687: pa_funds_control_utils.get_fc_compiled_set_id
5688: (pbc.task_id,
5689: pbc.expenditure_item_date,
5690: pbc.expenditure_organization_id,
5691: 'C'
8640: END LOOP;
8641:
8642: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
8643: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : budget line id on bc comt'||l_budget_line_id);
8644: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : Before calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID' );
8645: End if;
8646:
8647: IF l_budget_line_id IS NULL THEN
8648:
8646:
8647: IF l_budget_line_id IS NULL THEN
8648:
8649: -- Calling below procedure to derive budget_line_id for bc commitments data
8650: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
8651: p_project_id => l_bc_project_id_tbl(1),
8652: p_task_id => l_bc_task_id_tbl(1),
8653: p_res_list_mem_id => l_bc_res_list_mem_id_tbl(1),
8654: p_start_date => l_bc_gl_start_date_tbl(1),
8660: x_return_status => l_return_status,
8661: x_error_message_code => l_error_message_code);
8662:
8663: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
8664: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : After calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID' );
8665: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : derived budget line id on bc comt'||l_budget_line_id);
8666: End if;
8667:
8668: END IF;
8694: l_cdl_entry_level_code;
8695: CLOSE c_budget_details;
8696:
8697: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
8698: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : Before calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID' );
8699: End if;
8700:
8701: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
8702: p_project_id => l_project_id_tbl(cdl_rec),
8697: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
8698: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : Before calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID' );
8699: End if;
8700:
8701: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
8702: p_project_id => l_project_id_tbl(cdl_rec),
8703: p_task_id => l_task_id_tbl(cdl_rec),
8704: p_res_list_mem_id => l_bc_res_list_mem_id_tbl(1),
8705: p_start_date => l_bc_gl_start_date_tbl(1),
8711: x_return_status => l_return_status,
8712: x_error_message_code => l_error_message_code);
8713:
8714: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
8715: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : After calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID' );
8716: pa_funds_control_pkg.log_message(p_msg_token1 => 'INTERFACE_TBC_BTC_COMT_UPDATE : derived budget line id on cdl'||l_budget_line_id);
8717: End if;
8718: END IF;
8719:
9329: 'T' funds_process_mode,
9330: 'N' burden_cost_flag,
9331: NULL result_code,
9332: 'I' status_code,
9333: pa_funds_control_utils.get_fnd_reqd_flag(pp.project_id ,'STD') fck_reqd_flag,
9334: null parent_bc_packet_id,
9335: NULL main_or_backing_code,
9336: pa_funds_control_pkg.check_bdn_on_sep_item(igc.project_id) burden_method_code,
9337: NULL budget_line_id,
9337: NULL budget_line_id,
9338: NULL source_event_id,
9339: NULL distribution_type,
9340: NULL po_release_Id,
9341: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(igc.project_id,'STD') enc_type_id,
9342: igchead.vendor_id,
9343: pa_bc_packets_s.nextval
9344: FROM pa_tasks pkt,
9345: pa_projects_all pp,
9398: igci.event_id source_event_id,
9399: igc.CC_ACCT_ENCMBRNC_DATE gl_date,
9400: NULL distribution_type,
9401: NULL po_release_Id,
9402: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(igc.project_id,'STD') enc_type_id,
9403: gl.period_name, --igci.period_name,
9404: NULL period_year, --igci.period_year,
9405: NULL period_num, --igci.period_num,
9406: NULL result_code, -- result_code
9414: 'T' funds_process_mode, -- T - transaction B- base line
9415: igci.code_combination_id,
9416: 'N' burden_cost_flag, -- original transaction (raw)
9417: igchead.org_id,
9418: pa_funds_control_utils.get_fnd_reqd_flag
9419: (pp.project_id ,'STD') fck_reqd_flag,
9420: null parent_bc_packet_id,
9421: decode(igci.je_category_name,'Confirmed','CC_C_CO',
9422: 'Provisional','CC_P_CO')
9516: g_tab_pkt_reference1(i) := g_tab_doc_type(i);
9517: g_tab_pkt_reference2(i) := g_tab_doc_header_id(i);
9518: g_tab_pkt_reference3(i) := g_tab_doc_distribution_id(i);
9519:
9520: g_tab_budget_version_id(i) := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9521: (g_tab_project_id(i),'GL','BASELINE');
9522: If (g_tab_budget_version_id(i) is NULL ) Then
9523: g_tab_result_code(i) := 'F166';
9524: g_tab_status_code(i) := 'R';
9522: If (g_tab_budget_version_id(i) is NULL ) Then
9523: g_tab_result_code(i) := 'F166';
9524: g_tab_status_code(i) := 'R';
9525: g_tab_fck_reqd_flag(i) := 'Y';
9526: g_tab_budget_version_id(i) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9527: (g_tab_project_id(i),'GL','DRAFT'),-9999);
9528: -- Added as part of bug 13638904
9529: fnd_message.set_name('PA','PA_BC_NO_BASELINE_BGT');
9530: PSA_BC_XLA_PVT.psa_xla_error('PA_BC_NO_BASELINE_BGT',g_tab_source_event_id(i));
9614: If g_tab_rowid.EXISTS(1) then
9615: /* added for bug fix: 3086398 */
9616: FOR i IN g_tab_rowid.FIRST .. g_tab_rowid.LAST LOOP
9617: g_tab_doc_line_id(i) := NULL;
9618: g_tab_budget_version_id(i) := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9619: (g_tab_project_id(i),'CC','BASELINE');
9620: If (g_tab_budget_version_id(i) is NULL ) Then
9621: g_tab_result_code(i) := 'F166';
9622: g_tab_status_code(i) := 'R';
9620: If (g_tab_budget_version_id(i) is NULL ) Then
9621: g_tab_result_code(i) := 'F166';
9622: g_tab_status_code(i) := 'R';
9623: g_tab_fck_reqd_flag(i) := 'Y';
9624: g_tab_budget_version_id(i) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9625: (g_tab_project_id(i),'CC','DRAFT'),-9999);
9626: -- Added as part of bug 13638904
9627: fnd_message.set_name('PA','PA_BC_NO_BASELINE_BGT');
9628: PSA_BC_XLA_PVT.psa_xla_error('PA_BC_NO_BASELINE_BGT',g_tab_source_event_id(i));