Routine: DIA1

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC %XY^%RCR (,UP)^DIA IX^DIC YN^DICN ^DIE EN^DIEZ

Package	Total	Caller Graph
VA Fileman	3	DIA DIE17 DIETED

Entry Points

Name	Line Occurrences
Function Call: READ	Prompt: "STORE THESE FIELDS IN TEMPLATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: S+0
Function Call: WRITE	Prompt: !?7,$C(7),"YOU HAVE NO 'WRITE ACCESS' TO THIS TEMPLATE",! Line Location: S+1
Function Call: WRITE	Prompt: !,"WANT TO EDIT '",$P(Y,U,2),"' INPUT TEMPLATE" Line Location: ED+1
Routine Call	DIE Line Location: ED+2
Routine Call	DIC Line Location: T

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DR, DG+1
^DD("OS" - [#.7]	M+1
^DD("ROU"	M+1
^DIE - [#.402]	S+3, S+4, M, GT+2*, ED+3, ED+4, ED+5
^DIE("F"	S+4*
^UTILITY($J	M, ALL+1*

Name	Field # of Occurrence
%	S!, S+1, S+2, S+3, S+4, Q!, ALL+1, RANGE+1, DR, DR+1 , DG+1, Y, TEMP+2, ED+1*
%(	Y*
%I	Q!
%X	S+3, M, Q!, GT+1*
%Y	S+3, M, Q!, GT+1*
>> D	T*
>> D(	DR
DA	ALL+1!, B, DR+1, DG, Y, ED+2, ED+3, ED+4, ED+5
DA(	Y*
>> DB	ED+2, ED+6
>> DG	G, DG, DG+1, Y+1
DI	S+4, Q!, ALL+1, RANGE+1, T, ED+5, DB
>> DIA("P"	M+1, GT
DIA1	ALL+2~, RANGE+1~, DR+1, Y*
>> DIAA	ED+4*
DIADT	S*, S+4, Q!
DIAO	Q!, ED+6*
DIAP	Q!, ALL+1
>> DIARLVL	ALL+2
>> DIARTLVL	ED+6*
DIAT	Q!, ED+4*
DIC	S!, TEMP+1!, T*
DIC("S"	DR+2, DR+3, T*
DIC("W"	T!
DIC(0	S, TEMP+1
DIE	Q!, ED+2*
DIE("W"	GT+1*
>> DISYS	M+1
DLAYGO	S*!
DMAX	M+1*, Q!
DNM	M+1, Q!
DP	M+1, DG+1, Y+1!
>> DQ	DG+1, DG+2
DR	S!, ED+2*!
DR(	DR+1*
DR(1	M+1, GT
DR(99	ED+6
>> DRS	S, ALL+1, ED+4*
DT	S+4, GT+2
DTIME	S
>> DTOUT	S*, TEMP+1
DUZ	S+4
DUZ(0	S+1, S+4, TEMP+2, T
DW	S!, S+2*, M+1
>> DXS	ED+6*
>> F	ALL+1, RANGE+1, DR, DG+1, Y, ED+6
>> J(0	ED+3, ED+4, DB
U	S, S+1, S+2, S+4, M+1, DG, TEMP+2, GT, GT+2, ED+1
>> X	S, S+1, S+2, S+3, S+4, M+1, RANGE+1, B, DR, DR+1 , DR+2, DR+4, DG, DG+1, Y, Y+1, TEMP+2, T
>> Y	S, S+2, S+3, S+4, M, RANGE+1, A, G, DR, DR+1 , DR+2, DR+4, Y, TEMP+1, GT+2, ED, ED+1, ED+2
>> Y(	DG+1, Y!
>> Y(0	S+4, TEMP+2