API For Item On Hand Quantity

DECLARE
L_api_return_status VARCHAR2(1);
vn_qty_oh NUMBER;
vn_qty_res_oh NUMBER;
vn_qty_res NUMBER;
vn_qty_sug NUMBER;
vn_qty_att NUMBER;
vn_qty_atr NUMBER;
vn_msg_count NUMBER;
vv_msg_data VARCHAR2(1000);
BEGIN
apps.inv_quantity_tree_grp.clear_quantity_cache;
apps.INV_Quantity_Tree_PUB.Query_Quantities (
p_api_version_number => 1.0
, p_init_msg_lst => apps.fnd_api.g_false
, x_return_status => L_api_return_status
, x_msg_count => vn_msg_count
, x_msg_data => vv_msg_data
, p_organization_id => &organization_id
, p_inventory_item_id => &inventory_item_id
, p_tree_mode => apps.INV_Quantity_Tree_PUB.g_transaction_mode
, p_onhand_source => 3
, p_is_revision_control=> false
, p_is_lot_control => FALSE
, p_is_serial_control => FALSE
, p_revision => NULL
, p_lot_number => NULL
, p_subinventory_code => '&Subinventory_code'
, p_locator_id => NULL
, x_qoh => vn_qty_oh
, x_rqoh => vn_qty_res_oh
, x_qr => vn_qty_res
, x_qs => vn_qty_sug
, x_att => vn_qty_att
, x_atr => vn_qty_atr );

dbms_output.put_line('Quantity on hand :'||to_char(vn_qty_oh));
end;