SELECT p.zvp.fsoh INTO v_file_soh
    FROM
   (SELECT z_validation_package.Z_MATCH_OR_UPDATE(r.rid, r.rno) zvp FROM dual) p;


    CREATE OR REPLACE TYPE m_u_type AS object(
    fsoh NUMBER,
    tsoh NUMBER,
    m_or_u NUMBER
);



    FUNCTION Z_MATCH_OR_UPDATE (p_file_id IN NUMBER, p_line_no IN NUMBER)
    RETURN m_u_type IS
    V_TABLE_SOH NUMBER;
    v_item VARCHAR2(20);
    v_store VARCHAR2(20);
    v_fsoh NUMBER;
    v_tsoh NUMBER;
    v_mu NUMBER;

    BEGIN

        SELECT
        eda.da.line_item INTO v_item
        FROM
        (SELECT Z_CHECK_DATA_ERROR(p_file_id ,p_line_no)  da FROM dual) eda;

        SELECT
        eda.da.line_store INTO v_store
        FROM
        (SELECT Z_CHECK_DATA_ERROR(p_file_id ,p_line_no)  da FROM dual) eda;

        SELECT
        eda.da.line_soh INTO v_fsoh
        FROM
        (SELECT Z_CHECK_DATA_ERROR(p_file_id ,p_line_no)  da FROM dual) eda;

        SELECT stock_on_hand INTO v_tsoh
        FROM Z_ITEM_LOC_SOH
        WHERE item = v_item
        AND loc = v_store;

        IF v_tsoh = v_fsoh  --match
            THEN v_mu := 1;
        ELSE   --update
            v_mu := 0;
        END IF;

        RETURN m_u_type(v_fsoh, v_tsoh, v_mu);
    END;