6390: l_release_amount_rtot number;
6391: l_shipment_release_amount number;
6392: l_release_amount_remaining number;
6393:
6394: l_release_shipment_tab ap_retainage_release_pkg.release_shipments_tab;
6395:
6396: l_debug_info VARCHAR2(2000);
6397: current_calling_sequence VARCHAR2(2000);
6398: l_api_name VARCHAR2(50);
6439: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6441: END IF;
6442:
6443: ap_retainage_release_pkg.create_release
6444: (x_invoice_id => p_invoice_id,
6445: x_release_shipments_tab => l_release_shipment_tab);
6446:
6447: l_release_amount_rtot := l_release_amount_rtot - l_shipment_release_amount;