HR Location api - hr_location_api.create_location

 /* Formatted on 10/6/2020 9:56:38 PM (QP5 v5.277) */

DECLARE

   l_location_id             NUMBER;

   l_object_version_number   NUMBER;

   CURSOR l_data

   IS

      SELECT location_id,

             LOCATION_CODE,

             description,

             ship_to_location_id,

             SHIP_TO_SITE_FLAG,

             RECEIVING_SITE_FLAG,

             BILL_TO_SITE_FLAG,

             IN_ORGANIZATION_FLAG,

             OFFICE_SITE_FLAG,

             DESIGNATED_RECEIVER_ID,

             INVENTORY_ORGANIZATION_ID,

             (SELECT organization_id

                FROM hr_organization_units

               WHERE name = org_name)

                org_id,

             org_name,

             STYLE,

             ADDRESS_LINE_1,

             ADDRESS_LINE_2,

             COUNTRY,

             TELEPHONE_NUMBER_1,

             attribute1,

             DERIVED_LOCALE,

             LEGAL_ADDRESS_FLAG,

             TIMEZONE_CODE

        FROM XX.XX_HR_LOCATIONS

       WHERE NEW_LOCATION_ID is null;

               

BEGIN

   FOR n_data IN l_data

   LOOP

   l_location_id := NULL;

   

      hr_location_api.create_location (

         p_effective_date              => SYSDATE,

         p_location_code               => n_data.location_code,

         p_description                 => n_data.description,

         p_inventory_organization_id   => n_data.org_id,

         p_address_line_1              => n_data.address_line_1,

         p_address_line_2              => n_data.address_line_2,

         p_country                     => n_data.country,

         p_telephone_number_1          => NULL,

       -- p_attribute_category => 'Global Data Elements',

         p_attribute1                  => '002',

         p_timezone_code               => n_data.timezone_code,

         p_style                       => n_data.style,

         p_location_id                 => l_location_id,

         p_object_version_number       => l_object_version_number);

IF l_location_id IS NOT NULL THEN

      UPDATE XX.XX_HR_LOCATIONS

         SET new_location_id = l_location_id

       WHERE location_id = n_data.location_id;

      COMMIT;

      

      END IF ;

   END LOOP;

END;