Routine: LAJOB

Package	Total	Call Graph
Automated Lab Instruments	3	ASK^LA1103 SET^LAB EN1^LASTATUS
Kernel	2	^%ZIS ^%ZTLOAD
VA Fileman	2	^DIC YN^DICN

Package	Total	Caller Graph
Automated Lab Instruments	1	LA JOB

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LA2+4
^%ZTLOAD	JOB+1
^DIC	LA2+1
YN^DICN	INST+2, LA3, A+2, A1
ASK^LA1103	LA3
SET^LAB	A1+1
EN1^LASTATUS	A+1

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
Routine Call	DIC Line Location: LA2+1
Routine Call	%ZIS Line Location: LA2+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INST+2, LA3, A+2, A+3, A1, END!
>> %ZIS	LA2+4*
DIC	LA2+1*!, END!
DIC("S"	LA2+1*
DIC(0	LA2+1*
I	END!
>> IOP	LA2+4*
IX	STATUS+4*, STATUS+5!, STA2, STA2+1, STA2+2
>> LAB	A+1*
LRDASH	INST*, END!, STATUS+1, STATUS+4
LREND	A+1*, END!
LRIO	END!
LRJOB	LA2+2*, A1, JOB+1, END!
LRJOBIO	LA2+3*, A1+1, END!
LRJOBN	LA2+2*, LA2+3, A1+1, JOB, JOB+1, END!
LRPGM	END!
LRTIME	END!
>> POP	LA2+4
>> T	A1+1*
>> TOT	A+1*
U	INST*, LA2+2, LA2+3, STA2+2
>> X	LA2+3, LA2+4, STA2, STA2+1, STA2+2*
Y	LA2+1, LA2+2, END!, STA2+1*
ZTDTH	JOB+1*!
>> ZTIO	LA2+2, A1+1, JOB+1*
ZTRTN	JOB+1*!
ZTSK	JOB+1!

Customize PDF page

Package: Automated Lab Instruments

Routine: LAJOB

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^LA(	JOB, STA2, STA2+2
^LA("LOCK"	JOB+1!, STA2+1
^LAB(62.4 - [#62.4]	LA2+2, LA2+3, STATUS+4, STA2
^LAH(	STA2

Name	Line Occurrences
@(	INST+2, LA3, A+3
A1	A1
END	LA2+1, LA2+3, LA2+4, A+2, A1, JOB, JOB+1
STA2	STATUS+4
STATUS	LA2

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