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

Package: Lab Service

Routine: LRULB


Information

LRULB ;AVAMC/REG - LAB LOG-BOOK ;2/18/93 12:48 ;

Source Information

Source file <LRULB.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 (D,L,S,V,YN)^LRU  ^LRULB1  BEG^LRUTL  
VA FileMan 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
ASK
N
M
QUE
LRAD
END

External References

Name Field # of Occurrence
^%DT ASK
D^LRU LRAD
L^LRU QUE
S^LRU QUE
V^LRU END
YN^LRU LRULB+3
^LRULB1 QUE
BEG^LRUTL M+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," Log-Book"
  • Line Location: LRULB+2
Function Call: WRITE
  • Prompt: !!,"Accession list date: ",LRH(0)," OK "
  • Line Location: LRULB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",LRH(0)
  • Line Location: ASK+1
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: FIRST // "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: N+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N+1
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: M+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(68 - [#68] ASK+1, LRAD

Label References

Name Line Occurrences
ASK ASK+1
END LRULB+3, ASK, N, N+1, M, M+2
LRAD LRULB+2, ASK
M M
N N, N+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRULB+3*, ASK, ASK+1*
%DT ASK*!
%DT("A" ASK*
DT LRULB+2
DTIME N, N+1, M
IO QUE
>> LRAA ASK+1, LRAD
>> LRAA(1 LRULB+2
>> LRAD ASK+1, N, N+1, LRAD*
>> LRH(0 LRULB+3, ASK+1, LRAD*
>> N(1 N*, N+1*, M+1*
>> N(2 M*, M+1*
>> POP M+2
>> X M+1*, LRAD*
>> Y LRULB+2*, ASK, LRAD*
>> ZTRTN M+2*
>> ZTSK M+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All