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: LAMIAUT0

Package: Automated Lab Instruments

Routine: LAMIAUT0


Information

LAMIAUT0 ; IHS/DIR/FJE - MICRO AUTO INSTRUMENT PROGRAM VITEK ; 18-NOV-2013 10:40 ; MKK

Source Information

Source file <LAMIAUT0.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Changes To Lab 3 PRESSKEY^BLRGMENU  EP^BLRMIAUT  $$ISPIMS^BLRUTIL  
Lab Service 3 AUTO^LRCAPV  ^LRPARAM  DATE^LRWU  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Automated Lab Instruments 1 ^LAMIAUT1  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA MI VERIFY AUTO  

Entry Points

Name Comments DBIA/ICR reference
ACC ;
EN ;
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1033
OK
SHOW ;
LRANX ;
ACCESS
LST ;
CLEAN ;
DATE ;
WAIT

External References

Name Field # of Occurrence
PRESSKEY^BLRGMENU EN+9
EP^BLRMIAUT EN+11
$$ISPIMS^BLRUTIL CLEAN+5
^DIC EN+15, ACCESS+3, ACC+1
YN^DICN OK, LST+1
^DIR EN+6
^LAMIAUT1 OK+1
AUTO^LRCAPV ACCESS+7
^LRPARAM EN+14
DATE^LRWU ACCESS+2, DATE+5
^XBFMK EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,?4,"Invalid/No/Quit Entry. Routine Ends."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!?10,"ACCESS IS DENIED ",$C(7)
  • Line Location: ACCESS+0
Function Call: WRITE
  • Prompt: $C(7),!!!,?10,"No Load List For "_$P(Y,U,2),!
  • Line Location: ACCESS+3
Function Call: WRITE
  • Prompt: !!,$C(7),$P(Y(0),U)," Has no data TRY LATER "
  • Line Location: ACCESS+4
Function Call: WRITE
  • Prompt: !!?10,"End of Data",!!,$C(7)
  • Line Location: ACCESS+9
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LRANX+1
Function Call: WRITE
  • Prompt: !!," Enter number Part of Accession "_LRAN_" // "
  • Line Location: LRANX+1
Function Call: WRITE
  • Prompt: !?7,"RETRANSMIT THE FILE",!
  • Line Location: LRANX+2
Function Call: WRITE
  • Prompt: !?7,"NO DATA FOR THIS NUMBER",!
  • Line Location: LRANX+3
Function Call: WRITE
  • Prompt: !!,$C(7)," THERE ARE NO ACCESSIONS FOR THIS DATE "
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !?7,"Not accessioned -- Would you like a list "
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: " NOT ACCESSIONED "
  • Line Location: SHOW+1
Function Call: READ
  • Prompt: " PRESS RETURN FOR MORE "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+0
Routine Call
  • DIC
  • Line Location:
    • EN+15
    • ACCESS+3
    • ACC+1
Routine Call
  • DIR
  • Line Location:
    • EN+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.31 EN+14
^DIC(19.1 - [#19.1] ACCESS
^LAB(69.9 - [#69.9] EN+14, ACCESS+6
^LAH( ACCESS+4, ACCESS+8, ACCESS+9, LRANX+1, LRANX+2, LRANX+3!, LRANX+4, DATE+2, OK+1, SHOW+1
^LRO(68 - [#68] LRANX+4, DATE+1, DATE+2, DATE+7, OK, SHOW+1
^VA(200 - [#200] EN+14
^XUSEC( ACCESS

Label References

Name Line Occurrences
@( CLEAN+5
ACC LRANX+4
CLEAN EN+14, EN+15, ACCESS, ACCESS+2, ACCESS+3, ACCESS+4, ACCESS+7
LRANX ACCESS+8, LRANX+1
LST LRANX+1
OK DATE+2
SHOW OK
WAIT SHOW+1

Naked Globals

Name Field # of Occurrence
^(0 EN+14, LRANX+4, DATE+1, DATE+2, OK+1
^(1 EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLEAN+8!, OK*, LST+1*
%DT ACCESS+2*, CLEAN+8!, DATE+5*
%DT("A" ACCESS+2*, DATE+5*
%DT("B" ACCESS+2*, DATE+5*
%X CLEAN+8!
%Y CLEAN+8!
A CLEAN+7!, CLEAN+8!, SHOW+1*
AA CLEAN+9!
AGE CLEAN+8!
B CLEAN+8!
B1 CLEAN+8!
B2 CLEAN+8!
B3 CLEAN+8!
DA CLEAN+8!
DD CLEAN+7!
DFN CLEAN+8!
DIC EN+15!*, ACCESS+3!*, CLEAN+8!, ACC+1!*
DIC("A" ACCESS+3*
DIC("B" ACC+1*
DIC("S" EN+15*, ACCESS+3*, ACC+1*
DIC(0 EN+15*, ACCESS+3*, ACC+1*
DIE CLEAN+8!
>> DIR("A" EN+5*
>> DIR(0 EN+4*
>> DIRUT EN+7
DOB CLEAN+8!
DR CLEAN+8!
DT ACCESS+2, DATE+5
DTIME LRANX+1, WAIT
DUZ EN+14, ACCESS
GLB CLEAN+7!
HRCN CLEAN+12!
I CLEAN+8!
II CLEAN+8!
IOF WAIT
IOSL SHOW+1
IR CLEAN+9!
IX CLEAN+9!
IXI CLEAN+9!
J CLEAN+8!
K CLEAN+8!
LACAPMS CLEAN+7!
LAMIAUTO EN+15*, CLEAN+2!
LAYGO CLEAN+7!
LR1PASS CLEAN+8!
LR2ORMOR CLEAN+8!
LRAA ACCESS+7*, CLEAN+8!, LRANX+2!, LRANX+4*, DATE+1, DATE+2, DATE+7, OK, ACC+1*
LRAAD EN+15*, ACCESS+7, CLEAN+8!, LRANX+4, SHOW+1
LRAADF CLEAN+8!, ACC+1*
LRABCNT CLEAN+9!
LRABVNT CLEAN+8!
LRACC ACCESS+3*, CLEAN+8!
LRACCN CLEAN+8!
LRACNT CLEAN+8!
LRAD CLEAN+8!, DATE+2*, DATE+8*, OK
LRADDF ACCESS+2*, CLEAN+8!, DATE+1*, DATE+2, SHOW+1
LRALL CLEAN+9!
LRAN ACCESS+8*, CLEAN+8!, LRANX+1, LRANX+2*, LRANX+3, DATE+2, DATE+7*, OK
LRAO CLEAN+8!
LRBDUP CLEAN+11!
LRBN CLEAN+8!
LRBUG CLEAN+8!
LRCAPMS EN+15*, CLEAN+9!
LRCAPOK CLEAN+11!
LRCAPWA EN+15*, CLEAN+2!
LRCARD CLEAN+9!
LRCDEF CLEAN+7!
LRCDEF0 CLEAN+7!
LRCDT CLEAN+10!
LRCNODE CLEAN+9!
LRCNT CLEAN+7!
LRCODE CLEAN+7!, CLEAN+10!
LRCODEN CLEAN+7!
LRCOMTAB CLEAN+10!
LRCSQ CLEAN+7!
LRCY CLEAN+7!
LRD CLEAN+9!
LRDCOM CLEAN+10!
LRDFN CLEAN+10!
LRDPF CLEAN+10!
LRDR CLEAN+9!
LRDRD CLEAN+9!
LRDRDX CLEAN+9!
LRDRNAME CLEAN+9!
>> LRDT0 DATE+5
LRDTR CLEAN+10!
LREAL CLEAN+10!
LREDIT CLEAN+10!
LREND ACCESS+1*, ACCESS+3*, ACCESS+7!, ACCESS+8, CLEAN+10!, LRANX+1*, LST+1*, SHOW+1*, WAIT*
LRFIFO ACCESS+1*, CLEAN+11!
LRFLAG CLEAN+10!
LRFMT ACCESS+6*, CLEAN+10!
LRI CLEAN+10!
LRIDT CLEAN+10!
LRIFN CLEAN+10!, LRANX+2*, LRANX+3, LRANX+4, DATE+2, OK+1
LRINI EN+14*, EN+15, CLEAN+10!
LRINST ACCESS+3*, CLEAN+9!
LRLL ACCESS+3*, ACCESS+4, ACCESS+8, ACCESS+9, CLEAN+9!, CLEAN+10!, LRANX+1, LRANX+2, LRANX+3, LRANX+4
, DATE+2, OK+1, SHOW+1
LRLLOC CLEAN+10!
LRMICOM EN+14*, CLEAN+10!
LRMICOMS EN+14*, CLEAN+10!
LRMIDEF EN+14*, CLEAN+10!
LRMIOTH EN+14*, CLEAN+10!
LRMOVE CLEAN+10!
LRNAME CLEAN+9!
LRNB CLEAN+11!
LRNTN CLEAN+9!
LRNX CLEAN+9!
LRODT CLEAN+9!, CLEAN+10!
LRORG CLEAN+12!
LRORGCOM CLEAN+12!
LRORGD CLEAN+9!
LRORGN CLEAN+12!
LRP CLEAN+7!
LRPHY CLEAN+12!
LRPHYN CLEAN+9!
LRPN CLEAN+7!
LRPTP CLEAN+11!
LRQC CLEAN+7!
LRRB CLEAN+2!
LRRES CLEAN+12!
LRSAME CLEAN+11!
LRSAMP CLEAN+12!
LRSB CLEAN+2!
LRSCOM CLEAN+11!
LRSN CLEAN+12!
LRSPEC CLEAN+12!
LRSS ACCESS+3*, CLEAN+12!
LRSSC CLEAN+7!
LRSSCX CLEAN+7!
LRSTD CLEAN+7!
LRSTR CLEAN+7!
LRSUB CLEAN+9!
LRT CLEAN+7!
LRTCUP CLEAN+12!, OK+1*
LRTEC EN+15*, CLEAN+8!
LRTEST CLEAN+9!
LRTIME CLEAN+7!
LRTPT CLEAN+11!
LRTRAN CLEAN+12!, DATE+5*
LRTREA CLEAN+2!
LRTS CLEAN+7!, CLEAN+11!
LRUNDO CLEAN+12!
LRVT ACCESS+5*, CLEAN+11!
LRWRD CLEAN+12!
LRWRDVEW CLEAN+12!
LRY CLEAN+11!
N CLEAN+9!
NODE CLEAN+7!
NODE0 CLEAN+7!
PNM CLEAN+12!
Q9 CLEAN+12!
SEX CLEAN+12!
SSN CLEAN+12!
T1 CLEAN+9!
TAB1 ACCESS+1*, CLEAN+12!
TAB2 ACCESS+1*, CLEAN+12!
TAB3 ACCESS+1*, CLEAN+12!
U EN+14, ACCESS, ACCESS+3, ACCESS+4, ACCESS+5, ACCESS+6, LRANX+4, DATE+1, DATE+2, DATE+5
, OK+1, ACC+1
VA CLEAN+2!
X CLEAN+12!, LRANX+1*, LRANX+2, LST+1, SHOW+1, WAIT*
X1 CLEAN+12!
X2 CLEAN+12!
X9 CLEAN+9!
XX CLEAN+2!
Y EN+11, EN+15, ACCESS+2, ACCESS+3, CLEAN+12!, LRANX+4, DATE+7, DATE+8, ACC+1!
Y(0 ACCESS, ACCESS+3, ACCESS+4, ACCESS+5, DATE+1*, DATE+5
ZTSK CLEAN+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All