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

Package: Lab Service

Routine: LRBLA2


Information

LRBLA2 ;AVAMC/REG/CYM - BB ADM DATA ;6/21/96 09:20

Source Information

Source file <LRBLA2.m>

Entry Points

Name Comments DBIA/ICR reference
B
W
C
P
P1
P2
P3
A
H
M
R ;Set transfusion reaction type
S ;Ck transfusion reactions
D
E
F

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"|",?30,"BLOOD DONOR DATA",?70,"| Total",?79,"|",!,LR("%"),!,"|No donation",?70,"|",$J(^TMP("LR",$J,"N"),6),?79,"|"
  • Line Location: LRBLA2+3
Function Call: WRITE
  • Prompt: !,LR("%"),!,"|",?3,"Temporary deferrals",?70,"|",$J(^TMP("LR",$J,"N","T"),6),?79,"|"
  • Line Location: LRBLA2+4
Function Call: WRITE
  • Prompt: !,LR("%"),!,"|",?3,"Permanent deferrals",?70,"|",$J(^TMP("LR",$J,"N","P"),6),?79,"|"
  • Line Location: LRBLA2+5
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+5
Function Call: WRITE
  • Prompt: !,LR("%"),!,"|WHOLE BLOOD"
  • Line Location: LRBLA2+6
Function Call: WRITE
  • Prompt: !,"|",?2,"COLLECTION DISCARDED"
  • Line Location: LRBLA2+7
Function Call: WRITE
  • Prompt: !,"|",?3
  • Line Location: LRBLA2+8
Function Call: WRITE
  • Prompt: NAME
  • Line Location: LRBLA2+8
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+9
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+9
Function Call: WRITE
  • Prompt: !,"|PLASMAPHERESIS"
  • Line Location: LRBLA2+10
Function Call: WRITE
  • Prompt: !,"|",?2,"COLLECTION DISCARDED"
  • Line Location: LRBLA2+11
Function Call: WRITE
  • Prompt: !,"|",?3
  • Line Location: LRBLA2+12
Function Call: WRITE
  • Prompt: NAME
  • Line Location: LRBLA2+12
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+13
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+13
Function Call: WRITE
  • Prompt: !,"|CYTAPHERESIS"
  • Line Location: LRBLA2+14
Function Call: WRITE
  • Prompt: !,"|",?2,"COLLECTION DISCARDED"
  • Line Location: LRBLA2+15
Function Call: WRITE
  • Prompt: !,"|",?3
  • Line Location: LRBLA2+16
Function Call: WRITE
  • Prompt: NAME
  • Line Location: LRBLA2+16
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLA2+17
Function Call: WRITE
  • Prompt: ?70,"|",$J(Y,6),?79,"|"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"| MULTIPLE POSITIVE TESTS"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?X,"|",$J(Z,6)
  • Line Location: P+0
Function Call: WRITE
  • Prompt: ?X,"|",$J(Z,6)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: ?X,"|",$J(Z,6)
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: ?X,"|",$J(Z,6)
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: !,"|",?2,"POSITIVE TESTS",?25,"|",?36,"|",?47,"|",?58,"|",?70,"|",?79,"|"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,LR("%"),!,"|DONATIONS",?25,"|Homologous",?34,"|Directed",?47,"|Autologous",?57,"|Therapeutic",?70,"| Total",?79,"|"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !?3,LRA(A)," (",X," Transfusion",$S(X>1:"s",1:""),")"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !?6,$P(^LAB(65.4,B,0),"^"),?40,$J(B(1),4)
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,LRB(LRB)," Transfusion Reactions:",!?3,LRA(A)
  • Line Location: F+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call