/* Delete the ranged notes and drag the following up - Case 04-11-95 */

address OCTAMED_REXX
options results

'op_update off'
'rn_getrangestartline'; rnstartline = result
'rn_getrangeendline'; rnendline = result
length = rnendline - rnstartline	
length = length + 1
'ed_getcurrline'; currline = result
'ed_deletenote line' rnstartline 'delspace' length
'ed_goto line' rnstartline
'rn_cancelrange'
'op_update on'