Routine: DICATTDM

Package	Total	Call Graph
VA Fileman	3	(HLP,UNED)^DDSUTL $$GET^DDSVALF MAX^DICATT1

Package	Total	Caller Graph
VA Fileman	1	DICATTDE

Entry Points

Name	Comments	DBIA/ICR reference
MAX(L,Y)	;given L=length of new data, Y=subscript name
NXT
USED
CHKPIEC(P)	;
PIECDEF	;
CHKSUB(X)	;used as INPUT TRANSFORM for Fields 16 & 76
SUBHELP	;
PC
H(%)
SUBDEF	;
G(I)
PIECHELP	;
POST	;POST-ACTION of Page 3
P(Y)	;given SUBSCRIPT Y, return PIECE prompt

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SUBDEF+1, NXT+1, PC, SUBHELP+6, CHKSUB+3, USED, PIECHELP+4, PIECHELP+6

Name	Line Occurrences
$$CHKPIEC	POST+2
$$CHKSUB	SUBDEF+2
$$G	PIECDEF+2, CHKPIEC+2, PIECHELP+3, POST+2
$$MAX	CHKSUB+5
$$P	PIECDEF+2
H	POST+2
PC	PC
USED	CHKPIEC+3, CHKPIEC+4

Name	Field # of Occurrence
%	P+1~, P+2, PC, PC+1, PC+2, PC+3, POST+1~, POST+2*!, H~, H+1
%(	H*
%(""	H
%(1	POST+2*
A	MAX+1~, MAX+2*
>> DDSBR	POST+2*
>> DICATT2N	PIECDEF+1, SUBHELP+1
>> DICATTA	SUBDEF+1, NXT+1, PC, SUBHELP+6, CHKSUB+3, MAX+2, USED, PIECHELP+4, PIECHELP+6
>> DICATTF	MAX+2
>> DICATTLN	PC+1, CHKSUB+5, CHKPIEC+3
DP	MAX+1~, MAX+2*
G	PIECHELP+1~, PIECHELP+3*, PIECHELP+4, PIECHELP+6
I	G~
L	MAX~
M	CHKSUB+1~, CHKSUB+2*, CHKSUB+3
N	MAX+1~, CHKPIEC+1~, CHKPIEC+3*
P	P+1~, P+2, PC, PC+1, CHKPIEC~, CHKPIEC+3, CHKPIEC+4, USED, USED+1, PIECHELP+1~ , PIECHELP+6*
S	CHKPIEC+1~, CHKPIEC+2*, USED
T	SUBHELP+2~, SUBHELP+5, SUBHELP+6, MAX+1~, MAX+3, PIECHELP+1~, PIECHELP+5, PIECHELP+6
U	USED
W	MAX+1~
X	P+1~, P+2, PC, SUBHELP+2~, SUBHELP+7, CHKSUB~, CHKSUB+3, CHKSUB+4, CHKSUB+5, PIECHELP+1~ , PIECHELP+7
X(	SUBHELP+6, PIECHELP+6
X(1	SUBHELP+3, PIECHELP+2, PIECHELP+4, PIECHELP+5
X(2	SUBHELP+4, PIECHELP+5
Y	SUBDEF+1, SUBDEF+2, NXT, NXT+1, PIECDEF+1, PIECDEF+2, P~, PC, SUBHELP+1, SUBHELP+2~ , SUBHELP+5, SUBHELP+6, MAX~, PIECHELP+1~, PIECHELP+5, PIECHELP+6