Routine: LRACM2

Package	Total	Call Graph
Lab Service	8	(LRCALE,SUB2)^LRAC2 ENT^LRAC3 END^LRACM ^LRACM2F ^LRDPA ^LRRK SUM^LRRP2 ($$Y2K,PT)^LRX
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	2	LRAC FULL PATIENT SUMMARY LRACM

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
LRPG2
DQ1
LRPG1
MISC
SUM
LIST	;Call new patient list routine
L
Q
P
PG4
R
PG3
LPG	;from LRACM
END
DQ
LRPG

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DISREGARD ANY PAGES THAT ARE PRINTED IN ADDITION TO THE ONE REQUESTED.",! Line Location: LRPG+1
Function Call: READ	Prompt: !! Timeout: X): Variable: "ENTER PAGE NUMBER TO BE REPRINTED (X Line Location: LRPG1+0
Function Call: WRITE	Prompt: $C(7),!!,"NO DATA FOUND WITH THIS PAGE NUMBER FOR THIS PATIENT!" Line Location: DQ1+0
Function Call: WRITE	Prompt: !!?20,"This may take a while. LRPG X-REF INITILIZATION!",! Line Location: LPG+1
Function Call: WRITE	Prompt: "." Line Location: LPG+2
Function Call: WRITE	Prompt: LRDFN Line Location: LPG+2
Function Call: WRITE	Prompt: !!," LOCATION: ",L,?40,"LRDFN" Line Location: L+0
Function Call: WRITE	Prompt: !!,"This report gets all lab data in the computer for a patient!",! Line Location: SUM+0
Function Call: WRITE	Prompt: ?61,"File: ",LRDPF,?70,$S($D(LRWRD):$E(LRWRD,1,9),1:"") Line Location: R+2
Routine Call	%ZIS Line Location: LRPG1+1

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PG4
^LAB(64.5 - [#64.5]	DQ1+2
^LAC(	LRPG, DQ1!, MISC
^LAC($J	LRPG!, DQ1+5!
^LR - [#63]	LRPG, LRPG1+1, LRPG2, PG3, PG4, LPG+2!, Q
^LRO(69 - [#69]	L, P, Q

Name	Field # of Occurrence
>> %DT	DQ1+1*
>> %ZIS	LRPG1+1*
AGE	LRPG1+3!
DFN	LRPG1+3!, Q*
DIC	LRPG!
DOB	LRPG1+3!
DTIME	LRPG1
>> I	LRPG1+2*
IO	DQ1, DQ1+3, DQ
IO("Q"	LRPG1+1!, LRPG1+2!, LIST+4!
IO(0	DQ1, DQ
IOF	DQ
>> L	L*, P, Q, R+1
>> LRAN	PG4*
>> LRBOT	DQ1+2*
>> LRCDT	DQ1+1*
LRCTRR	LIST+4!, Q*, R+1
>> LRCUM	SUM+1*
LRDFN	LRPG, LRPG1+1, LRPG1+3!, DQ1, LRPG2, PG3, PG4, LPG+2*, MISC
LRDPF	LRPG, LRPG1+3!, Q, R+2
LRDT	DQ1+1*, LIST+4!, L, P, Q
LRDT1	LIST+4!, DQ
>> LRIDT	LRPG2*, PG3, PG4
>> LRIIDT	PG4*
>> LRIPG	PG4*
>> LRLLOC	DQ1+1*
>> LRPERM	LRPG*
LRPG	LRPG1, LRPG1+3!, DQ1+3, PG3, PG4
LRPG1	DQ1+3*, DQ1+4!
>> LRPG2	DQ1+3*
>> LRPRTPG	SUM+1*
LRRE	LRPG*, LRPG1+3!
>> LRSPM	PG4*
>> LRSUB	PG3*, PG4
>> LRTLOC	PG4*
>> LRTNN	LRPG2*
>> LRTST	PG4*
>> LRVDT	PG4*
>> LRVIDT	PG4*
LRWRD	LRPG1+3!, DQ1+1, R+2
LRXLR	LRPG*, LRPG1+3!, DQ1, MISC
>> LX1	PG4*
>> LX2	PG4*
>> P	P*, Q, R+1
PNM	LRPG1+3!
>> POP	LRPG1+1
>> Q	Q*, R+1
SEX	LRPG1+3!
SSN	LRPG*, LRPG1+3!, R+1
U	LRPG, DQ1+2*, PG3, PG4, R+1
>> X	DQ1+1, Q
X2	LRPG!
>> Y	DQ1+1, Q, R+1
>> Z	PG4*
>> ZTDESC	LRPG1+2, LIST+4
ZTIO	LRPG1+3!, LIST+4!
>> ZTQUEUED	DQ1, DQ
>> ZTREQ	DQ1, DQ
ZTRTN	LRPG1+2, LRPG1+3!, LIST+4!
ZTSAVE	LRPG1+3!, LIST+4!
ZTSAVE(	LRPG1+2*
ZTSAVE("LRCTRR"	LIST+4*
ZTSAVE("LRDT"	LIST+4*
ZTSAVE("LRDT1"	LIST+4*
ZTSK	LRPG1+3!, LIST+4!