LRUSET.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRUSET   278     printed  Nov 22, 2024@17:32:11                                                                                                                                                                                                       Page 2

LRUSET    ;AVAMC/REG - RELEASE REPORTS ; 8/5/87  10:43 ;

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

 +2        FOR A="ASPA","ACYA"

               FOR Y=0:0

                   SET Y=$ORDER(^LR(A,Y))

                   if Y=""

                       QUIT 

                   FOR LRAN=0:0

                       SET LRAN=$ORDER(^LR(A,Y,LRAN))

                       if LRAN=""

                           QUIT 

                       SET LRDFN=$ORDER(^(LRAN,0))

                       SET LRIDT=$ORDER(^(LRDFN,0))

                       SET $PIECE(^LR(LRDFN,$EXTRACT(A,2,3),LRIDT,0),"^",11)=1

 +3        QUIT