[Home] [Help]
92: procedure clean_inst_style_shts
93: is
94: cursor c1( start_id NUMBER ) is
95: select INST_STYLE_ID, rowid
96: from CSF_MD_INST_STYLE_SHTS
97: where INST_STYLE_ID >= start_id
98: order by INST_STYLE_ID;
99: r1 c1%ROWTYPE;
100:
115: exit;
116: end if;
117:
118: if ( min_start_id = r1.INST_STYLE_ID ) then
119: delete from CSF_MD_INST_STYLE_SHTS where rowid = r1.rowid;
120: else
121: min_start_id := r1.INST_STYLE_ID;
122: end if;
123: