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
Print Page as PDF
Routine: LRBLAA

Package: Lab Service

Routine: LRBLAA


Information

LRBLAA ;AVAMC/REG - XM:TX BY TREATING SPECIALTY REPORT ;9/11/95 14:02 ;

Source Information

Source file <LRBLAA.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
C
M
P
W
U
V
SET
H
H1
H2
H3
A
B
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Crossmatch:Transfusion Report by Treating Specialty and Physician",!
  • Line Location: LRBLAA+4
Function Call: WRITE
  • Prompt: !!,"Print only summary of crossmatches and transfusions "
  • Line Location: LRBLAA+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLAA+7
Function Call: WRITE
  • Prompt: !!,"ALL TREATING SPECIALTIES",?32,"Total Xm'd:",?43,$J(LRL,4),?52,"Tx'd:",?55,$J(LRM,4),?65,"C/T: "
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $S(LRM:$J(LRL/LRM,5,3),1:"NA")
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!!,A,?32,"Units Xm'd:",?43,$J(LRJ,4),?52,"Tx'd:",?55,$J(LRT,4),?65,"C/T: "
  • Line Location: M+1
Function Call: WRITE
  • Prompt: $S(LRT:$J(LRJ/LRT,5,3),1:"NA")
  • Line Location: M+1
Function Call: WRITE
  • Prompt: !!,B,?32,"Units Xm'd:",?43,$J(LRK,4),?52,"Tx'd:",?55,$J(LRD,4),?65,"C/T: "
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $S(LRD:$J(LRK/LRD,5,3),1:"NA")
  • Line Location: P+1
Function Call: WRITE
  • Prompt: I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRY,?19,$P(LRE,"^",4),?20,$P(LRE,"^",3),?35,$P(LRE,"^",2),?38,X
  • Condition for execution: LRF
  • Line Location: V+0
Function Call: WRITE
  • Prompt: ?60,$E($P($G(^DIC(4,+$P($G(^LRD(65,G,0)),U,16),0)),U),1,19)
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !,LRO(68)," CROSSMATCH:TRANSFUSIONS (from: ",LRSTR," to ",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?20,"TREATING SPECIALTY: ",A
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?29,"PHYSICIAN: ",B
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN,?45,"(Cont'd from pg ",LRQ-1,")"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"This report includes the following administrative categories:",!,"WHOLE BLOOD, RBC, FROZEN RBC, DEGLYC RBC, LEUCODEPLETED RBC, and WASHED RBC."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"The following abbreviations are used to indicate crossmatch results:",!,"C=COMPATIBLE",!,"CD=COMPATIBLE, DON'T TRANSFUSE",!,"CF=COMPATIBLE, FURTHER STUDY NEEDED",!,"I=INCOMPATIBLE, UNSAFE TO TRANSFUSE"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"IG=INCOMPATIBLE, GIVE WITH BLOOD BANK DIRECTOR APPROVAL",!,"CD, CF, and I are not included in crossmatch-transfusion calculations.",!,LR("%")
  • Line Location: B+1
Info |  Source |  Entry Points |  Interaction Calls