Routine: DIVR

Package	Total	Call Graph
VA FileMan	9	$$LABEL^DIALOGZ S2^DIBT1 ($$OUTPUT,$$VALINT)^DIETLIBF $$FROOTDA^DIKCU WRAP^DIKCU2 ^DIR ($$DATE,IJ)^DIUTL (DEVSEL,INIT,Q)^DIV (LOADVER,VER)^DIVC
Kernel	2	^%ZISC $$S^%ZTLOAD

Package	Total	Caller Graph
VA FileMan	3	DIU3 DIUTL DIV

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN
TYPE
OUTT
UNIQ
E
XEC
DANGL
Q
QX
R
DOTYPE
P
S
D
N	;
K	;
F
X
DA
0	;
L
IX
V
INDEX	;Check new indexes
IER	;Print info about invalid indexes. (Modeled after DA subroutine above)
IER1	;If top level, write record info and message
LF	;Issue a line feed or EOP read CALLED FROM DIV
HDR	;Print header
EN(A,DIFLD,DQI)	;Main Entry Point for VEN version

External References

Name	Field # of Occurrence
^%ZISC	Q+2, Q+3
$$S^%ZTLOAD	LF+8
$$LABEL^DIALOGZ	TYPE+1, TYPE+2
S2^DIBT1	Q+7
$$OUTPUT^DIETLIBF	TYPE+4
$$VALINT^DIETLIBF	TYPE+4
$$FROOTDA^DIKCU	OUTT+3
WRAP^DIKCU2	IER+4
^DIR	LF+5
$$DATE^DIUTL	D+1
IJ^DIUTL	BEGIN+6
DEVSEL^DIV	BEGIN+2
INIT^DIV	BEGIN+3
Q^DIV	BEGIN
LOADVER^DIVC	OUTT+4
VER^DIVC	INDEX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "--FIELD #",DIFLD," ",$$LABEL^DIALOGZ(A,DIFLD),"-- (",W,")" Line Location: TYPE+1
Function Call: WRITE	Prompt: $C(7)_"(CANNOT CHECK" Line Location: UNIQ+2
Function Call: WRITE	Prompt: "(CHECKING" Line Location: UNIQ+3
Function Call: WRITE	Prompt: " CROSS-REFERENCE)" Line Location: UNIQ+4
Function Call: WRITE	Prompt: ! Line Location: Q+7
Function Call: WRITE	Prompt: DA,?10,$S($D(^(DA,0)):$E($P(^(0),U),1,30),1:DA),?40,$E(M,1,IOM-40) Line Location: DA+2
Function Call: WRITE	Prompt: DA(X),?10,$S($G(^(DA(X),0))]"":$P(^(0),U),1:"*NO ZERO NODE*") Line Location: DA+4
Function Call: WRITE	Prompt: DA,?10,$S($D(^(DA,0)):$P(^(0),U),1:DA) Line Location: IER1+2
Function Call: WRITE	Prompt: ?40,DIVTXT(DIVI) Line Location: IER1+5
Function Call: WRITE	Prompt: DA(X),?10,$P(^(DA(X),0),U) Line Location: IER1+10
Function Call: WRITE	Prompt: ! Line Location: LF+1
Function Call: WRITE	Prompt: ! Line Location: LF+5
Function Call: WRITE	Prompt: @IOF Line Location: LF+9
Function Call: WRITE	Prompt: "VERIFY FIELDS REPORT" Line Location: HDR+3
Function Call: WRITE	Prompt: !,DIVFIL_$J("",DIVTAB)_DIVDAT_DIVPG Line Location: HDR+6
Function Call: WRITE	Prompt: !,DIVFIL,!,$J("",IOM-1-$L(DIVDAT)-$L(DIVPG))_DIVDAT_DIVPG Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J("",IOM-1)," ","-"),! Line Location: HDR+8
Routine Call	DIR Line Location: LF+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	Q+4
^DD(	BEGIN+5, TYPE+3, OUTT, OUTT+5, UNIQ+1, E+1, V+2
^DD("IX" - [#.11]	OUTT+2
^DD("KEY" - [#.31]	OUTT+1
^DI(	TYPE
^DIBT - [#.401]	Q+8, Q+9
^UTILITY("DIVR"	Q, Q+8, QX+1!, X, X+1, IER+7, IER+10
^UTILITY("DIVRIX"	DANGL+3!, DANGL+9, QX+1!

Label References

Name	Line Occurrences
0	E+2
@(	DOTYPE, IX+1, INDEX+28
BEGIN	EN+1
DA	DA+4
E	UNIQ+1
F	P, V+4
HDR	LF+9
IER	INDEX+14, INDEX+25
IER1	IER1+11
L	L+4
LF	TYPE+3, UNIQ+4, DOTYPE+1, DA+1, DA+3, DA+4, IER1+2, IER1+4, IER1+6, IER1+9
Q	UNIQ+4, Q+8
QX	Q+5
X	DANGL+7, DANGL+8, DANGL+9, R+1, P+1, S, S+1, D, F, IX , V, V+2, V+3
XEC	E+3

Naked Globals

Name	Field # of Occurrence
^(	OUTT+5, UNIQ+1, DANGL+10*, Q, DA+2, DA+4, IER1+2, IER1+10
^(0	TYPE, TYPE+3, OUTT+6, DA+2, DA+4, V+1, IER1+2, LF+2
^(1	OUTT+7, OUTT+8
^(12.1	E+1
^(2	OUTT, OUTT+7, OUTT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TYPE, OUTT+5, OUTT+8, L, L+1, IX
A	BEGIN+5, BEGIN+6, TYPE+1, TYPE+2, TYPE+3, TYPE+4, OUTT, OUTT+1, OUTT+2, OUTT+3 , OUTT+4, OUTT+5, UNIQ+1, E+1, V+2, INDEX+6, EN~
C	Q+6~
D	Q+6~
D0	Q+6~
DA	DANGL+1~, DANGL+6, DANGL+7, DANGL+9, DANGL+10, X+1, DA+2, L, L+2, INDEX+6 , IER+10, IER1+2
DA(	X+1, DA+4, IER+10, IER1+10
DDA	Q+6~
DDC	BEGIN+4~, TYPE+3, TYPE+4, UNIQ, E, E+1, Q+8, Q+9, S, F+1 , F+3
DDC(1	E+1*
DE	BEGIN+4~, E+3, E+5, E+6, XEC, 0+1, L, L+1, L+2*
DE(	L*
DE(1	E+5*
DG	BEGIN+4~, UNIQ+2, UNIQ+5
DG(	OUTT+8*, IX
DIBT	Q+5!
DIC	XEC!
DIC("S"	E+1
DICL	Q+6~
DIDANGL	BEGIN+4~, E+4*, DANGL+8
DIFLD	BEGIN+5, TYPE+1, TYPE+3, TYPE+4, OUTT, OUTT+1, OUTT+2, OUTT+4, OUTT+5, UNIQ , UNIQ+1, E+1, Q+6~, V+2, EN~
DIINDEX	INDEX+5!
DINAKED	LF+2~, LF+10
DIPA	BEGIN+4~
DIR	LF+4~
DIR(0	LF+5*
DIROUT	QX+1!
DIRUT	TYPE+3, UNIQ+4, XEC, DANGL, DANGL+4, Q+5, Q+8, QX+1!, R, DA+1 , DA+4, INDEX+9, INDEX+11, INDEX+12, INDEX+17, INDEX+19, INDEX+20, INDEX+21, IER1+2, IER1+3 , IER1+4, IER1+9, LF+7, LF+8*
DISV	Q+5!
>> DIU	UNIQ
DIU0	Q+6~
DIVDAT	BEGIN~, HDR+5, HDR+6, HDR+7
DIVFIL	BEGIN~, HDR+5, HDR+6, HDR+7
DIVFILE	INDEX+18~, INDEX+19*, INDEX+20, INDEX+21, INDEX+22, INDEX+24
DIVI	IER+1~, IER1+3*, IER1+4, IER1+5
DIVINDEX	QX!, INDEX+6, INDEX+9!
DIVINDEX(	INDEX+11, INDEX+12
DIVKEY	QX!, INDEX+5!, INDEX+6, INDEX+17!
DIVKEY(	INDEX+19, INDEX+20, INDEX+21, INDEX+22
DIVKNM	INDEX+18~, INDEX+20*, INDEX+21, INDEX+22, INDEX+24
DIVMODE	BEGIN~, BEGIN+1*
DIVNAME	INDEX+10~, INDEX+11*, INDEX+12, INDEX+13
DIVNUM	INDEX+10~, INDEX+12*, INDEX+13
DIVPG	BEGIN~, HDR+2*, HDR+5, HDR+6, HDR+7
DIVPROB	INDEX+18~, INDEX+22*, INDEX+23
DIVREQK	BEGIN+4~, OUTT+1*, QX!, R+1, R+2
DIVRIX	BEGIN+4~, DANGL*, DANGL+2, DANGL+4, DANGL+6
DIVRIX(	OUTT+8*, DANGL
DIVROOT	OUTT+3*, QX!, INDEX+6
DIVROUTT	BEGIN+4~, TYPE+4, OUTT, F+2, F+3
DIVTAB	HDR+1~, HDR+5*, HDR+6
DIVTMP	BEGIN+4~, QX!
DIVTXT	IER+1~, IER+4
DIVTXT(	IER1+3, IER1+5
DIVTXT(0	IER+4*
DIVTYPE	BEGIN+4~, OUTT+3, UNIQ+6, QX!, INDEX+28
DIVXRNM	INDEX+18~, INDEX+21*, INDEX+22, INDEX+24
DIVZ	BEGIN+4~, TYPE+3*, P, S+1
DK	Q*, QX+1!
DQ	QX+1!, F*, F+3, F+4
DQI	UNIQ+4, DANGL+11, EN~
DR	BEGIN+4~, TYPE+3*, TYPE+4, UNIQ, E+1, QX+1!, R+1, F+4
DT	Q+9
DTOUT	QX+1!
DUOUT	QX+1!
E	BEGIN+4~, UNIQ+6, UNIQ+7, Q, Q+5, Q+8, IX+1
I	BEGIN+4~, Q+6~
I(	DA+4, L+4, IER1+10
I(0	DANGL+2, DANGL+7, X+2, 0+1, IER+11
IOF	LF+9
IOM	DA+2, HDR+5, HDR+7, HDR+8
IOSL	DOTYPE+1, LF+1
IOST	LF+3
IX	DANGL+1~, DANGL+2, DANGL+4, DANGL+5, DANGL+6, DANGL+8
J	BEGIN+4~, Q+6~
J(""	BEGIN+6
J(0	Q
L	Q+6~
M	BEGIN+4~, E+4, E+5, E+6, XEC!, DANGL+7, DANGL+8, DANGL+9, DANGL+12, Q* , R+2, R+3, P+1, S, S+1, D, F, F+4, DA+2, IX* , V, V+1, V+2, V+3, INDEX+13, INDEX+23, INDEX+24*, IER+4
O	Q+6~
P	QX+1!
P4	BEGIN+4~, TYPE+3*, E+2
POP	BEGIN~, BEGIN+2
Q	Q+6~
S	Q+6~
SN	DANGL+1~, DANGL+2*, DANGL+4, DANGL+6, DANGL+8
SX	DANGL+1~, DANGL+6*, DANGL+7, DANGL+8, DANGL+9
T	BEGIN+4~, BEGIN+7, BEGIN+8, TYPE, TYPE+3, OUTT+3, UNIQ+1, UNIQ+2, UNIQ+6, UNIQ+7 , DOTYPE
TYP	BEGIN+4~, BEGIN+5*, BEGIN+7, BEGIN+8, BEGIN+9, TYPE
U	BEGIN+5, TYPE, TYPE+3, OUTT+6, Q+9, DA+2, DA+4, V+1, V+2, V+3 , IER1+2, IER1+10
V	BEGIN+4~, BEGIN+6*, TYPE+2, OUTT+8, X+1, X+2, DA+3, DA+4, 0+1, L , L+2, L+4, IER+10, IER+11, IER1+6, IER1+10
W	BEGIN+4~, BEGIN+8, TYPE, TYPE+1, TYPE+2*, X, IER+7
X	OUTT+6~, OUTT+8, UNIQ, E, E+2, E+3, E+4, DANGL+8, R+1, R+2 , P, P+1, S, S+1, D, D+1, F, F+1, F+2, F+3 , X+1, X+2, DA, DA+4, 0+1, L, L+2, L+4, IX, V , V+1, V+3, INDEX+13, INDEX+23, IER+1~, IER+10, IER+11, IER1+1, IER1+10, LF+4~
Y	E, E+2, E+3, E+4, XEC!, Q+8, Q+9, P, S, F+3~* , 0+1, L, L+4*, LF+4~
>> ZTQUEUED	Q+1, Q+5, LF+8
>> ZTREQ	Q+1*
>> ZTSTOP	LF+8*

Marked Items

Name	Field # of Occurrence
$T(^%ZISC	Q+2

Customize PDF page

Package: VA FileMan

Routine: DIVR

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items