Routine: DIWE4

Package	Total	Call Graph
VA Fileman	7	YN^DICN OS^DII ^DIM CLOSE^DIO4 ^DIR (,OPT)^DIWE1 ^DIWW
Kernel	2	^%ZIS ^%ZTLOAD

Package

Total

Call Graph

YN^DICN OS^DII ^DIM CLOSE^DIO4 ^DIR (,OPT)^DIWE1 ^DIWW

Package	Total	Caller Graph
VA Fileman	1	DIWE1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: DW2 Line Location: DIWE4+3
Function Call: WRITE	Prompt: !,"WANT LINE NUMBERS" Line Location: DIWE4+4
Function Call: WRITE	Prompt: !,"ROUGH DRAFT" Line Location: RD+0
Function Call: WRITE	Prompt: !,"A Rough Draft is printed line-for-line, showing windows.",! Line Location: RD+0
Function Call: WRITE	Prompt: " REQUEST QUEUED!",! Line Location: QUE+4
Function Call: READ	Timeout: DTIME Line Location: Y+2
Function Call: READ	Prompt: "Edit from line: 1// " Formatting: ! Timeout: DTIME Variable: DW1 Line Location: Y+3
Function Call: READ	Timeout: DTIME Variable: DW2 Line Location: Y+3
Function Call: WRITE	Prompt: " thru: ",DWLC,"// " Line Location: Y+3
Function Call: WRITE	Prompt: !,$J(I,3)_">"_Y Line Location: Y+5
Function Call: READ	Prompt: " after character(s): " Formatting: ! Timeout: DTIME Variable: X Line Location: BA+0
Function Call: WRITE	Prompt: $C(7),"??" Line Location: BA+0
Function Call: WRITE	Prompt: !,$J(DWL,3)_">",@(DIC_"DWL,0)"),!,$J(DWL+1,3)_">",@(DIC_"DWL+1,0)") Line Location: BA+3
Function Call: WRITE	Prompt: ! Line Location: OPT+0
Function Call: WRITE	Prompt: $C(7),"??" Line Location: J+1
Function Call: WRITE	Prompt: $C(7)," TOO LONG" Line Location: J+2
Function Call: WRITE	Prompt: !,$J(X,3)_">"_^(0),! Line Location: J+3
Function Call: WRITE	Prompt: "." Line Location: J+3
Routine Call	DIR Line Location: QUE+1
Routine Call	%ZIS Line Location: D0+3 QUE+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	D0+2
^%ZTSCH("RUN"	D0+2
^DD(	DWH
^DD("OS" - [#.7]	D0+2
^UTILITY($J	PRNT*, K!

Name	Field # of Occurrence
^(0	DWH, BA, J+3*
^(1	PRNT+2

Information

Name	Comments	DBIA/ICR reference
OPT
1
B	;BREAK
BA
PRNT
K
J	;JOIN
RD
QUE
Y	;
X
DWH
D0	;Entry point for screen editor.