LRUSET ;AVAMC/REG - RELEASE REPORTS ; 8/5/87  10:43 ;
 ;;5.2;LAB SERVICE;;Sep 27, 1994
 F A="ASPA","ACYA" F Y=0:0 S Y=$O(^LR(A,Y)) Q:Y=""  F LRAN=0:0 S LRAN=$O(^LR(A,Y,LRAN)) Q:LRAN=""  S LRDFN=$O(^(LRAN,0)),LRIDT=$O(^(LRDFN,0)),$P(^LR(LRDFN,$E(A,2,3),LRIDT,0),"^",11)=1
 Q