| [613] | 1 | LASMAC4 ;SLC/RWF - SMAC RUN CONTROL FOR SMAC (LASMACA) ;7/20/90 10:10 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | D PICK
|
|---|
| 4 | LA2 D TSK I TSK<1!('$D(LWL)) W !," Auto Instrument file not setup right, OR already running!" Q
|
|---|
| 5 | 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
|
|---|
| 6 | I $S('$D(^LRO(68.2,LWL,2)):1,1:$P(^(2),U,1)'=DT) W !,$C(7)," LOAD LIST IS NOT CURRENT!" Q
|
|---|
| 7 | LA3 S IOP="HOME" D ^%ZIS K IOT,IOSL,IOBS
|
|---|
| 8 | D ASK^LA1103
|
|---|
| 9 | W @IOF,!,"START OF SMAC RUN"
|
|---|
| 10 | D TSK
|
|---|
| 11 | S T=TSK D SET^LAB
|
|---|
| 12 | D4 R !,"PRESS RETURN TO START PROCESSING",X:DTIME,! G D4:'$T
|
|---|
| 13 | 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)
|
|---|
| 14 | I '$D(^LA("STOP",TSK)) W !!,$C(7),"IS THE SMAC RUN FINISHED" S %=2 D YN^DICN G LA1:%'=1
|
|---|
| 15 | W !,$C(7),"Finished collecting SMAC data."
|
|---|
| 16 | ;W @IOF D MEAN^LACRIT
|
|---|
| 17 | W !!,"SMAC RUN OVER",@IOF
|
|---|
| 18 | K ^LA("STOP",TSK),LWL,TC,TV,LRMODE,^TMP($J),^TMP("LA",$J)
|
|---|
| 19 | END L
|
|---|
| 20 | Q
|
|---|
| 21 | EN ;
|
|---|
| 22 | HALT R !!,"DO YOU REALLY WANT TO STOP THE SMAC RUN? N//",X:DTIME G HALT:'$T Q:X'["Y"
|
|---|
| 23 | HA2 D PICK
|
|---|
| 24 | D TSK Q:TSK<1 S ^LA("STOP",TSK)=1 Q
|
|---|
| 25 | TSK S TSK=$O(^LAB(62.4,"C",LANM,0)) W:TSK<1 !,"NOT IN AUTO INSTRUMENT FILE."
|
|---|
| 26 | K ^LA("LOCK",TSK),LRTOP D ^LASET Q
|
|---|
| 27 | PICK S U="^",A=$O(^LAB(62.4,"C","LASMAC")),B=$O(^(A)),A=$P(A,"LASMAC",2),B=$P(B,"LASMAC",2)
|
|---|
| 28 | 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
|
|---|
| 29 | S LANM="LASMAC"_X Q
|
|---|
