[Home] [Help]
161: G_Approval_Workflow_Flag ap_system_parameters.approval_workflow_flag%TYPE;
162: -- Removed for bug 4277744
163: -- G_Ussgl_Transaction_Code ap_invoices.ussgl_transaction_code%TYPE;
164: G_Allow_Flex_Override_Flag ap_system_parameters.allow_flex_override_flag%TYPE;
165: G_Shipment_Type po_line_locations.shipment_type%TYPE;
166: G_Org_id ap_invoices.org_id%TYPE;
167: G_Encumbrance_Flag financials_system_parameters.purch_encumbrance_flag%TYPE;
168: G_User_Id number;
169: G_Login_Id number;
248: l_po_header_curr_conv_rate po_headers_all.rate%TYPE;
249: l_uom_code mtl_units_of_measure.uom_code%TYPE;
250: l_ref_doc_trx_id po_headers_all.po_header_id%TYPE;
251: l_error_code varchar2(2000);
252: l_po_line_location_id po_line_locations.line_location_id%TYPE;
253: l_dummy number;
254:
255: -- bug 8483345: start
256: l_product_org_id ap_invoices.org_id%TYPE;
568: l_retained_amount,
569: -1 * l_retained_amount
570: FROM ap_invoice_distributions aid,
571: po_distributions pd,
572: po_line_locations pll
573: WHERE aid.invoice_distribution_id = l_invoice_distribution_id
574: AND pd.po_distribution_id = aid.po_distribution_id
575: AND pll.line_location_id = pd.line_location_id)
576: WHERE ail.invoice_id = x_invoice_id
626: --end Bug 7483260
627: l_retained_amount,
628: -1 * l_retained_amount
629: FROM ap_invoice_lines ail1,
630: po_line_locations pll
631: WHERE ail1.invoice_id = x_invoice_id
632: AND ail1.line_number =x_invoice_line_number
633: AND pll.line_location_id = ail1.po_line_location_id)
634: WHERE invoice_id = x_invoice_id
895: IF (x_po_line_location_id IS NOT NULL) THEN
896:
897: SELECT pll.shipment_type, pll.po_line_id, pl.recoupment_rate
898: INTO g_shipment_type, g_po_line_id, g_recoupment_rate
899: FROM po_line_locations pll,
900: po_lines pl
901: WHERE pll.line_location_id = x_po_line_location_id
902: AND pl.po_line_id = pll.po_line_id;
903:
1664: END IF;
1665:
1666: END LOOP;
1667:
1668: l_debug_info := 'Call the PO_AP_INVOICE_MATCH_GRP to update the Po Distributions and Po Line Locations';
1669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1671: END IF;
1672:
1699: END Update_Po_Shipments_Dists;
1700:
1701: --
1702:
1703: PROCEDURE Update_PO_Line_Locations(
1704: X_Po_Line_Location_id IN NUMBER,
1705: X_Match_Amount IN NUMBER,
1706: X_Uom_Lookup_Code IN VARCHAR2,
1707: X_Calling_Sequence IN VARCHAR2)
1709: current_calling_sequence VARCHAR2(2000);
1710: l_debug_info VARCHAR2(2000);
1711: BEGIN
1712:
1713: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1714:
1715: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1716:
1717: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1711: BEGIN
1712:
1713: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1714:
1715: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1716:
1717: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1718: x_quantity_billed => Null,
1719: x_uom_lookup_code => x_uom_lookup_code,
1713: current_calling_sequence := 'Update_PO_Line_Locations<-'||x_calling_sequence;
1714:
1715: l_debug_info := 'Calling the PO api to update Po_Line_Locations';
1716:
1717: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(x_po_line_location_id => x_po_line_location_id,
1718: x_quantity_billed => Null,
1719: x_uom_lookup_code => x_uom_lookup_code,
1720: x_amount_billed => x_match_amount,
1721: x_matching_basis => 'AMOUNT');
1731: ||', Match amount = '||to_char(x_match_amount));
1732: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1733: END IF;
1734: APP_EXCEPTION.RAISE_EXCEPTION;
1735: END Update_PO_Line_Locations;
1736:
1737: --
1738:
1739: PROCEDURE Insert_Invoice_Line (
1778:
1779: --End Bug#13505998
1780:
1781: -- perf bug 5058993
1782: -- go to base tables PO_LINES_ALL, PO_LINE_LOCATIONS and PO_DISTRIBUTIONS
1783: -- instead of PO_LINE_LOCATIONS_AP_V and PO_DISTRIBUTIONS_AP_V
1784:
1785:
1786: INSERT INTO AP_INVOICE_LINES (
1779: --End Bug#13505998
1780:
1781: -- perf bug 5058993
1782: -- go to base tables PO_LINES_ALL, PO_LINE_LOCATIONS and PO_DISTRIBUTIONS
1783: -- instead of PO_LINE_LOCATIONS_AP_V and PO_DISTRIBUTIONS_AP_V
1784:
1785:
1786: INSERT INTO AP_INVOICE_LINES (
1787: INVOICE_ID,
2157: G_dflt_tax_class_code,
2158: G_Pay_Awt_Group_Id --Bug 9689194
2159: -- bug 5061826 -- new FROM clause that goes to base tables
2160: FROM PO_LINES_ALL PL,
2161: PO_LINE_LOCATIONS_ALL PLL,
2162: po_distributions pd,
2163: mtl_system_items msi
2164: WHERE pll.line_location_id = x_po_line_location_id
2165: and pd.line_location_id = pll.line_location_id
2168: and msi.inventory_item_id(+) = pl.item_id
2169: and msi.organization_id(+) = g_inventory_organization_id
2170: and rownum = 1;
2171: /* -- commented out older from clause below
2172: FROM PO_LINE_LOCATIONS_AP_V PLL,
2173: PO_DISTRIBUTIONS_AP_V PD,
2174: MTL_SYSTEM_ITEMS MSI
2175: WHERE PLL.LINE_LOCATION_ID = X_PO_LINE_LOCATION_ID
2176: AND PD.LINE_LOCATION_ID = PLL.LINE_LOCATION_ID
3195: --end Bug 7483260
3196: l_retained_amount,
3197: -1 * l_retained_amount
3198: FROM ap_invoice_lines ail1,
3199: po_line_locations pll
3200: WHERE ail1.invoice_id = x_invoice_id
3201: AND ail1.line_number =x_invoice_line_number
3202: AND pll.line_location_id = ail1.po_line_location_id)
3203: WHERE invoice_id = x_invoice_id
3532: END IF;
3533:
3534: END LOOP;
3535:
3536: l_debug_info := 'Call the PO_AP_INVOICE_MATCH_GRP to update the Po Distributions and Po Line Locations';
3537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3539: END IF;
3540:
3567: END Update_Corr_Po_Shipments_Dists;
3568:
3569: --
3570:
3571: PROCEDURE Update_Corr_Po_Line_Locations(
3572: x_po_line_location_id IN NUMBER,
3573: x_amount IN NUMBER,
3574: x_uom_lookup_code IN VARCHAR2,
3575: x_calling_sequence IN VARCHAR2) IS
3578: current_calling_sequence VARCHAR2(2000);
3579:
3580: BEGIN
3581:
3582: current_calling_sequence := ' Update_Corr_Po_Line_Locations<-'||x_calling_sequence;
3583:
3584: l_debug_info := 'Call PO api to update the po_line_location with quantity/amount billed
3585: information';
3586:
3584: l_debug_info := 'Call PO api to update the po_line_location with quantity/amount billed
3585: information';
3586:
3587:
3588: RCV_BILL_UPDATING_SV.ap_update_po_line_locations(
3589: x_po_line_location_id => x_po_line_location_id,
3590: x_quantity_billed => Null,
3591: x_uom_lookup_code => x_uom_lookup_code,
3592: x_amount_billed => x_amount,
3605: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3606: End if;
3607: app_exception.raise_exception;
3608:
3609: END Update_Corr_Po_Line_Locations;
3610:
3611: --
3612:
3613: PROCEDURE Insert_Corr_Invoice_Line(x_invoice_id IN NUMBER,
3942: AIL.USER_DEFINED_FISC_CLASS, --user_defined_fisc_class
3943: g_pay_awt_group_id --Bug 9689194
3944: FROM ap_invoices ai,
3945: ap_invoice_lines ail,
3946: po_line_locations_ap_v pll
3947: WHERE ai.invoice_id = x_corrected_invoice_id
3948: AND ail.invoice_id = ai.invoice_id
3949: AND ail.line_number = x_corrected_line_number
3950: AND pll.line_location_id = ail.po_line_location_id;