LREV.m

LREV ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91  13:06 ;

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

R2 S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ" D ^DIC G END:Y<1 S LRTEST=+Y,LRDAN=0

R4 S LRDAN=$O(^LAB(60,LRTEST,1,LRDAN)) G R5:LRDAN<1

 S DIC="^LAB(60,"_LRTEST_",1,",DA=LRDAN,DR=0 D EN^DIQ G R4

R5 IF $D(^LAB(60,LRTEST,3,0)) S LRCS=$P(^(0),U,4),DIC="^LAB(60,"_LRTEST_",3,",DR="0:2" F LRJJ=1:1:LRCS S DA=LRJJ D EN^DIQ

 G R2

END K LRTEST,LRDAN,LRJJ,LRCS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LREV   455     printed  Apr 09, 2024@21:18:03                                                                                                                                                                                                         Page 2

LREV      ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91  13:06 ;

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

R2         SET U="^"

           SET DIC="^LAB(60,"

           SET DIC(0)="AEOQZ"

           DO ^DIC

           if Y<1

               GOTO END

           SET LRTEST=+Y

           SET LRDAN=0

R4         SET LRDAN=$ORDER(^LAB(60,LRTEST,1,LRDAN))

           if LRDAN<1

               GOTO R5

 +1        SET DIC="^LAB(60,"_LRTEST_",1,"

           SET DA=LRDAN

           SET DR=0

           DO EN^DIQ

           GOTO R4

R5         IF $DATA(^LAB(60,LRTEST,3,0))

               SET LRCS=$PIECE(^(0),U,4)

               SET DIC="^LAB(60,"_LRTEST_",3,"

               SET DR="0:2"

               FOR LRJJ=1:1:LRCS

                   SET DA=LRJJ

                   DO EN^DIQ

 +1        GOTO R2

END        KILL LRTEST,LRDAN,LRJJ,LRCS

 +1        QUIT