LRUMDU1.m

LRUMDU1 ; IHS/DIR/FJE - MD SELECTED TEST UTILITY 13:01 ; [ 2/18/93 ]

 ;;5.2;LR;;NOV 01, 1997

 ;

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

 D K^LRU K XY,LRCAPA,LRSF,LRWHO,LRQ,LRH,LRPARAM S ZTRTN="QUE^LRUMDU1" W ! D BEG^LRUTL G:POP!($D(ZTSK)) END

QUE U IO K LR("F") D S^LRU,F,END^LRUTL,END Q

 D END^LRUTL,END Q

F D H S LR("F")=1 F A=0:0 S A=$O(^LRO(69.2,LRAA,7,DUZ,60,A)) Q:'A  F B=0:0 S B=$O(^LRO(69.2,LRAA,7,DUZ,60,A,1,B)) Q:'B  S C=^(B,0),N(A,B)=$P(^LAB(60,C,.1),"^"),L(A,B)=$P($P(^(0),U,5),";",2)

 S A=0 F C=0:1 S A=$O(N(A)) Q:'A  D:$Y>(IOSL-5) H Q:LR("Q")  D Z W !,"Test list#: ",$J(A,2),?17,"|" F B=0:0 S B=$O(N(A,B)) Q:'B  W ?10+(B*8),N(A,B),$E("       ",1,7-$L(N(A,B))),"|"

 D:C&('LR("Q")) Z Q

 ;

Z W !,"-----------------|-------|-------|-------|-------|-------|-------|-------|" Q

 ;

H I $D(LR("F")),IOST?1"C".E D M^LRU Q:LR("Q")

 D F^LRU W !,"Test list for ",$P(^VA(200,DUZ,0),U),!?6,"Test order#:",?21,1,?29,2,?37,3,?45,4,?53,5,?61,6,?69,7 Q

 ;

END D V^LRU Q

LRUMDU1   ; IHS/DIR/FJE - MD SELECTED TEST UTILITY 13:01 ; [ 2/18/93 ]

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

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

 +4        DO K^LRU

           KILL XY,LRCAPA,LRSF,LRWHO,LRQ,LRH,LRPARAM

           SET ZTRTN="QUE^LRUMDU1"

           WRITE !

           DO BEG^LRUTL

           IF POP!($DATA(ZTSK))

               GOTO END

QUE        USE IO

           KILL LR("F")

           DO S^LRU

           DO F

           DO END^LRUTL

           DO END

           QUIT 

 +1        DO END^LRUTL

           DO END

           QUIT 

F          DO H

           SET LR("F")=1

           FOR A=0:0

               SET A=$ORDER(^LRO(69.2,LRAA,7,DUZ,60,A))

               IF 'A

                   QUIT 

               FOR B=0:0

                   SET B=$ORDER(^LRO(69.2,LRAA,7,DUZ,60,A,1,B))

                   IF 'B

                       QUIT 

                   SET C=^(B,0)

                   SET N(A,B)=$PIECE(^LAB(60,C,.1),"^")

                   SET L(A,B)=$PIECE($PIECE(^(0),U,5),";",2)

 +1        SET A=0

           FOR C=0:1

               SET A=$ORDER(N(A))

               IF 'A

                   QUIT 

               IF $Y>(IOSL-5)

                   DO H

               IF LR("Q")

                   QUIT 

               DO Z

               WRITE !,"Test list#: ",$JUSTIFY(A,2),?17,"|"

               FOR B=0:0

                   SET B=$ORDER(N(A,B))

                   IF 'B

                       QUIT 

                   WRITE ?10+(B*8),N(A,B),$EXTRACT("       ",1,7-$LENGTH(N(A,B))),"|"

 +2        IF C&('LR("Q"))

               DO Z

           QUIT 

 +3       ;

Z          WRITE !,"-----------------|-------|-------|-------|-------|-------|-------|-------|"

           QUIT 

 +1       ;

H          IF $DATA(LR("F"))

               IF IOST?1"C".E

                   DO M^LRU

                   IF LR("Q")

                       QUIT 

 +1        DO F^LRU

           WRITE !,"Test list for ",$PIECE(^VA(200,DUZ,0),U),!?6,"Test order#:",?21,1,?29,2,?37,3,?45,4,?53,5,?61,6,?69,7

           QUIT 

 +2       ;

END        DO V^LRU

           QUIT