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

Package: Lab Service

Routine: LRBLA2


Information

LRBLA2 ; IHS/DIR/AAB - BB ADM DATA 09:20 ; [ 6/21/96 ]

Source Information

Source file <LRBLA2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 H^LRBLA1  M^LRU  
VA Fileman 1 FIELD^DID  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLA  LRBLA1  

Entry Points

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

External References

Name Field # of Occurrence
FIELD^DID LRBLA2+8, LRBLA2+12, LRBLA2+16
H^LRBLA1 F
M^LRU M

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(65.4 - [#65.4] E
^TMP("LR" LRBLA2+3, LRBLA2+4, LRBLA2+5, P, P1, P2, P3, R+1, R+2, S+1
, S+2
^TMP($J S+1*, S+2*, D, D+1!, E

Label References

Name Line Occurrences
A LRBLA2+8, LRBLA2+12, LRBLA2+16
B LRBLA2+7, LRBLA2+8, LRBLA2+9, LRBLA2+11, LRBLA2+12, LRBLA2+13, LRBLA2+15, LRBLA2+16, LRBLA2+17, W+1
C LRBLA2+9, LRBLA2+13, LRBLA2+17
E D
F D, E
H LRBLA2+6, LRBLA2+9, LRBLA2+13
M LRBLA2+5, LRBLA2+9, LRBLA2+13
P LRBLA2+6, LRBLA2+10, LRBLA2+14, LRBLA2+15
P1 LRBLA2+7, LRBLA2+11
P2 W
P3 C
W LRBLA2+8, LRBLA2+12, LRBLA2+16

Naked Globals

Name Field # of Occurrence
^( R+1*, R+2*, S+1, D, E

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A S+1, S+2, D*, E, F
>> B R+1, R+2, S+1*, E*
>> B(1 E*
>> F R+1, R+2
IOF M
IOSL D, E
IOST LRBLA2+5, LRBLA2+9, LRBLA2+13
>> LR("%" LRBLA2+3, LRBLA2+4, LRBLA2+5, LRBLA2+6, LRBLA2+9, LRBLA2+13, LRBLA2+17, H
>> LR("Q" LRBLA2+5, LRBLA2+9, LRBLA2+13, M, D, E, F
>> LRA LRBLA2+8*, LRBLA2+12*, LRBLA2+16*, P2
>> LRA( D, F
>> LRB LRBLA2+6*, LRBLA2+7*, LRBLA2+10*, LRBLA2+11*, LRBLA2+14*, LRBLA2+15*, W*, C*, P, P1
, P2, P3, R+1, S+1, S+2, D, F
>> LRB( D, F
>> LRF F*
NAME LRBLA2+8~*, LRBLA2+12~*, LRBLA2+16~*
NAME("LABEL" LRBLA2+8, LRBLA2+12, LRBLA2+16
>> V LRBLA2+8*, LRBLA2+9*, LRBLA2+12*, LRBLA2+13*, LRBLA2+16*, LRBLA2+17*, W, C
>> X LRBLA2+6*, LRBLA2+7*, LRBLA2+8*, LRBLA2+10*, LRBLA2+11*, LRBLA2+12*, LRBLA2+14*, LRBLA2+15*, LRBLA2+16*, C*
, P*, P1*, P2*, P3*, D*
>> Y LRBLA2+6*, LRBLA2+7*, LRBLA2+8*, LRBLA2+10*, LRBLA2+11*, LRBLA2+12*, LRBLA2+14*, LRBLA2+15*, LRBLA2+16*, B
, C*, P*, P1*, P2*, P3*
>> Z P*, P1*, P2*, P3*
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