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

LRZ3JOB.m

Go to the documentation of this file. 
  1. LRJOB ;SLC/DCM- JOB AUTOMATED LAB ROUTINES ; 8/22/88  11:48 ;6/22/88  4:39 PM
  1.  ;;V~3.051~
  1. INST S U="^" W !,"This is an option to manually start automated Lab routines that "
  1.  W !,"for some reason did not get started by the master lab program."
  1.  W !!,"Have you checked the status of the Lab computer (LSI)?" S %=1 D YN^DICN G LA2:%=1
  1. LA3 D ASK^LR1103 W !!,"Is the Lab computer working?" S %=1 D YN^DICN G LA3:%'=1
  1. LA2 W !,?5,"AUTOMATED INSTRUMENT",?35,"ROUTINE NAME",!,?5,"--------------------",?35,"------------"
  1.  F I=0:0 S I=$N(^LAB(62.4,I)) Q:I<1!(I>98)  W !,I,?5,$P(^LAB(62.4,I,0),U,1),?35,$P(^(0),U,3) W:$D(^LA(I)) ?45,"Has data." W:$D(^LA("LOCK",I)) ?55,"Running flag set."
  1.  S DIC=62.4,DIC(0)="AEMQ",DIC("S")="I Y<99" D ^DIC K DIC I Y<1 W !,"NO JOB SELECTED",! G END
  1.  S LRJOB="^"_$P(^LAB(62.4,+Y,0),U,3),LRJOBN=+Y
  1.  S DIC=3.5,DIC(0)="EM",X=$S(LRJOBN>10:$E(LRJOBN-1,1)_1,1:1),X=$P(^LAB(62.4,X,0),U,2) D ^DIC G RONG:Y<0,RONG:^%ZOSF("VOL")'=$P(^%ZIS(1,+Y,0),U,9)&($P(^(0),U,9)]"") ;AC/SFISC
  1. A W !!!,"System status will tell you if the automated routine is running."
  1.  W !,"Look for the name of the routine in the system status.",!
  1.  X ^LAB("X","%SS")
  1.  W !,"Is the routine name listed in the system status?" S %=2 D YN^DICN I %=1 W !,"You do not want to start a job that is running!!",*7 G END
  1.  W !,"Do you want to start the automated ",LRJOB," routine now?" S %=1 D YN^DICN G END:%'=1
  1.  I LRJOBN#10=1 S T=LRJOBN D SET^LAB
  1. JOB I '$D(^LA(LRJOBN,"I")) W !!,*7,"There is no data in that file to be processed!!!  JOB NOT STARTED!!!",*7 G END
  1.  K ^LA("LOCK",LRJOBN) S ZTRTN=LRJOB,ZTDTH=$H,ZTIO="" D ^%ZTLOAD K ZTSK,ZTRTN,LRJOB,ZTDTH W !,"Check system status to see if job started."
  1.  H 2 W "." H 2 X ^LAB("X","%SS")
  1. END K I,LRPGM,LRTIME,LRIO,Y,DIC,LRJOB,LRJOBN,% Q
  1. RONG W !!,*7,"The job selected is not interfaced to this computer!",! G END
  1.  ;*** NOTE***
  1.  ;PATCHES HAVE BEEN INSERTED INTO THIS ROUTINE IN ORDER TO RUN WITH KERNEL V6.
  1.  ;INSERTED BY AC/SFISC 10-30-88.  UNVERIFIED PATCHES.
  1.  ;Line> LA2+4
  1.  ;replace> $L($P(^%ZIS(1,+Y,0),U,9))
  1.  ;with> ^%ZOSF("VOL")'=$P(^%ZIS(1,+Y,0),U,9)&($P(^(0),U,9)]"")