通过API删除库存货位

库存货位分配到错误的子库存下，导致无法再正常分配到其他的子库存。只能考虑调用标准API删除。

DECLARE
  l_msg_data              VARCHAR2(100);
  l_msg_count             NUMBER;
  l_return_status         VARCHAR2(1);
  l_locator_id            NUMBER;
  l_locator_exists        VARCHAR2(1);
  
BEGIN
  /* APPS_INITIALIZE required because indirectly use profile options */
  fnd_global.apps_initialize(1150, 50963, 401);

  fnd_profile.put('MFG_ORGANIZATION_ID', 90);

  fnd_msg_pub.initialize;
  
  inv_loc_wms_pub.delete_locator(x_return_status         => l_return_status,
                                 x_msg_count             => l_msg_count,
                                 x_msg_data              => l_msg_data,
                                 p_inventory_location_id => NULL,
                                 p_organization_id       => 90,
                                 p_organization_code     => 'T2S',
                                 p_concatenated_segments => 'WPH_001.1.T2S0003.0000.一等', 
                                 p_validation_req_flag   => 'Y');   

  COMMIT;

  dbms_output.put_line('Return Status ' || l_return_status);

  IF l_return_status IN ('E', 'U') THEN
    dbms_output.put_line('# of Errors ' || l_msg_count);

    IF l_msg_count = 1 THEN
      dbms_output.put_line('Error ' || l_msg_data);
    ELSE
      FOR i IN 1 .. l_msg_count LOOP
        dbms_output.put_line('Error ' || fnd_msg_pub.get(i, 'F'));
      END LOOP;
    END IF;
  ELSE
    dbms_output.put_line('Locator Id is ' || l_locator_id);
  END IF;

END;