--Cursor definition
CURSOR c_street_hnr1
   IS
      SELECT ROWID, house_number_code, street_id, building_nr
        FROM alpha_building_no
       WHERE (building_nr LIKE '%#_%' ESCAPE '#')
          OR (building_nr LIKE '%/%')
          OR (building_nr LIKE '%-%');
OPEN c_street_hnr1;
   LOOP
      FETCH c_street_hnr1
       INTO v_str_rowid, v_hnr_sortcode, v_street_id, v_building_nr;
EXIT WHEN c_street_hnr1%NOTFOUND;
--Other codes
IF v_num_seq = '-'
      THEN
         IF INSTR (var_num_low, '$') = 0 AND INSTR (var_num_high, '$') = 0
         THEN
            DELETE FROM alpha_building_no
                  WHERE house_number_code = v_hnr_sortcode
                    AND street_id = v_street_id
                    AND DECODE
                           (INSTR
                               (TRANSLATE
                                   (Trim_Building_Nr_Parts.trim_building_nr_left
                                                                  (building_nr),
                                    'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
                                    '$$$$$$$$$$$$$$$$$$$$$$$$$$'
                                   ),
                                '$'
                               ),
                            0, NVL
                               (TO_NUMBER
                                   (Trim_Building_Nr_Parts.trim_building_nr_left
                                                                  (building_nr)
                                   ),
                                0
                               ),
                            -1
                           ) BETWEEN v_num_low_out AND v_num_high_out
                    AND DECODE
                           (INSTR
                               (TRANSLATE
                                   (Trim_Building_Nr_Parts.trim_building_nr_right
                                                                  (building_nr),
                                    'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
                                    '$$$$$$$$$$$$$$$$$$$$$$$$$$'
                                   ),
                                '$'
                               ),
                            0, NVL
                               (TO_NUMBER
                                   (Trim_Building_Nr_Parts.trim_building_nr_right
                                                                  (building_nr)
                                   ),
                                0
                               ),
                            -1
                           ) BETWEEN v_num_low_out AND v_num_high_out
                    AND ROWID <> v_str_rowid;
--rest of the code for other,conditions closing if,closing cursor etc comes here