LRAUFIX.m

LRAUFIX ; IHS/DIR/FJE - RELEASE AUTOPSY REPORTS 2/18/93 13:47 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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

LRAUFIX   ; IHS/DIR/FJE - RELEASE AUTOPSY REPORTS 2/18/93 13:47 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        FOR LRDFN=0:0

               SET LRDFN=$ORDER(^LR(LRDFN))

               IF 'LRDFN

                   QUIT 

               SET Y=$PIECE($GET(^LR(LRDFN,"AU")),"^",3)

               IF Y

                   SET $PIECE(^("AU"),"^",15)=Y

 +5        QUIT