Routine: LRACM

Package	Total	Call Graph
Lab Service	6	LRLTR^LRAC1 STA^LRACK (A,ASK)^LRACM1 LPG^LRACM2 DEL^LRACM4 LOCA^LRWU
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package

Total

Call Graph

Lab Service

LRLTR^LRAC1 STA^LRACK (A,ASK)^LRACM1 LPG^LRACM2 DEL^LRACM4 LOCA^LRWU

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIC

Package	Total	Caller Graph
Lab Service	7	LR7OSUM LRAC INITIALIZE LRACM1 LRACM2 LRACM2F LRACM3 LRACSUM

Package

Total

Caller Graph

Lab Service

LR7OSUM LRAC INITIALIZE LRACM1 LRACM2 LRACM2F LRACM3 LRACSUM

Name	Field # of Occurrence
^%ZIS	L+3
^%ZISC	L+3, LOC1+2
^%ZTLOAD	L+3
^DIC	DIC
LRLTR^LRAC1	LOC1+1
STA^LRACK	MSG+1
A^LRACM1	LOC
ASK^LRACM1	L
LPG^LRACM2	KILL+2
DEL^LRACM4	LRAC
LOCA^LRWU	L

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?25,"Kill now taking place!!!",$C(7) Line Location: LRAC+0
Function Call: WRITE	Prompt: !?25,"Kill under way!!!",$C(7) Line Location: LRKILL+0
Function Call: WRITE	Prompt: !?7,"SORRY, NO DATA FOR LOCATION ",LRLLOC Line Location: L+1
Function Call: WRITE	Prompt: !!,$C(7),"NO PREVIOUS RUN DEFINED",! Line Location: L+2
Function Call: READ	Prompt: "Select HOSPITAL LOCATION NAME: " Formatting: ! Timeout: DTIME Variable: X Line Location: DIC+0
Function Call: WRITE	Prompt: !,"I will initialize various portions of the Lab cumulative package.",!,"Continue only if you want to start over with the cumulative.",! Line Location: KILL+0
Function Call: READ	Prompt: "Do you want to continue? N// " Formatting: !! Timeout: 120 Variable: X Line Location: KILL+1
Function Call: WRITE	Prompt: !!,"O.K.",!! Line Location: KILL+1
Function Call: READ	Prompt: "Initialize all page numbers? Y// " Formatting: !! Timeout: 120 Variable: X Line Location: KILL+2
Function Call: WRITE	Prompt: !!,$C(7),"THE CUMULATIVE APPARENTLY HAS NOT FINISHED.",!,"Do NOT try to reprint reports that have not finished printing!",!,"TO MANUALLY RUN/RESTART CUMULATIVE USE THE OPTION LRAC MANUAL." Line Location: MSG+2
Function Call: READ	Prompt: "Press any key to continue: " Formatting: !! Timeout: DTIME Variable: X Line Location: MSG+3
Routine Call	DIC Line Location: DIC
Routine Call	%ZIS Line Location: L+3

Name	Line Occurrences (* Changed, ! Killed)
^LAC("LGOT"	LRAC!
^LAC("LRAC" - [#64.7]	LRAC!*
^LAC("LRKILL"	LRKILL!
^LRO(69 - [#69]	L+1
^SC - [#44]	DIC
^TMP($J	END+1!, END+3!

Name	Line Occurrences
END	LOC, LOC1+2
L	LOC, L+1
LOAD	LOC1
LRAC	KILL+2
LRKILL	KILL+2
MSG	LOC

Name	Field # of Occurrence
^(0	DIC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	KILL+2!
>> %ZIS	L+3*
DIC	DIC*!, KILL+2!
DIC(0	DIC*!
DT	DIC
DTIME	DIC, MSG+3
HRCN	END+4!
IO	L+4
IO("Q"	L+3!
IOP	MSG+1*, MSG+3!
LRACT	END+1!
LRADD	END+1!
LRAG	END+1!
LRAMT	END+1!
LRAN	END+1!
LRBDT	END+1!
LRBOT	END+4!
LRCALE	END+1!
LRCDT	END+4!
LRCL	END+1!
LRCTR	END+1!
LRCTRR	END+1!
LRCW	END+1!
LRD	END+1!
LRDFN	LOC1*, END+1!
LRDIS	END+1!
LRDOC	END+1!
LRDP	END+4!
LRDPF	END+1!
LRDT	L+1, L+2, END+1!
LRDT1	END+1!
LREDT	END+1!
LRF	END+1!
LRFALT	END+1!
LRFD	END+2!
LRFD1	END+1!
LRFDE	END+1!
LRFDT	END+2!
LRFED	END+1!
LRFFDT	END+2!
LRFFLG	END+1!
LRFMT	END+2!
LRFN	END+2!
LRFULL	END+2!
LRG	END+4!
LRGRM	END+1!
LRHI	END+2!
LRI	END+1!
LRIDT	LOC1*, END+2!
LRIF	END+1!
LRII	END+2!
LRIIDT	END+2!
LRIL	END+2!
LRIN	END+1!
LRINN	END+2!
LRIOZERO	END+1!
LRIV	END+2!
LRJS	END+2!
LRKL	END+1!
LRL	END+1!
LRLFDT	END+2!
LRLLOC	L+1, DIC*, END+2!
LRLNS	END+2!
LRLO	END+2!
LRLOHI	END+2!
LRLTR	END+1!
LRMH	END+2!
LRMHN	END+3!
LRMU	END+3!
LRMULT	END+3!
LRMYC	END+2!
LRNM	L*, END+3!
LRNOFL	END+3!
LRNON	END+3!
LRNOT	LOC, END+2!
LRNP	END+3!, END+4!
LRNUM	END+2!
LRNX	END+2!
LRNXSW	END+2!
LROFDT	END+3!
LROFMT	END+3!
LROUT	END+1!
LRPAR	END+2!
LRPERM	END+4!
LRPG	END+3!
LRPG2	END+2!
LRPL	END+3!
LRPPT	END+2!
>> LRRE	L, LOC1+2
LRRPTN	END+2!
LRSDT	END+1!
LRSET	END+2!
LRSH	END+3!
LRSHD	END+3!
LRSHN	END+3!
LRSIC	END+2!
LRSPM	END+3!
LRSPM1	END+3!
LRSS	END+2!
LRSUB	END+3!
LRTAB	END+3!
LRTBC	END+2!
LRTD	END+3!
LRTF	END+3!
LRTIM	END+3!
LRTLOC	END+3!
LRTM	END+3!
LRTNN	END+3!
LRTOPP	END+3!
LRTOT	END+3!
>> LRTRUE	LOC1*
LRTS	END+3!
LRTST	END+3!
LRTSTS	END+3!
LRTSTVAL	END+3!
LRTT	END+3!
LRUDT	END+3!
LRVAR	END+4!
LRVDT	END+3!
LRVIDT	END+3!
LRWRD	END+3!
LRWRDVEW	END+2!
LRX	END+1!
LRXDT	END+2!
LRXLR	END+2!
LRYDT	DIC*, END+2!
LRYESCOM	END+4!
PNM	END+4!
>> POP	L+3
SEX	END+4!
SSN	END+4!
U	L, DIC
>> X	L, DIC, KILL+1, KILL+2, MSG+3
>> Y	DIC
Z	END+4!
ZTDESC	L+3!
ZTIO	L+3!
>> ZTQUEUED	LOAD+1
>> ZTREQ	LOAD+1*
ZTRTN	L+3*!
ZTSAVE	L+3!
ZTSAVE("DT"	L+3*
ZTSAVE("DUZ"	L+3*
ZTSAVE("LR*"	L+3*
ZTSAVE("U"	L+3*
ZTSK	L+3!

Customize PDF page

Package: Lab Service

Routine: LRACM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOAD	;from LRACM3
LOC
EN	;
LRKILL
L
LRAC
DIC
LOC1
KILL
MSG	;from LRACM1, LRACM3
END	;from LRACM1, LRACM2, LRACM3, LRACSUM