Routine: LRBLJUT

Information

LRBLJUT ; IHS/DIR/FJE - BB INVENTORY FINAL DISPOSITION 3/9/94 14:02 ;

Source file <LRBLJUT.m>

Package	Total	Call Graph
Lab Service	2	(B,D,L,S,SSN,V)^LRU (,BEG,END)^LRUTL
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Lab Service	1	LRBLJUT

Name	Comments	DBIA/ICR reference
A	;S LRX=^TMP($J,LRDFN),LRY=LRY+LRX D:$Y>(IOSL-6) H W !,LRP,?31,SSN,?50,$J(LRX,4) Q
H
SET
QUE
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Units of RED BLOOD CELLS transfused for a treating specialty" Line Location: LRBLJUT+5
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",LRC,?31,"TOTAL UNITS: ",LRY,!,"AVERAGE UNITS/PATIENT: ",$S(LRC:$J(LRY/LRC,5,2),1:"") Line Location: QUE+5
Function Call: WRITE	Prompt: !,LRP,?31,SSN,?50,$J(LRX,4) Line Location: A+0
Function Call: WRITE	Prompt: !,LRP,?31,HRCN,?50,$J(LRX,4) Line Location: A+1
Function Call: WRITE	Prompt: @IOF,!,Y,?23,"BLOOD BANK ",LRQ(1),?(IOM-10),"Pg:",LRQ Line Location: H+0
Function Call: WRITE	Prompt: !,"Treating ",$S(LRT[",":"Specialties",1:"Specialty"),": ",LRT,!,"Units RBC transfused from ",LRSTR," to ",LRLST,!,"Patient",?31,"HRCN",?50,"# Units",!,LR("%") Line Location: H+2
Routine Call	DIC Line Location: LRBLJUT+6

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	QUE+2
^LAB(66 - [#66]	QUE+1
^LR - [#63]	QUE+2, QUE+4
^LRD(65 - [#65]	QUE+1, SET
^TMP($J	QUE!, QUE+2*, QUE+4, A+1, SET

Name	Line Occurrences
A	QUE+4
END	LRBLJUT+4, LRBLJUT+6, LRBLJUT+7, LRBLJUT+8, QUE+5
H	QUE, A+1
SET	QUE+1

Name	Field # of Occurrence
>> %DT	H*
>> B	QUE+1*
>> DFN	QUE+4*
DIC	LRBLJUT+6*!
DIC(0	LRBLJUT+6*
>> HRCN	A+1
IO	QUE
IOF	H
IOM	H
IOSL	A+1
>> LR("%"	H+2
>> LRA	QUE+4*
>> LRC	QUE+2*, QUE+5
>> LRDFN	QUE+4*, A+1
>> LRDPF	QUE+4*
>> LRI	QUE+1*, SET
>> LRLDT	LRBLJUT+7*, QUE+1
>> LRLST	H+2
>> LRP	QUE, QUE+4, A+1
>> LRQ	H*
>> LRQ(1	H
>> LRSDT	LRBLJUT+7, QUE+1
>> LRSTR	H+2
>> LRT	LRBLJUT+6*, QUE+1, H+2
>> LRX	A+1*
>> LRY	QUE, QUE+5, A+1
>> POP	LRBLJUT+8
>> SSN	QUE+4*
U	LRBLJUT+6, QUE+4
>> X	LRBLJUT+4, QUE+1, QUE+2, SET, H*
>> Y	LRBLJUT+4, LRBLJUT+6, LRBLJUT+7, QUE+2*, H
>> Z	QUE+2*
>> ZTRTN	LRBLJUT+8*
>> ZTSK	LRBLJUT+8