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

Package: Lab Service

Routine: LRBLJTS1


Information

LRBLJTS1 ; IHS/DIR/FJE - TRANSFUSION STATS 3/3/93 22:49 ;

Source Information

Source file <LRBLJTS1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 ^LRBLJTS2  (F,K,M)^LRU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLJTS  LRBLJTS2  

Entry Points

Name Comments DBIA/ICR reference
HDR
H2
H ;from LRBLJTS2
H1
L
Q
P
R
T
W
H3

External References

Name Field # of Occurrence
^LRBLJTS2 LRBLJTS1+5
F^LRU H+2
K^LRU LRBLJTS1+5
M^LRU H+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,T," patients given RBC components: ",R(1)
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,T," patients given non-RBC components: ",R(1)
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,T," cost of all components: ",$J(^TMP($J,"A",T,0),9,2)
  • Line Location: Q+5
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $E(L(1),1,20)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?21,T(2),?30,$E($P(V,"^",2),1,19),?50,$J(V(1),9,2),?61,$P(V,"^"),?75,$J(Z,4)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"Transfusions by Treating Specialty/Physician (",LRSTR," - ",LRLST,")"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Patient transfused",?21,"Date",?30,"Physician",?53,"Cost",?61,"Unit ID",?74,"Count",!,LR("%")
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?20,"TREATING SPECIALTY: ",T
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Component: ",C(1),":",!?11
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: H2+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] T+1
^LAB(66 - [#66] T, T+3
^LR - [#63] T+1
^LRD(65 - [#65] LRBLJTS1+4, T, T+1
^TMP($J T+1*, T+2*, T+4*, T+5*, P, Q, Q+1, Q+2*, Q+3, Q+4*
, Q+5, L, L+1*, L+2, R, W+2

Label References

Name Line Occurrences
H HDR
H1 P, Q+2, Q+4, H2
H2 Q, H3
H3 W
HDR P, H1
L Q
P LRBLJTS1+5
Q P
R L
T LRBLJTS1+4
W R

Naked Globals

Name Field # of Occurrence
^( Q, R, W+2*
^(0 T, L+2*
^(4 LRBLJTS1+4
^(6 T, T+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLJTS1+4*, T, T+1, T+2, P*
>> A(1 LRBLJTS1+4*
>> B LRBLJTS1+4*, Q*
>> B(1 LRBLJTS1+4*
>> C Q*, L, L+1, L+2, R
>> C(1 Q*, H2
>> F L*
>> G T+1*
>> H T+1*
>> I R*
IOSL Q+2, Q+4, W, H1, H2
IOST H+1
>> J T*, T+2
>> K L*, L+1, L+2, W*
>> L LRBLJTS1+4*, T+1*, L*, R, W
>> L(1 L*, W
>> LR("%" HDR
>> LR("F" P*, H+1
>> LR("Q" P, Q, Q+1, Q+2, Q+4, L, L+1, R, W, H+1
, HDR, H1, H2
>> LRA T
>> LRB T
>> LRC T
>> LRE T
>> LRLDT LRBLJTS1+4
>> LRLST H+2
>> LRSDT LRBLJTS1+4
>> LRSTR H+2
>> R Q+1*, Q+3*
>> R(1 Q+1*, Q+2, Q+3*, Q+4
>> T P*, Q, Q+1, Q+2, Q+3, Q+4, Q+5, L, L+1, L+2
, R, W+2, H1
>> T(2 R*, W+1
>> V T+1*, T+2, T+4, T+5, R*, W, W+1, W+2
>> V(1 W*, W+1, W+2
>> V(2 T+1*, T+2
>> W T+1*, T+2, T+3, R*
>> W(1 T+1*, T+2
>> W(4 T+3*
>> X T*, T+2, T+4, T+5, L+2*, W+2*, H2*
>> X(1 W+2*
>> X(2 W+2*
>> Y LRBLJTS1+4*, T+2, W*, W+2
>> Z T*, T+1, L*, L+1, L+2, W*, W+1
>> Z(1 T*, T+2, L*, W*, H3*
>> Z(26 T*, T+2
>> Z(9 T+1*, T+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All