Routine: LRUTT

Package	Total	Call Graph
Lab Service	3	(B,F,L,M,S,SSN,V,YN)^LRU (BEG,END)^LRUTL $$Y2K^LRX
VA Fileman	3	H^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Lab Service	1	LR CAPTT

Entry Points

External References

Name	Field # of Occurrence
H^%DTC	T
^DIC	AT, HLOC, INST+1
^DIR	HL+5
B^LRU	HL+7
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	QUE+22
V^LRU	END
YN^LRU	HL+8
BEG^LRUTL	HL+9
END^LRUTL	QUE+24
$$Y2K^LRX	W+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?24,"Laboratory Test Turnaround Times" Line Location: LRUTT+3
Function Call: WRITE	Prompt: $C(7),!,"NO TESTS SELECTED" Line Location: AT+1
Function Call: WRITE	Prompt: ! Line Location: HL+0
Function Call: WRITE	Prompt: ! Line Location: HL+7
Function Call: WRITE	Prompt: !!,"Print patients " Line Location: HL+8
Function Call: WRITE	Prompt: !,LRT(A),?30,"Count: ",$J(LRH(A),5),?45,"Average time:" Line Location: QUE+6
Function Call: WRITE	Prompt: $J(Y,3)," hr" Condition for execution: Y Line Location: QUE+6
Function Call: WRITE	Prompt: ?65,$J(X,2)," min" Condition for execution: X Line Location: QUE+6
Function Call: WRITE	Prompt: !,LRP,?31,SSN Line Location: QUE+8
Function Call: WRITE	Prompt: !,LRP,?31,HRCN Line Location: QUE+22
Function Call: WRITE	Prompt: !?3,LRT(T),?32,$$Y2K^LRX(B,"5D"),?44 Line Location: W+1
Function Call: WRITE	Prompt: $J(Y,3)," hr" Condition for execution: Y Line Location: W+1
Function Call: WRITE	Prompt: ?50,$J(X,2)," min" Condition for execution: X Line Location: W+1
Function Call: WRITE	Prompt: ?60,"Arr time:" Line Location: W+1
Function Call: WRITE	Prompt: ?60,"Arr time:" Line Location: W+1
Function Call: WRITE	Prompt: !?3,LRT(T),?33,$$Y2K^LRX(B,"5D"),?44 Line Location: W+3
Function Call: WRITE	Prompt: $J(Y,3)," hr" Condition for execution: Y Line Location: W+3
Function Call: WRITE	Prompt: ?50,$J(X,2)," min" Condition for execution: X Line Location: W+3
Function Call: WRITE	Prompt: ?60,"Arr time:" Line Location: W+3
Function Call: WRITE	Prompt: ?60,"Arr time:" Line Location: W+3
Function Call: WRITE	Prompt: !,"Location: ",LRL,!,"Laboratory test turnaround times from: ",LRSTR," to ",LRLST,!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRP,?31,SSN Line Location: H1+0
Function Call: WRITE	Prompt: !,LRP,?31,HRCN Line Location: H1+2
Function Call: WRITE	Prompt: $C(7),!!,"There must be an abbreviation entered for the hospital location!" Line Location: HLOC+0
Routine Call	DIC Line Location: AT HLOC INST+1
Routine Call	DIR Line Location: HL+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	QUE+19
^DIC - [#1]	QUE+17
^DIC(4 - [#4]	INSTHIT+7, INSTHIT+8
^LAB(60 - [#60]	CANCEL+10
^LR - [#63]	QUE+13, QUE+22, CANCEL+12
^LRO(68 - [#68]	C+4, S
^LRO(69 - [#69]	QUE+1, QUE+3, QUE+5, C, CANCEL+5, CANCEL+8
^SC - [#44]	INSTHIT+5
^SC("C"	INSTHIT+3
^TMP($J	QUE!, QUE+12, QUE+20, QUE+22, L, W+3, S+1

Label References

Name	Line Occurrences
$$CANCEL	C+2
$$INSTHIT	QUE+5
AT	AT
C	QUE+3, QUE+5
END	LRUTT+3, AT+1, HL+5, HL+7, HL+9, QUE+24
H	QUE, QUE+6, QUE+22, H1+2
H1	W
HL	HL+6
HLOC	LOC+1, LOC+3
INST	LOC+2, LOC+3
L	QUE+22
LOC	HL+6
S	C+4
T	C+4, S
W	L

Naked Globals

Name	Field # of Occurrence
^(	QUE+22
^(0	QUE+19, C, C+4
^(2	C
^(3	C

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HL+8*
>> %H	T
>> A	QUE, QUE+6, QUE+12, QUE+13, QUE+20, QUE+22, L, W+3
B	L*, L+1!, W+3
C	L*, L+1!, W+3
CANFLAG	CANCEL+3~, CANCEL+4, CANCEL+16, CANCEL+17
COLTIME	CANCEL+3~, CANCEL+5*, CANCEL+6, CANCEL+7
DIC	AT!, HLOC!, INST+1*!
DIC("S"	INST+1*
DIC(0	AT, HLOC, INST+1*
DIR	HL!
DIR("?"	HL, HL+1, HL+2, HL+3, HL+4*
DIR("A"	HL+5*
DIR(0	HL+5*
>> DIRUT	HL+5
DUZ(2	QUE+19
E	L, L+1!, W+3, C, C+1
HIT	INSTHIT+1~, INSTHIT+2, INSTHIT+11, INSTHIT+12
>> HRCN	QUE+19, QUE+20, QUE+22, H1+2
INSTFLAG	HL, QUE+2, QUE+4, END!, INST+1
INSTNUM	INSTHIT+1~, INSTHIT+5*, INSTHIT+6, INSTHIT+7, INSTHIT+8
IO	QUE
IOSL	QUE+6, QUE+22, W
IOST	H
LOCNUM	INSTHIT+1~, INSTHIT+3*, INSTHIT+4, INSTHIT+5
>> LR("%"	H+1
>> LR("F"	QUE*, H
>> LR("Q"	QUE+6, QUE+22, L, W, H, H1+2
LR63	CANCEL+3~, CANCEL+12*, CANCEL+13, CANCEL+14
>> LRA	QUE+1*, QUE+3, QUE+5, C, S+1, CANCEL+5, CANCEL+8
>> LRB	QUE+3, QUE+5, C, CANCEL+5, CANCEL+8
>> LRC	C*, C+4, S
>> LRDFN	S*, S+1
>> LRDPF	QUE+22*
>> LRF	C+4*, S
>> LRG(	QUE, QUE+6, S+1
>> LRH(	QUE, QUE+6, S+1
>> LRI	HL+8*, S+1
LRID	CANCEL+3~, CANCEL+8*, CANCEL+9, CANCEL+12
>> LRL	HL, HL+6, QUE+3, H+1, HLOC, INST+1*, INSTHIT+7
>> LRLDT	HL+7*, QUE+1
>> LRLST	H+1
>> LRP	QUE+22*, H1+2
>> LRS	C, C+4, S
>> LRS(1	S*, S+1
>> LRSDT	HL+7*, QUE+1
>> LRSTR	H+1
>> LRT	AT+1, S*, S+1
>> LRT(	AT*, QUE, QUE+3, QUE+5, QUE+6, W+3
LRTIME	CANCEL+3~, CANCEL+7*, CANCEL+12
>> LRX	C*, C+4, S, S+1
>> LRY	HL+6, LOC+1, LOC+2*, HLOC, INST+1
PC1	CANCEL+3~, CANCEL+14*, CANCEL+15, CANCEL+16
>> POP	HL+9
>> Q	QUE+22*
T	QUE+3, QUE+5, L*, L+1!, W+3, C, C+4, S+1, CANCEL+10
TESTNUM	CANCEL+3~, CANCEL+10*, CANCEL+11, CANCEL+12
U	AT, QUE+22, HLOC, INSTHIT+5, INSTHIT+10
>> V	T*
>> W	C*, C+4, S, S+1
>> X	QUE+6, QUE+13, QUE+14, QUE+15, QUE+16, QUE+17, QUE+18, QUE+20, T, W+3* , C+4, S, HLOC, INST+1
>> X(1	W+3*
X99	INSTHIT+1~, INSTHIT+8*, INSTHIT+9, INSTHIT+10
XLOC	INSTHIT~, INSTHIT+3
XLRL	QUE+5*, END!
>> Y	AT, HL+6, HL+7, QUE+6, QUE+15, QUE+18, QUE+19, W+3*, LOC+3, HLOC , INST+1
>> Y(0	HLOC, INST+1
>> ZTRTN	HL+9*
>> ZTSK	HL+9

Customize PDF page

Package: Lab Service

Routine: LRUTT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOC	; check file 44 for location entered
C
END
HL
INSTHIT(XLOC)	;
H
H1	; D H Q:LR("Q") W !,LRP,?31,SSN Q ; ----- BEGIN IHS/MSC/MKK - LR5.21031 - Restoring LR5.21018 modifications
L
S
QUE
AT
W
CANCEL()	; ; This function checks to see if a test was cancelled. ; If the test was cancelled the function evaluates as "true".
INST	; check file 4 for location entered
HLOC
T