[Home] [Help]
274: ,PLL.matching_basis -- matching basis./*Amount Based Matching*/
275: FROM ap_invoice_distributions D,
276: ap_invoices I,
277: po_distributions PD,
278: po_line_locations PLL,
279: po_lines PL,
280: rcv_transactions RTXN,
281: rcv_shipment_lines RSL
282: WHERE I.invoice_id = p_invoice_id
342: l_erv_acct_invalid_exists VARCHAR2(1) := 'N';
343: l_variance_success BOOLEAN := FALSE;
344: l_po_uom PO_LINES.UNIT_MEAS_LOOKUP_CODE%TYPE;
345: l_rtxn_uom PO_LINES.UNIT_MEAS_LOOKUP_CODE%TYPE;
346: l_match_option PO_LINE_LOCATIONS.MATCH_OPTION%TYPE;
347: l_qty_invoiced AP_INVOICE_DISTRIBUTIONS.QUANTITY_INVOICED%TYPE;
348: l_rtxn_item_id RCV_SHIPMENT_LINES.ITEM_ID%TYPE;
349: l_corrected_invoice_dist_id AP_INVOICE_DISTRIBUTIONS.INVOICE_DISTRIBUTION_ID%TYPE;
350: l_uom_conv_rate NUMBER := NULL;
350: l_uom_conv_rate NUMBER := NULL;
351: l_inv_qty AP_INVOICE_DISTRIBUTIONS.QUANTITY_INVOICED%TYPE :=0;
352: l_inv_rate AP_INVOICES.EXCHANGE_RATE%TYPE := 0;
353: l_po_rate AP_INVOICES.EXCHANGE_RATE%TYPE := 0;
354: l_po_price PO_LINE_LOCATIONS.PRICE_OVERRIDE%TYPE := 0;
355: l_po_erv NUMBER := 0;
356: l_extra_po_erv AP_INVOICE_DISTRIBUTIONS.EXTRA_PO_ERV%TYPE ;
357:
358: l_key_value NUMBER;
361: l_debug_loc VARCHAR2(30) := 'Exec_Matched_Variance_Checks';
362: l_curr_calling_sequence VARCHAR2(2000);
363: l_debug_info VARCHAR2(100);
364: l_debug_context VARCHAR2(2000);
365: l_match_basis PO_LINE_LOCATIONS.matching_basis%TYPE; /*Amount Based Matching */
366:
367: BEGIN
368:
369: l_curr_calling_sequence := 'AP_APPROVAL_MATCHED_PKG.'||l_debug_loc||'<-'||
1339: po_distributions_ap_v PD,
1340: rcv_transactions RTXN,
1341: rcv_shipment_lines RSL,
1342: po_lines PL,
1343: po_line_locations PLL
1344: WHERE D.invoice_id = p_invoice_id
1345: AND D.po_distribution_id = PD.po_distribution_id
1346: AND NVL(D.match_status_flag, 'N') IN ('N', 'S', 'A')
1347: AND NVL(D.posted_flag, 'N') IN ('N', 'P')
1603: po_distributions_ap_v PD,
1604: rcv_transactions RTXN,
1605: rcv_shipment_lines RSL,
1606: po_lines PL,
1607: po_line_locations PLL
1608: WHERE D.invoice_id = p_invoice_id
1609: AND D.po_distribution_id = PD.po_distribution_id
1610: AND NVL(D.match_status_flag, 'N') IN ('N', 'S', 'A')
1611: AND NVL(D.posted_flag, 'N') IN ('N', 'P')
1916: rcv_transactions RTXN,
1917: rcv_shipment_lines RSL,
1918: ap_invoice_lines L,
1919: ap_invoices I,
1920: po_line_locations PLL,
1921: po_headers PH,
1922: po_releases PR
1923: WHERE I.invoice_id = L.invoice_id
1924: AND L.po_line_location_id = PLL.line_location_id
2058: l_po_uom VARCHAR2(25);
2059: l_item_id NUMBER;
2060: l_discarded_flag ap_invoice_lines.discarded_flag%TYPE;
2061: l_cancelled_flag ap_invoice_lines.cancelled_flag%TYPE;
2062: l_matching_basis po_line_locations.matching_basis%TYPE; -- Amount Based Matching
2063:
2064: --Contract Payments: Tolerances Redesign
2065: l_invoice_type_lookup_code ap_invoices_all.invoice_type_lookup_code%TYPE;
2066: l_payment_type po_line_locations_all.payment_type%TYPE;
2062: l_matching_basis po_line_locations.matching_basis%TYPE; -- Amount Based Matching
2063:
2064: --Contract Payments: Tolerances Redesign
2065: l_invoice_type_lookup_code ap_invoices_all.invoice_type_lookup_code%TYPE;
2066: l_payment_type po_line_locations_all.payment_type%TYPE;
2067: l_billed_amt NUMBER;
2068: l_amt_delivered NUMBER;
2069: l_amt_corrected NUMBER;
2070: l_ret_status VARCHAR2(100);
3329: p_calling_sequence;
3330:
3331: SELECT PLL.closed_code
3332: INTO p_po_closed_code
3333: FROM po_line_locations PLL
3334: WHERE line_location_id = p_line_location_id;
3335:
3336: EXCEPTION
3337: WHEN NO_DATA_FOUND THEN
3649: 'CANT CLOSE PO'
3650: FROM ap_invoice_distributions AID,
3651: ap_holds AH,
3652: po_distributions_ap_v PD,
3653: po_line_locations PLL --Bug 3489536
3654: WHERE AH.invoice_id = p_invoice_id
3655: AND AH.hold_lookup_code = 'CANT CLOSE PO'
3656: AND AH.release_lookup_code IS NULL
3657: AND AH.invoice_id = AID.invoice_id
3665: 'CANT TRY PO CLOSE'
3666: FROM ap_invoice_distributions AID,
3667: ap_holds AH,
3668: po_distributions_ap_v PD,
3669: po_line_locations PLL --Bug 3489536
3670: WHERE AH.invoice_id = p_invoice_id
3671: AND AH.hold_lookup_code = 'CANT TRY PO CLOSE'
3672: AND AH.release_lookup_code IS NULL
3673: AND AH.invoice_id = AID.invoice_id
3695: PH.segment1,
3696: MAX(aid.accounting_date) Accounting_date
3697: FROM po_distributions_ap_v PD,
3698: ap_invoice_distributions AID,
3699: po_line_locations PLL,
3700: po_headers PH,
3701: po_releases PR
3702: WHERE AID.invoice_id = p_invoice_id
3703: AND AID.final_match_flag = 'Y'
3936:
3937: --bug 7696098 removed the quotes in p_api_version => '1.0'
3938: PO_AP_INVOICE_MATCH_GRP.set_final_match_flag
3939: (p_api_version => 1.0,
3940: p_entity_type => 'PO_LINE_LOCATIONS',
3941: p_entity_id_tbl => l_po_line_loc_tab,
3942: p_final_match_flag => 'Y',
3943: p_init_msg_list => FND_API.G_FALSE ,
3944: p_commit => FND_API.G_FALSE ,
4655: ,0)
4656: )
4657: ,5)
4658: INTO p_qty_billed
4659: FROM po_line_locations PLL
4660: WHERE PLL.line_location_id = p_line_location_id;
4661: */
4662:
4663: SELECT ROUND(DECODE(l_inv_qty_billed,0,
4664: 0, (nvl(pll.quantity_financed,0) + nvl(pll.quantity_billed,0) - nvl(pll.quantity_recouped,0))
4665: )
4666: ,5)
4667: INTO p_qty_billed
4668: FROM po_line_locations PLL
4669: WHERE PLL.line_location_id = p_line_location_id;
4670:
4671: EXCEPTION
4672: WHEN OTHERS THEN
4895: ,0)
4896: )
4897: ,5)
4898: INTO p_amt_billed
4899: FROM po_line_locations PLL
4900: WHERE PLL.line_location_id = p_line_location_id;
4901: */
4902:
4903: SELECT ROUND(DECODE(l_inv_amt_billed,0,
4904: 0, (nvl(PLL.amount_financed,0) + nvl(PLL.amount_billed,0) - nvl(PLL.amount_recouped,0))
4905: )
4906: ,5)
4907: INTO p_amt_billed
4908: FROM po_line_locations PLL
4909: WHERE PLL.line_location_id = p_line_location_id;
4910:
4911: EXCEPTION
4912: WHEN OTHERS THEN
5145: / FC.minimum_accountable_unit)
5146: * FC.minimum_accountable_unit)
5147: INTO l_po_total
5148: FROM fnd_currencies FC,
5149: po_line_locations PLL,
5150: po_headers PH
5151: WHERE PLL.line_location_id = p_line_location_id
5152: AND PH.po_header_id = PLL.po_header_id
5153: AND FC.currency_code = PH.currency_code;
5163: NVL(PLL.amount_cancelled, 0))
5164: / FC.minimum_accountable_unit)
5165: * FC.minimum_accountable_unit)
5166: INTO l_po_total
5167: FROM fnd_currencies FC, po_line_locations PLL, po_headers PH
5168: WHERE PLL.line_location_id = p_line_location_id
5169: AND PH.po_header_id = PLL.po_header_id
5170: AND FC.currency_code = PH.currency_code;
5171: