EBS获取物料现有量API

创建存储过程调用标准API获取现有量

PROCEDURE get_inv_quantity(p_organization_id   IN NUMBER,
                             p_inventory_item_id IN NUMBER,
                             p_subinventory_code IN VARCHAR2,
                             p_locator_id        IN NUMBER,
                             p_lot_number        IN VARCHAR2,
                             x_onhand_qty        OUT NUMBER,
                             x_reservable_qty    OUT NUMBER,
                             x_transactable_qty  OUT NUMBER) AS
    l_return_status     VARCHAR2(1);
    l_msg_count         NUMBER;
    l_msg_data          VARCHAR2(2000);
    l_is_lot_control    BOOLEAN := TRUE;
    l_is_serial_control BOOLEAN := FALSE;
    p_revision          VARCHAR2(100);
    l_qoh               NUMBER;
    l_rqoh              NUMBER;
    l_qr                NUMBER;
    l_qs                NUMBER;
    l_att               NUMBER;
    l_atr               NUMBER;
  BEGIN
    IF p_lot_number IS NULL THEN