Routine: LRACM1

Information

LRACM1 ; IHS/DIR/AAB - MENU FOR CUMULATIVE REPORTS CONT. 2/20/91 08:36 ; [ 07/22/2002 12:29 PM ]

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	3	ENT^LRAC1 (END,MSG)^LRACM ($$Y2K,DT)^LRX
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	2	LRACM LRACM3

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"NO DATA IN THE CROSS-REFERENCE FOR THIS LOCATION!" Line Location: LOOP+1
Function Call: WRITE	Prompt: I_"."_" ",$P(^TMP($J,"LRIF",I),U,1) Line Location: N+0
Function Call: READ	Prompt: "Start with patient #: " Formatting: !! Timeout: DTIME Variable: X Line Location: NUM+0
Function Call: WRITE	Prompt: $C(7),!!,"NO DATA IN THE CROSS-REFERENCE FOR THIS LOCATION!" Line Location: LRLOCA+1
Function Call: WRITE	Prompt: I_"."_" ",$P(^TMP($J,"LRIF",I),U,1) Line Location: N1+0
Function Call: READ	Prompt: "End with patient #: " Formatting: !! Timeout: DTIME Variable: X Line Location: NUM1+0
Function Call: WRITE	Prompt: I_"."_" ",L Line Location: DIC+0
Function Call: WRITE	Prompt: " is empty." Line Location: DIC+1
Function Call: READ	Prompt: "LOCATION #: " Timeout: DTIME Variable: X Line Location: DIC+2
Function Call: WRITE	Prompt: !,$C(7),"LOCATION NOT DEFINED!" Line Location: DIC+3
Function Call: WRITE	Prompt: !!,"Last run: ",Y Line Location: DIC1+3
Function Call: WRITE	Prompt: !,"DO NOT try to reprint reports that have not finished!",! Line Location: A+3
Function Call: WRITE	Prompt: !!,"Last run: ",Y Line Location: ASK+3
Routine Call	%ZIS Line Location: NUM1+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.5 - [#64.5]	DIC1+3, A+2, ASK+1, ASK+3
^LRO(69 - [#69]	LOOP+1, LOOP+3, NUM+1, LRLOCA+1, LRLOCA+3, DIC
^TMP($J	LOOP+2!, LOOP+3, N, NUM, LRLOCA+3, N1, NUM1

Name	Field # of Occurrence
^(	LOOP+3, LRLOCA+3, A+2

Name	Field # of Occurrence
>> %DT	ASK+1*
>> %ZIS	NUM1+4*
DIC	DIC1!
DIC("A"	LOOP+1, LRLOCA, DIC+2
DT	DIC1+2, ASK+1, ASK+2
DTIME	NUM, NUM1, DIC+2
>> I	N, NUM+1, N1, DIC, DIC+2
IO	NUM1+5
IO("Q"	NUM1+4!
>> K	NUM+1*
>> L	DIC*, DIC+1
>> L(	LOOP+2, LRLOCA, DIC*, DIC+3, DIC+4
LRAC	END1+2!
>> LRBOT	ASK+1*
>> LRCDT	ASK+1*
>> LRDFN	LOOP+3, LRLOCA+3, NUM1+3*
>> LRDT	LOOP+1, LOOP+3, NUM+1, LRLOCA+1, LRLOCA+3, DIC, ASK+1*
LREN	NUM+1*, LRLOCA+2!, END1+2!
>> LRIF	LOOP+2, LOOP+3, N, NUM, LRLOCA+2, LRLOCA+3, N1, NUM1
LRIG	A+2*, A+4!
>> LRLLOC	LOOP+1, LOOP+3, NUM, LRLOCA, LRLOCA+1, LRLOCA+2, LRLOCA+3, NUM1, NUM1+1, NUM1+2* , NUM1+3, DIC, DIC+4*
LRLOCA	LRLOCA, LRLOCA+2, NUM1+1, NUM1+2, NUM1+3, END1+2!
LRLOCB	NUM1+3*, END1+2!
>> LRNM	NUM, NUM1+1, NUM1+2*
LRNMA	NUM1, NUM1+1, NUM1+2*, END1+2!
>> LRNOT	END, A+1, A+2, A+3
>> LRPERM	ASK+1*
>> LRPPT	LOOP+2, LOOP+3, LRLOCA+2, LRLOCA+3
LRRE	LOOP, END1+2!, DIC1+2, ASK+2*
>> LRSUB	NUM1+3*
LRTRUE	END1*, END1+2!
>> LRXLR	ASK+1*
>> LRYDT	DIC1+2, ASK+2
>> POP	NUM1+4
U	LOOP+3, N, NUM, LRLOCA+3, N1, NUM1, DIC1+3, A+2, ASK+1, ASK+3
>> X	LOOP+2, NUM, LRLOCA, NUM1, NUM1+1, NUM1+2, DIC+2, DIC+3, DIC+4, ASK+1
X1	LOOP!, LOOP+2*, LRLOCA!, NUM1+2
X2	NUM*, NUM1+1, END1!, A+4!
>> Y	DIC, DIC1+3, ASK+1, ASK+3
ZTDESC	NUM1+4!
ZTIO	NUM1+4!
>> ZTQUEUED	END1
>> ZTREQ	END1*
ZTRTN	NUM1+4*!
ZTSAVE	NUM1+4!
ZTSAVE("DT"	NUM1+4*
ZTSAVE("DUZ"	NUM1+4*
ZTSAVE("LR*"	NUM1+4*
ZTSAVE("U"	NUM1+4*
ZTSK	NUM1+4!, DIC1+2!, ASK+2!