Routine: ZTEDIT3

Information

ZTEDIT3 ;SF/RWF - VA EDITOR Transfer lines from one place to another ;8/7/98 08:29 [ 04/02/2003 8:29 AM ]

Source file <ZTEDIT3.m>

Package	Total	Call Graph
Toolkit	2	^XTVRC1Z (,CHECK)^ZTEDIT4
VA Fileman	1	EN^DIWE

Package	Total	Caller Graph
Toolkit	1	ZTEDIT2

Name	Comments	DBIA/ICR reference
MV21
MV22
FILE
MV20
MV1
MV2
MV3
MV102
MV101
MV100
CHECK	;see if routines and global are the same
MV99
END	;
F30
F12
F13
F10
F11
F14
F15
F2
F3
MV

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Checking ",R Line Location: CHECK+2
Function Call: WRITE	Prompt: !,"DONE" Line Location: CHECK+3
Function Call: WRITE	Prompt: !,$T(@%D+%E),!,$T(@%D+%E+1) Line Location: MV+0
Function Call: WRITE	Prompt: !,"Begin: " Line Location: MV1+0
Function Call: WRITE	Prompt: " End:" Line Location: MV2+0
Function Call: WRITE	Prompt: !,"Insert after: " Line Location: MV100+0
Function Call: WRITE	Prompt: !,"The lines removed have NOT been inserted back into the routine",!,"use the .Action menu to Restore lines." Line Location: MV102+0
Function Call: WRITE	Prompt: "ile ",%X Line Location: FILE+0
Function Call: WRITE	Prompt: !,"Edit comment:" Line Location: F15+0
Function Call: WRITE	Prompt: !,"Return" Line Location: F15+0
Function Call: WRITE	Prompt: *7," No name, Can't FILE." Line Location: F30+0

Name	Line Occurrences (* Changed, ! Killed)
^%Z(	ZTEDIT3+3*, MV2
^%Z("F11"	F10
^%Z("F12"	F11
^%Z("F13"	F11
^%Z("F14"	F10
^%Z("F15"	F14
^%Z("F2"	FILE
^%Z("F3"	FILE
^%Z("GTAG"	MV1, MV2, MV100
^%Z("MV1"	MV
^%Z("MV100"	MV102
^%Z("MV101"	MV100
^%Z("MV102"	MV
^%Z("MV2"	MV1
^%Z("MV21"	MV20
^%Z("MV22"	MV21
^%Z("MV99"	MV2, MV100
^%Z("TAG"	MV20
^%ZOSF("TEST"	F14
^%ZOSF("UCI"	F10
^DIC(9.8 - [#9.8]	F10, F11, F12, F13
^TMP("%Z"	MV1!, MV3, MV22, MV101