EBS INV 计算现有量(标准API)、保留量、可用量（三）:别人form中看到的
PROCEDURE get_att(p_sub_inv IN VARCHAR2,p_locator_id IN NUMBER,p_lot IN VARCHAR2,x_avi_qty OUT NUMBER,x_avi_qty2 OUT NUMBER)
IS
l_available_quantity NUMBER := NULL;
l_onhand_quantity NUMBER := NULL;
l_available_onhand NUMBER := NULL;
l_available_quantity2 NUMBER := NULL;
l_onhand_quantity2 NUMBER := NULL;
l_available_onhand2 NUMBER := NULL;
l_return_status VARCHAR2(1) := NULL;
l_message_data VARCHAR2(2000) := NULL;
l_message_count NUMBER := NULL;
l_ret NUMBER := NULL;
l_rev_ctl NUMBER;
l_lot_ctl NUMBER;
l_ser_ctl NUMBER;
BEGIN
SELECT msb.revision_qty_control_code,
msb.lot_control_code,
msb.serial_number_control_code
INTO l_rev_ctl,
l_lot_ctl,
l_ser_ctl
FROM mtl_system_items_b msb
WHERE msb.inventory_item_id = :gme_batch.inventory_item_id
AND msb.organization_id = :parameter.org_id;
l_ret := inv_quantity_tree_ue.create_tree( p_organization_id => :parameter.org_id
, p_inventory_item_id => :gme_batch.inventory_item_id
, p_revision_control => l_rev_ctl
, p_lot_control => l_lot_ctl
, p_serial_control => l_ser_ctl
, p_grade_code => NULL
, p_lot_active => 2
, p_demand_header_id => :gme_batch.batch_id
, p_demand_header_type => 5
, p_tree_mode => 2
, p_negative_inv_allowed => :parameter.neg_inv_rec_code
, p_demand_source_name => null
, p_demand_source_line_id => :gme_batch.material_detail_id
, x_available_quantity => l_available_quantity
, x_onhand_quantity => l_onhand_quantity
, x_available_quantity2 => l_available_quantity2
, x_onhand_quantity2 => l_onhand_quantity2
, x_return_status => l_return_status
, x_message_count => l_message_count
, x_message_data => l_message_data);
IF l_ret = 0 or l_return_status <> 'S' then
fnd_message.set_name('INV', 'INV_USER_EXIT_ERROR2');
fnd_message.show;
RAISE form_trigger_failure;
ELSE
/*
copy(l_available_quantity,'MTL_TRX_LINE.att');
copy(l_onhand_quantity,'MTL_TRX_LINE.qoh');
copy(l_available_quantity2,'MTL_TRX_LINE.satt'); -- invConv change
copy(l_onhand_quantity2,'MTL_TRX_LINE.sqoh'); -- invConv change
*/
null;
END IF;
l_ret := INV_QUANTITY_TREE_UE.query_tree( p_organization_id => :parameter.org_id
, p_inventory_item_id => :gme_batch.inventory_item_id
, p_revision_control => l_rev_ctl
, p_lot_control => l_lot_ctl
, p_serial_control => l_ser_ctl -- invConv change
, P_demand_header_id => :gme_batch.batch_id
, P_demand_header_type => 5
, P_revision => null
, P_subinventory => p_sub_inv
, P_locator => p_locator_id
, p_transfer_subinventory => null
, p_uom_code => name_in('gme_batch.PRIMARY_UOM_CODE')
, p_lot_active => 2
, p_lot => p_lot
, P_demand_source_name => null
, P_demand_source_line_id => :gme_batch.material_detail_id
, X_available_onhand => l_available_onhand
, X_available_quantity => l_available_quantity
, X_onhand_quantity => l_onhand_quantity
, X_available_onhand2 => l_available_onhand2
, X_available_quantity2 => l_available_quantity2
, X_onhand_quantity2 => l_onhand_quantity2
, X_return_status => l_return_status
, X_message_count => l_message_count
, X_message_data => l_message_data);
IF l_ret = 0 or l_return_status <> 'S' then
fnd_message.set_name('INV', 'INV_USER_EXIT_ERROR4');
fnd_message.show;
RAISE form_trigger_failure;
END IF;
--RETURN l_available_quantity;
x_avi_qty := l_available_quantity;
x_avi_qty2 := l_available_quantity2;
EXCEPTION
WHEN OTHERS THEN
--RETURN 0;
x_avi_qty := 0;
x_avi_qty2 := 0;
END;