Routine: LADJOB

Information

LADJOB ;SLC/DLG - JOB DIRECT CONNECTED AUTOMATED LAB ROUTINES ;6/25/90 13:46

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD
VA FileMan	2	^DIC YN^DICN
Automated Lab Instruments	1	SET^LAB
Lab Service	1	^LRPARAM

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Lab Instruments	1	LA DIR JOB

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	INST+4
^%ZTLOAD	JOB+1
^DIC	INST+1
YN^DICN	A+2, A+3
SET^LAB	A+4
^LRPARAM	A+1, JOB+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is an option to start/restart direct connected automated Lab routines. " Line Location: INST+0
Function Call: WRITE	Prompt: !,"NO JOB SELECTED",! Line Location: INST+1
Function Call: WRITE	Prompt: !!?7,$C(7),"CAN'T OPEN "_X_" DEVICE" Line Location: INST+4
Function Call: WRITE	Prompt: !!!,"System status will tell you if the direct connect routine is running.",!,"Look for the name of the routine ",$P(LRJOB,U,2)," in the system status.",!! Line Location: A+0
Function Call: WRITE	Prompt: !,"Is the routine name ",$P(LRJOB,U,2)," listed in the system status?" 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: !!,$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: !,"Check system status to see if job started." Line Location: JOB+1
Function Call: WRITE	Prompt: "." Line Location: JOB+2
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: !,?18,"DIRECT CONNECT AUTOINSTRUMENT INTERFACE STATUS",! 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: !! 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
Function Call: WRITE	Prompt: !,X Line Location: DASH+0
Routine Call	%ZIS Line Location: INST+4
Routine Call	DIC Line Location: INST+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	INST+5
^%ZOSF("SS"	A+1, JOB+2
^%ZOSF("SY"	A+1, JOB+2
^%ZOSF("VOL"	INST+5
^LA(	JOB, STA2
^LA("LOCK"	JOB+1!, STA2+1
^LAB(62.4 - [#62.4]	INST+2, INST+3, STATUS+4, STA2
^LAH(	STA2

Label References

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

Naked Globals

Name	Field # of Occurrence
^("SS"	JOB+2
^("SY"	A+1
^(0	INST+3, INST+5, STA2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Automated Lab Instruments