[Home] [Help]
160: G_Approval_Workflow_Flag ap_system_parameters.approval_workflow_flag%TYPE;
161: -- Removed for bug 4277744
162: -- G_Ussgl_Transaction_Code ap_invoices.ussgl_transaction_code%TYPE;
163: G_Allow_Flex_Override_Flag ap_system_parameters.allow_flex_override_flag%TYPE;
164: G_Shipment_Type po_line_locations.shipment_type%TYPE;
165: G_Org_id ap_invoices.org_id%TYPE;
166: G_Encumbrance_Flag financials_system_parameters.purch_encumbrance_flag%TYPE;
167: G_User_Id number;
168: G_Login_Id number;
246: l_po_header_curr_conv_rate po_headers_all.rate%TYPE;
247: l_uom_code mtl_units_of_measure.uom_code%TYPE;
248: l_ref_doc_trx_id po_headers_all.po_header_id%TYPE;
249: l_error_code varchar2(2000);
250: l_po_line_location_id po_line_locations.line_location_id%TYPE;
251: l_dummy number;
252:
253: BEGIN
254:
480: l_retained_amount,
481: -1 * l_retained_amount
482: FROM ap_invoice_distributions aid,
483: po_distributions pd,
484: po_line_locations pll
485: WHERE aid.invoice_distribution_id = l_invoice_distribution_id
486: AND pd.po_distribution_id = aid.po_distribution_id
487: AND pll.line_location_id = pd.line_location_id)
488: WHERE ail.invoice_id = x_invoice_id
538: --end Bug 7483260
539: l_retained_amount,
540: -1 * l_retained_amount
541: FROM ap_invoice_lines ail1,
542: po_line_locations pll
543: WHERE ail1.invoice_id = x_invoice_id
544: AND ail1.line_number =x_invoice_line_number
545: AND pll.line_location_id = ail1.po_line_location_id)
546: WHERE invoice_id = x_invoice_id
802: IF (x_po_line_location_id IS NOT NULL) THEN
803:
804: SELECT pll.shipment_type, pll.po_line_id, pl.recoupment_rate
805: INTO g_shipment_type, g_po_line_id, g_recoupment_rate
806: FROM po_line_locations pll,
807: po_lines pl
808: WHERE pll.line_location_id = x_po_line_location_id
809: AND pl.po_line_id = pll.po_line_id;
810:
1563: END IF;
1564:
1565: END LOOP;
1566:
1567: l_debug_info := 'Call the PO_AP_INVOICE_MATCH_GRP to update the Po Distributions and Po Line Locations';
1568: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1569: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1570: END IF;
1571:
1598: END Update_Po_Shipments_Dists;
1599:
1600: --
1601:
1602: PROCEDURE Update_PO_Line_Locations(
1603: X_Po_Line_Location_id IN NUMBER,
1604: X_Match_Amount IN NUMBER,
1605: X_Uom_Lookup_Code IN VARCHAR2,
1606: X_Calling_Sequence IN VARCHAR2)
1608: current_calling_sequence VARCHAR2(2000);
1609: l_debug_info VARCHAR2(2000);
1610: BEGIN
1611:
1612: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1613:
1614: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1615:
1616: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1610: BEGIN
1611:
1612: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1613:
1614: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1615:
1616: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1617: x_quantity_billed => Null,
1618: x_uom_lookup_code => x_uom_lookup_code,
1612: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1613:
1614: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1615:
1616: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1617: x_quantity_billed => Null,
1618: x_uom_lookup_code => x_uom_lookup_code,
1619: x_amount_billed => x_match_amount,
1620: x_matching_basis => 'AMOUNT');
1630: ||', Match amount = '||to_char(x_match_amount));
1631: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1632: END IF;
1633: APP_EXCEPTION.RAISE_EXCEPTION;
1634: END Update_PO_Line_Locations;
1635:
1636: --
1637:
1638: PROCEDURE Insert_Invoice_Line (
1662:
1663: l_debug_info := 'Inserting Item Line Matched to a PO';
1664:
1665: -- perf bug 5058993
1666: -- go to base tables PO_LINES_ALL, PO_LINE_LOCATIONS and PO_DISTRIBUTIONS
1667: -- instead of PO_LINE_LOCATIONS_AP_V and PO_DISTRIBUTIONS_AP_V
1668:
1669:
1670: INSERT INTO AP_INVOICE_LINES (
1663: l_debug_info := 'Inserting Item Line Matched to a PO';
1664:
1665: -- perf bug 5058993
1666: -- go to base tables PO_LINES_ALL, PO_LINE_LOCATIONS and PO_DISTRIBUTIONS
1667: -- instead of PO_LINE_LOCATIONS_AP_V and PO_DISTRIBUTIONS_AP_V
1668:
1669:
1670: INSERT INTO AP_INVOICE_LINES (
1671: INVOICE_ID,
2038: G_ASSESSABLE_VALUE,
2039: G_dflt_tax_class_code
2040: -- bug 5061826 -- new FROM clause that goes to base tables
2041: FROM PO_LINES_ALL PL,
2042: PO_LINE_LOCATIONS_ALL PLL,
2043: po_distributions pd,
2044: mtl_system_items msi
2045: WHERE pll.line_location_id = x_po_line_location_id
2046: and pd.line_location_id = pll.line_location_id
2049: and msi.inventory_item_id(+) = pl.item_id
2050: and msi.organization_id(+) = g_inventory_organization_id
2051: and rownum = 1;
2052: /* -- commented out older from clause below
2053: FROM PO_LINE_LOCATIONS_AP_V PLL,
2054: PO_DISTRIBUTIONS_AP_V PD,
2055: MTL_SYSTEM_ITEMS MSI
2056: WHERE PLL.LINE_LOCATION_ID = X_PO_LINE_LOCATION_ID
2057: AND PD.LINE_LOCATION_ID = PLL.LINE_LOCATION_ID
3042: --end Bug 7483260
3043: l_retained_amount,
3044: -1 * l_retained_amount
3045: FROM ap_invoice_lines ail1,
3046: po_line_locations pll
3047: WHERE ail1.invoice_id = x_invoice_id
3048: AND ail1.line_number =x_invoice_line_number
3049: AND pll.line_location_id = ail1.po_line_location_id)
3050: WHERE invoice_id = x_invoice_id
3377: END IF;
3378:
3379: END LOOP;
3380:
3381: l_debug_info := 'Call the PO_AP_INVOICE_MATCH_GRP to update the Po Distributions and Po Line Locations';
3382: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3384: END IF;
3385:
3412: END Update_Corr_Po_Shipments_Dists;
3413:
3414: --
3415:
3416: PROCEDURE Update_Corr_Po_Line_Locations(
3417: x_po_line_location_id IN NUMBER,
3418: x_amount IN NUMBER,
3419: x_uom_lookup_code IN VARCHAR2,
3420: x_calling_sequence IN VARCHAR2) IS
3423: current_calling_sequence VARCHAR2(2000);
3424:
3425: BEGIN
3426:
3427: current_calling_sequence := ' Update_Corr_Po_Line_Locations<-'||x_calling_sequence;
3428:
3429: l_debug_info := 'Call PO api to update the po_line_location with quantity/amount billed
3430: information';
3431:
3429: l_debug_info := 'Call PO api to update the po_line_location with quantity/amount billed
3430: information';
3431:
3432:
3433: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(
3434: x_po_line_location_id => x_po_line_location_id,
3435: x_quantity_billed => Null,
3436: x_uom_lookup_code => x_uom_lookup_code,
3437: x_amount_billed => x_amount,
3450: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3451: End if;
3452: app_exception.raise_exception;
3453:
3454: END Update_Corr_Po_Line_Locations;
3455:
3456: --
3457:
3458: PROCEDURE Insert_Corr_Invoice_Line(x_invoice_id IN NUMBER,
3785: AIL.PRODUCT_CATEGORY, --product_category
3786: AIL.USER_DEFINED_FISC_CLASS --user_defined_fisc_class
3787: FROM ap_invoices ai,
3788: ap_invoice_lines ail,
3789: po_line_locations_ap_v pll
3790: WHERE ai.invoice_id = x_corrected_invoice_id
3791: AND ail.invoice_id = ai.invoice_id
3792: AND ail.line_number = x_corrected_line_number
3793: AND pll.line_location_id = ail.po_line_location_id;