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 ; IHS/DIR/FJE - AUTOLOGOUS UNIT DISPOSITION LIST 09:08 ; [ 2/18/93 ]

Source Information

Source file <LRBLJB.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLJB  LRBLJC  

Entry Points

Name Comments DBIA/ICR reference
A
END
H
H1 ;D H W !,LRP," ",SSN Q
HLP
Y
S
QUE
T
W ;D:$Y>(IOSL-6) H W !!,LRP," ",SSN
ASK
X

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+4
V^LRU END
BEG^LRUTL ASK+1
END^LRUTL QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"LIST OF AUTOLOGOUS UNIT DISPOSITIONS BY DATE UNIT RECEIVED"
  • Line Location: LRBLJB+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+5
Function Call: WRITE
  • Prompt: !?3,LRA,?7," = ",LRD(LRA),?50,"(",$J(LRD(LRA,1),3)," units)"
  • Line Location: QUE+5
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: !!,LRP," ",HRCN
  • Line Location: W+1
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: !,LRP," ",HRCN
  • Line Location: H1+1
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+4
^LRD(65 - [#65] QUE+1, Y, Y+1, T, S, A
^TMP($J QUE!, QUE+2*, QUE+4, W+2, X+1, S*

Label References

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

Naked Globals

Name Field # of Occurrence
^( QUE+4
^(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*
>> DFN QUE+4*
DTIME ASK
>> HRCN W+1, H1+1
IO QUE
IOF H
IOM H
IOSL QUE+5, W+1, Y
>> LR("%" H+1
>> LRA QUE+1*, QUE+4*, QUE+5*
>> LRB QUE+5*
>> LRC W+2*, X, X+1
>> LRD W+2*, X*, Y, Y+1
>> LRD( QUE+5, X*, Y*
>> LRDFN QUE+4*, W+2, X+1
>> LRDPF QUE+4*
>> 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+4*, W+1, H1+1
>> 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+4*
U ASK, QUE, QUE+4
>> 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