Routine: LRBLPBR

Package	Total	Call Graph
Lab Service	4	^LRBLPBR1 ^LRDPA (L,S,SSN,V,YN)^LRU (,BEG,END)^LRUTL

Package

Total

Call Graph

^LRBLPBR1 ^LRDPA (L,S,SSN,V,YN)^LRU (,BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	4	LRBLP ADD LRBLP DELETE LRBLP PRINT ALL ON QUEUE LRBLP PRINT SINGLE
IHS View Patient Record	1	BVPRP

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!?3,"No blood bank data for ",LRP Line Location: GETP+0
Function Call: WRITE	Prompt: !!,"Save reports for reprinting " Line Location: CH+0
Function Call: WRITE	Prompt: !!,"Print component requests " Line Location: DEV+0
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: $C(7),!?3,"No blood bank data for ",LRP Line Location: SGL+0
Function Call: WRITE	Prompt: $C(7),!!,"OK TO DELETE THE ",LRAA(1)," TEST REPORT QUEUE LIST" Line Location: DEL+0
Function Call: WRITE	Prompt: $C(7),!,"LIST DELETED !" Line Location: DEL+0
Function Call: WRITE	Prompt: !!,"FINE, LET'S FORGET IT",! Line Location: DEL+1
Function Call: WRITE	Prompt: !?30,"(",X," patient",$S(X>1:"s",1:""),")" Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!!,"NO BLOOD BANK PATIENTS ON THE TEST REPORT QUEUE",!! Line Location: L+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SET+1
^DD(63.01	QUE
^DIC - [#1]	SET+1
^LR - [#63]	GETP, SET+1, SET+3, SGL
^LRO(69.2 - [#69.2]	GETP+1, QUE+2, LST+2!, DEL!*, C, L
^TMP("LRBL"	QUE!, LST+1, LST+3!, SET+5*
^VA(200 - [#200]	SET+3

Name	Field # of Occurrence
^(	LST+1, SET+1, SET+3
^(0	GETP+1*, SET+2, SET+3

Name	Field # of Occurrence
>> %	CH, DEV, DEL*
>> A	QUE+2*
>> DFN	SET+1*
DIC	GETP!, SGL!
>> G	CH, LST, LST+1, DEL, L*
>> HRCN	SET+5
IO	QUE
IOF	LST+3
IOST	LST+3
>> LR	LST+1*
>> LR("Q"	LST+1
>> LR("S"	QUE+1, SGL+2*
>> LRAA	GETP, GETP+1, CH, QUE+2, LST+2, SGL, DEL, C, L
>> LRAA(1	DEL
>> LRAPX	CH*
>> LRDFN	GETP, GETP+1, QUE+2, LST+1, SET+1, SET+3, SET+5, SGL
>> LRDPAF	SGL*
>> LRDPF	SET+1*
>> LRLLOC	GETP+1, QUE+2, SET+5, SGL+1
>> LRMD	SET+2, SET+3, SET+5
>> LRN(	QUE*
>> LRN(2	DEV*
>> LRP	GETP, SGL
>> LRSAV	CH, LST+2, SGL+2
>> N	LST+1*
>> P	SET+1*
>> POP	DEV+1
>> SSN	SET+1*
U	C
>> W	SET+1*, SET+5
>> X	GETP+1, QUE, SET+1, SET+5, C, A*
>> Y	SET+1*, DEL
>> Z	SET+1, SET+2, SET+3
>> Z(1	SET+1*, SET+2
>> ZTRTN	DEV+1*
>> ZTSK	DEV+1

Information

Name	Comments	DBIA/ICR reference
A
C
SET	;S W=^LR(LRDFN,0),Y=$P(W,"^",3),(LRDPF,P)=$P(W,"^",2),X=^DIC(P,0,"GL"),X=@(X_Y_",0)"),Z=+$G(^(.104)),Z(1)="^"_$P($G(^DD(P,.104,0)),"^",3),SSN=$P(X,"^",9) D SSN^LRU
END
L
DEV
LST
CH
QUE
SGL
GETP
DEL