macro extract pain issue from case study of daily hikes

debug 100 Medit commands in file... F:\03\00029\02

markcur 9 Empty cut file purge CUT

Start in record of hiking, medications, vitals, diet top tl 0

-label strt

set zone for Date field

z 17 24 errorcnt 0 0 l /Date / -if @0 > 0 -goto end put date in cut file up 3 loc_cur 0 17

ul get 1st char of time field for spacer to join in cut rel_cur 0 7 lr copy

Look for target of study, e.g., Neck left side...

This field changes for each situation. l /Neck le/

Move cursor to extract Pain Level field
..
loc_cur 3 65 ul move cursor to end of line eol set command to capture line at the end lr copy the line into cut file copy enter cut file e CUT jump to bottom column 1 bot move cursor to line above which has date field and to column at end of string rel_cur -1 7 join line below to date field join erase extra char captured with date field for spacer ic 32 switch back to case study file ecur 9 move file back to standard position of 0 move cursor to standard position loc_cur 3 1 repeat cycle -goto strt


..
-label end

Extracted lines end in cut file, so use function keys to enter to target report file.

beep top purge c:\sd\33\052001