Routine: DIV

Package	Total	Call Graph
VA Fileman	6	YX^%DTC ^DIC ^DIR (,HDR,LF,Q)^DIVR ^DIVR1 (DIBT,IJ)^DIVU
Kernel	2	^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
VA Fileman	3	DIU DIVR DIVR1
Lab Service	1	LRARVER
Local Area Programs	1	AZHLSCFV

Entry Points

External References

Name	Field # of Occurrence
YX^%DTC	INIT+4
^%ZIS	DEVSEL+4, DEVSEL+18
^%ZTLOAD	DEVSEL+14
^DIC	DIC+4
^DIR	ALL+2
^DIVR	1+3, ENQUEUE+7
HDR^DIVR	INIT+13
LF^DIVR	FLDS+4
Q^DIVR	DIC+3, ENQUEUE+6
^DIVR1	VER+5
DIBT^DIVU	DIVROUT+3
IJ^DIVU	NEXTLVL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," NO ENTRIES ON FILE!" Line Location: DIV+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIC+2
Function Call: WRITE	Prompt: !,"VERIFY WHICH "_$P(^DD(A,0),U)_": " Line Location: DIC+2
Function Call: WRITE	Prompt: I Line Location: 1+1
Function Call: WRITE	Prompt: W Line Location: 1+1
Function Call: WRITE	Prompt: " ",W Line Location: 1+1
Function Call: WRITE	Prompt: "--",$P(Y(0),U),"--" Line Location: FLDS+3
Function Call: WRITE	Prompt: !!?5,"YES means that every field at this level in the file will" Line Location: H+0
Function Call: WRITE	Prompt: !?5,"be checked to see if it conforms to the input transform." Line Location: H+1
Function Call: WRITE	Prompt: !!?5,"NO means that ALL will be used to lookup a field in the" Line Location: H+2
Function Call: WRITE	Prompt: !?5,"file which begins with the letters ALL, e.g., ALLERGIES." Line Location: H+3
Function Call: WRITE	Prompt: ! Line Location: DEVSEL+4
Function Call: WRITE	Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),! Line Location: DEVSEL+15
Function Call: WRITE	Prompt: !,"Report canceled!",! Line Location: DEVSEL+16
Routine Call	DIC Line Location: DIC+4
Routine Call	DIR Line Location: ALL+2
Routine Call	%ZIS Line Location: DEVSEL+4 DEVSEL+18

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	DEVSEL+3, DEVSEL+6
^DD(	DIC+2, FLDS, FLDS+1, INIT+8
^DIBT(	DIVROUT+4!, DIVROUT+6, DIVROUT+7
^DIC - [#1]	INIT+7
^TMP("DIVR1"	DIVROUT+6, DIVROUT+9, X!
^UTILITY("DIVR"	DIC+4!

Label References

Name	Line Occurrences
1	FLDS+3, ENQUEUE+8
ALL	DIC+3
DEVSEL	DIC+3, DIC+7
DIC	DIC+5, DIC+6
FLDS	DIC+3, NEXTLVL+3, ENQUEUE+6
INIT	DIC+3, DIC+7, ENQUEUE+5
NEXTLVL	FLDS+2
Q	DIC+3, DIC+7
X	DIVROUT, DIVROUT+8

Naked Globals

Name	Field # of Occurrence
^(	FLDS
^("NM"	INIT+8
^(0	DIV+7, INIT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INIT+1~, DEVSEL+9~, DEVSEL+11, DEVSEL+12, DEVSEL+13*
%H	INIT+1~, INIT+4*
%ZIS	DEVSEL+2~, DEVSEL+3*
A	DIC+2, DIC+6, FLDS, NEXTLVL+1~, NEXTLVL+2, INIT+7, INIT+8, DEVSEL+2~, DEVSEL+8, DEVSEL+10 , ENQUEUE+1*
C	Q!
COUNT	DIVROUT+2~, DIVROUT+5, DIVROUT+6, DIVROUT+7
DA	1+2!*, NEXTLVL+1~
>> DDC	1+2*
DE	NEXTLVL+1~
>> DIC	DIC*
>> DIC("S"	DIC+1*
>> DIC("W"	DIC*
>> DIC(0	DIC*
>> DIFLD	1+2*
DIR	Q!, ALL+2!
DIR("??"	ALL*
DIR("A"	ALL+1*
DIR(0	ALL*
DIRUT	DIC+3, Q!, FLDS, FLDS+3, FLDS+4, INIT+2!
>> DIU	DIV+6
DIUTIL	DIV+4~*
DIVA	DEVSEL+9~, DEVSEL+10*, ENQUEUE+1, ENQUEUE+2!
DIVDAT	DIV+4~, INIT+5*
DIVFIL	DIV+4~, INIT+7, INIT+8, INIT+9*
DIVI	FLDS+4~, DEVSEL+9~, DEVSEL+10, ENQUEUE+1, ENQUEUE+2!
DIVJ	DEVSEL+9~, DEVSEL+10*, ENQUEUE+1, ENQUEUE+2!
DIVMODE	DIV+4~, DIC+3*, DEVSEL+12, DEVSEL+13, ENQUEUE+6, ENQUEUE+7
DIVPG	DIV+4~
DIVRDR	VER~
>> DIVRFI0	DIVROUT+3
DIVRFILE	VER~
DIVROUT	VER~, DIVROUT, DIVROUT+1, DIVROUT+3, DIVROUT+9
DIVRREC	VER~
DIVT	DEVSEL+9~, DEVSEL+10*, ENQUEUE+1, ENQUEUE+2!
DIVV	DEVSEL+9~, DEVSEL+10*, ENQUEUE+1, ENQUEUE+2!
DIVY	DEVSEL+9~, DEVSEL+10*, ENQUEUE+1, ENQUEUE+2!
DIVZ	1+2, DEVSEL+9~, DEVSEL+10, ENQUEUE+1, ENQUEUE+2!
DQI	DIC+3, DIC+4!, FLDS, NEXTLVL+1~
DR	DIC+6, 1, FLDS, FLDS+1, FLDS+2, FLDS+3, NEXTLVL+2~
DT	DIVROUT+7
DTIME	DIC+2
I	NEXTLVL+1~, DEVSEL+2~, DEVSEL+10, ENQUEUE+1*
I(	DIC+6*
I(0	DIV+6*
IO	INIT+11
IO("Q"	DEVSEL+6
IOF	INIT+12
>> IOP	DEVSEL+18*
IOST	INIT+12
J	DIV+5!, NEXTLVL+1~, DEVSEL+2~, DEVSEL+10, ENQUEUE+1*
J(	DIC+6*
N	Q!
P	DIV+6, DIC+6, Q!, NEXTLVL+1~, NEXTLVL+2*
POP	DIV+4~, DIC+3, DIC+7, DEVSEL+1, DEVSEL+6*
Q	DIV+6, DIC+6, Q!, ENQUEUE+3
S	DIV+6, DIC+6, Q!, ENQUEUE+3
T	1, 1+1, DEVSEL+2~, DEVSEL+10, ENQUEUE+1
U	DIC+2, DIC+6, 1+2, FLDS, FLDS+1, FLDS+3, DIVROUT+7, INIT+7
V	DIV+6, DIC+6, Q!, NEXTLVL+1~, DEVSEL+2~, DEVSEL+10, ENQUEUE+1*
>> W	1+1*
X	DIC+2, DIC+3, DIC+5, ALL+2, INIT+1~, DEVSEL+2~
Y	DIC+3, DIC+5, DIC+6, 1+2, FLDS, NEXTLVL+2~, DIVROUT+2~, DIVROUT+3, DIVROUT+4, DIVROUT+6 , DIVROUT+7, INIT+1~, INIT+5, DEVSEL+2~, DEVSEL+10, ENQUEUE+1
Y(0	DIC+6, 1+2, FLDS*, FLDS+3
Z	DIVROUT+2~, DIVROUT+5, DIVROUT+6, DEVSEL+2~, DEVSEL+10, ENQUEUE+1*
>> ZTDESC	DEVSEL+8*
>> ZTRTN	DEVSEL+7*
>> ZTSAVE(	DEVSEL+11, DEVSEL+12, DEVSEL+13*
ZTSK	DEVSEL+15, DEVSEL+17!

Customize PDF page

Package: VA Fileman

Routine: DIV

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q
ALL
DEVSEL	;Prompt for device
H
FLDS
DIC
1
DIVROUT
INIT	;Get header info and print first header
ENQUEUE	;Entry point for queued reports
VER(DIVRFILE,DIVRREC,DIVRDR,DIVROUT)	;	ICR #1618 Status: Active Usage: Private
NEXTLVL	;
X