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

Package: Lab Service

Routine: LRAPL


Information

LRAPL ;SLC/BA/AVAMC/REG/CYM - ANATOMIC PATH LABELS ;2/13/98 12:27 ;

Source Information

Source file <LRAPL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRAP  (SSN,V,XR)^LRU  (BEG,END)^LRUTL  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPLS  

Entry Points

Name Comments DBIA/ICR reference
ASK
R
RR
I
A
QUE
W
P
HELP
END

External References

Name Field # of Occurrence
^%DT ASK, ASK+1
^LRAP LRAPL+2
SSN^LRU W+2
V^LRU END
XR^LRU QUE
BEG^LRUTL A+3
END^LRUTL QUE+2
$$FMTE^XLFDT P

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " ",LR(2)+1700
  • Line Location: ASK+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Start with accession number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to accession number: LAST// "
  • Variable: LR(4)
  • Timeout: DTIME
  • Line Location: RR+0
Function Call: WRITE
  • Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL"
  • Line Location: RR+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !,S(6)," Taken: ",$$FMTE^XLFDT(LRSPECDT,"D")
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,P(1)," ",SSN
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,$P(S(2),"^")
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!
  • Line Location: HELP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(69.2 A
^DIC - [#1] W+2
^LR - [#63] QUE+1, W!, W+2, W+3
^LRO(69.2 - [#69.2] RR+4

Label References

Name Line Occurrences
A A+1
ASK ASK+1
END LRAPL+2, ASK, ASK+1, R, RR, A+3, QUE+2
HELP R, RR
I A
P W+3
R R
RR RR
W QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+1, W+3
^(0 RR+4
^(3 A
^(4 A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT ASK*, ASK+1*
>> A QUE+1*, W
>> B W+3*
DTIME ASK, R, RR, I
IO QUE
>> LR(1 RR+4*, I, A+2*, P+2
>> LR(2 ASK+1*, QUE+1, W
>> LR(3 R*, RR+2*, RR+4*, QUE+1
>> LR(4 RR*, RR+1*, RR+2*, QUE+1
>> LR(5 ASK*
>> LRAA RR+4
>> LRABV QUE+1, W, W+1
>> LRDFN QUE+1*, W, W+2, W+3
>> LRDICS LRAPL+2*
>> LRDPF W+2*
>> LRI QUE+1*, W, W+3
LRSPECDT W+2*, P, END!
>> LRSS W, W+3
>> LRX W*, W+1, W+2
>> LRXREF QUE+1, W
>> P W+2*
>> P(1 W+2*, P+1
>> POP A+3
>> S(2 W+3*, P+2
>> S(6 W+2*, P
>> SSN W+2*, P+1
U ASK, R, RR, RR+4, I, A, W+1
>> W W+2*
>> X ASK*, ASK+1, R*, RR+2*, I*, A, A+1*, A+2, W+2*, P+2*
>> Y LRAPL+2, ASK, ASK+1, W+2*
>> ZTDESC A+3*
>> ZTRTN A+3*
>> ZTSAVE("LR*" A+3*
>> ZTSK A+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All