Routine: DIETED

Package	Total	Call Graph
VA Fileman	11	NOW^%DTC EDIT^DDW DICS^DIA RANGE^DIA1 $$EZBLD^DIALOG ^DIC YN^DICN EN^DICOMP ^DICOMPW EN^DIEZ ^DIM

Package	Total	Caller Graph
Kernel	1	XPDCOMF
VA Fileman	1	DIET

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	NOW
EDIT^DDW	DDW
DICS^DIA	ALL, DEF+3
RANGE^DIA1	ALL+2, ALL+4
$$EZBLD^DIALOG	KL+1
^DIC	DIETED+4, DIC, SAVEAS+1
YN^DICN	SAVEAS+2
EN^DICOMP	DEF+3
^DICOMPW	DIC+6
EN^DIEZ	NOW+4
^DIM	DIC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO TEMPLATE SELECTED",! Line Location: E+2
Function Call: WRITE	Prompt: "..." Line Location: E+4
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(8077) Line Location: KL+1
Function Call: WRITE	Prompt: "LINE ",LINE Line Location: PROCESS+6
Function Call: WRITE	Prompt: " ERROR!" Line Location: PROCESS+7
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2)," 'Template" Line Location: SAVEAS+2
Routine Call	DIALOG Line Location: KL+1
Routine Call	DIC Line Location: DIETED+4 DIC SAVEAS+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	E+1, DDW+4
^DD(	1+2, 1+5, 1+8, DIC+2
^DD("OS" - [#.7]	NOW+4
^DD("ROU"	NOW+4
^DIC - [#1]	PROCESS+2
^DIE - [#.402]	E+2, E+6, GET+3, SAVEAS+2, SAVEAS+3, SAVEAS+5, SAVEAS+6, NOW, NOW+1, NOW+2! , NOW+3!*, NOW+4
^DIE("F"	SAVEAS+4*
^TMP("DIETED"	KL!
^UTILITY("DIETED"	K!, KL+2*, PUT+1, SAVEFLDS+2, NOW+2
^UTILITY("DIETEDIAB"	K!, ALL+1, DIAB, NOW+3

Label References

Name	Line Occurrences
1	1, 1+6, 1+10, NDB, UP+1
D	DIC+3, L+2
DDW	DDW+5
DEF	DIC+5
DIC	DEF
DOWN	GET+7, 1+7, 1+8
DR	OUT+2, ALL+3, DIC+1, DIC+4, L+2, XEC+4
E	DIETED+5
GET	E+5
K	DDW+2, NOW+5
KL	DDW+1
L	DIC+6
LINE	PROCESS+5
NDB	1
OUT	OUT
PROCESS	DDW+3
PUT	DIETED+6
SAVEAS	SAVEAS+2
SAVEFLDS	SAVEAS+7
UP	1+9
X	ALL+3, SEMIC, DIC+4, DEF

Naked Globals

Name	Field # of Occurrence
^(	NDB, PROCESS+3
^("DIAB"	GET+6
^("ROU"	NOW+4
^("ROUOLD"	NOW+4
^(0	E+3, 1+5, NOW+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	1+1, 1+2, 1+5, 1+8, DOWN, SEMIC+1, DIC+1, DIC+2, DIC+3, L+1 , D~, D+1, DR+1~, DR+2, DR+3, DR+5, SAVEAS+2*, NOW
B	DR+1~, DR+2*, DR+5
D	LINE+1~, LINE+2, LINE+3, OUT, OUT+1, ALL+2~, ALL+4~, SEMIC+1*
D(	ALL+4*
D0	E~
DA	ALL+2~, ALL+4~, DIC+6, DEF+2, XEC+1, XEC+5*
DATE	LINE+1~
DB	E~, GET+1~, GET+4, 1, 1+3, 1+6, DOWN, DOWN+1, NDB, UP+1*
DB(	DOWN+1*, UP+1
DDSCHG	DIETED+3~, DDW+6*
DG	ALL+2~, ALL+4~
DI	E~, GET+6, 1+2, 1+3, 1+5, 1+7, 1+8, DIAT, NDB, UP+1 , PROCESS+2, OUT, ALL+1, DIC+3, L+2, D, DR+2, DIAB
DI(	1+3
DIAB	GET+1~, 1+3, 1+5, PROCESS+1~, SEMIC, DIC+6, XEC+3, XEC+4~, DIAB!
DIAO	GET+1~, GET+4, 1+3, DOWN+1, NDB, NDB+1, UP+1*
DIAO(	DOWN+1*, UP+1
DIAP	PROCESS+1~, PROCESS+2, OUT, ALL+1, D+1, D+2, DR+4, DR+5, DR+7*, DIAB
DIAP(	OUT, D+2*
DIAR	GET+1~, GET+4, 1+3, DOWN, DIAT, NDB, UP+1, PROCESS+1~, PROCESS+2, OUT* , ALL+1, D, D+1*, DR+2, DIAB
DIAR(	DOWN, UP+1, OUT, D
DIAT	GET+1~, GET+4, 1, DOWN, DIAT, NDB, UP+1
DIC	DIETED+3~, DIETED+4, LINE+1~, DIC, PUT+2~, SAVEAS*
DIC("A"	SAVEAS*
DIC("B"	PUT+3*, SAVEAS+2!
DIC("S"	XEC, SAVEAS
DIC(0	DIETED+4, DIC, SAVEAS*
DICMX	LINE+1~, DIC+6, DEF+2
DICOMP	LINE+1~, DIC+6, DEF+2
DICOMPX	LINE+1~
DIET	DIETED+3~, DIETED+5*, EDIT~, E+2, E+6, GET+3, PUT+3
DIETA	GET~, GET+2, 1+6, PROCESS~, PROCESS+3
DIETAB	PROCESS+1~, PROCESS+2, OUT, OUT+1*, D+2
DIETAB(	OUT, D+2*
DIETAD	GET+1~, GET+4, 1+6
DIETED	DIETED+3~, EDIT+1~, E+3*, E+6, DDW+5, SAVEAS
DIETEDER	E~, DDW+5!
DIETEDER(	PROCESS+6*
DIETEDER(0	DDW+5
DIETH	E~, E+6, DDW, DDW+5
DIETREL	GET+1~, 1+3*, 1+6, 1+7
DIETROW	E~, E+6, DDW, DDW+5
DIETSAVE	PROCESS+1~, DIC+4*, DIC+5, DIC+6, DEF, XEC+3
DIETSL	PROCESS+1~, DIC+5*, DEF, XEC+5
>> DISYS	NOW+4
DIT	GET~, GET+3*, GET+5, DIAT, NDB, UP+1
DMAX	SAVEFLDS+1~, NOW+4*
DP	E~, DIC+5, L+1, L+2, DEF, DEF+2, XEC+2, XEC+5, SAVEFLDS+1~, NOW+4*
DQI	PROCESS+1~, DIC+6, DEF+2
DR	E~, DDW+1!, KL+1, KL+2, GET+4*, PROCESS+2!, PROCESS+4!
DR(	D, DR+2
DR(99	L*
DRK	DIETED+3~, EDIT+1~, E+6*, DDW, PROCESS+2
DRR	LINE+1~, D+1, DR+2, DR+3, DR+4, DR+5*, DR+6
DTOUT	E~, DDW+1
DUOUT	E~, DDW+1
DUZ	NOW+1
DUZ(0	DIC+4, DIC+5
DV	LINE+1~, ALL+3, SEMIC+1, DIC+1, DEF*
DXS	PROCESS+1~, PROCESS+2, DIC+6, L, DEF+2, XEC+2*
ERR	PROCESS+1~, PROCESS+3!, PROCESS+6, X*
F	E~, GET+4, 1+6, DOWN, DOWN+1, UP, UP+1, PROCESS+2, OUT, ALL+4 , D, D+2
I	DIETED+3~, EDIT+1~, DDW+2!, GET+1~
I(	UP!, OUT!, DIC+3*, DEF+1, DEF+2
I(0	PROCESS+2*
J	DIETED+3~, EDIT+1~, DDW+2!, GET+1~, ALL+3, ALL+4, DEF+1, DEF+2
J(	1+7, 1+8, UP!, UP+1, OUT!, DIC+3*
J(0	GET+5, GET+6, PROCESS+2, SAVEAS+4, SAVEAS+5
L	E~, GET+1~, GET+4, 1+7, 1+8, UP, UP+1, PROCESS+1~, PROCESS+2, OUT , DIC+3, DIC+6, L+1, DEF+1, DEF+2
LINE	PROCESS+1~, PROCESS+3, PROCESS+4, PROCESS+6*, PROCESS+7
U	E+3, E+6, GET+5, 1+2, 1+5, 1+7, 1+8, DOWN, DIC+1, DIC+2 , DIC+3, L+1, D+1, DEF+1, XEC+2, XEC+5, SAVEAS+2, SAVEAS+4, SAVEAS+5, NOW , NOW+1, NOW+4
X	PROCESS+3, PROCESS+4, PROCESS+5, LINE~, LINE+2, LINE+3, LINE+4, OUT+2, ALL, ALL+1 , ALL+3, SEMIC, DIC+4, DIC+6!, L, L+1!, DEF, DEF+1, DEF+2, XEC , XEC+2, SAVEFLDS+1~, NOW+4
X(	XEC+1
Y	DIETED+4, DIETED+5, 1, 1+1, 1+2, 1+3, 1+4, 1+5, 1+6, 1+9 , LINE+1~, OUT+2, ALL+3, ALL+4, SEMIC, SEMIC+1!, DIC+1, DIC+4, L+1, XEC , XEC+1, XEC+2, DR+5, DR+6, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, SAVEAS+6, SAVEAS+7 , SAVEFLDS~, SAVEFLDS+2, NOW, NOW+1, NOW+2, NOW+3, NOW+4
Y(0	DIC+1, DIC+3

Customize PDF page

Package: VA Fileman

Routine: DIETED

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LINE(X)	;Process one LINE from the screen
DIC
DOWN
DR	;takes 'Y' and puts it into 'DR' array
DEF
SEMIC
SAVEAS
1
OUT
E
D
EDIT(DIET)	; Edit Template using Screen Editor
K
NDB
DDW
L
SAVEFLDS(Y)	;
X
ALL
GET(DIETA,DIT)	;put displayable template into @DIETA
XEC
DIAB
UP
KL
PUT	;save template
DIAT
NOW
PROCESS(DIETA)	;puts nodes into ^UTILITY("DIETED")