Routine: LRBLJD1

Information

LRBLJD1 ;AVAMC/REG/CYM - POOL COMPONENTS ;10/9/97 07:24 ; 12/18/00 2:04pm

Package	Total	Call Graph
Lab Service	6	($$READ,$$STRIP)^LRBLB ^LRBLBU K^LRBLJD (,EN)^LRBLJDA ^LRBLW (D,YN)^LRU
VA FileMan	2	^DIC ^DIE

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to pool unit.",! Line Location: LRBLJD1+8
Function Call: WRITE	Prompt: !?31,"Unit ID",?41,"ABO/Rh",!!,"Selection 1 (unit ID to pool): ",$P(LRE,"^"),?41,$J($P(LRE,"^",7),2),?44,$P(LRE,"^",8) Line Location: LRBLJD1+9
Function Call: WRITE	Prompt: !!,"No need to pool 1 unit",! Line Location: LRBLJD1+11
Function Call: WRITE	Prompt: !!,"Pool will contain the following ",$P(^LAB(66,LRE(4),0),"^")," units:",!?3,"ID #",?30,"Expiration date" Line Location: LRBLJD1+12
Function Call: WRITE	Prompt: !,$J(A,2),?3,$P(LRP(A),"^",2),?20,$P(LRP(A),"^",3),?30 Line Location: LRBLJD1+13
Function Call: WRITE	Prompt: Y Line Location: LRBLJD1+13
Function Call: WRITE	Prompt: !! Line Location: ID+0
Function Call: WRITE	Prompt: !,$C(7),"UNITS selected were NOT pooled !",! Line Location: ID+0
Function Call: WRITE	Prompt: !!,$C(7),$S($D(^DD(65,.01,3)):^(3),1:""),! Line Location: ID+5
Function Call: WRITE	Prompt: !,$C(7),"SORRY THAT ALREADY EXISTS",! Line Location: ID+6
Function Call: WRITE	Prompt: ! Line Location: C+0
Function Call: WRITE	Prompt: !,"Cannot pool this unit" Line Location: C+3
Function Call: WRITE	Prompt: !,$J(A,2),") ",$P(Y,U),?30,$P(Y,U,2) Line Location: S+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: S+2
Function Call: WRITE	Prompt: $C(7),!,"Select a number from 1 to ",A Line Location: S+2
Routine Call	DIC Line Location: C+3
Routine Call	DIE Line Location: SET+2

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	ID+4, ID+5, C+8, K
^LAB(66 - [#66]	LRBLJD1+7, LRBLJD1+8, LRBLJD1+12, C+3
^LRD(65 - [#65]	ID+6, ID+7, ID+8, ID+9, C+7, C+8!, K!, XR!, SET+1*
^TMP($J	S, S+1, S+3

Name	Field # of Occurrence
>> %	LRBLJD1+14, C+5, SET*
>> A	LRBLJD1+7, LRBLJD1+13, ID+1, S, S+1, S+2*
>> B	LRBLJD1+13*, LRBLJD1+14
>> B(	S*, S+3
>> C	LRBLJD1+7*
>> DA	LRBLJD1+8, LRBLJD1+11, ID+7, ID+8, ID+9, C+4, C+8, K, SET+1, SET+2
>> DA(1	SET+2*
DIC	C+3*!
DIC("S"	C+3*
DIC(0	C+3*
>> DIE	SET+2*
>> DR	SET+2*
DTIME	S+2
DUZ	C+7
>> E	K*
>> LR	ID+2, ID+3, C+1, C+2
>> LR("%"	C+4!
>> LR("%4"	C+5*
>> LR("%5"	LRBLJD1+7*
>> LR("C"	ID+8*, ID+9
>> LR(2	ID+2
>> LRCAPA	LRBLJD1+6, LRBLJD1+8, ID+7, ID+8
>> LRDFN	S+1, S+3, SET+1, SET+2
>> LRE	LRBLJD1+9, LRBLJD1+10, ID+1*
>> LRE("P"	C+4*, C+7
>> LRE(1	ID+7*, ID+8, SET
>> LRE(2	C+7, C+8
>> LRE(3	ID+7*
>> LRE(4	LRBLJD1+7, LRBLJD1+12
>> LRE(6	ID+7, C+5, C+6
>> LRE(69	ID+7, C+6*
>> LRE(9	C+5*
>> LRF	C+5
>> LRL	C+4*, C+5, C+7, C+8, CMV
>> LRM	LRBLJD1+14*
LRP	LRBLJD1+14!
LRP(	LRBLJD1+13, ID+1, ID+8, C+7*, K
LRP(1	LRBLJD1+10*
LRT	LRBLJD1+6!*
LRT(	LRBLJD1+7*
LRT(0	LRBLJD1+8
>> LRV	LRBLJD1+7, LRBLJD1+8, ID+8, C+3
>> LRV(10	C+7*
>> LRV(15	CMV*
>> LRW("MO"	LRBLJD1+6
>> LRX	LRBLJD1+8, LRBLJD1+10, LRBLJD1+11, ID+8*, XR
>> N	LRBLJD1+10*, LRBLJD1+11, C, C+7
U	LRBLJD1+8, ID, C, C+3, S, S+2, SET
X	ID, ID+2, ID+3, ID+4!, ID+5, ID+6, ID+7, ID+9, C, C+1 , C+2, C+8, K!, S, S+2, S+3, CMV
Y	LRBLJD1+10, LRBLJD1+13, ID+7, C!, C+3, C+4, C+5, C+7, C+8, S* , S+3*, SET
Y(0	C+3, C+4
>> Z	ID+8*
>> Z(1	XR*