Routine: DIWE5

Package	Total	Call Graph
VA Fileman	3	YN^DICN (ASK,XQ)^DIWE11 Z^DIWE3

Package	Total	Caller Graph
VA Fileman	3	DIWE1 DIWE11 DIWE2
Local Area Programs	1	AZHLSCWE

Entry Points

External References

Name	Field # of Occurrence
YN^DICN	IQ+10
ASK^DIWE11	X
XQ^DIWE11	A
Z^DIWE3	TQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?9,"OR A SPACE TO MEAN THE CURRENT LINE ("_DWL_")" Line Location: LNQ+2
Function Call: WRITE	Prompt: !?9,"OR '-' TO MEAN LINE ",DWL-1,", '-2' TO MEAN ",DWL-2,", ",$P("'+' TO MEAN "_(DWL+1)_", ",U,DWL<DWLC)_"ETC." Condition for execution: DWL>2 Line Location: LNQ+2
Function Call: WRITE	Prompt: ! Line Location: LNQ+3
Function Call: WRITE	Prompt: !,"INITIALS:",! Line Location: WL+0
Function Call: WRITE	Prompt: X,! Line Location: WL+0
Function Call: WRITE	Prompt: !,"TEXT NAMES:",! Line Location: NL+0
Function Call: WRITE	Prompt: %T2,?20,^(%T2,0),! Line Location: NL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: F+1
Function Call: WRITE	Prompt: !!,"Line WIDTH: "_DWLW_"//" Line Location: F+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: F+2
Function Call: WRITE	Prompt: !,"PACK "_$S(DWPK:"ON",1:"OFF")_"//" Line Location: F+2
Function Call: READ	Timeout: 30 Variable: X#245 Line Location: A+0
Function Call: WRITE	Prompt: !?4,"IF YOU WANT TO USE TEXT FROM THE '"_J_"' FIELD",!?4,"OF ANOTHER '" Line Location: TQ+1
Function Call: WRITE	Prompt: I,"' ENTRY, TYPE THE NAME OF THAT ENTRY",!?4,"OTHERWISE, " Line Location: TQ+2
Function Call: WRITE	Prompt: "USE A COMPUTED-FIELD EXPRESSION TO DESIGNATE SOME W-P TEXT",! Line Location: TQ+3
Function Call: WRITE	Prompt: !,^(%,0) Line Location: IQ+1
Function Call: WRITE	Prompt: !!,"You are ready to enter a line of text.",!,"If you have no text to enter,just ",$S(DIWPT="":"press the return key.",1:"type in """_DIWPT_"""."),! Line Location: IQ+2
Function Call: WRITE	Prompt: "Type 'CONTROL-I' (or TAB key) to insert tabs.",! Line Location: IQ+3
Function Call: WRITE	Prompt: "When text is output, these formatting rules will apply:" Line Location: IQ+4
Function Call: WRITE	Prompt: !," A) Lines containing only punctuation characters, or lines containing tabs",!?5,"will stand by themselves, i.e., no wrap-around." Line Location: IQ+5
Function Call: WRITE	Prompt: !," B) Lines beginning with spaces will start on a new line." Line Location: IQ+6
Function Call: WRITE	Prompt: !," C) Expressions between '\|' characters will be evaluated as" Line Location: IQ+7
Function Call: WRITE	Prompt: !?5,"'computed-field expressions and then be printed as evaluated" Line Location: IQ+8
Function Call: WRITE	Prompt: !?5,"thus '\|NAME\|' would cause the current name to be inserted in the text." Line Location: IQ+9
Function Call: WRITE	Prompt: !!,$C(7),"Want to see a list of allowable formatting 'WINDOWS'" Line Location: IQ+10
Function Call: WRITE	Prompt: !?5,"SPECIAL FORMATTING INCLUDES: " Line Location: IQ+11
Function Call: WRITE	Prompt: !," \|"_$P(^(0),U,1)_$P("(ARGUMENT)",U,$S('$D(^(3)):1,1:^(3)'=0))_"\|",?25 Line Location: FN+0
Function Call: WRITE	Prompt: ^(9) Condition for execution: $D(^(9)) Line Location: FN+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	X
^DD(	IQ+1
^DD("FUNC" - [#.5]	FN

Name	Line Occurrences
A	D
C	C+4
D	A+1, C, D
S	A, C+3, D

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	X, C+1, C+2, C+3, S, S+1, S+2, IQ+1, IQ+10, FN
>> %0	C+1*, C+2, C+3
>> %1	S+1*
>> %2	S*, S+1
>> %B	X, A, D, S, S+2
%T2	NL*, NL+1!
>> DC	IQ+1
>> DIC	WL, S+2
>> DIWL	X, ENT, C+3, D, S+1
>> DIWPT	IQ+2
DTIME	F+1, F+2
>> DW	NL
>> DWL	LNQ+2
>> DWLC	LNQ+1, LNQ+2, S+2*
>> DWLW	F+1*
>> DWPK	F+2*
>> I	LNQ+1, WL, NL, A+2, C, C+1, TQ+2
>> J	TQ+1
U	LNQ+1, LNQ+2, IQ+1, FN
>> X	WL, WL+1, F+1, F+2, X, A, A+1, C, C+1
>> Y	A+1, A+2, C, C+2, C+3, D, S, S+1*

Customize PDF page

Package: VA Fileman

Routine: DIWE5

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
C
NL
D
F	;
IQ	;
WL
LNQ	;
TQ	;
S
ENT
X
FN