[Home] [Help]
6493: END IF;
6494:
6495: -- BUG:4748305 DFHC.D4:PRC INTERFACE SUPPLIER COST NOT INTERFACING
6496: -- VALID INVOICE DISTRIBUTIONS
6497: -- We allow good ap invoice distributions to interface in a expenditure
6498: -- and do not reject all the expenditure items in expenditure
6499: -- This is only done for VI items.
6500:
6501: IF ( NOT REJECT_EXP ) OR
6690: END IF;
6691:
6692: -- BUG:4748305 DFHC.D4:PRC INTERFACE SUPPLIER COST NOT INTERFACING
6693: -- VALID INVOICE DISTRIBUTIONS
6694: -- We allow good ap invoice distributions to interface in a expenditure
6695: -- and do not reject all the expenditure items in expenditure
6696: -- This is only done for VI items.
6697:
6698: UPDATE pa_transaction_interface
6929:
6930: cursor c_invdist is
6931: select parent_reversal_id
6932: into l_parent_dist_id
6933: from ap_invoice_distributions_all apd
6934: where invoice_distribution_id = NVL(l_SysRef5Tab(p_indx),0)
6935: and nvl(reversal_flag,'N') = 'Y' ;
6936:
6937: cursor c_rcvtxn is
8235: ELSE
8236:
8237: -- BUG:4748305 DFHC.D4:PRC INTERFACE SUPPLIER COST NOT INTERFACING
8238: -- VALID INVOICE DISTRIBUTIONS
8239: -- We allow good ap invoice distributions to interface in a expenditure
8240: -- and do not reject all the expenditure items in expenditure
8241: -- This is only done for VI items.
8242: IF v_calling_module = 'PAAPIMP' and
8243: TrxBatch.system_linkage_function = 'VI' THEN
9611: and b.expenditure_item_id = c.expenditure_item_id
9612: and b.transaction_source = p_calling_mode;
9613:
9614: -- Cursor to fetch AP INVOICE/AP NRTAX records
9615: -- Second Union all is used to fetch PO records relieved while interfacing AP invoice distributions
9616: -- Eg : AP matched to CWK PO , AP matched to accrue on receipt
9617: cursor rcpt_acc_ap_pkts(p_calling_mode in varchar2) is
9618: select a.packet_id ,
9619: a.document_header_id ,
9644: a.budget_line_id ,
9645: a.budget_version_id
9646: from pa_bc_packets a,
9647: pa_transaction_interface b, -- moac changes
9648: ap_invoice_distributions c,
9649: po_distributions d
9650: where a.txn_interface_id = b.txn_interface_id
9651: and a.document_header_id = d.po_header_id
9652: and a.document_distribution_id = d.po_distribution_id
10105: (select po_header_id, po_distribution_id
10106: from po_distributions_all
10107: where po_distribution_id in
10108: (select po_distribution_id
10109: from ap_invoice_distributions_all inv, pa_transaction_interface_all pti
10110: where inv.invoice_id = pti.cdl_system_reference2
10111: and inv.invoice_distribution_id = pti.cdl_system_reference5 /*REL12 : AP Lines Uptake changes*/
10112: and pti.transaction_source = p_calling_mode
10113: and pti.transaction_status_code = 'R'
10197: l_base_qv NUMBER;
10198: l_base_av NUMBER;
10199: l_period_year pa_bc_packets.period_year%type; --REL12
10200: l_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
10201: l_line_type_lookup_code ap_invoice_distributions_all.line_type_lookup_code%TYPE;
10202:
10203: -- R12 AP lines uptake : Prepayment changes :Cursor to fetch AP related details.
10204: CURSOR C_ap_details (p_invoice_id NUMBER,
10205: p_invoice_distribution_id NUMBER) IS
10208: nvl(dist.base_quantity_variance,0), --PA.M QV and AV
10209: NVL(dist.base_amount_variance,0),
10210: inv.invoice_type_lookup_code,
10211: dist.line_type_lookup_code
10212: FROM ap_invoice_distributions dist,
10213: ap_invoices inv
10214: WHERE dist.invoice_id = p_invoice_id
10215: AND dist.invoice_distribution_id = p_invoice_distribution_id
10216: AND inv.invoice_id = dist.invoice_id;
10357:
10358: --PA.M QV and AV
10359: /*REL12 : AP Lines uptake changes */
10360: /*Call to AP_PA_API_PKG.Get_Inv_Amount_Var is deleted and introduced logic to fetch
10361: amt variance from ap_invoice_distributions*/
10362:
10363: IF PG_DEBUG = 'Y' THEN
10364: log_message('log_message: ' || 'Po Dist = ' || l_po_dist_id);
10365: log_message('log_message: ' || ' Base QV = ' || l_base_qv );
11741: -- ====================================================================================
11742: CURSOR c_get_disc_amount is
11743: SELECT NVL(b.invoice_dist_base_amount , b.invoice_dist_amount) amount
11744: from ap_payment_hist_dists b,
11745: ap_invoice_distributions_all apd
11746: where b.invoice_payment_id = p_sys_ref4
11747: and b.invoice_distribution_id = p_sys_ref5
11748: and b.pay_dist_lookup_code = 'DISCOUNT'
11749: and apd.invoice_distribution_id = b.invoice_distribution_id
12145: FROM dual;
12146:
12147: CURSOR c_get_po_dist_id IS
12148: SELECT po_distribution_id
12149: FROM ap_invoice_distributions
12150: WHERE invoice_id = p_sys_ref2
12151: AND invoice_distribution_id = p_sys_ref5;
12152:
12153: CURSOR c_get_po_LINE_id (p_po_dist_id NUMBER) IS
12265:
12266: l_rec_bc_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_commitments
12267: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
12268: L_RAW_BC_PACKET_ID NUMBER;
12269: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
12270: l_po_line_id po_distributions_all.po_line_id%TYPE;
12271:
12272:
12273: CURSOR c_curr_raw_pkt IS
13029: FROM dual;
13030:
13031: CURSOR c_get_po_dist_id IS
13032: SELECT po_distribution_id
13033: FROM ap_invoice_distributions
13034: WHERE invoice_id = p_sys_ref2
13035: AND invoice_distribution_id = p_sys_ref5;
13036:
13037: CURSOR c_get_po_LINE_id (p_po_dist_id NUMBER) IS
13114:
13115: l_rec_bc_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_commitments
13116: l_rec_pkt_comm_exists VARCHAR2(1); -- Variable to identify whether commitment record exists in pa_bc_packets
13117: l_Raw_Bc_Packet_Id pa_bc_packets.bc_packet_id%TYPE;
13118: l_po_dist_id ap_invoice_distributions.po_distribution_id%TYPE;
13119: l_po_line_id po_distributions_all.po_line_id%TYPE;
13120:
13121: BEGIN
13122: