Routine: LRBLPD1

Information

LRBLPD1 ;SLC/DCM - BB PT INFO for OE/RR pt lists ;12/10/90 12:21

Source file <LRBLPD1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Lab Data for: "_$P(^(0),"^") Line Location: OERR+1
Function Call: WRITE	Prompt: !,"No Lab Data for: "_$P(^DPT(DFN,0),"^") Line Location: OERR+2
Function Call: WRITE	Prompt: !,"No Lab Data for: "_$P(^DPT(DFN,0),"^") Line Location: OERR+3
Function Call: WRITE	Prompt: @IOF,!,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH Line Location: OERR+7
Function Call: WRITE	Prompt: MORE Condition for execution: 'B C(C) W:B ! W ?21,$P(^LAB(61.3,A,0),"^") D:$Y>A(1)!'$Y Line Location: OERR+9
Function Call: WRITE	Prompt: !,"No transfused units on record",! Line Location: OERR+11
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(X,"^",3),?18,$E($P(M,"^"),1,30) Line Location: N+2
Function Call: WRITE	Prompt: ?45,"(",X(7),"/",X(10),")" Line Location: N+2
Function Call: WRITE	Prompt: ?54,$P(X,"^",5)_" "_$P(X,"^",6),?60,Y Line Location: N+3
Function Call: READ	Formatting: ! Prompt: "^ TO STOP: " Variable: A(2) Timeout: DTIME Line Location: MORE+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: MORE+1
Function Call: WRITE	Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: H+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE" Line Location: H+1
Function Call: WRITE	Prompt: !,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH Line Location: H+2
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: SET+3
Function Call: WRITE	Prompt: $C(7),!!,?34,"",LRLLOC,"",! Line Location: INI+8