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

Package: Lab Service

Routine: LRAPSA


Information

LRAPSA ;AVAMC/REG - TISSUE STAIN LIST ;8/12/95 13:19 ;

Source Information

Source file <LRAPSA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 4 ^LRAP  S^LRAPST  (D,DT,F,L,M,S,SSN,V,XR,YN)^LRU  (BEG,END)^LRUTL  
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 LRAPSA  

Entry Points

Name Comments DBIA/ICR reference
A
N1
N2
QUE
W
S
T
AU
AUS
AUT
B
C
H
H1
H2
H3
END

External References

Name Field # of Occurrence
^%DT LRAPSA+3, A
^LRAP LRAPSA+2
S^LRAPST QUE
D^LRU LRAPSA+3, A, W+1
DT^LRU C
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU W
V^LRU END
XR^LRU QUE
YN^LRU LRAPSA+4
BEG^LRUTL N2+1
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," STAIN LIST"
  • Line Location: LRAPSA+3
Function Call: WRITE
  • Prompt: !!,"Stain list date: ",LRD," OK "
  • Line Location: LRAPSA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,$P(LRA,"^")
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,LRA
  • Line Location: AU+0
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E),!?3,LRA(1),?16,"Stain/Procedure"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !?16,$P(^LAB(60,C,0),U),?47
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $J(X,5)
  • Condition for execution: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?52,"/",Z
  • Condition for execution: Z
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?59,Y
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,")",$S(LRSS="SP":" BLOCKS",LRSS="CY":" PROCEDURES",1:""),"/STAINS",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRA
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!?3,LRA(1),?16,"Stain/Procedure"
  • Line Location: H3+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W
^LAB(60 - [#60] C
^LR - [#63] QUE+1, W, W+3, S, T, AU, AUS, AUT

Label References

Name Line Occurrences
AU W+2
AUS AU
AUT AUS
B S, AUS
C T, AUT
END LRAPSA+2, LRAPSA+4, A, N1, N2, N2+1, QUE+2
H QUE, W+2, H1
H1 W+3, AU, H2
H2 S, AUS, H3
H3 T, AUT
N1 N1
N2 N2
S W+3
T S
W QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+1, W, W+3, S, T, AU, AUS, AUT
^("AU" W

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPSA+4*, A
%DT LRAPSA+3*, A*!
%DT("A" A*
>> A W+3*, S, T, AU*, AUS, AUT
>> B S*, T, AUS*, AUT
>> C T*, AUT*, C
DTIME N1, N2
>> E S*, T, AUS*, AUT, B
>> F S*, AUS*
IO QUE
IOSL W+2, W+3, S, T, AU, AUS, AUT
IOST H
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" QUE+1, W+2, W+3, S, T, AU, AUS, AUT, H, H1
, H2, H3
>> LRA W+3*, AU*, H2
>> LRA(1 S*, AUS*, B, H3
>> LRA(6 W+1*, W+2, H1
>> LRA(8 QUE+1*
>> LRA(9 W*, W+1
>> LRABV QUE+1, H+1
LRAN W+1!*, W+2, H1
>> LRD LRAPSA+3*, LRAPSA+4, A*
>> LRDFN QUE+1*, W, W+3, S, T, AU, AUS, AUT
>> LRDPF W*
>> LRI QUE+1*, W, W+3, S, T
>> LRO(68 LRAPSA+3, H+1
>> LRP W*, W+2, H1
>> LRSS W, W+2, W+3, S, T, B, H+1
>> LRSS( B
>> LRTK W*
>> LRW W+2*
>> LRX T*, AUT*, C
>> LRXREF QUE+1
>> LRY A+1*, QUE+1
>> N(1 N1*, QUE*, QUE+1
>> N(2 N2*, QUE+1
>> POP N2+1
>> SSN W*, W+2, H1
U N1, N2, W+1, S, AU, AUS, C
>> X LRAPSA+3*, A*, W*, C*
>> Y LRAPSA+2, LRAPSA+3*, A*, A+1, W*, W+1*, C*
>> Z C*
>> ZTRTN N2+1*
>> ZTSK N2+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All