Oracle EBS INV 创建货位

create or replace PROCEDURE XX_CREATE_LOCATOR AS 

      -- Common Declarations
      l_api_version		   NUMBER      := 1.0; 
      x_return_status		 VARCHAR2(2);
      x_msg_count		     NUMBER      := 0;
      x_msg_data         VARCHAR2(255);
      
      -- WHO columns
      l_user_id		NUMBER := -1;
      l_resp_id		NUMBER := -1;
      l_application_id	NUMBER := -1;
      l_row_cnt		NUMBER := 1;
      l_user_name		VARCHAR2(30) := 'MFG';
      l_resp_name		VARCHAR2(50) := 'Manufacturing and Distribution Manager';   
      
      -- API specific declarations
      x_inventory_location_id       NUMBER := NULL;
      x_locator_exists		    VARCHAR2(1) := NULL;
      
BEGIN

    -- Get the user_id
    SELECT user_id
    INTO l_user_id
    FROM fnd_user
    WHERE user_name = l_user_name;
  
    -- Get the application_id and responsibility_id
    SELECT application_id, responsibility_id
    INTO l_application_id, l_resp_id
    FROM fnd_responsibility_vl
    WHERE responsibility_name = l_resp_name;
  
    FND_GLOBAL.APPS_INITIALIZE(l_user_id, l_resp_id, l_application_id);  
    dbms_output.put_line('Initialized applications context: '|| l_user_id || ' '|| l_resp_id ||' '|| l_application_id );
     
    -- call API to update material status
    DBMS_OUTPUT.PUT_LINE('=======================================================');
    DBMS_OUTPUT.PUT_LINE('Calling INV_LOC_WMS_PUB.CREATE_LOCATOR');        
   
      INV_LOC_WMS_PUB.CREATE_LOCATOR 
              ( x_return_status	   =>  x_return_status	 
              , x_msg_count		     =>  x_msg_count		 
              , x_msg_data		     =>  x_msg_data		 
              , x_inventory_location_id  =>  x_inventory_location_id
              , x_locator_exists	       =>  x_locator_exists	 
              , p_organization_id        =>  602
              , p_organization_code      =>  'P1'
              , p_concatenated_segments  =>  'A5.A5.A5..'
              , p_description            =>  'Locator from API'
              , p_inventory_location_type=>  3
              , p_picking_order          =>  NULL
              , p_location_maximum_units =>  NULL
              , p_SUBINVENTORY_CODE      =>  'SU_LOC_SUB'
              , p_LOCATION_WEIGHT_UOM_CODE =>   NULL  
              , p_mAX_WEIGHT               =>	  NULL  
              , p_vOLUME_UOM_CODE          =>	  NULL  
              , p_mAX_CUBIC_AREA           =>	  NULL  
              , p_x_COORDINATE             =>	  NULL  
              , p_Y_COORDINATE             =>	  NULL  
              , p_Z_COORDINATE             =>   NULL  
              , p_PHYSICAL_LOCATION_ID     =>   NULL    -- required when creating logical locators
              , p_PICK_UOM_CODE            =>   NULL  
              , p_DIMENSION_UOM_CODE       =>	  NULL  
              , p_LENGTH               => NULL   
              , p_WIDTH                => NULL     
              , p_HEIGHT               => NULL 
              , p_STATUS_ID            => 1 
              , p_dropping_order       => NULL 
              , p_attribute_category   => NULL 
              , p_attribute1   => NULL 
              , p_attribute2   => NULL 
              , p_attribute3   => NULL 
              , p_attribute4   => NULL 
              , p_attribute5   => NULL
              , p_attribute6   => NULL
              , p_attribute7   => NULL
              , p_attribute8   => NULL 
              , p_attribute9   => NULL 
              , p_attribute10  => NULL 
              , p_attribute11  => NULL 
              , p_attribute12  => NULL 
              , p_attribute13  => NULL 
              , p_attribute14  => NULL 
              , p_attribute15  => NULL 
              , p_alias  	 => NULL );
     
     DBMS_OUTPUT.PUT_LINE('=======================================================');
     DBMS_OUTPUT.PUT_LINE('Return Status: '||x_return_status);
     
     DBMS_OUTPUT.PUT_LINE('x_locator_exists: '||x_locator_exists||' x_inventory_location_id:'||x_inventory_location_id);

     IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
        DBMS_OUTPUT.PUT_LINE('Msg Count:'||x_msg_count||' Error Message :'||x_msg_data);
        
        IF ( x_msg_count > 1 ) THEN
            FOR i IN 1 .. x_msg_count LOOP
                x_msg_data := fnd_msg_pub.get ( p_msg_index => i , p_encoded =>FND_API.G_FALSE ) ;
                dbms_output.put_line ( 'message :' || x_msg_data);
            END LOOP;
        END IF;
     END IF;     
    DBMS_OUTPUT.PUT_LINE('=======================================================');
   
END XX_CREATE_LOCATOR;