LASMAC4.m

LASMAC4 ; IHS/DIR/FJE - SMAC RUN CONTROL FOR SMAC (LASMACA) 7/20/90 10:10 ;

 ;;5.2;LA;;NOV 01, 1997

 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994

 D PICK

LA2 D TSK I TSK<1!('$D(LWL)) W !," Auto Instrument file not setup right, OR already running!" Q

 G LA3:LAGEN'["LWLIST" W !!,$C(7),"Have you BUILT the LOAD LIST? N//" R X:DTIME Q:'$T  I "Nn"[X D ^LRLL G LASMAC4

 I $S('$D(^LRO(68.2,LWL,2)):1,1:$P(^(2),U,1)'=DT) W !,$C(7)," LOAD LIST IS NOT CURRENT!" Q

LA3 S IOP="HOME" D ^%ZIS K IOT,IOSL,IOBS

 D ASK^LA1103

 W @IOF,!,"START OF SMAC RUN"

 D TSK

 S T=TSK D SET^LAB

D4 R !,"PRESS RETURN TO START PROCESSING",X:DTIME,! G D4:'$T

LA1 K ^LA("LOCK",TSK),^LA("STOP",TSK) S ^LRO(68.2,LWL,8,0)="",LRMODE=1 D @("^"_LANM) O IO(0) U IO(0)

 I '$D(^LA("STOP",TSK)) W !!,$C(7),"IS THE SMAC RUN FINISHED" S %=2 D YN^DICN G LA1:%'=1

 W !,$C(7),"Finished collecting SMAC data."

 ;W @IOF D MEAN^LACRIT

 W !!,"SMAC RUN OVER",@IOF

 K ^LA("STOP",TSK),LWL,TC,TV,LRMODE,^TMP($J),^TMP("LA",$J)

END L

 Q

EN ;

HALT R !!,"DO YOU REALLY WANT TO STOP THE SMAC RUN? N//",X:DTIME G HALT:'$T Q:X'["Y"

HA2 D PICK

 D TSK Q:TSK<1  S ^LA("STOP",TSK)=1 Q

TSK S TSK=$O(^LAB(62.4,"C",LANM,0)) W:TSK<1 !,"NOT IN AUTO INSTRUMENT FILE."

 K ^LA("LOCK",TSK),LRTOP D ^LASET Q

PICK S U="^",A=$O(^LAB(62.4,"C","LASMAC")),B=$O(^(A)),A=$P(A,"LASMAC",2),B=$P(B,"LASMAC",2)

PC2 S X=A I $L(B) W !,"SMAC '",A,"' OR '",B,"': " R X:DTIME G PC2:'$T Q:X[U  S:X="" X=" " S X=$E(X,1) G PC2:A_B'[X

 S LANM="LASMAC"_X Q

LASMAC4   ; IHS/DIR/FJE - SMAC RUN CONTROL FOR SMAC (LASMACA) 7/20/90 10:10 ;

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

 +2       ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994

 +3        DO PICK

LA2        DO TSK

           IF TSK<1!('$DATA(LWL))

               WRITE !," Auto Instrument file not setup right, OR already running!"

               QUIT 

 +1        IF LAGEN'["LWLIST"

               GOTO LA3

           WRITE !!,$CHAR(7),"Have you BUILT the LOAD LIST? N//"

           READ X:DTIME

           IF '$TEST

               QUIT 

           IF "Nn"[X

               DO ^LRLL

               GOTO LASMAC4

 +2        IF $SELECT('$DATA(^LRO(68.2,LWL,2)):1,1:$PIECE(^(2),U,1)'=DT)

               WRITE !,$CHAR(7)," LOAD LIST IS NOT CURRENT!"

               QUIT 

LA3        SET IOP="HOME"

           DO ^%ZIS

           KILL IOT,IOSL,IOBS

 +1        DO ASK^LA1103

 +2        WRITE @IOF,!,"START OF SMAC RUN"

 +3        DO TSK

 +4        SET T=TSK

           DO SET^LAB

D4         READ !,"PRESS RETURN TO START PROCESSING",X:DTIME,!

           IF '$TEST

               GOTO D4

LA1        KILL ^LA("LOCK",TSK),^LA("STOP",TSK)

           SET ^LRO(68.2,LWL,8,0)=""

           SET LRMODE=1

           DO @("^"_LANM)

           OPEN IO(0)

           USE IO(0)

 +1        IF '$DATA(^LA("STOP",TSK))

               WRITE !!,$CHAR(7),"IS THE SMAC RUN FINISHED"

               SET %=2

               DO YN^DICN

               IF %'=1

                   GOTO LA1

 +2        WRITE !,$CHAR(7),"Finished collecting SMAC data."

 +3       ;W @IOF D MEAN^LACRIT

 +4        WRITE !!,"SMAC RUN OVER",@IOF

 +5        KILL ^LA("STOP",TSK),LWL,TC,TV,LRMODE,^TMP($JOB),^TMP("LA",$JOB)

END        LOCK 

 +1        QUIT 

EN        ;

HALT       READ !!,"DO YOU REALLY WANT TO STOP THE SMAC RUN? N//",X:DTIME

           IF '$TEST

               GOTO HALT

           IF X'["Y"

               QUIT 

HA2        DO PICK

 +1        DO TSK

           IF TSK<1

               QUIT 

           SET ^LA("STOP",TSK)=1

           QUIT 

TSK        SET TSK=$ORDER(^LAB(62.4,"C",LANM,0))

           IF TSK<1

               WRITE !,"NOT IN AUTO INSTRUMENT FILE."

 +1        KILL ^LA("LOCK",TSK),LRTOP

           DO ^LASET

           QUIT 

PICK       SET U="^"

           SET A=$ORDER(^LAB(62.4,"C","LASMAC"))

           SET B=$ORDER(^(A))

           SET A=$PIECE(A,"LASMAC",2)

           SET B=$PIECE(B,"LASMAC",2)

PC2        SET X=A

           IF $LENGTH(B)

               WRITE !,"SMAC '",A,"' OR '",B,"': "

               READ X:DTIME

               IF '$TEST

                   GOTO PC2

               IF X[U

                   QUIT 

               IF X=""

                   SET X=" "

               SET X=$EXTRACT(X,1)

               IF A_B'[X

                   GOTO PC2

 +1        SET LANM="LASMAC"_X

           QUIT