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

Package: Lab Service

Routine: LRBLPBR1


Information

LRBLPBR1 ;AVAMC/REG/CYM - BB TESTS REPORT ;2/23/98 12:02 ;

Source Information

Source file <LRBLPBR1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 (D,F,M)^LRU  DD^LRX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPBR  LRBLSUM  

Entry Points

Name Comments DBIA/ICR reference
FT
W
T
C
N
L
H
H1
H2
DT
H3
R

External References

Name Field # of Occurrence
D^LRU N+3
F^LRU H+1
M^LRU H
DD^LRX T

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4
  • Condition for execution: $X>(IOM-15)
  • Line Location: LRBLPBR1+5
Function Call: WRITE
  • Prompt: $P(^LAB(61.3,LR(9),0),"^"),"; "
  • Line Location: LRBLPBR1+5
Function Call: WRITE
  • Prompt: !?4,T
  • Line Location: LRBLPBR1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: FT+1
Function Call: WRITE
  • Prompt: !,N,?31,$P(LR,"^",2),?45,DOB,?56,$J($P(LR,"^",3),2),?59,$P(LR,"^",4),!,"Location: ",G,?39,"Physician: ",LRMD,!,"CUMULATIVE BLOOD BANK TEST REPORT",?50,"PERMANENT COPY",!,"(discard earlier copies)"
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?21,$J($P(X,"^"),2)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?21,$J($P(X,"^"),2)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?(30+$S(H=4:5,H=6:10,H=9:15,1:0)),$S(Y="N":"Neg",Y="P":"Pos",H=9&(Y="I"):"Invalid",1:Y)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?62,$S(Y="N":"Neg",Y="P":"Pos",1:Y)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,LRN(X),":",LRN(X,3)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,"ELUATE ANTIBODY: ",$S($D(^LAB(61.3,J,0)):$P(^(0),"^"),1:J)
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,"SERUM ANTIBODY IDENTIFIED: ",$S($D(^LAB(61.3,J,0)):$P(^(0),"^"),1:J)
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !,LRN(8),":",J(1)
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !?8,J(1)
  • Line Location: W+7
Function Call: WRITE
  • Prompt: !,"No UNITS assigned/xmatched",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: "No component requests",!
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?4,$P(F,"^"),?19,$E($P(M,"^"),1,19),?40,$P(F,"^",7)_" "_$P(F,"^",8),?47
  • Line Location: N+3
Function Call: WRITE
  • Prompt: Y,?68,$E(L,1,12)
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+F,0),"^"),1,26),?26,$J($P(F,"^",4),2),?31
  • Line Location: L+1
Function Call: WRITE
  • Prompt: T,?48
  • Line Location: L+1
Function Call: WRITE
  • Prompt: T,?48
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !?20,"BLOOD BANK TEST REPORT",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?10,"Patient",?34,"SSN",?43,"Birth Date",?55,"ABO",?59,"Rh",!,?10,"-------",?34,"---",?43,"----------",?55,"---",?59,"--"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,N,?31,$P(LR,"^",2),?44,T,?56,$J($P(LR,"^",3),2),?59,$P(LR,"^",4),!!
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!?4,"Antibodies identified (cond't from pg ",LR(2)-1,")"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,?30,"|---",?39,"AHG(direct)",?55,"---|",?62,"|-AHG(indirect)-|",!?4,"Date/time",?20,"ABO",?24,"Rh",?30,"POLY",?35,"IgG",?40,"C3",?45,"Interpretation",?62,"(Antibody screen)"
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !?4,"---------",?20,"---",?24,"--",?30,"----",?35,"---",?40,"---",?45,"--------------",?62,"-----------------"
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!?6,"Unit assigned/xmatched:",?47,"Exp date",?68,"Loc"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"Component requests",?25,"Units",?32,"Request date",?48,"Date wanted",?65,"Requestor",?77,"By"
  • Line Location: R+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRBLPBR1+5, W+4, W+5
^LAB(66 - [#66] N+3, L, L+1
^LR - [#63] LRBLPBR1+5, LRBLPBR1+7, W, W+1, W+2, W+4, W+5, W+6, W+7, C+2
, L!*
^LRD(65 - [#65] C, N+1!, N+2
^VA(200 - [#200] L+1

Label References

Name Line Occurrences
C LRBLPBR1+6
DT LRBLPBR1+7, H2
FT LRBLPBR1+5, LRBLPBR1+6, H2
H LRBLPBR1+4, LRBLPBR1+6, W+4, W+5, W+6, W+7, H1, H2, H3
H1 LRBLPBR1+5
H2 LRBLPBR1+7
H3 N+3
L C+2
N C
R C+2
T LRBLPBR1+7, L+1, H+3
W LRBLPBR1+7

Naked Globals

Name Field # of Occurrence
^( LRBLPBR1+7, W+6, W+7, C+2, N+2
^(0 W+4, W+5, L+1
^(10 W
^(11 W
^(2 W+1
^(3 N+2
^(6 W+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLPBR1+7*, C*, C+2*, N+1, N+2
>> B C*, C+1, C+2*, C+3, N, N+3
>> DOB FT+2, H+3*
>> F C+2*, N+2*, N+3, L, L+1
>> G FT+2
>> H W+1*
IOM LRBLPBR1+5
IOSL LRBLPBR1+5, LRBLPBR1+6, LRBLPBR1+7, FT, W+4, W+5, W+6, W+7, N+3
IOST H
>> J W+4*, W+5*, W+6*, W+7*
>> J(1 W+6*, W+7*
>> L N+2*, N+3*
>> LR LRBLPBR1+4, FT+2, H+3
>> LR("%" FT+1, H+1
>> LR("F" LRBLPBR1+4*, H
>> LR("Q" LRBLPBR1+5, LRBLPBR1+6, LRBLPBR1+7, FT, W+4, W+5, W+6, W+7, C, C+1
, C+2, C+3, N+3, H, H1, H2, H3
>> LR(2 LRBLPBR1+4*, H1
>> LR(5 LRBLPBR1+7*
>> LR(9 LRBLPBR1+5*
>> LRDFN LRBLPBR1+5, LRBLPBR1+7, W, W+1, W+2, W+4, W+5, W+6, W+7, C
, C+2, N+1, L
>> LRI LRBLPBR1+7*, W, W+1, W+2, W+4, W+5, W+6, W+7
>> LRMD LRBLPBR1+4*, FT+2
>> LRN( W*, W+1*, W+3
>> LRN(2 LRBLPBR1+6
>> LRN(8 W+6
>> LRSS LRBLPBR1+7, W, W+1, W+2, W+4, W+5, W+6, W+7
>> M N+3*
>> N FT+2, H+3
>> T LRBLPBR1+7*, T*, L+1*, H+3*
>> X FT*, W*, W+1*, W+2*, W+3*, L*
>> X(1 L*
>> Y W+1*, W+2*, T*, N+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All