Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRZ3JOB

Package: Lab Service

Routine: LRZ3JOB


Information

LRJOB ;SLC/DCM- JOB AUTOMATED LAB ROUTINES ; 8/22/88 11:48 ;6/22/88 4:39 PM

Source Information

Source file <LRZ3JOB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  
Automated Lab Instruments 1 SET^LAB  
Kernel 1 ^%ZTLOAD  
Lab Service 1 ASK^LR1103  

Entry Points

Name Comments DBIA/ICR reference
A
END
RONG
JOB
INST
LA2
LA3

External References

Name Field # of Occurrence
^%ZTLOAD JOB+1
^DIC LA2+2, LA2+4
YN^DICN INST+2, LA3, A+3, A+4
SET^LAB A+5
ASK^LR1103 LA3

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: !,?5,"AUTOMATED INSTRUMENT",?35,"ROUTINE NAME",!,?5,"--------------------",?35,"------------"
  • Line Location: LA2+0
Function Call: WRITE
  • Prompt: !,I,?5,$P(^LAB(62.4,I,0),U,1),?35,$P(^(0),U,3)
  • Line Location: LA2+1
Function Call: WRITE
  • Prompt: ?45,"Has data."
  • Condition for execution: $D(^LA(I))
  • Line Location: LA2+1
Function Call: WRITE
  • Prompt: ?55,"Running flag set."
  • Condition for execution: $D(^LA("LOCK",I))
  • Line Location: LA2+1
Function Call: WRITE
  • Prompt: !,"NO JOB SELECTED",!
  • Line Location: LA2+2
Function Call: WRITE
  • Prompt: !!!,"System status will tell you if the automated routine is running."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Look for the name of the routine in the system status.",!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"Is the routine name listed in the system status?"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !,"You do not want to start a job that is running!!",*7
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!,*7,"There is no data in that file to be processed!!! JOB NOT STARTED!!!",*7
  • Line Location: JOB+0
Function Call: WRITE
  • Prompt: !,"Check system status to see if job started."
  • Line Location: JOB+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: JOB+2
Function Call: WRITE
  • Prompt: !!,*7,"The job selected is not interfaced to this computer!",!
  • Line Location: RONG+0
Routine Call
  • DIC
  • Line Location:
    • LA2+2
    • LA2+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] LA2+4
^%ZOSF("VOL" LA2+4
^LA( LA2+1, JOB
^LA("LOCK" LA2+1, JOB+1!
^LAB("X" A+2, JOB+2
^LAB(62.4 - [#62.4] LA2+1, LA2+3, LA2+4

Label References

Name Line Occurrences
END LA2+2, A+3, A+4, JOB, RONG
LA2 INST+2
LA3 LA3
RONG LA2+4

Naked Globals

Name Field # of Occurrence
^(0 LA2+1, LA2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INST+2*, LA3*, A+3*, A+4*, END!
DIC LA2+2*!, LA2+4*, END!
DIC("S" LA2+2*
DIC(0 LA2+2*, LA2+4*
I LA2+1*, END!
LRIO END!
LRJOB LA2+3*, A+4, JOB+1!, END!
LRJOBN LA2+3*, LA2+4, A+5, JOB, JOB+1, END!
LRPGM END!
LRTIME END!
>> T A+5*
U INST*, LA2+1, LA2+3, LA2+4
>> X LA2+4*
Y LA2+2, LA2+3, LA2+4, END!
ZTDTH JOB+1*!
>> ZTIO JOB+1*
ZTRTN JOB+1*!
ZTSK JOB+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All