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

Package: Lab Service

Routine: LRBLJB


Information

LRBLJB ;AVAMC/REG - AUTOLOGOUS UNIT DISPOSITION LIST ;2/18/93 09:08

Source Information

Source file <LRBLJB.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (B,D,L,S,SSN,V)^LRU  (BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^%DTC  

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

Package Total Caller Graph
Lab Service 2 LRBLJB  LRBLJC  

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
W
X
Y
T
S
A
H
H1
HLP
END

External References

Name Field # of Occurrence
^%DT H
^%DTC Y
B^LRU ASK+1
D^LRU H
L^LRU QUE
S^LRU QUE
SSN^LRU QUE+3
V^LRU END
BEG^LRUTL ASK+1
END^LRUTL QUE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"LIST OF AUTOLOGOUS UNIT DISPOSITIONS BY DATE UNIT RECEIVED"
  • Line Location: LRBLJB+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Select (T)ransfusions or (A)ll other dispositions: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?3,LRA,?7," = ",LRD(LRA),?50,"(",$J(LRD(LRA,1),3)," units)"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,LRP," ",SSN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?3,LRD,?11,$S(LRW="T":$P(^LRD(65,LRI,6),"^",3),1:LRX),?45,LRE,?65,$J(X,5)
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: @IOF,Y," ",LRQ(1),?(IOM-10),"Pg: ",LRQ
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"Autologous ",$S(LRW="T":"Transfusions",1:"")," (Units received from ",LRSTR," to ",LRLST,")",!,"Component",?11,$S(LRW="T":"Treating Specialty",1:"Disposition"),?45,"Unit ID",?60,"Days in inventory",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRP," ",SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"Enter 'T' for a list of autologous transfusions or",!,"enter 'A' for a list of all dispositions except transfusions",!,"for autologous units."
  • Line Location: HLP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 QUE
^DIC - [#1] QUE+2
^LAB(66 - [#66] X
^LR - [#63] QUE+2, QUE+3
^LRD(65 - [#65] QUE+1, Y, Y+1, T, S, A
^TMP($J QUE!, QUE+2*, QUE+3, W+1, X+1, S*

Label References

Name Line Occurrences
@( QUE+1
ASK ASK
END LRBLJB+3, ASK, ASK+1, QUE+5
H QUE, QUE+4, W, H1
H1 Y
HLP ASK
S A
W QUE+3
X W+1
Y X+1

Naked Globals

Name Field # of Occurrence
^( QUE+3
^(0 X, Y
^(4 A
^(6 T
^(8 QUE+1, A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
>> A QUE+2*
DTIME ASK
IO QUE
IOF H
IOM H
IOSL QUE+4, W, Y
>> LR("%" H+1
>> LRA QUE+1*, QUE+3*, QUE+4*
>> LRB QUE+4*
>> LRC W+1*, X, X+1
>> LRD W+1*, X*, Y, Y+1
>> LRD( QUE+4, X*, Y*
>> LRDFN QUE+3*, W+1, X+1
>> LRDPF QUE+3*
>> LRE X+1*, Y+1
>> LRF X+1*
>> LRI QUE+1*, X+1*, Y, Y+1, T, S, A
>> LRLDT QUE*, QUE+1
>> LRLST H+1
>> LRP QUE+3*, W, H1
>> LRQ H*
>> LRQ(1 H
>> LRS QUE*, Y
>> LRSDT QUE*, QUE+1
>> LRSTR H+1
>> LRW ASK+1*, QUE, QUE+1, Y, Y+1, H+1
>> LRX Y*, Y+1
>> POP ASK+1
>> SSN QUE+3*, W, H1
U ASK, QUE, QUE+3
>> X ASK*, ASK+1, QUE+2*, X*, Y*, Y+1, T*, S, A*, H*
>> X1 Y*
>> X2 Y*
>> Y ASK+1, QUE+2*, S*, H
>> Z S*
>> ZTRTN ASK+1*
>> ZTSK ASK+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All