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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLPR1

Package: Lab Service

Routine: LRBLPR1


Information

LRBLPR1 ; IHS/DIR/AAB - BLOOD BANK PT RECORD-COND'T 9/11/95 07:30 ;

Source Information

Source file <LRBLPR1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 H^LRBLPR  D^LRU  
VA Fileman 2 ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPR  LRBLPRA  

Entry Points

Name Comments DBIA/ICR reference
A
E
H2
H
H1
H4
H3
S
R
T
W
V

External References

Name Field # of Occurrence
^DIWP LRBLPR1+3
^DIWW LRBLPR1+4
H^LRBLPR LRBLPR1+3, H1, H2, H3, H4
D^LRU S+1, R+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4
  • Condition for execution: $X>(IOM-15)
  • Line Location: LRBLPR1+6
Function Call: WRITE
  • Prompt: " ",$P(^LAB(61.3,LR(9),0),"^")
  • Line Location: LRBLPR1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLPR1+8
Function Call: WRITE
  • Prompt: !,"Accession Number",?24,"Date/time",?40,"ABO",?44,"Rh",?48,"AHG(D)",?55,"AHG(I)"
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !,$J($P(LR(5),"^",6),15),?24,T
  • Line Location: V+1
Function Call: WRITE
  • Prompt: ?41,$J($P(LR(10),"^"),2),?44,$P(LR(11),"^"),?51,$P(LR(0),"^",9),?58,$P(LR(6),"^")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?20,$E(X,1,59)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !?40,$E(X,60,80)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !?20,$E(X,1,59)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !?40,$E(X,60,80)
  • Condition for execution: $L(X)>59
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !?20,$E(X,1,59)
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !?40,$E(X,60,80)
  • Condition for execution: $L(X)>59
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !?20,"Serum antibody: ",$P(^(0),"^")
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !?20,"Eluate antibody: ",$P(^LAB(61.3,E,0),"^")
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !?8,LRE
  • Line Location: W+7
Function Call: WRITE
  • Prompt: !,LRP,?31,$P(LR(4),"^",2),?42,"[See previous page (Pg ",LRQ-1,")]"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?4,"Antibodies identified (cond't): "
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?4,"Date/time",?20,"ABO",?24,"Rh",?28,"AHG(D)",?35,"AHG(I)"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTIONS WITH UNIT IDENTIFIED",?51,"UNIT ID",?66,"COMPONENT"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTIONS WITHOUT UNIT IDENTIFIED"
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,+$P(LR(1.9),U,2),0)),U)
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !,B(1)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,C,0)),U),?51,$P(LR(1.9),U,3),?69,$P($G(^LAB(66,+$P(LR(1.9),U,2),0)),U,2)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,B(2)
  • Line Location: R+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRBLPR1+6, W+5, W+6
^LAB(65.4 - [#65.4] S+1, R+1
^LAB(66 - [#66] R+1
^LR - [#63] LRBLPR1+3, LRBLPR1+6, LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7, S+1
, A, R, R+2
^LR("AB" S, R!
^UTILITY($J E!

Label References

Name Line Occurrences
A S+1
E LRBLPR1+3
H LRBLPR1+3, H1, H2, H3, H4
H1 LRBLPR1+6
H2 V+1, W+2, W+3, W+4, W+5, W+6, W+7
H3 R+2
H4 A
R S
S LRBLPR1+5
T V+1
V LRBLPR1+7
W V+1

Naked Globals

Name Field # of Occurrence
^( V+1, W+7, S+1, A, R+2
^(0 W+5
^(10 W
^(11 W
^(2 W
^(6 W

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A V+1*, S*, S+1*, A, R, R+2
>> B S*, S+1*, A*
>> B(1 A*, R+2*
>> B(2 R+2*
>> C S*, R, R+1
>> DIWF E*
>> DIWL E*
>> DIWR E*
>> E W+2*, W+4*, W+5*, W+6*, W+7*
IOM LRBLPR1+6, E
IOSL LRBLPR1+3, LRBLPR1+6, V+1, W+2, W+3, W+4, W+5, W+6, W+7, A
, R+2
>> LR( W+2, S+1*, R*, R+1
>> LR("Q" LRBLPR1+3, LRBLPR1+4, LRBLPR1+5, LRBLPR1+6, LRBLPR1+7, V+1, W+2, W+3, W+4, W+5
, W+6, W+7, H, H1, H2, H3, H4, S, S+1, A
, R+2
>> LR(0 W*, W+1, W+3
>> LR(10 W*, W+1
>> LR(11 W*, W+1
>> LR(4 H
>> LR(5 V+1*
>> LR(6 W*, W+1
>> LR(8 LRBLPR1+7, V+1
>> LR(9 LRBLPR1+3*, LRBLPR1+6*
>> LRA S*, R+1*
>> LRDFN LRBLPR1+3, LRBLPR1+6, LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7, S
, S+1, A, R, R+2
>> LRE W+7*
>> LRI V+1*, W, W+4, W+5, W+6, W+7
>> LRP H
>> LRQ H
>> LRSS LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7
>> LRZ LRBLPR1+3*, LRBLPR1+4
>> T V+1*, T*
U S+1, R+1
>> X LRBLPR1+3*, W+2*, W+3*, W+4*, W+5*
>> Y S+1*, R*, R+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All