CREATE OR REPLACE PACKAGE hsm_wsh_del_util
IS
   TYPE del_record IS RECORD (delivery_id NUMBER);

   TYPE del_tbl IS TABLE OF del_record
                      INDEX BY BINARY_INTEGER;

   PROCEDURE do_query (p_del IN OUT del_tbl);
END hsm_wsh_del_util;

CREATE OR REPLACE PACKAGE BODY hsm_wsh_del_util
IS
   PROCEDURE do_query (p_del IN OUT del_tbl)
   IS
      idx   NUMBER := 1;

      CURSOR DELIVERY
      IS
         SELECT DELIVERY_ID FROM abc_deliveries;
   BEGIN
      FOR CUR IN DELIVERY
      LOOP
         p_del (idx).delivery_id := cur.delivery_id;
         idx := idx + 1;
      END LOOP;
   END do_query;
END hsm_wsh_del_util;