Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LAJOB

Package: Automated Lab Instruments

Routine: LAJOB


Information

LAJOB ;SLC/DCM - JOB AUTOMATED LAB ROUTINES ;4/27/89 09:41 ;

Source Information

Source file <LAJOB.m>

Entry Points

Name Comments DBIA/ICR reference
INST
LA3
LA2
A ;
A1
JOB
RONG
END
STATUS ;DISPLAY LSI STATUS.
STA2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is an option to manually start automated Lab routines that "
  • Line Location: INST+0
Function Call: WRITE
  • Prompt: !,"for some reason did not get started by the master lab program."
  • Line Location: INST+1
Function Call: WRITE
  • Prompt: !!,"Have you checked the status of the Lab computer (LSI)?"
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: !!,"Is the Lab computer working?"
  • Line Location: LA3+0
Function Call: WRITE
  • Prompt: !,"NO JOB SELECTED",!
  • Line Location: LA2+1
Function Call: WRITE
  • Prompt: !!?10,$C(7),"CAN NOT OPEN LAB PROGRAM DEVICE"
  • Line Location: LA2+3
Function Call: WRITE
  • Prompt: !!?10,$C(7),X_" DEVICE IS UNKNOWN"
  • Line Location: LA2+4
Function Call: WRITE
  • Prompt: !,"Is the automated instrument routine running?"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,"You do not want to start a job that is running!!",$C(7)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,"Do you want to start the automated ** { ",LRJOB," } ** routine now?"
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"There is no data in that file to be processed!!! JOB NOT STARTED!!!",$C(7)
  • Line Location: JOB+0
Function Call: WRITE
  • Prompt: !,"Re-check later to see if job is running."
  • Line Location: JOB+1
Function Call: WRITE
  • Prompt: !!,$C(7),"The job selected is not interfaced to this computer!",!
  • Line Location: RONG+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: LRDASH,!
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: LRDASH,!
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: LRDASH,!
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !,?6,"INST.",?18,"DATA",?25,"DATA",?34,"++ PROGRAM STATUS LINK +++",?67,"DEVICE"
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,?1," #",?6,"NAME",?18,"IN LA?",?25,"IN LAH?",?34,"NAME",?44,"ACTIVE",?52,"BY",?58,"TO",?67,"NAME"
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !,LRDASH,!
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !,?1,$J(IX,2),?6,$E($P(X,"^",1),1,10),?18,$S($D(^LA(IX,"I")):"Yes",1:"No"),?25,$S($D(^LAH(+$P(X,"^",4))):"Yes",1:"No")
  • Line Location: STA2+0
Function Call: WRITE
  • Prompt: ?34,$P(X,"^",3),?44,$S($D(^LA("LOCK",IX)):"Yes",1:"No"),?52,$E($P(X,"^",7),1,3),?58
  • Line Location: STA2+1
Function Call: WRITE
  • Prompt: $S(Y["LOG":"Acc.",Y["SEQN":"Seq.",Y["IDEN":"Invoice",Y["LLIST":"T/C",1:"")
  • Line Location: STA2+1
Function Call: WRITE
  • Prompt: !?10,"[UCI = "_$P(X,U)_" ]",?30,"[VOL SET = "_$P(X,U,2)_" ]"
  • Line Location: STA2+2
Function Call: WRITE
  • Prompt: ?50,"[VAX NODE = "_$P(X,U,3)_" ]"
  • Line Location: STA2+2
Function Call: WRITE
  • Prompt: ?50,"[VAX NODE = "_$P(X,U,3)_" ]"
  • Line Location: STA2+2
Info |  Source |  Entry Points |  Interaction Calls