Routine: LRBLJD1

Package	Total	Call Graph
Lab Service	5	^LRBLBU K^LRBLJD (,EN)^LRBLJDA ^LRBLW (D,YN)^LRU
VA Fileman	2	^DIC ^DIE

Package

Total

Call Graph

^LRBLBU K^LRBLJD (,EN)^LRBLJDA ^LRBLW (D,YN)^LRU

^DIC ^DIE

Name	Field # of Occurrence
^DIC	C+2
^DIE	SET+2
^LRBLBU	ID+2, C+1
K^LRBLJD	LRBLJD1+5, LRBLJD1+8
^LRBLJDA	ID+6
EN^LRBLJDA	C+3
^LRBLW	ID+7
D^LRU	LRBLJD1+10, ID+6, C+4
YN^LRU	LRBLJD1+11, C+4, SET

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+5
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+6
Function Call: WRITE	Prompt: !!,"No need to pool 1 unit",! Line Location: LRBLJD1+8
Function Call: WRITE	Prompt: !!,"Pool will contain the following ",$P(^LAB(66,LRE(4),0),"^")," units:",!?3,"ID #",?22,"Expiration date" Line Location: LRBLJD1+9
Function Call: WRITE	Prompt: !,$J(A,2),?3,$P(LRP(A),"^",2),?15,$P(LRP(A),"^",3),?22 Line Location: LRBLJD1+10
Function Call: WRITE	Prompt: Y Line Location: LRBLJD1+10
Function Call: READ	Prompt: "Select UNIT ID number for POOL: " Formatting: !! Timeout: DTIME Variable: X 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+4
Function Call: WRITE	Prompt: !,$C(7),"SORRY THAT ALREADY EXISTS",! Line Location: ID+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: !,"Selection ",N," (Unit ID to pool): " Line Location: C+0
Function Call: WRITE	Prompt: !,"Cannot pool this unit" Line Location: C+2
Function Call: WRITE	Prompt: !,$J(A,2),") ",$P(Y,U),?30,$P(Y,U,2) Line Location: S+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: S+2
Function Call: WRITE	Prompt: $C(7),!,"Select a number from 1 to ",A Line Location: S+2
Routine Call	DIE Line Location: SET+2
Routine Call	DIC Line Location: C+2

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

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

Name	Line Occurrences
C	LRBLJD1+7, C+1, C+2, C+3, C+4
CMV	C+7
ID	ID+4, ID+5
K	LRBLJD1+11, ID, ID+3
S	ID+9, S+2
SET	S+1
XR	ID+7

Name	Field # of Occurrence
^(	S, SET+1*
^(0	ID+6, ID+8
^(1	ID+7*, C+7
^(2	K
^(3	ID+4
^(4	ID+4, K
^(5	K!

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service

Routine: LRBLJD1

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
C
SET
K
S
XR
CMV
ID