Routine: LRBLJDM

Package	Total	Call Graph
Lab Service	5	K^LRBLJD ^LRBLJDA ^LRBLW (D,YN)^LRU D^LRUT
VA FileMan	4	^%DT H^%DTC (,$$FIND1)^DIC $$GET1^DIQ

Package	Total	Caller Graph
Lab Service	1	LRBLJD

Entry Points

Name	Comments	DBIA/ICR reference
C
ONLY
CK
T
F	;from LRBLJD
S	;from LRBLJD
SET
D
OUT
ISISBT(PROD)	; This function should only be called within this routine ; This function is a boolean of whether a product type is ISBT128 (true) or Codabar (false)
ISBTSPLT(UIEN,NUM)	; This function should only be called from within this routine ; This function checks for an appropriate number of split units for ISBT128 product types ; UIEN Unit Internal Entry Number ; PROD is the product code ; NUM is the number of aliquots requested by the user

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(LRP(X),"^"),?40,"vol(ml):",$J($P(LRP(X),"^",2),5) Line Location: C+1
Function Call: WRITE	Prompt: !?48,"-----",!?34,"Total vol(ml):",$J(S,5) Line Location: C+2
Function Call: WRITE	Prompt: !!,$C(7),"Total volume of components greater than unit. SELECTIONS DELETED TRY AGAIN !",!! Line Location: C+2
Function Call: WRITE	Prompt: " SELECTIONS DELETED TRY AGAIN",! Line Location: C+3
Function Call: WRITE	Prompt: !!,$C(7),"Component selected must be the ONLY ONE for this unit.",!," Selection ",$P(LRP(Y),"^")," canceled !",! Line Location: ONLY+0
Function Call: WRITE	Prompt: $C(7),!!,"Cannot select more than one red blood cell product.",!,"Selection ",$P(LRP(Y),"^")," canceled !",! Line Location: CK+0
Function Call: WRITE	Prompt: $C(7),!,!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to divide unit.",! Line Location: D+0
Function Call: READ	Formatting: ! Prompt: "Enter number of aliquots (1-5): " Variable: A Timeout: DTIME Line Location: D+1
Function Call: WRITE	Prompt: !!,"Answer must be 1,2,3,4, or 5",! Line Location: D+2
Routine Call	DIC Line Location: C
Routine Call	DIC Line Location: D+11 ISBTSPLT+20

FileNo	Call Tags
^LAB(66 - [#66]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(66 - [#66]	LRBLJDM+3, C, S+2, D
^LRD(65 - [#65]	S+1, SET, SET+1*, D+10, ISBTSPLT+8, ISBTSPLT+18

Name	Field # of Occurrence
^(	S+1*, SET
^(0	S+1*

Name	Field # of Occurrence
>> %	C+3*
>> %DT	F+1*
>> %H	F+1*
>> A	S+2, SET, D+1, D+2, D+4, D+5
ANS	ISBTSPLT+5~, ISBTSPLT+9, ISBTSPLT+10, ISBTSPLT+14, ISBTSPLT+22*, ISBTSPLT+25
>> B	D+11, D+12
>> C	S+1, S+2, SET, SET+1
CHK	ISBTSPLT+6~, ISBTSPLT+11, ISBTSPLT+20, ISBTSPLT+21, ISBTSPLT+23
CNT	D+7~, D+10, D+11, ISBTSPLT+6~, ISBTSPLT+18, ISBTSPLT+20
CODE	ISBTSPLT+6~, ISBTSPLT+11, ISBTSPLT+12, ISBTSPLT+20
DIC	C*!
DIC(0	C*
DTIME	D+1
I	D+10, ISBTSPLT+6~, ISBTSPLT+9, ISBTSPLT+18, ISBTSPLT+20
>> LR("C"	D+5*, D+11, D+12
LRBLPCOD	D+7~, D+8, D+11
>> LRCAPA	S+2, D
>> LRD	C+5*
>> LRE	C+4, T, S+1, D+6, D+8, D+12
>> LRE(1	C+4, S+1
>> LRE(4	C
>> LRH	C+5*
>> LRM	C+2, C+5, D+5
>> LRO(1	C+5, T, F+1, F+3
>> LRO(9	F+2
LRP	C+1, C+2!, C+3!
LRP(	LRBLJDM+3, C, C+1, C+5, ONLY!, CK!
LRT	S+3!*
LRT(	S+2*
>> LRV	LRBLJDM+3, C+5, S+1, S+2, D, D+11
>> LRV(1	C+5, D+11
>> LRV(10	C+4, D+5
>> LRV(11	S+1, D+9, D+12
>> LRW("MO"	S+3
>> LRX	S+1, SET, SET+1, D+4, D+10
>> LRZ	LRBLJDM+3, C+2, CK, CK+1*
NUM	ISBTSPLT~, ISBTSPLT+7, ISBTSPLT+20, ISBTSPLT+21, ISBTSPLT+23, ISBTSPLT+24
PROD	ISISBT~, ISISBT+2, ISBTSPLT+6~, ISBTSPLT+8*, ISBTSPLT+10, ISBTSPLT+11
>> S	C+1*, C+2
>> T(2	F+1*
>> T(3	F+1, F+2
>> T(4	F+2*
>> T(5	F+1*, F+2
U	D, D+1, D+6, D+8, D+12
UIEN	ISBTSPLT~, ISBTSPLT+7, ISBTSPLT+8, ISBTSPLT+18
>> X	LRBLJDM+3, C, C+1, CK, CK+1, F+1, F+2, F+3, S+1*
>> X(1	C+1*, C+4
>> Y	C, ONLY, CK, T, F+1, F+3