LRLLU.m

LRLLU ; IHS/DIR/FJE - LOAD LIST UTILITY 6/2/86 8:10 AM ;

 ;;5.2;LR;;NOV 01, 1997

 ;

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

ACC Q:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,0))  ;REMOVE ALL TESTS FROM LOAD LISTS

 S LRTEST=0 F  S LRTEST=$O(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST)) Q:LRTEST<1  D LRTEST:$P(^(LRTEST,0),U,3)

 Q

LRTEST S X=$S($D(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)):^(0),1:"") Q:X=""

 S T=+X,X=$P(X,U,3),L1=+$P(X,";",1),L2=+$P(X,";",2),L3=+$P(X,";",3)

 S X=$S($D(^LRO(68.2,L1,1,L2,1,L3,0)):^(0),1:"")

 I $P(X,U,1)=LRAA,$P(X,U,2)=LRAD,$P(X,U,3)=LRAN K ^LRO(68.2,L1,1,L2,1,L3)

 I $T!(X="") S $P(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0),U,3)=""

 K L1,L2,L3 Q

LRLLU     ; IHS/DIR/FJE - LOAD LIST UTILITY 6/2/86 8:10 AM ;

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

 +2       ;

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

ACC       ;REMOVE ALL TESTS FROM LOAD LISTS

           IF '$DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,0))

               QUIT 

 +1        SET LRTEST=0

           FOR 

               SET LRTEST=$ORDER(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST))

               IF LRTEST<1

                   QUIT 

               IF $PIECE(^(LRTEST,0),U,3)

                   DO LRTEST

 +2        QUIT 

LRTEST     SET X=$SELECT($DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)):^(0),1:"")

           IF X=""

               QUIT 

 +1        SET T=+X

           SET X=$PIECE(X,U,3)

           SET L1=+$PIECE(X,";",1)

           SET L2=+$PIECE(X,";",2)

           SET L3=+$PIECE(X,";",3)

 +2        SET X=$SELECT($DATA(^LRO(68.2,L1,1,L2,1,L3,0)):^(0),1:"")

 +3        IF $PIECE(X,U,1)=LRAA

               IF $PIECE(X,U,2)=LRAD

                   IF $PIECE(X,U,3)=LRAN

                       KILL ^LRO(68.2,L1,1,L2,1,L3)

 +4        IF $TEST!(X="")

               SET $PIECE(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0),U,3)=""

 +5        KILL L1,L2,L3

           QUIT