Routine: DICATTD

Package	Total	Call Graph
VA Fileman	14	^DDS (HLP,REQ,UNED)^DDSUTL PUT^DDSVALF ^DIAC DIE^DIB ^DIC SV^DICATTA CUNED^DICATTD6 GET^DICATTD8 ^DICATTD9 N^DICATTDE DELFLD^DICATTDK D^DICRW (DIVR,IJ)^DIUTL

Package	Total	Caller Graph
VA Fileman	3	DICATT DICATTD4 DICATTDE

Entry Points

External References

Name	Field # of Occurrence
^DDS	DDS+1
HLP^DDSUTL	X
REQ^DDSUTL	PRE+2, BRANCH+1, BRANCH+2
UNED^DDSUTL	PRE+6, PRE+12, PRE+13, PRE+14, UNED, BRANCH+4
PUT^DDSVALF	CHNG+1
^DIAC	PRE+7
DIE^DIB	DICATTD+8
^DIC	FIELD+4
SV^DICATTA	NEWFIELD+2
CUNED^DICATTD6	PRE+3
GET^DICATTD8	GET+3
^DICATTD9	BRANCH+3
N^DICATTDE	VERIFY
DELFLD^DICATTDK	DDS+3
D^DICRW	DICATTD+7
DIVR^DIUTL	VERIFY
IJ^DIUTL	NUMBER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"DATA DICTIONARY MODIFICATIONS ON ARCHIVE FILES ARE NOT ALLOWED!" Line Location: DICATTD+7
Function Call: WRITE	Prompt: !!,"SOMEONE ELSE IS EDITING THIS FILE" Line Location: LOCK+0
Function Call: WRITE	Prompt: !!! Line Location: FIELD+0
Routine Call	DDS Line Location: DDS+1
Routine Call	DIC Line Location: FIELD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DICATTD+7, LOCK+1, ASKLOOP, FIELD+3, MUL, DDS+2, GET+2, GET+3, NUMBER+4, SCREEN+5
^DIC - [#1]	DICATTD+7
^DICATTD(	LOCK, END
^UTILITY("DDA"	DICATTD+6!
^UTILITY("DICATTD"	DICATTD+6!, FIELD!

Label References

Name	Line Occurrences
$$TYPE	PRE+11, SCREEN+3
DDS	MUL+1
FIELD	MUL
GET	NEWFIELD+5
M	ASKLOOP
UNED	PRE+4, PRE+7, PRE+9, PRE+10, PRE+11, X
X	PRE+10

Naked Globals

Name	Field # of Occurrence
^(	NEWFIELD+1
^(0	NEWFIELD+1, DDS+3, GET+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRE+7
A	M+2~, NEWFIELD+2~*
DA	DICATTD+5~, LOCK, LOCK+1, DDS
DDA	DICATTD+5~, LOCK+1, NEWFIELD, NEWFIELD+1, NEWFIELD+2*, NEWFIELD+3
DDA(1	NEWFIELD+3*
DDSERROR	M~
DDSFILE	M+3~, DDS*
DDSPAGE	M+3~, MUL+1~*
DDSPARM	M+3~, DDS*
DDSSAVE	M+3~, DDS!, VERIFY
>> DDSSTACK	BRANCH+6*
DG	DICATTD+5~, DICATTD+8
DIAC	PRE+1~, PRE+7*
DIC	DICATTD+5~, DICATTD+8, LOCK, FIELD!, FIELD+1, FIELD+4!
DIC("B"	FIELD+3*
DIC("S"	FIELD+1*
DIC("W"	FIELD+2*
DIC(0	FIELD+1, FIELD+3
DICATT2	M+1~, MUL, GET+2*, PRE+3, PRE+4, PRE+10, PRE+15, TYPE+1, TYPE+2
DICATT2N	M~, MUL+1~, DDS+3*, VERIFY, GET+1!
DICATT3	M+1~, GET+2*
DICATT3N	M+1~, GET+1!
DICATT4	M+1~, GET+2*, BRANCH+4
DICATT5	M+1~, GET+2*, CHNG
DICATT5N	M+1~, GET+1!, CHNG
DICATT5P	M+1~, GET+1!
DICATTA	DICATTD+5~, LOCK, ASKLOOP, FIELD+1, FIELD+3, NEWFIELD+1, NEWFIELD+3, MUL*, DDS+2, DDS+3 , VERIFY, GET+2, GET+3, PRE+5, NUMBER+1, NUMBER+4, SCREEN+5
DICATTB	DICATTD+5~, LOCK*, ASKLOOP, END, PRE+5, PRE+7
DICATTDK	M~
DICATTDW	M~
DICATTF	DICATTD+5~, ASKLOOP!, FIELD+4!, NEWFIELD+4*, DDS+2, DDS+3, VERIFY, GET+2, GET+3, PRE+2 , PRE+5, NUMBER+3, NUMBER+4, SCREEN+2, SCREEN+5, BRANCH+4
DICATTL	M+1~
DICATTLN	M+1~, GET+1!
DICATTMN	M~, VERIFY, CHNG!, CHNG+1
DICATTNW	M+3~, NEWFIELD*, VERIFY
DICATTSC	M~, BRANCH+5!
DICATTVP	M~
DICS	M~, FIELD+1
DIFILE	PRE+1~, PRE+7*
DIMSG	M+3~, DDS!, VERIFY
>> DIR("S"	SCREEN+2, SCREEN+3, SCREEN+4, SCREEN+5
DIU0	M+2~, NEWFIELD+1*, NEWFIELD+2
DLAYGO	DICATTD+5~, DICATTD+7*
DQ	M+2~
DR	M+2~, DDS*
DTOUT	M+3~, VERIFY
DUOUT	M+3~
DUZ(0	PRE+8, SCREEN+3
I	M+2~, PRE+12, PRE+13, PRE+14, UNED~, NUMBER+2, BRANCH+1, BRANCH+2
J	M+2~
J(	NUMBER+2
J(0	NUMBER+1
N	TYPE+2~, TYPE+3, SCREEN+1~, SCREEN+3*, SCREEN+4, SCREEN+5
O	M+2~, FIELD!
O(1	NEWFIELD+1*
O(2	NEWFIELD+1*
U	DICATTD+7, LOCK, ASKLOOP, FIELD+3, NEWFIELD, NEWFIELD+1, DDS+3, GET+2, NUMBER+4, SCREEN+5
>> X	PRE+4, PRE+5, PRE+6, BRANCH+1, BRANCH+2, BRANCH+3, BRANCH+4, BRANCH+6
>> Y	DICATTD+7, FIELD+4, NEWFIELD, NEWFIELD+4, NUMBER+1, NUMBER+2, NUMBER+3, NUMBER+4, NUMBER+5*

Customize PDF page

Package: VA Fileman

Routine: DICATTD

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRE	;PRE-ACTION of first block
CHNG
ASKLOOP
END
BRANCH	;given X=TYPE
NEWFIELD
GET	;
DDS
LOCK
SCREEN	;
M
NUMBER	;
TYPE()	;Figure out TYPE from the second piece of the zero node
FIELD
X
VERIFY
MUL
UNED(I)