Magic Find Replace for Meditech

DO{L(/ASTMP,"*")^POS < L(/ASTMP) /ASTMP$POS_(/ASTMP%POS)^/ASTMP}