EBS学习笔记 wsh_deliveries_grp.create_update_delivery 使用

--get order line organization_id   <span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;">ior_ss_rec  是之前用到的stag2表的结构  </span><span style="font-size: 12px; font-family: Arial, Helvetica, sans-serif;"> </span>
    BEGIN
      SELECT ool.ship_from_org_id
        INTO ln_organization_id
        FROM oe_order_lines_all ool
       WHERE ool.header_id = ior_ss_rec.oe_header_id
         AND ool.line_number = ior_ss_rec.oe_line_number
         AND rownum = 1;
    EXCEPTION
      WHEN OTHERS THEN
        lv_error_status := cv_status_error;
        lv_retcode      := xxfnd_common_pkg.set_status_error_f;
        lv_errmsg       := cv_prg_name || ':' || xxfnd_message_pkg.get_msg(cv_appl_xxwa, 'APP-XXWE-M00831');
        RAISE global_process_expt;
    END;
    --validate organization and get org location
    BEGIN
      SELECT hou.location_id INTO ln_from_locat