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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LADJOB

Package: Automated Lab Instruments

Routine: LADJOB


Information

LADJOB ; IHS/DIR/FJE - JOB DIRECT CONNECTED AUTOMATED LAB ROUTINES 13:46 ; [ 6/25/90 ]

Source Information

Source file <LADJOB.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA DIR JOB  

Entry Points

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

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

Global Variables Directly Accessed

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All