[Home] [Help]
1: PACKAGE BODY AP_MATCHING_UTILS_PKG AS
2: /* $Header: apmtutlb.pls 120.36 2008/05/30 17:32:58 veramach ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_MATCHING_UTILS_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
1: PACKAGE BODY AP_MATCHING_UTILS_PKG AS
2: /* $Header: apmtutlb.pls 120.36 2008/05/30 17:32:58 veramach ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_MATCHING_UTILS_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_MATCHING_UTILS_PKG.';
21:
22: Procedure Initialize (
23: P_invoice_id IN NUMBER,
24: P_quick_po_id IN NUMBER DEFAULT NULL, --5386827
480:
481: BEGIN
482:
483: l_api_name := 'Match_Invoice_Line';
484: current_calling_sequence := 'AP_MATCHING_UTILS_PKG.Match_Invoice_Line <-'||p_calling_sequence;
485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Match_Invoice_Line(+)');
487: END IF;
488:
482:
483: l_api_name := 'Match_Invoice_Line';
484: current_calling_sequence := 'AP_MATCHING_UTILS_PKG.Match_Invoice_Line <-'||p_calling_sequence;
485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Match_Invoice_Line(+)');
487: END IF;
488:
489: l_debug_info := 'Open Cursor Invoice_Lines_Cur';
490: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1090: BEGIN
1091:
1092: l_api_name := 'AP_Upgrade_Po_Shipment';
1093: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Ap_Upgrade_Po_Shipment(+)');
1095: END IF;
1096:
1097:
1098: l_debug_info := 'Get Total Quantity/Amount Financed for this shipment across all invoices';
1219:
1220: END IF;
1221:
1222: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Ap_Upgrade_Po_Shipment(-)');
1224: END IF;
1225:
1226: EXCEPTION WHEN OTHERS THEN
1227: NULL;
1345: l_amount_recouped := 0;
1346: l_is_line_locked := 'UNLOCKED';
1347:
1348: l_api_name := 'AP_Recoup_Invoice_Line';
1349: l_curr_calling_sequence := 'AP_MATCHING_UTILS_PKG.AP_Recoup_Invoice_Line <-'||p_calling_sequence;
1350:
1351: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Ap_Recoup_Invoice_Line(+)');
1353: END IF;
1348: l_api_name := 'AP_Recoup_Invoice_Line';
1349: l_curr_calling_sequence := 'AP_MATCHING_UTILS_PKG.AP_Recoup_Invoice_Line <-'||p_calling_sequence;
1350:
1351: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Ap_Recoup_Invoice_Line(+)');
1353: END IF;
1354:
1355:
1356: OPEN C_INVOICE_INFO (P_INVOICE_ID);
1556:
1557: END IF;
1558:
1559: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1560: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_MATCHING_UTILS_PKG.Ap_Recoup_Invoice_Line(-)');
1561: END IF;
1562:
1563: RETURN(TRUE);
1564:
1796: l_current_calling_sequence VARCHAR2(2000);
1797:
1798: BEGIN
1799:
1800: l_current_calling_sequence := 'AP_Matching_Utils_Pkg.Match_To_Rcv_Shipment_Line <-' ||p_calling_sequence;
1801:
1802: l_debug_info := 'Get Invoice and Invoice Line info';
1803:
1804: SELECT ail.rcv_shipment_line_id,
1881: delivered_txn_qty => l_delivered_txn_qty,
1882: returned_txn_qty => l_returned_txn_qty,
1883: corrected_txn_qty => l_corrected_txn_qty);
1884:
1885: AP_MATCHING_UTILS_PKG.Get_Recpt_Dist_Qty_Billed (
1886: l_rcv_transaction_id,
1887: l_po_distribution_id,
1888: l_billed_txn_qty);
1889:
1945: p_po_distribution_id => l_po_distribution_id,
1946: x_delivered_amt => l_amount_delivered,
1947: x_corrected_amt => l_amount_corrected);
1948:
1949: AP_MATCHING_UTILS_PKG.Get_Recpt_Dist_Amt_Billed (
1950: l_rcv_transaction_id,
1951: l_po_distribution_id,
1952: l_amount_billed);
1953:
2024: l_total_match_quantity = 0 OR l_total_match_amount = 0);
2025:
2026: IF (l_matching_basis = 'QUANTITY') THEN
2027:
2028: AP_MATCHING_UTILS_PKG.Get_receipt_Quantities(
2029: l_rcv_transaction_id,
2030: l_ordered_qty,
2031: l_cancelled_qty,
2032: l_received_qty,
2288:
2289:
2290: BEGIN
2291:
2292: l_current_calling_sequence := 'AP_Matching_Utils_Pkg. Get_qty_amt <-' ;
2293: l_total_ordered_qty := 0;
2294: l_total_cancelled_qty := 0;
2295: l_total_billed_qty := 0;
2296: l_total_delivered_qty := 0;
2310: EXIT WHEN C_Rcv_Transactions%NOTFOUND;
2311:
2312: IF (l_matching_basis = 'QUANTITY') THEN
2313:
2314: AP_MATCHING_UTILS_PKG.Get_receipt_Quantities(
2315: l_rcv_transaction_id,
2316: l_ordered_qty,
2317: l_cancelled_qty,
2318: l_received_qty,
2402:
2403:
2404:
2405:
2406: END AP_MATCHING_UTILS_PKG;
2407: