Routine: DIPTED

Package	Total	Call Graph
VA Fileman	10	NOW^%DTC EDIT^DDW $$EZBLD^DIALOG ^DIC YN^DICN EN^DICOMP ^DICOMPW (F,FLY,OVFL)^DIP22 (UP,Y)^DIPT ENZ^DIPZ

Package	Total	Caller Graph
Kernel	1	XPDCOMF

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	CLEAR+2
EDIT^DDW	DDW
$$EZBLD^DIALOG	DDW+2
^DIC	DIPTED+5, DIC+1, ASK+2, SAVEAS+1
YN^DICN	ASK+4, SAVEAS+2
EN^DICOMP	HARD+1
^DICOMPW	HARD+2
F^DIP22	HARD+4
FLY^DIP22	HARD+1
OVFL^DIP22	HARD+4
UP^DIPT	GET+7
Y^DIPT	GET+6
ENZ^DIPZ	CLEAR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO TEMPLATE SELECTED",! Line Location: E+2
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(8077) Line Location: DDW+2
Function Call: WRITE	Prompt: " ",DIPTEDER(DIPTROW) Line Location: DDW+6
Function Call: WRITE	Prompt: "<NOTHING TO SAVE>",$C(7) Line Location: DDW+7
Function Call: WRITE	Prompt: "LINE ",LINE Line Location: PROCESS+6
Function Call: WRITE	Prompt: " ERROR!" Line Location: PROCESS+7
Function Call: WRITE	Prompt: $C(27,91,74) Line Location: CLEAR+0
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2),"' Template" Line Location: ASK+4
Function Call: WRITE	Prompt: !,$C(7),"Sorry. Another user is editing this template." Line Location: ASK+5
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2),"' Template" Line Location: SAVEAS+2
Function Call: WRITE	Prompt: !,$C(7),"Sorry. Another user is editing this template." Line Location: SAVEAS+3
Routine Call	DIALOG Line Location: DDW+2
Routine Call	DIC Line Location: DIPTED+5 DIC+1 ASK+2 SAVEAS+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	E+1, DDW+5
^DD(	GF, D
^DD("OS" - [#.7]	CLEAR+10
^DD("ROU"	CLEAR+10
^DIC - [#1]	DDW+3
^DIPT - [#.4]	E+2, GET+3, CLEAR+2, CLEAR+3, CLEAR+4!, CLEAR+8!, CLEAR+9, CLEAR+10, J, CLONE+2 , ASK, ASK+4, ASK+5, ASK+7, ASK+8, SAVEAS+2, SAVEAS+3, SAVEAS+5*, SAVEAS+6
^DIPT("F"	ASK+6, SAVEAS+4
^TMP("DIPTED"	K!, DDW+2!
^UTILITY("DIP2"	K!, DDW+1!, DDW+7, DDW+9, DDW+10, DDW+11*, PROCESS+4!, PROCESS+5, SAVEFLDS+2, CLEAR+5 , CLEAR+9, PUT+1
^UTILITY($J	DDW+1!

Label References

Name	Line Occurrences
$$CLONE	CLEAR+1
$$LINE	PROCESS+5
ASK	ASK+4
D	GF
DDW	DDW+6
DIC	STRIP, STRIP+2
DJ	LIT+1, HARD+1
E	DIPTED+7
EXP	STRIP+2, HARD+2, WORD
GET	E+5
GF	DIC+1
J	CLEAR+4, CLEAR+6
K	DDW+7, CLEAR+11
P	VAL3, WORD+1
PROCESS	DDW+4
PUT	DIPTED+8
QQ	HARD+1
S	DIC
SAVEAS	SAVEAS+2
SAVEFLDS	SAVEAS+7
U	LINE+5, DIC+2, WORD+1
VAL3	HARD+3
WORD	GF

Naked Globals

Name	Field # of Occurrence
^(	GET+6, PROCESS+3, PROCESS+5, CLEAR+5, J
^("DCL"	CLEAR+8!
^("DNP"	CLEAR+8!
^("H"	DDW+13*, GET+5, CLEAR+10
^("IOM"	CLEAR+10!
^("ROU"	CLEAR+10!
^("ROUOLD"	CLEAR+10
^("SUB"	DDW+12*, GET+5
^(0	E+3, E+4, CLONE+3, ASK, ASK+7, SAVEAS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	U, CLEAR+2, CLEAR+5, ASK+4, SAVEAS+2
C	E~, GET+5*, HARD, HARD+3, D
D	E~, GET+8, STRIP, STRIP+1!
D(	GET+5*
D0	E~, GET+1~, GET+3, GET+4, PROCESS+1~
D9	GET+1~, GET+5*, GET+7
DA	E~, PROCESS+1~, HARD*, CLONE~, CLONE+2, ASK, ASK+3
DATE	LINE+1~
DCL	E~, DDW+10, P+2*, P+3
DCL(	P+3*
DDS	CLONE+1~
>> DDSCHG	DDW+8*
DHD	E~, DDW+13, GET+5, CLEAR+10
DIC	DIPTED+4~, DIPTED+5, DIPTED+6!, LINE+1~, LIT+2, CLONE+1~, ASK+1, ASK+4!, PUT+2~, SAVEAS
DIC("A"	ASK+1, SAVEAS
DIC("B"	CLONE+3, PUT+3, SAVEAS+2!
DIC("S"	DIPTED+5, ASK+1, SAVEAS*
DIC(0	DIPTED+5, LIT+2, ASK+1, SAVEAS
DICMX	LINE+1~, HARD+1, HARD+2
DICOMP	LINE+1~, HARD*
DICOMPX	LINE+1~, HARD*
DIETAB	PROCESS+1~, PROCESS+2, LINE+5, LINE+6
DIL	E~, DDW+3, HARD, HARD+3, GF, D, U
DIL(	HARD+3, D, U
DIPT	DIPTED+4~, DIPTED+7*, EDIT~, E+2, GET+3, PUT+3
DIPTA	GET~, GET+2, GET+8, PROCESS~, PROCESS+3
DIPTED	DIPTED+4~, EDIT+1~, E+3, E+4, E+6, DDW+6, SAVEAS
DIPTEDER	E~, DDW+6!
DIPTEDER(	DDW+6, PROCESS+6*
DIPTEDER(0	DDW+6
DIPTEDFI	CLONE+1~, ASK*, ASK+6, ASK+7
DIPTEDNM	CLONE+1~, CLONE+3*, ASK+1
DIPTEDTY	DIPTED+4~, EDIT+1~, E+3, STRIP, STRIP+2, HARD+2, VAL3, WORD, CLONE+1~, ASK , ASK+7, SAVEAS+5
DIPTH	E~, E+6, DDW, DDW+6
DIPTROW	E~, E+6, DDW, DDW+6
DIPTX	E~
DIPZ	CLEAR+10, PUT+2~
DISH	E~, DDW+12, GET+5*
>> DISYS	CLEAR+10
DIT	GET~, GET+3*, GET+5, GET+6
DIWD	GET+1~
DIWD(	GET+8
DJ	E~, DDW+3*, LINE+1~
DK	E~, DDW+3, HARD+3, GF, P+3, D, U
DL	E~, DDW+3, LINE+5, DIC+2, HARD+2, HARD+3, D, U
DL(	HARD+3, D, U
DM	PROCESS+1~, HARD*
DMAX	SAVEFLDS+1~, CLEAR+10*
DNP	E~, DDW+3*, DDW+11, P+1!
DP	LINE+1~, HARD+3
DQI	PROCESS+1~, HARD*
DRK	DIPTED+4~, EDIT+1~, DDW, DDW+3, GET+5*
DS	GET+1~
DS(	GET+8
DS(1	GET+6*
DTOUT	E~, DDW+2
DUOUT	E~, DDW+2
DUZ	CLEAR+3
DV	E~, DDW+3, HARD+3, DJ, D, WORD+1, U
DV(	HARD+3, D, U
DX	CLEAR~*
DXS	E~, DDW+3*, DDW+9, HARD
DY	E~, GET+6, CLEAR~
ERR	PROCESS+1~, PROCESS+3!, PROCESS+6, QQ, EXP
I	DIPTED+4~, EDIT+1~, DDW+1!, LIT*, LIT+1
I(	GF*, U!
I(0	DDW+3*
IOM	CLEAR+10*
>> IOXY	CLEAR
J	DIPTED+4~, EDIT+1~, DDW+1!, SAVEFLDS+1~, CLEAR+4, CLEAR+6, CLEAR+7*, J
J(	GF*, U!
J(0	DDW+3, GET+5, SAVEAS+4, SAVEAS+5
L	E~, GET+5*, HARD
LINE	PROCESS+1~, PROCESS+3, PROCESS+4, PROCESS+6*, PROCESS+7
P	PROCESS+1~, LINE+3, LINE+4, LINE+5, LINE+6, F, STRIP+1, HARD+3!, P, P+1 , P+2, P+3
Q	E~, GET+5*, GF
S	PROCESS+1~, F, STRIP+2, HARD, HARD+1, HARD+3, S, VAL3*, WORD+1
U	E+3, E+4, DDW+9, DDW+10, DDW+11, GET+5, HARD+3, GF, P+3, D , CLEAR+2, CLEAR+3, CLEAR+9, CLONE+3, ASK, ASK+4, ASK+6, ASK+7, SAVEAS+2, SAVEAS+4 , SAVEAS+5
X	PROCESS+1~, PROCESS+3, PROCESS+4, PROCESS+5, LINE~, LINE+2, LINE+3, LINE+4, LIT, LIT+1 , DIC, DIC+2, STRIP, STRIP+1, STRIP+2, HARD, HARD+1, HARD+3, GF, S* , DJ, VAL3, WORD+1, SAVEFLDS+1~, CLEAR+5, CLEAR+6, CLEAR+7, CLEAR+10, CLONE+1~
Y	DIPTED+5, DIPTED+7, E~, GET+5, LINE+1~, DIC, DIC+1, HARD+3, HARD+4~, GF+1 , S, P+3, D, WORD+1, SAVEFLDS~, SAVEFLDS+2, CLEAR+1*, CLEAR+2, CLEAR+3, CLEAR+4 , CLEAR+8, CLEAR+9, CLEAR+10, J, CLONE+1~, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6 , ASK+7, ASK+8, ASK+9, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, SAVEAS+6, SAVEAS+7
Y(0	GF

Customize PDF page

Package: VA Fileman

Routine: DIPTED

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LINE(X)	;returns X as component of Template. DD number is currently 'DK'
PROCESS(DIPTA)	;puts nodes into ^UTILITY("DIP2")
HARD
DIC
LIT
EXP
DJ
SAVEAS
WORD
GET(DIPTA,DIT)	;put displayable template into @DIPTA
STRIP
VAL3
EDIT(DIPT)	; EDIT PRINT TEMPLATE 'DIPT' VIA VA FILEMAN SCREEN EDITOR
CLEAR
CLONE(DA)	;
E
D
F
K
J
DDW
P
S
SAVEFLDS(Y)	;POST-SAVE OF 'DIPTED' SCREENMAN FORM
U
QQ
GF
ASK
PUT	;save template from ^UTILITY