DECLARE
   all_grp      recordgroup;
   status       NUMBER (3);
   fm_id        formmodule;
   rec_num      NUMBER (3);
   lst_rec      NUMBER (3);
   row_count    NUMBER (3);
   group_rec    NUMBER;
   cur_all_id   VARCHAR2 (15);
BEGIN
   all_grp  := Find_group ('all_lov');
   status   := Populate_group (all_grp);

   IF status = 0 THEN
      fm_id    := Find_form (:system.current_form);
      Set_form_property (fm_id, validation, property_false);
      Go_block ('pvt_all');
      rec_num  := To_number (:system.cursor_record);
      lst_rec  := To_number (:system.cursor_record);
      first_record;

      FOR row_count IN 1 .. lst_rec
      LOOP
         cur_all_id  := :pvt_all.all_id;
         group_rec   := Get_group_record_number ('all_lov.all_id', cur_all_id);

         IF group_rec > 0 THEN
            Delete_group_row (all_grp, group_rec);
         END IF;

         next_record;
      END LOOP;

      Go_record (rec_num);
   END IF;

   Set_form_property (fm_id, validation, property_true);
END;