Routine: LRUMD

Package	Total	Call Graph
Lab Service	8	(B,F,L,L1,M,S,SSN,V,YN)^LRU (,EN)^LRUMD1 (D,LR)^LRUMD2 ^LRUMDM (,EN,EN1)^LRUMDP (,EN)^LRUMDS (,BEG,END)^LRUTL $$Y2K^LRX
VA Fileman	2	^%DT ^DIE

Package

Total

Call Graph

(B,F,L,L1,M,S,SSN,V,YN)^LRU (,EN)^LRUMD1 (D,LR)^LRUMD2 ^LRUMDM (,EN,EN1)^LRUMDP (,EN)^LRUMDS (,BEG,END)^LRUTL $$Y2K^LRX

^%DT ^DIE

Package	Total	Caller Graph
Lab Service	4	LRUMD LRUMDD LRUMDF LRUMDU

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?11,"Print/display microbiology results (excluding antibiotics)",!?26,"instead of defined lab tests" Line Location: MI+0
Function Call: READ	Prompt: "Enter T or P: " Timeout: DTIME Variable: Z Line Location: A+0
Function Call: WRITE	Prompt: !!,"Print by (T)est list (P)atient list",! Line Location: A+0
Function Call: WRITE	Prompt: $C(7)," Enter 'T' for Test List or 'P' for Patient list" Line Location: A+0
Function Call: WRITE	Prompt: Q Line Location: I+0
Function Call: WRITE	Prompt: ?(16+(X*8)),$J($P(Y,"^"),6),$P(Y,"^",2) Line Location: W+6
Function Call: WRITE	Prompt: ?(16+(X*8)),$J(^TMP($J,"N",LR,X),7) Line Location: H+2
Function Call: WRITE	Prompt: ?(16+(X*8)),$J(^TMP($J,"N",LR,X),7) Line Location: H+3
Function Call: WRITE	Prompt: !,LR("%1") Line Location: H+4
Function Call: WRITE	Prompt: W Line Location: H1+0
Function Call: WRITE	Prompt: !,SSN,?18,$E(LRL,1,5),?39,LRP Line Location: H1+0
Function Call: WRITE	Prompt: W Line Location: H1+1
Function Call: WRITE	Prompt: !,HRCN,?18,$E(LRL,1,5),?39,LRP Line Location: H1+1
Function Call: READ	Prompt: "if they haven't used the lists since: T-6 MONTHS// " Formatting: !?10 Timeout: DTIME Variable: X Line Location: EN2+0
Function Call: WRITE	Prompt: !?10,"Enter a date in the past",! Line Location: EN2+1
Function Call: WRITE	Prompt: "." Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"DONE" Line Location: EN2+4
Function Call: WRITE	Prompt: !!?10,$C(7),"DONE" Line Location: EN2+5
Routine Call	DIE Line Location: EN

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	W+3
^LAB(61 - [#61]	QUE, W+5
^LR - [#63]	I, W+1, W+3, W+6
^LRO(69.2 - [#69.2]	LRUMD+5, P+2, EN2+3!, EN2+4, GRP+5
^TMP($J	QUE!, QUE+1, P+1, I, W+6, H+3
^VA(200 - [#200]	H+1

Name	Line Occurrences
$$GRP	P+2
A	A
DT	MI
EN2	EN2+1
END	LRUMD+3, LRUMD+4, LRUMD+5, MI, A+1, DT, DT+1, QUE+2, L+1, EN
H	W, H1+1
H1	W+5
I	P, P+1, P+2
L	LRUMD+3, EN, EN2
MI	LRUMD+4
P	QUE+1
W	I

Name	Field # of Occurrence
^(	I, W+3, W+6, EN2+3
^(0	EN2+4*

Name	Field # of Occurrence
>> %	LRUMD+4, MI, A+1, EN2+2*
%DT	EN2+1*!
%DT(0	EN2+1*
>> A	EN2+3*
>> A(1	EN2+3*
>> B	I*
>> DA	EN*
>> DFN	W+3*
>> DIE	EN*
>> DR	EN*
DTIME	A, EN2
DUZ	LRUMD+5, P+2, H+1, GRP+5
>> E	I*
>> F	QUE+1*
>> HRCN	W+5, H1+1
IO	QUE
IOF	QUE+2
IOSL	W+5
IOST	QUE+2, H, H+1
>> LR	QUE+1*, I, W+6, H+3
>> LR("%"	I+1
>> LR("%1"	H+4
>> LR("F"	W*, H
>> LR("Q"	QUE+1, P+1, P+2, I, I+1, W, W+5, H, H1+1
>> LRA	LRUMD+3*, GRP+4, GRP+6
>> LRAA	LRUMD+5, P+2, EN, EN2+3, EN2+4, GRP+5
>> LRDATE	W+1*, W+5
>> LRDFN	P+1, P+2, I, W+1, W+3, W+6, GRP+5
>> LRDFN(1	LRUMD+3*, P
LRDPAF	LRUMD+3!
>> LRDPF	W+3*
>> LRE	LRUMD+3*, P+1, P+2, H+1
>> LRE(1	H+1
>> LRG	LRUMD+3*, P+1, P+2
>> LRI	I*, W+1, W+6
>> LRL	W+3*, W+5, H1+1
>> LRLDT	DT*, I
>> LRM	MI*, DT
>> LRP	W+3*, W+5, H1+1
>> LRR	P, W
>> LRSDT	DT*, I
>> LRT	I, W+6
>> LRV	LRUMD+3*, LRUMD+5
>> P	P+1, P+2
>> POP	DT+1
>> R	P+1, P+2
>> SSN	W+3*
>> T	W+1*, W+5
U	A, EN2
>> V	W+3*
>> W(1	I, I+1, W+1, W+3, W+5, H1+1
X	LRUMD+4, A, W+1, W+3, W+6, H+3, L+1, EN2, EN2+3, EN2+4* , GRP+2~, GRP+3, GRP+6, GRP+7
X(1	EN2+4*
Y	LRUMD+3, DT, W+3, W+6, EN, EN2, EN2+1, EN2+3, GRP+2~, GRP+5 , GRP+6
>> Z	A*, DT+1
>> Z(2	QUE*, W+5
>> Z(3	QUE*, W+5
>> Z(5	QUE*, W+5
>> ZTRTN	DT+1*
>> ZTSK	DT+1

Information

Name	Comments	DBIA/ICR reference
A
EN
END
I
H
H1	; D H Q:LR("Q") I W(1)>1 W !,SSN,?18,$E(LRL,1,5),?39,LRP
MI
L	;from LRUMDU
P
EN2
QUE
W
GRP()	; function to determine if patient is in selected patient group list when printing by test list ; returns 1 if patient is ok to print, 0 if patient is not in selected patient group list
DT