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

Entry Points

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

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