Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LASMAC4

LASMAC4.m

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