[Home] [Help]
592: ,pa_projects_all pp
593: ,pa_project_types_all pt
594: where pkt.packet_id = p_packet_id
595: and pkt.document_line_id is NOT NULL -- with R12 this check is not sufficient to find if the PO is an CWK PO
596: and pa_funds_control_utils2.is_CWK_PO(pkt.document_header_id,pkt.document_line_id
597: ,pkt.document_distribution_id,pkt.org_id) = 'Y' -- R12 Funds management uptake
598: and pkt.document_type in ('PO') --,'EXP')
599: and pkt.status_code in ('P','A','C','I')
600: and substr(NVL(pkt.result_code,'P'),1,1) = 'P'
2031: l_new_rec_index NUMBER;
2032:
2033: -- Cursor to fetch PO details for PO relieving record
2034: CURSOR c_po_cwk_accrue_details_cur(p_po_distribution_id NUMBER) IS
2035: SELECT pa_funds_control_utils2.is_CWK_PO
2036: (po.po_header_id,
2037: po.po_line_id,
2038: po.po_distribution_id,
2039: po.org_id) cwk_po_flag,
2229:
2230: FOR c_pkt in c_pkt_details LOOP
2231:
2232: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2233: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID ');
2234: End if;
2235:
2236: OPEN c_get_gl_start_date(c_pkt.period_name,c_pkt.set_of_books_id);
2237: FETCH c_get_gl_start_date INTO l_gl_start_date;
2237: FETCH c_get_gl_start_date INTO l_gl_start_date;
2238: CLOSE c_get_gl_start_date;
2239:
2240:
2241: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
2242: p_project_id => c_pkt.project_id,
2243: p_task_id => c_pkt.task_id,
2244: p_res_list_mem_id => c_pkt.resource_list_member_id,
2245: --p_period_name => c_pkt.period_name,
2252: x_return_status => l_return_status,
2253: x_error_message_code => l_error_message_code);
2254:
2255: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2256: pa_funds_control_pkg.log_message(p_msg_token1 => 'After PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID ');
2257: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.project_id = '||c_pkt.project_id);
2258: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.task_id = '||c_pkt.task_id);
2259: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.resource_list_member_id = '||c_pkt.resource_list_member_id);
2260: pa_funds_control_pkg.log_message(p_msg_token1 => 'c_pkt.gl_date = '||c_pkt.gl_date);
2360:
2361: -- Below function returns 1 if the amount should be populated in debit columns
2362: -- and -1 if amounts should be populated in credit columns
2363:
2364: IF PA_FUNDS_CONTROL_UTILS.DERIVE_PO_REQ_AMT_SIDE
2365: (g_tab_event_type_code(l_index) ,
2366: g_tab_main_or_backing_code(l_index),
2367: g_tab_distribution_type(l_index) ) = 1 THEN
2368:
2540: -- 2. Inserts raw records into pa_bc_packets by fetching PO/REQ data from po_bc_distributions
2541: -- and AP data from ap_invoice_distributions_all table for all events in psa_bc_xla_events_gt.
2542: -- 3. Fires populate_burden_cost procedure to Insert burden records for above raw components
2543: -- 4. Fires pa_funds_control_pkg.derive_rlmi to derive resource_list_member_id on bc packets
2544: -- 5. Fires pa_funds_control_utils.get_budegt_ccid to derive budget_ccid and budget_line_id
2545: -- 6. Finally calls pa_xla_interface_pkg.create_events to create events for project
2546: -- encumbrance data and populate BC GT table.
2547: -------------------------------------------------------------------------------------
2548:
2604: pobc.main_or_backing_code main_or_backing_code,
2605: pobc.ae_event_id source_event_id,
2606: pobc.CODE_COMBINATION_ID txn_ccid,
2607: NULL parent_bc_packet_id,
2608: pa_funds_control_utils.get_fnd_reqd_flag
2609: (pobc.pa_project_id,'STD') fck_reqd_flag,
2610: pobc.gl_date gl_date,
2611: pogt.period_name period_name,
2612: -- Below code is added to handle Requisition adjusment scenario :
2718: AND apd.po_distribution_id IS NOT NULL
2719: AND ((NVL(pod.accrue_on_receipt_flag,'N') = 'Y' -- Bug 5348212
2720: AND apd.line_type_lookup_code IN ('ITEM','ACCRUAL','NONREC_TAX'))
2721: OR
2722: (pa_funds_control_utils2.is_CWK_PO -- Bug 5494476
2723: (pod.po_header_id,pod.po_line_id,pod.po_distribution_id,pod.org_id) = 'Y'
2724: AND apd.line_type_lookup_code IN ('ITEM','NONREC_TAX') -- Bug 5533290
2725: AND NVL(apd.amount_variance,0)= 0
2726: AND NVL(apd.base_amount_variance,0)=0
2847: NULL main_or_backing_code,
2848: apext.event_id source_event_id,
2849: apext.aid_dist_ccid txn_ccid,
2850: NULL parent_bc_packet_id,
2851: pa_funds_control_utils.get_fnd_reqd_flag
2852: (apext.aid_project_id ,'STD') fck_reqd_flag,
2853: apext.aid_quantity_variance ap_quantity_variance,
2854: apext.aid_amount_variance ap_amount_variance,
2855: apext.aid_base_quantity_variance ap_base_quantity_variance,
2937: NULL main_or_backing_code,
2938: APPH.bc_event_id source_event_id,
2939: AID.Dist_code_combination_id txn_ccid,
2940: NULL parent_bc_packet_id,
2941: pa_funds_control_utils.get_fnd_reqd_flag(AID.project_id
2942: ,'STD') fck_reqd_flag,
2943: NULL ap_quantity_variance,
2944: NULL ap_amount_variance,
2945: NULL ap_base_quantity_variance,
3091: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling init_util_variables');
3092: End if;
3093:
3094: --Initialize the funds control util package global variables
3095: PA_FUNDS_CONTROL_UTILS.init_util_variables;
3096:
3097: -- initialize the accounting currency code,
3098: pa_multi_currency.init;
3099:
3318: END IF;
3319:
3320: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3321: pa_funds_control_pkg.log_message(p_msg_token1 => 'After deriving DR and CR column ');
3322: pa_funds_control_pkg.log_message(p_msg_token1 => 'Calling pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER');
3323: End if;
3324:
3325: -- Code to populate budget_version_id
3326: g_tab_budget_version_id(l_index)
3323: End if;
3324:
3325: -- Code to populate budget_version_id
3326: g_tab_budget_version_id(l_index)
3327: := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3328: (g_tab_project_id(l_index),'GL','BASELINE');
3329: If (g_tab_budget_version_id(l_index) is NULL ) Then
3330:
3331: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3333: End if;
3334: g_tab_result_code(l_index) := 'F166';
3335: g_tab_status_code(l_index) := 'R';
3336: g_tab_fck_reqd_flag(l_index) := 'Y';
3337: g_tab_budget_version_id(l_index) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3338: (g_tab_project_id(l_index),'GL','DRAFT'),-9999);
3339:
3340: GOTO END_OF_AP_LOOP; -- process next record
3341:
3579: End if;
3580:
3581: -- Code to populate budget_version_id
3582: g_tab_budget_version_id(l_index)
3583: := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3584: (g_tab_project_id(l_index),'GL','BASELINE');
3585: If (g_tab_budget_version_id(l_index) is NULL ) Then
3586: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3587: pa_funds_control_pkg.log_message(p_msg_token1 => 'Budget derivation failed marking to F166 ');
3588: End if;
3589: g_tab_result_code(l_index) := 'F166';
3590: g_tab_status_code(l_index) := 'R';
3591: g_tab_fck_reqd_flag(l_index) := 'Y';
3592: g_tab_budget_version_id(l_index) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
3593: (g_tab_project_id(l_index),'GL','DRAFT'),-9999);
3594:
3595: GOTO END_OF_REQ_LOOP;
3596:
4058: g_tab_main_or_backing_code(i),
4059: g_tab_burden_method_code(i),
4060: g_tab_budget_line_id(i),
4061: g_tab_source_event_id(i),
4062: PA_FUNDS_CONTROL_UTILS.get_bdgt_link(g_tab_project_id(i),'STD' ),
4063: g_tab_gl_date(i),
4064: g_tab_period_name(i),
4065: g_tab_distribution_type(i),
4066: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4064: g_tab_period_name(i),
4065: g_tab_distribution_type(i),
4066: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4067: g_tab_enc_type_id(i),
4068: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(g_tab_project_id(i),'STD')
4069: FROM
4070: dual
4071: WHERE g_tab_fck_reqd_flag(i) in ('R','Y')
4072: -- fck_reqd_flag R - year end rollover
4224: ** ***************************************************************************************/
4225: g_cwk_po_unreserve := 'N' ;
4226: FOR c_rate_po in is_cwk_po_unreserve LOOP
4227:
4228: IF pa_funds_control_utils2.is_cwk_po(c_rate_po.document_header_id,
4229: c_rate_po.document_line_id,
4230: NULL,
4231: c_rate_po.org_id) = 'Y' THEN
4232: g_project_id_tab.delete ;
4553: pbc.status_code,
4554: pa_currency.round_trans_currency_amt(
4555: DECODE ( NVL ( pbc.entered_dr, 0 ), 0, 0,
4556: (( NVL (pbc.entered_dr ,0) *
4557: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4558: ( pbc.expenditure_organization_id,
4559: pbc.task_id,
4560: pbc.expenditure_item_date,
4561: 'C',
4563: ), 0)))),g_acct_currency_code),
4564: pa_currency.round_trans_currency_amt(
4565: DECODE ( NVL ( pbc.entered_cr, 0 ), 0, 0,
4566: (( NVL (pbc.entered_cr ,0) *
4567: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4568: ( pbc.expenditure_organization_id,
4569: pbc.task_id,
4570: pbc.expenditure_item_date,
4571: 'C',
4573: ), 0)))),g_acct_currency_code),
4574: pa_currency.round_trans_currency_amt(
4575: DECODE ( NVL ( pbc.accounted_dr, 0 ), 0, 0,
4576: (( NVL (pbc.accounted_dr ,0) *
4577: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4578: ( pbc.expenditure_organization_id,
4579: pbc.task_id,
4580: pbc.expenditure_item_date,
4581: 'C',
4583: ), 0)))),g_acct_currency_code),
4584: pa_currency.round_trans_currency_amt(
4585: DECODE ( NVL ( pbc.accounted_cr, 0 ), 0, 0,
4586: (( NVL (pbc.accounted_cr ,0) *
4587: NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4588: ( pbc.expenditure_organization_id,
4589: pbc.task_id,
4590: pbc.expenditure_item_date,
4591: 'C',
4602: pbc.org_id,
4603: pbc.gl_date,
4604: pbc.pa_date,
4605: pbc.document_line_id,
4606: pa_funds_control_utils.get_fc_compiled_multiplier
4607: ( pbc.expenditure_organization_id,
4608: pbc.task_id,
4609: pbc.expenditure_item_date,
4610: 'C',
4619: AND pbc.parent_bc_packet_id = -1
4620: AND substr(nvl(pbc.result_code,'X'),1,1) <> 'F'
4621: AND pa_funds_control_pkg.check_bdn_on_sep_item
4622: (pbc.project_id ) = 'S'
4623: AND NVL (pa_funds_control_utils.get_fc_compiled_multiplier
4624: ( pbc.expenditure_organization_id,
4625: pbc.task_id,
4626: pbc.expenditure_item_date,
4627: 'C',
4781: AND irs.ind_rate_sch_id = irsr.ind_rate_sch_id
4782: AND ics.ind_rate_sch_revision_id = irsr.ind_rate_sch_revision_id
4783: AND ics.organization_id = pbc.expenditure_organization_id
4784: AND ics.ind_compiled_set_id =
4785: pa_funds_control_utils.get_fc_compiled_set_id
4786: (pbc.task_id,
4787: pbc.expenditure_item_date,
4788: pbc.expenditure_organization_id,
4789: 'C'
5316: IF l_prev_multiplier = 'N' THEN
5317: pa_funds_control_pkg.log_message(p_msg_token1 =>'OLD Multiplier: Calculate Multiplier for p_burden_type '||p_burden_type);
5318: IF p_burden_type = 'SAME' THEN
5319:
5320: SELECT NVL (pa_funds_control_utils.get_fc_compiled_multiplier
5321: ( pbc.expenditure_organization_id,
5322: pbc.task_id,
5323: pbc.expenditure_item_date,
5324: 'C',
5331: WHERE pbc.packet_id = p_packet_id
5332: AND pbc.bc_packet_id = p_bc_packet_id
5333: AND pbc.document_type = p_doc_type
5334: AND substr(nvl(pbc.result_code,'X'),1,1) <> 'F'
5335: AND NVL (pa_funds_control_utils.get_fc_compiled_multiplier
5336: ( pbc.expenditure_organization_id,
5337: pbc.task_id,
5338: pbc.expenditure_item_date,
5339: 'C',
5365: AND irs.ind_rate_sch_id = irsr.ind_rate_sch_id
5366: AND ics.ind_rate_sch_revision_id = irsr.ind_rate_sch_revision_id
5367: AND ics.organization_id = pbc.expenditure_organization_id
5368: AND ics.ind_compiled_set_id =
5369: pa_funds_control_utils.get_fc_compiled_set_id
5370: (pbc.task_id,
5371: pbc.expenditure_item_date,
5372: pbc.expenditure_organization_id,
5373: 'C'
8271:
8272: IF l_budget_line_id IS NULL THEN
8273:
8274: -- Calling below procedure to derive budget_line_id for bc commitments data
8275: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
8276: p_project_id => l_bc_project_id_tbl(1),
8277: p_task_id => l_bc_task_id_tbl(1),
8278: p_res_list_mem_id => l_bc_res_list_mem_id_tbl(1),
8279: p_start_date => l_bc_gl_start_date_tbl(1),
8317: l_cdl_budget_version_id,
8318: l_cdl_entry_level_code;
8319: CLOSE c_budget_details;
8320:
8321: PA_FUNDS_CONTROL_UTILS.Get_Budget_CCID (
8322: p_project_id => l_project_id_tbl(cdl_rec),
8323: p_task_id => l_task_id_tbl(cdl_rec),
8324: p_res_list_mem_id => l_bc_res_list_mem_id_tbl(1),
8325: p_start_date => l_bc_gl_start_date_tbl(1),
8941: 'T' funds_process_mode,
8942: 'N' burden_cost_flag,
8943: NULL result_code,
8944: 'I' status_code,
8945: pa_funds_control_utils.get_fnd_reqd_flag(pp.project_id ,'STD') fck_reqd_flag,
8946: null parent_bc_packet_id,
8947: NULL main_or_backing_code,
8948: pa_funds_control_pkg.check_bdn_on_sep_item(igc.project_id) burden_method_code,
8949: NULL budget_line_id,
8949: NULL budget_line_id,
8950: NULL source_event_id,
8951: NULL distribution_type,
8952: NULL po_release_Id,
8953: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(igc.project_id,'STD') enc_type_id,
8954: igchead.vendor_id,
8955: pa_bc_packets_s.nextval
8956: FROM pa_tasks pkt,
8957: pa_projects_all pp,
9010: igci.event_id source_event_id,
9011: igc.CC_ACCT_ENCMBRNC_DATE gl_date,
9012: NULL distribution_type,
9013: NULL po_release_Id,
9014: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(igc.project_id,'STD') enc_type_id,
9015: gl.period_name, --igci.period_name,
9016: NULL period_year, --igci.period_year,
9017: NULL period_num, --igci.period_num,
9018: NULL result_code, -- result_code
9026: 'T' funds_process_mode, -- T - transaction B- base line
9027: igci.code_combination_id,
9028: 'N' burden_cost_flag, -- original transaction (raw)
9029: igchead.org_id,
9030: pa_funds_control_utils.get_fnd_reqd_flag
9031: (pp.project_id ,'STD') fck_reqd_flag,
9032: null parent_bc_packet_id,
9033: decode(igci.je_category_name,'Confirmed','CC_C_CO',
9034: 'Provisional','CC_P_CO')
9128: g_tab_pkt_reference1(i) := g_tab_doc_type(i);
9129: g_tab_pkt_reference2(i) := g_tab_doc_header_id(i);
9130: g_tab_pkt_reference3(i) := g_tab_doc_distribution_id(i);
9131:
9132: g_tab_budget_version_id(i) := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9133: (g_tab_project_id(i),'GL','BASELINE');
9134: If (g_tab_budget_version_id(i) is NULL ) Then
9135: g_tab_result_code(i) := 'F166';
9136: g_tab_status_code(i) := 'R';
9134: If (g_tab_budget_version_id(i) is NULL ) Then
9135: g_tab_result_code(i) := 'F166';
9136: g_tab_status_code(i) := 'R';
9137: g_tab_fck_reqd_flag(i) := 'Y';
9138: g_tab_budget_version_id(i) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9139: (g_tab_project_id(i),'GL','DRAFT'),-9999);
9140:
9141: End If;
9142: pa_funds_control_pkg.log_message(p_msg_token1 => 'igc cursor Bdgt_Version['
9223: If g_tab_rowid.EXISTS(1) then
9224: /* added for bug fix: 3086398 */
9225: FOR i IN g_tab_rowid.FIRST .. g_tab_rowid.LAST LOOP
9226: g_tab_doc_line_id(i) := NULL;
9227: g_tab_budget_version_id(i) := pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9228: (g_tab_project_id(i),'CC','BASELINE');
9229: If (g_tab_budget_version_id(i) is NULL ) Then
9230: g_tab_result_code(i) := 'F166';
9231: g_tab_status_code(i) := 'R';
9229: If (g_tab_budget_version_id(i) is NULL ) Then
9230: g_tab_result_code(i) := 'F166';
9231: g_tab_status_code(i) := 'R';
9232: g_tab_fck_reqd_flag(i) := 'Y';
9233: g_tab_budget_version_id(i) := NVL(pa_funds_control_utils2.GET_DRAFTORBASELINE_BDGTVER
9234: (g_tab_project_id(i),'CC','DRAFT'),-9999);
9235:
9236: End If;
9237: END LOOP;