Routine: LRBLJL

Information

LRBLJL ; IHS/DIR/AAB - UNIT RELOCATION 7/7/97 08:32 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRBLJL.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Lab Service	7	(,A,W)^LRBLJL1 (CK,EN)^LRBLPUS EN1^LRBLU (,S)^LRBLW ^LRDPA (CK,DT,FRE,V,YN)^LRU X^LRUWK
VA Fileman	3	^%DT ^DIE ^DIK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRBLIDR

Entry Points

External References

Name	Field # of Occurrence
^%DT	T+1
^DIE	T+4
^DIK	CLNP+1
^LRBLJL1	R+1
A^LRBLJL1	LRBLJL+3
W^LRBLJL1	A
CK^LRBLPUS	LRBLJL+3
EN^LRBLPUS	R
EN1^LRBLU	LRBLJL+3
^LRBLW	G
S^LRBLW	LRBLJL+3
^LRDPA	P
CK^LRU	T+3
DT^LRU	T+2
FRE^LRU	T+4
V^LRU	END
YN^LRU	D+3, I
X^LRUWK	LRBLJL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: $C(7),!!,"No units available for release",!,"Use appropriate options to assign or modify" Line Location: R+1
Function Call: WRITE	Prompt: $C(7),!!?3,"( # unsatisfactory unit)" Line Location: R+2
Function Call: WRITE	Prompt: $C(7),!!?3,"( *Expired unit )" Line Location: R+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: !,"Select (1-",F,"): " Line Location: M+0
Function Call: WRITE	Prompt: !,"Enter number(s) from 1 to ",F,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units" Line Location: M+0
Function Call: WRITE	Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed" Line Location: M+2
Function Call: WRITE	Prompt: $C(7),!,"START with a NUMBER !!",! Line Location: M+3
Function Call: WRITE	Prompt: !,A,")" Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"Unit unsatisfactory, cannot release." Line Location: ALL+8
Function Call: WRITE	Prompt: $C(7),!,"Unit unsatisfactory, cannot release." Line Location: DIE+1
Function Call: READ	Prompt: "DATE/TIME UNIT RELOCATION: NOW//" Formatting: !! Timeout: DTIME Variable: X Line Location: T+0
Function Call: WRITE	Prompt: $C(7),!?5,"TIME and DATE must be entered, future time not allowed." Line Location: T+1
Function Call: WRITE	Prompt: $C(7),!!,"Relocation time must be after DATE/TIME unit assigned " Line Location: T+2
Function Call: WRITE	Prompt: "(",Y,")" Line Location: T+2
Function Call: WRITE	Prompt: $C(7),!!,UNIT," has had a previous Unsatisfactory inspection and cannot be relocated.",!!,"Relocation entry <DELETED>",! Line Location: PRE+2
Function Call: WRITE	Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN" Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field" Line Location: C+1
Function Call: WRITE	Prompt: $C(7),!,"ABO not rechecked" Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!,"ABO recheck different from ABO GROUP" Line Location: D+1
Function Call: WRITE	Prompt: $C(7),!,"Rh NEG unit not rechecked" Line Location: D+2
Function Call: WRITE	Prompt: !,$P(LRE,"^",2)," relocated" Line Location: G+0
Function Call: WRITE	Prompt: !?15,$C(7),"*Unsatisfactory unit(s) returned to BLOOD BANK*",! Line Location: S+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: $C(7),!!,"No units with incomplete answers or units to be sent from the blood bank",!,"with unsatisfactory inspections can be relocated. Relocation entry <DELETED>",! Line Location: W+0
Routine Call	DIE Line Location: T+4

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

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.3 - [#61.3]	LRBLJL+3, C
^LRD(65 - [#65]	F, ALL+13, T+8, PRE+1, C, D, D+2, S
^TMP($J	P!, A, ALL+6, ALL+7, DIE!

Name	Line Occurrences
A	M+4
ALL	M+1
C	ALL+7, DIE
CLNP	T+6, T+7
D	C+2
DIE	R+4, A
END	LRBLJL+3, LRBLJL+4, P
F	ALL+13, T+3
G	ALL+13, T+8
M	M, M+2, M+3
P	P
PRE	ALL+12, T+7
R	P
T	ALL+10, T+1
W	T+6

Name	Field # of Occurrence
^(	A, F
^(0	F*
^(10	D
^(11	D+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	D+3, I
%DT	T+1*!
%DT(0	T+1*
>> A	A*
C	P!
DA	P!, F*, ALL+13, S
DA(1	T+3, CLNP+1
>> DFN	P
DIC	P!
DIE	P!, T+3*
>> DIK	CLNP+1*
DR	P!, T+4*
DTIME	M, T
DUZ	ALL+13
>> F	R+1, R+4, M
>> L	ALL+7*, DIE
>> LR("ALL"	M+1*, T+5
>> LR("CK"	DIE!, T+3
>> LR("STOP"	ALL+5, ALL+6, ALL+10, ALL+11, T+5, T+6*
>> LR(44	T+3
>> LRA	M+4*
>> LRAA(4	LRBLJL+4
>> LRB	LRBLJL+3*, C
>> LRBL	P*, ALL+13
>> LRC	ALL+6*, ALL+7
>> LRCAPA	LRBLJL+4, G
>> LRDFN	P
>> LRE	ALL+7, ALL+8, DIE, DIE+1, T+2, T+3, C, C+2, D, D+1 , D+2, D+3, G
LRG	P!
LRG(	ALL+12, T+7
LRG(1	R+2!
>> LRK	ALL+13, T+8
>> LRP	ALL+13
>> LRPFN	P
>> LRQ	M+4*
>> LRR(	ALL+7, DIE, DIE+1, T, T+2*
LRV	P!, R+4, M+4, A, DIE
LRW	P!
LRW(	R*
LRW(1	F, ALL+13, T+1*, T+8
LRW(2	ALL+13, T+6
LRW(3	ALL+13, T+3*
LRW(4	ALL+13
LRW(5	T+3*, T+6
>> LRX	A, F, ALL+7, ALL+8, ALL+9, ALL+12, ALL+13, DIE*, DIE+1, T , T+2, T+3, T+7, T+8, PRE+1, CLNP+1, C, C+1, C+2, D , D+1, D+2, D+3, S
>> LRZ	M+4, ALL+5
>> LRZ(	ALL+7, ALL+8, ALL+9, DIE, CLNP+1, C, C+1, C+2, D, D+1* , D+2, D+3
R	P!, C
R(	C
U	M, ALL+7, ALL+8, T, T+2, PRE+1, D+2, D+3
UNIT	PRE+1~*, PRE+2
V	P!, R+3!
>> X	LRBLJL+4, R, M, M+1, M+2, M+3, M+4, F, T, T+1 , T+3, D, D+1, D+2*, D+3
Y	LRBLJL+3, DIE!, T+1, T+2, T+6!, G!, I, S*
>> Z	C*

Customize PDF page

Package: Lab Service

Routine: LRBLJL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

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
A
PRE	; Warning message if a unit has had a previous Unsatisfactory Inspection
ALL	; This subroutine detects if a previous Inspection was ; Unsatisfactory, then calls up another subroutine to give ; a warning message. It also evaluates each individual unit ; within a group selected to be sure that all required testing ; is complete and compatible with the patient.
END
D
G
F
I
DIE
M
C
P
S
R
T
W
CLNP	; When indicated, current relocation episode is deleted.