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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLRCT

Package: Lab Service

Routine: LRBLRCT


Information

LRBLRCT ; IHS/DIR/AAB - CROSSMATCH:TRANSFUSION REPORT 6/19/96 09:50 ;

Source Information

Source file <LRBLRCT.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,DT,F,L,M,S,SSN,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 $$EXTERNAL^DILFD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLRCT  

Entry Points

Name Comments DBIA/ICR reference
A
C
SET
STATS
H2
H
H1 ;D H Q:LR("Q") W !,?6,LRP,?38,SSN Q
X
U
W ;S (LRP,LRX,LRX(1),LRT,LRZ)=0 F A=0:0 S LRP=$O(^TMP($J,"B",LRP)) Q:LRP=""!(LR("Q")) F LRDFN=0:0 S LRDFN=$O(^TMP($J,"B",LRP,LRDFN)) Q:'LRDFN!(LR("Q")) S SSN=^(LRDFN),LRDPF=$P(^LR(LRDFN,0),U,2),LRZ=LRZ+1 W:LRZ>1 !,LR("%") D V
V ;D:$Y>(IOSL-6) H Q:LR("Q") D SSN^LRU W !,$J(LRZ,3),")",?6,LRP,?38,SSN F LRS=0:0 S LRS=$O(^TMP($J,LRDFN,LRS)) Q:'LRS!(LR("Q")) S Y=LRS D DT^LRU S LRD=Y D U
QUE
Z
END

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD STATS+5
B^LRU LRBLRCT+4
DT^LRU V+1
F^LRU H+1
L^LRU QUE+1
M^LRU H
S^LRU QUE+1
SSN^LRU V+1
V^LRU END
BEG^LRUTL LRBLRCT+5
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Crossmatch:Transfusion Report",!
  • Line Location: LRBLRCT+3
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,LRD,?15,$P(X,"^"),?28,C,?33,Y,?38,$P(LRC,"^")
  • Line Location: X+0
Function Call: WRITE
  • Prompt: " On x-match, not counted"
  • Line Location: X+1
Function Call: WRITE
  • Prompt: ?65,$E($P(LRC,U,3),1,14)
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !,"BLOOD BANK",!,"CROSSMATCH:TRANSFUSIONS (from: ",LRSTR," to ",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,?6,LRP,?38,SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,?6,LRP,?38,HRCN
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,LR("%"),!,"Number of specimens crossmatched:",$J(LRX(1),6)
  • Line Location: STATS+1
Function Call: WRITE
  • Prompt: !,"Total units crossmatched:",$J(LRX,6)
  • Line Location: STATS+2
Function Call: WRITE
  • Prompt: !,"Total units transfused:",$J(LRT,6)
  • Line Location: STATS+3
Function Call: WRITE
  • Prompt: !,"Crossmatch/transfusion ratio:",$J(LRX/LRT,9,2)
  • Line Location: STATS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.02 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] C+1
^LAB(66 - [#66] X
^LR - [#63] C+1, W+1
^LRD(65 - [#65] C, SET, SET+1, X, X+1, A, A+1, A+2
^TMP($J QUE+1!, C+1*, SET+1*, W+1, V+1, U

Label References

Name Line Occurrences
A U
C QUE+1
END LRBLRCT+3, LRBLRCT+4, LRBLRCT+5, QUE+2
H QUE+1, V+1, H1+1, H2
H1 U
H2 STATS, STATS+5
SET C
STATS C+2
U V+1
V W+1
W C+2
X U
Z STATS

Naked Globals

Name Field # of Occurrence
^( SET, W+1, U
^(0 W+1, A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A C*, C+1*, W+1*, STATS+5*
>> B C*, SET+1, STATS+5*
>> C X*
>> DFN W+1*
>> HRCN W+1*, V+1, H1+1
>> I C*, SET, SET+1
IO QUE
IOF QUE+2
IOSL V+1, U, STATS, STATS+5
IOST QUE+2, H
>> LR("%" W+1, H+3, STATS+1
>> LR("F" QUE+1*, H
>> LR("Q" C+2, W+1, V+1, U, H, H1+1, STATS, STATS+5
>> LRC U*, X, X+1
>> LRD V+1*, X
>> LRDFN W+1*, V+1, U, X+1
>> LRDPF W+1*
>> LRE U*
>> LRF( SET+1*, X+2*, STATS+5
>> LRF("?" QUE*
>> LRG("?" QUE*
>> LRH U*, X+2, A+3*
>> LRI U*, X, X+1, A, A+1
>> LRLDT LRBLRCT+4*, C
>> LRLST H+1
>> LRP W+1*, V+1, H1+1
>> LRQ(2 QUE*, H+2, H2*
>> LRS V+1*, U
>> LRSDT LRBLRCT+4*, C
>> LRSTR H+1
>> LRT W+1*, A*, A+3*, STATS*, STATS+3, STATS+4
>> LRX W+1*, U*, X+1*, A+3*, STATS+2, STATS+4
>> LRX(1 W+1*, U*, STATS+1
>> LRZ W+1*, V+1
>> P C*, SET+1
>> POP LRBLRCT+5
U W+1, X+1
>> X C+1*, SET*, SET+1*, X*, A+2*, STATS*, Z*
>> Y LRBLRCT+4, C+1*, SET+1*, V+1*, X*, X+2, A*, A+1*, A+2, Z*
>> Y(2 A+1*, A+2
>> Z SET*, SET+1, A+1*, A+2*, A+3, Z*
>> ZTRTN LRBLRCT+5*
>> ZTSK LRBLRCT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All