LRAUFIX ;AVAMC/REG - RELEASE AUTOPSY REPORTS ;2/18/93  13:47 ;
 ;;5.2;LAB SERVICE;;Sep 27, 1994
 F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN  S Y=$P($G(^LR(LRDFN,"AU")),"^",3) S:Y $P(^("AU"),"^",15)=Y
 Q