Routine: DIVR1

Package	Total	Call Graph
VA Fileman	11	(,DD)^%DT $$GET1^DID $$VENTRY^DIEFU ($$VFIELD,$$VFILE)^DILFD $$FNO^DILIBF ^DIM GET^DIOU ^DIR $$IENCHK^DIT3 DIVROUT^DIV (DE,DIBT,IJ)^DIVU
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

(,DD)^%DT $$GET1^DID $$VENTRY^DIEFU ($$VFIELD,$$VFILE)^DILFD $$FNO^DILIBF ^DIM GET^DIOU ^DIR
$$IENCHK^DIT3 DIVROUT^DIV (DE,DIBT,IJ)^DIVU

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
VA Fileman	1	DIV

Package

Total

Caller Graph

VA Fileman

DIV

External References

Name	Field # of Occurrence
^%DT	D+1
DD^%DT	DQ+4
^%ZIS	EN+3
^%ZISC	Q
^%ZTLOAD	EN+4
$$GET1^DID	DIVRFILE+2
$$VENTRY^DIEFU	DIVRREC+4, ONE+1
$$VFIELD^DILFD	DIVRDR+9
$$VFILE^DILFD	DIVRFILE+1
$$FNO^DILIBF	DIVRFILE+2
^DIM	K
GET^DIOU	DE99+2
^DIR	FF
$$IENCHK^DIT3	ONE
DIVROUT^DIV	DQ+8
DE^DIVU	XDE+2
DIBT^DIVU	DIVRREC+3
IJ^DIVU	DIVRREC+1, DIVRREC+4, DIVRREC+6, DIVRREC+8, MULT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?20,"* NO ERRORS FOUND *" Line Location: DQ+7
Function Call: WRITE	Prompt: !!?TAB,$P(^DD(DIVRFILE,FLD,0),U)_" (#"_FLD_")",?40,W Line Location: SET+7
Function Call: WRITE	Prompt: !?5,@("D"_Z),?15,$P(^(@("D"_Z),0),U) Line Location: IEN+2
Function Call: WRITE	Prompt: !,@("D"_Z),?10,$P(^(@("D"_Z),0),U) Line Location: IEN+5
Function Call: WRITE	Prompt: " (",K(Z),")" Condition for execution: Z Line Location: IEN+5
Function Call: WRITE	Prompt: " (",K(Z),")" Condition for execution: Z Line Location: IEN+6
Function Call: WRITE	Prompt: !?5,$P(^DD(DIVRFILE,FLD,0),U)," (#",FLD,")",?35,W,?50,M Line Location: IEN+6
Function Call: WRITE	Prompt: ! Condition for execution: V Line Location: IEN+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H1+0
Function Call: WRITE	Prompt: "Verify Fields File: ",DIVRFI0_" "_DIVRFINM,?(IOM-25) Line Location: H1+0
Function Call: WRITE	Prompt: DATE Line Location: H1+0
Function Call: WRITE	Prompt: DATE Line Location: H1+0
Function Call: WRITE	Prompt: !,"Field Name (Field #)",?40,"Type" Line Location: H1+1
Function Call: WRITE	Prompt: !?5,"Entry #",?15,"Name",?50,"ERROR" Line Location: H1+2
Function Call: WRITE	Prompt: ! Line Location: H1+3
Function Call: WRITE	Prompt: "-" Line Location: H1+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H2+0
Function Call: WRITE	Prompt: "Verify Fields File: ",DIVRFI0_" "_DIVRFINM,?(IOM-25) Line Location: H2+0
Function Call: WRITE	Prompt: DATE Line Location: H2+0
Function Call: WRITE	Prompt: DATE Line Location: H2+0
Function Call: WRITE	Prompt: !,"Entry #",?10,"Name" Line Location: H2+1
Function Call: WRITE	Prompt: !?5,"Field Name (Field #)",?35,"Type",?50,"ERROR" Line Location: H2+2
Function Call: WRITE	Prompt: ! Line Location: H2+3
Function Call: WRITE	Prompt: "-" Line Location: H2+3
Routine Call	DIR Line Location: FF
Routine Call	%ZIS Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DIVRDR+4, DIVRDR+7, DIVRDR+8, SET+1, SET+5, SET+7, SET+8, MULT+1, MULT+4, V+2 , IEN+6
^DD("KEY" - [#.31]	SET+9
^DIBT(	DIVRREC+4
^TMP("DIERR"	DQ+1!
^TMP("DIVR1"	DQ+1!, DQ+7, X*

Label References

Name	Line Occurrences
@(	R+4
DE99	XDE+3
DIVRDR	DIVRREC+1, DIVRREC+4, ONE+5
DIVRFILE	DQ+5
DIVRREC	DQ+6
F	P, V+4, D+2, N+1
FF	SET+7, MULT, IEN
H1	DIVRREC+1
H2	DIVRREC+4, DIVRREC+6, DIVRREC+8, FF+1
MULT	SET+6
ONE	DIVRREC+7
Q	DQ+7, DQ+8
SET	DIVRDR+4, DIVRDR+8, DIVRDR+9, MULT+4
X	R+3, P+1, V, V+2, V+3, S, S+1, D+1, N, K , F
XDE	SET+10

Name	Field # of Occurrence
^(	IEN+2, IEN+3, IEN+5, IEN+6
^(0	V+1, IEN+3, IEN+6
^(12.1	SET+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ONE+2~, ONE+4*
%DT	D~
%Y	IT+1~*
%ZIS	EN+2~, EN+3*
D	ONE+2~, ONE+4*~
D0	DIVRREC+3~, DIVRREC+4*
DA	DQ~, MULT+2~, X
DA(	X
DATE	DQ~, DQ+4*, H1, H2
DE	DQ~, DIVRREC+4, XDE+1, XDE+2*, XDE+4, MULT+2~
DE(99	DE99+3*
DEPTH	ONE+2~, ONE+3*, ONE+4, ONE+5
>> DIC("S"	SET+8
>> DIERR	DQ+5, DQ+7
DIR	FF~
DIR(0	FF*
DIRUT	DQ~, DIVRREC+4, DIVRDR+4, DIVRDR+5, DIVRDR+8, SET+7, MULT, MULT+4, IEN, FF
DIUTIL	DQ~, DQ+3*
>> DIVRDR	DIVRDR+2*, DIVRDR+3, DIVRDR+5
DIVRFI0	DQ~, DIVRFILE+2*, DIVRREC+3, DIVRREC+4, H1, H2
DIVRFIIN	DQ~, DIVRFILE*, DIVRREC+1, DIVRREC+6, DIVRREC+8, ONE, ONE+1, XDE+1
DIVRFILE	DIVRFILE, DIVRFILE+1, DIVRFILE+2, DIVRDR+4, DIVRDR+7, DIVRDR+8, DIVRDR+9, SET+1, SET+7, SET+8 , SET+9, XDE+1, XDE+2, XDE+3, MULT+1, MULT+2~, MULT+3, MULT+4, V+2, IEN+6
DIVRFINM	DQ~, DIVRFILE+2*, H1, H2
>> DIVROUT	X
>> DIVRREC	EN+1, EN+4, DIVRREC, DIVRREC+1, DIVRREC+2, DIVRREC+3, DIVRREC+5, DIVRREC+7, ONE, ONE+1 , ONE+3, ONE+4, X
>> DIVRREC(	DIVRREC+7
DS	DIVRREC+3~, DIVRREC+4, ONE+2~, ONE+5, XDE+2
DT	DQ+4
END	DIVRDR~, DIVRDR+7*, DIVRDR+8
F	DIVRDR~, DIVRDR+1, XDE, XDE+2, MULT+2~, MULT+3*
FD	DE99~, DE99+2
FI	DE99~, DE99+2
FLD	DIVRDR~, DIVRDR+1, DIVRDR+4, DIVRDR+7, DIVRDR+8, DIVRDR+9, SET+1, SET+7, SET+8, SET+9 , XDE+3, MULT+1, MULT+2~, MULT+3, MULT+4*, V+2, IEN+6
I	DQ~, DIVRREC+6~, DIVRREC+7, MULT+2~
I(	IEN+2, IEN+5
I(0	X+1
IO	DQ+3
IO("Q"	EN+4
IOF	H1, H2
IOM	H1, H1+3, H2, H2+3
IOSL	SET+7, MULT, IEN
IOST	FF
IT	SET~, SET+1, SET+8, S, D*, D+1, IT+1
IT(1	SET+8*
J	DQ~, MULT+2~
K	DQ~, MULT+2~
K(	IEN+5, IEN+6
KEY	SET~, SET+9*, R, R+1
L	H1+3~, H2+3~
M	SET~, R+1, R+2, P+1, V, V+1, V+2, V+3, S, S+1* , D+1, N, K, F, IT*, IEN+3, IEN+6
NP	DE99~
OUT	DIVRDR~
PC	DIVRDR~, DIVRDR+5*, DIVRDR+7, DIVRDR+9
PC3	SET~, SET+1*, P, S+1
PG	DQ~, DQ+3, H1, H1+4, H2, H2+4*
POP	EN+2~, EN+3
Q	DIVRDR~, DIVRDR+1*, V, S, S+1, IT
R	DQ~, DIVRREC, DIVRREC+1, SET+7, XDE+1, MULT+1, X, IEN+1, IEN+4, FF+1
REC	DQ~, DQ+3*
S	DIVRDR~, DIVRDR+1*, DIVRDR+5, V, V+1, V+3, S+1
SUB	EN+2~, EN+4*
T	SET~, SET+2*, SET+3, R+4
TAB	DQ~, DQ+3, SET+7, MULT+1, MULT+3, MULT+5*
TYP	SET~, SET+1*, SET+2, SET+4, SET+5, SET+6, SET+8, MULT+3, R, S , D+1, N, IT
U	SET+1, SET+5, SET+7, XDE+2, MULT+1, V+1, V+2, V+3, IEN+2, IEN+3 , IEN+5, IEN+6
V	DQ~, MULT+2~, MULT+5, X, IEN+2, IEN+3, IEN+5, IEN+6
W	SET~, SET+3*, SET+7, IEN+6
X	R, R+1, P+1, V, V+1, V+3, S, S+1, N, K , F, IT, X, IEN+2, IEN+5*, FF~
Y	DQ~, DQ+4, DIVRREC+3~, DIVRREC+4, DIVRDR~, SET~, SET+1, S, D~, D+1 , F~, IT, IT+1, DE99+1~, DE99+2, DE99+3, FF~
Y(0	SET+1*
Z	DIVRDR~, DIVRDR+5, DIVRDR+6~, X, IEN+2, IEN+3, IEN+5, IEN+6
>> ZTQUEUED	DQ+2
>> ZTREQ	DQ+2*
ZTRTN	EN+2~, EN+4*
ZTSAVE	EN+2~
ZTSAVE(	EN+4*
ZTSAVE("DIVRDR"	EN+4*
ZTSAVE("DIVRFILE"	EN+4*
ZTSAVE("DIVROUT"	EN+4*

Customize PDF page

Package: VA Fileman

Routine: DIVR1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: