Routine: LR7OSBB1

Information

LR7OSBB1 ;slc/dcm - BB PT INFO for OE/RR pt lists ;8/11/97

Name	Comments	DBIA/ICR reference
OERR	;	ICR #2984 Status: Active Usage: Private
N
MORE
S
H
SET	;	ICR #2984 Status: Active Usage: Private
CLEAN	;	ICR #2984 Status: Active Usage: Private
INI	;

Name	Line Occurrences
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+8
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+10
Function Call: WRITE	Prompt: !,"No transfused units on record",! Line Location: OERR+12
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