136: procedure clean_land_uses
137: is
138: cursor c1( start_id NUMBER ) is
139: select LANDUSE_ID, rowid 140: from CSF_MD_LAND_USES 141: where LANDUSE_ID >= start_id
142: order by LANDUSE_ID;
143: r1 c1%ROWTYPE;
144:
Line 163: delete from CSF_MD_LAND_USES where rowid = r1.rowid;
159: exit;
160: end if;
161:
162: if ( min_start_id = r1.LANDUSE_ID ) then 163: delete from CSF_MD_LAND_USES where rowid = r1.rowid; 164: else
165: min_start_id := r1.LANDUSE_ID;
166: end if;
167: