Routine: LRBLPQA

Package	Total	Call Graph
Lab Service	2	(B,D,F,L,M,S,V,YN)^LRU (,BEG,END)^LRUTL
VA Fileman	1	^DIC

Package

Total

Call Graph

(B,D,F,L,M,S,V,YN)^LRU (,BEG,END)^LRUTL

^DIC

Package	Total	Caller Graph
Lab Service	2	LRBLPRIT LRBLSRI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20 Line Location: LRBLPQA+4
Function Call: READ	Prompt: "(A)ll components or (S)ingle component: " Formatting: !!?3 Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"Enter 'A' for all blood components or 'S' for a single component" Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"There are no entries to print",!! Line Location: B+0
Function Call: WRITE	Prompt: G Line Location: QUE+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-10) Line Location: W+0
Function Call: WRITE	Prompt: !!?20,LRC(1) Line Location: W+0
Function Call: WRITE	Prompt: !!,Y," ",$P(LRB,"^",2)," HRCN:",HRCN Line Location: W1+1
Function Call: WRITE	Prompt: !,LR Line Location: W1+2
Function Call: WRITE	Prompt: !,"DONE",! Line Location: EN+3
Function Call: WRITE	Prompt: "." Line Location: K+0
Function Call: WRITE	Prompt: !,"BLOOD BANK",!?20 Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !!?20,LRC(1) Line Location: H1+0
Function Call: WRITE	Prompt: ! Line Location: H2+0
Function Call: WRITE	Prompt: Y," ",$P(LRB,"^",2)," ",SSN Line Location: H2+0
Function Call: WRITE	Prompt: ! Line Location: H2+1
Function Call: WRITE	Prompt: Y," ",$P(LRB,"^",2)," ",HRCN Line Location: H2+1
Function Call: WRITE	Prompt: "Inappropriate transfusion requests report" Line Location: I+0
Routine Call	DIC Line Location: B

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69.2 - [#69.2]	B, QUE+1, W+2, W1+2, EN+2, K!, K+2, K+3!, K+4*

Name	Field # of Occurrence
^(	W+2, W1+2, K
^(0	W+2, K+3

Information

Name	Comments	DBIA/ICR reference
A
B
END
D
H2	;D H1 Q:LR("Q") W ! S Y=+LRB D D^LRU W Y," ",$P(LRB,"^",2)," ",SSN Q
H
K
H1
I
EN	;
QUE
W
Z
W1	;W !!,Y," ",$P(LRB,"^",2)," SSN:",SSN
OUT