Routine: DIA2

Package	Total	Call Graph
VA Fileman	10	^DIA3 Q^DIB ^DIC ACT^DICM1 YN^DICN GO^DIE LOCK^DILF EN1^DIP Y^DIQ PTS^DITP

Package	Total	Caller Graph
VA Fileman	2	DIA3 DIB

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"LOOP ENDED!" Line Location: DIC+2
Function Call: WRITE	Prompt: $C(7),!,"ANOTHER TERMINAL IS EDITING THIS ENTRY!" Line Location: DIE+2
Function Call: WRITE	Prompt: !!,?3 Line Location: LOOP+1
Function Call: WRITE	Prompt: Y Line Location: LOOP+9
Function Call: WRITE	Prompt: " ",$E(@(DCC_"Y,0)"),0) Line Location: LOOP+13
Function Call: WRITE	Prompt: $C(7),!!,"WANT TO STOP LOOPING" Line Location: LOOP+16
Routine Call	DIE Line Location: DIE+4
Routine Call	DIC Line Location: L

Name	Line Occurrences (* Changed, ! Killed)
^DD(	LOOP+2, LOOP+11
^TMP("DIFIXPT"	LOOP+6, LOOP+7
^UTILITY("DIT"	DIA2+3!, DIC+1!
^UTILITY($J	NUL*

Name	Field # of Occurrence
^(	LOOP+2, LOOP+11
^(0	LOOP+2

Name	Field # of Occurrence
>> %	LOOP+11, LOOP+13, LOOP+16
>> %C	LOOP+10, LOOP+11, LOOP+14*
>> %Y	LOOP+11*
C	DIE+1!, LOOP+2*
>> D0	LOOP+1, LOOP+2, LOOP+7, LOOP+10, LOOP+15
D1	NUL!
D2	NUL!
D3	NUL!
D4	NUL!
D5	NUL!
DA	DIA2+3!, DIC, DIE*, DIE+1
DB	DIE+1!
DCC	LOOP+1, LOOP+2, LOOP+10, LOOP+13, LOOP+15!, LOOP+16!
>> DHD	DIC+2*
>> DHIT	DIC+2*
DI	DIA2+3!, LOOP+2, LOOP+14, NUL*
>> DIA	DIA2+4, L
>> DIA("P"	DIE
>> DIA(1	DIC*
>> DIA(9	DIC*
DIAP	DIA2+3!
DIC	L!, DIE+1!, LOOP+10*
DIC(0	L, LOOP+14
>> DIE	L, DIE+1, LOOP+10
>> DIFIXPT	LOOP+1, LOOP+5, LOOP+9, LOOP+11, LOOP+14, LOOP+15, LOOP+16
>> DIFIXPTC	LOOP+6, LOOP+7, LOOP+15
DIFIXPTH	LOOP+6!
DILK	DIE+1*, DIE+2!, DIE+3!, DIE+4!
DIQUIET	LOOP+12~
DIY	LOOP+14!
DO	LOOP+14!
DO(2	LOOP+14*
>> DP	DIE*
>> DR	DIE*, DIE+3
>> DR(1	DIA2+3, DIA2+4, DIE
DRS	DIA2+3!
>> DTOUT	DIC, DIC+2, LOOP+15
DW	DIA2+3!
>> DX(0	NUL*
F	L!
>> FLDS	DIC+2*
I	L!
>> IOP	DIC+2*
J	L!
J(0	DIA2+3, DIA2+4
>> L	DIC+2*
U	DIC, LOOP+2, LOOP+14
X	DIC+1, LOOP+2*, LOOP+4~, LOOP+11, LOOP+14
Y	DIC, L!, DIE, DIE+1!, LOOP+2, LOOP+7, LOOP+9, LOOP+10, LOOP+14, LOOP+15! , LOOP+16!