Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBLRCT

Package: Lab Service

Routine: LRBLRCT


Information

LRBLRCT ;AVAMC/REG/CYM - CROSSMATCH:TRANSFUSION REPORT ;6/19/96 09:50 ;

Source Information

Source file <LRBLRCT.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
C
SET
W
V
U
X
A
H
H1
H2
STATS
Z
END

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,?17,$P(X,"^"),?32,C,?37,Y,?40,$E($P(LRC,"^"),1,23)
  • 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: !,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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call