- 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