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

Package: Lab Service

Routine: LRAPSL


Information

LRAPSL ;AVAMC/REG/CYM - ANATOMIC PATH SLIDE LABELS; Jan 15, 2025@01:48

Source Information

Source file <LRAPSL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 6 ^LRAP  AU^LRAPBS1  ^LRAPSL1  S^LRAPST  ($$INS,V,YN)^LRU  (BEG,END)^LRUTL  
Registration 1 $$SITE^VASITE  
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 LRAPLM  

Entry Points

Name Comments DBIA/ICR reference
ASK
R
RR
QUE
C
W
S
T
P
X
AU
AUT
CK
HELP
END
SET

External References

Name Field # of Occurrence
^%DT ASK, ASK+1
^LRAP LRAPSL+3
AU^LRAPBS1 LRAPSL+3
^LRAPSL1 ASK+3
S^LRAPST ASK+3
$$INS^LRU SET
V^LRU END
YN^LRU ASK+2, ASK+3
BEG^LRUTL RR+4
END^LRUTL QUE+2
$$SITE^VASITE SET

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " ",LRH(0)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Reprint slide labels "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Add/Delete slide labels to print "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Print ",LRO(68)," slide labels for ",LRY+1700
  • Line Location: ASK+4
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: $C(7),?20,"There are no labels to print"
  • Line Location: RR+3
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRABV,?10,LRABV,?20,LRABV,?30,LRABV,?40,LRABV,?50,LRABV
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?B*10,$S($D(^TMP($J,A,B+1,C)):^(C),1:"")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LR(12),?10,LR(12),?20,LR(12),?30,LR(12),?40,LR(12),?50,LR(12)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!
  • Line Location: HELP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LRAPSL+3, T, AUT
^LR - [#63] C, S+1, T, X*, AU, AUT
^TMP($J QUE+1, W+1, P*, SET!

Label References

Name Line Occurrences
ASK ASK+1
AU S
AUT AU
C RR+3, QUE+1
END LRAPSL+3, ASK, ASK+2, ASK+3, R, RR, RR+3, RR+4, QUE+2
HELP R, RR
P T, AUT
R ASK+2, R
RR RR
S C
SET RR+3, QUE
T S+1
W QUE+1
X T, AUT

Naked Globals

Name Field # of Occurrence
^( C, W+1, S+1, T, AU, AUT
^(0 T*, AUT*
^(3 P*
^(4 P*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+2*, ASK+3*
>> %DT ASK*, ASK+1*
>> A QUE+1*, C*, W+1, P
>> B W+1*, S+1*, T, X, AU*, AUT
>> C W+1*, S+1*, T, X, AU*, AUT
DTIME ASK, R, RR
DUZ("AG" SET
>> E T*, X, AUT*
>> F T*, P, X*, X+1*, AUT*, CK*, CK+1*
>> G P*
IO QUE
>> J LRAPSL+3, S+1*, T, X, AU*, AUT
>> LR("FORM" SET*
>> LR("LINE" SET*
>> LR(1 P, SET*
>> LR(12 W+2, SET*
>> LR(3 R*, RR+2*, C
>> LR(4 RR*, RR+1*, RR+2*, C
>> LR(6 P*, SET*
>> LR(7 P*
>> LR(8 P*
>> LR(9 T*, P, AUT*
>> LRABV C, W
>> LRB S+1*, P, AU*
>> LRDFN C*, S+1, T, X, AU, AUT
>> LRH(0 ASK+1*
>> LRI C*, S+1, T, X
>> LRO(68 ASK+4
>> LRR ASK+2*, T, X+1, AUT, CK
>> LRSS LRAPSL+3, S, S+1, T, X, SET
>> LRW(0 LRAPSL+3*
>> LRXREF C, SET*
>> LRY ASK*, ASK+1*, ASK+4, C, SET
LRZ ASK*, RR+4!, T, X, AUT
LRZ(1 RR+3, S+1, T*, AUT*
>> POP RR+4
U ASK, R, RR, SET
>> X ASK*, R*, RR+2*, T*, X, X+1, AUT*, CK+1
>> Y LRAPSL+3, ASK, ASK+1
>> ZTRTN RR+4*
>> ZTSK RR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All