Routine: LRBLJU1

Information

LRBLJU1 ;AVAMC/REG - FIND UNITS NO DISPOSITION ;5/17/96 08:34

Source file <LRBLJU1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Transfusion Service - Units ",$S(LROPT="EN1":"in & out date without final disposition",1:"available"),!,LR("%"),!,"There are no units ",$S(LROPT="":"available.",1:"without a final disposition.") Line Location: LRBLJU1+5
Function Call: WRITE	Prompt: !,C(1)," Total units: ",T(1) Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: B+0
Function Call: WRITE	Prompt: !?4,"Total ",A," ",R," units: ",T(2) Line Location: C+1
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: D+0
Function Call: WRITE	Prompt: !,A,?3,R,?7,I,?23,C(6),?43,$E($P(W,"^",2),1,8) Line Location: D+0
Function Call: WRITE	Prompt: ?52,"*" Line Location: E+2
Function Call: WRITE	Prompt: $E($P(Y,"^"),1,14) Line Location: E+2
Function Call: WRITE	Prompt: ?68,$E(I(2),4,5)_"/"_$E(I(2),6,7) Line Location: F+2
Function Call: WRITE	Prompt: ?74,$E(I(3),1,2)_":"_$E(I(3),3,4) Condition for execution: I(3) Line Location: F+2
Function Call: WRITE	Prompt: !,"Transfusion Service ",LRAA(4),!,"Units of ",C(1),$S(LROPT["EN1":" in & out date ",1:" available")," (no disposition)" Line Location: H+1
Function Call: WRITE	Prompt: !?49,"*Autologous/Directed",!,"ABO",?4,"Rh",?7,"ID",?23,"Expiration Date",?43,"Location",?52,"Patient Assigned",?69,"Spec Date",!,LR("%") Line Location: H+2