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

Package: Lab Service

Routine: LRBLPR1


Information

LRBLPR1 ;AVAMC/REG - BLOOD BANK PT RECORD-COND'T ;9/11/95 07:30 ;

Source Information

Source file <LRBLPR1.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls