Routine: LRJOB

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

Package	Total	Caller Graph
Lab Service	1	LRJOB

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LA2+4
^%ZTLOAD	JOB+1
^DIC	LA2+1
YN^DICN	INST+2, LA3, A+2, A+3
SET^LAB	A+4
ASK^LR1103	LA3
EN1^LRSTATUS	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: !,"NO JOB SELECTED",! Line Location: LA2+1
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!!",*7 Line Location: A+2
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: !,"Re-check later to see if job is running." Line Location: JOB+1
Function Call: WRITE	Prompt: !!,*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: ?67,$E($P(X,"^",2),1,10) 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, END!
>> %ZIS	LA2+4*
DIC	LA2+1*!, END!
DIC("S"	LA2+1*
DIC(0	LA2+1*
I	END!
>> IOP	LA2+4*
>> IOS	LA2+4
IX	STATUS+4*, STATUS+5!, STA2, STA2+1
>> LAB	A+1*
LRDASH	INST*, END!, STATUS+1, STATUS+4
LREND	A+1*, END!
LRIO	END!
LRJOB	LA2+2*, A+3, JOB+1, END!
LRJOBIO	LA2+3*, A+4, END!
LRJOBN	LA2+2*, LA2+3, A+4, JOB, JOB+1, END!
LRPGM	END!
LRTIME	END!
>> POP	LA2+4
>> T	A+4*
>> TOT	A+1*
U	INST*, LA2+2, LA2+3, LA2+4
>> X	LA2+3, LA2+4, STA2, STA2+1, STA2+2
Y	LA2+1, LA2+2, END!, STA2+1*
ZTDTH	JOB+1*!
>> ZTIO	LA2+2, LA2+4, A+4, JOB+1
ZTRTN	JOB+1*!
ZTSK	JOB+1!

Customize PDF page

Package: Lab Service

Routine: LRJOB

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)
^%ZIS(1 - [#3.5]	LA2+4
^%ZOSF("VOL"	LA2+4
^LA(	JOB, STA2
^LA("LOCK"	JOB+1!, STA2+1
^LAB(62.4 - [#62.4]	LA2+2, LA2+3, STATUS+4, STA2
^LAH(	STA2

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