Routine: LRBLPTR1

Information

LRBLPTR1 ;AVAMC/REG - TRANSFUSIONS/HEM RESULTS ;3/5/91 09:20 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"BLOOD must be an entry in TOPOGRAPHY file (#61)",! Line Location: LRBLPTR1+3
Function Call: WRITE	Prompt: $C(7),!!,"Must have tests to print entered in the",!,"'Tests for inclusion in transfusion report option' in",!,"Blood bank supervisor menu",! Line Location: LRBLPTR1+5
Function Call: WRITE	Prompt: !!,"Please hold while I sort transfusions with hematology results..." Line Location: LRBLPTR1+6
Function Call: WRITE	Prompt: !,T Line Location: P+0
Function Call: WRITE	Prompt: ?12,$E($P(^LAB(66,+Q,0),"^"),1,28),$S($P(Q,"^",6):"("_$P(Q,"^",6)_")",1:"") Condition for execution: Q Line Location: P+0
Function Call: WRITE	Prompt: !?32 Condition for execution: $X>(IOM-9) Line Location: P+2
Function Call: WRITE	Prompt: ?32+(8*X(1)) Line Location: P+2
Function Call: WRITE	Prompt: $J(^(B),5) Line Location: P+2
Function Call: WRITE	Prompt: !,W(2),?31,W(10),?45,"DOB: ",W(4),!,"Location:",?12,W(5),!,"Mo/Da TIME",?12,"Blood component" Line Location: H+1
Function Call: WRITE	Prompt: !?32 Condition for execution: $X>(IOM-8) Line Location: H+2
Function Call: WRITE	Prompt: ?32+(8*X(1)),$P(LRT(X),"^",7) Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3