Routine: DDUCHK

Package	Total	Call Graph
VA Fileman	8	(AC,ID,IX,NM,PT)^DDUCHK1 (,CHKGL,CHKSB)^DDUCHK2 INDEX^DDUCHK4 KEY^DDUCHK5 ^DIAC DT^DICRW L^DICRW1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
VA Fileman	3	DDU DDUCHK2 DI DDUCHK

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	ZIS
^%ZISC	EXIT+14
^%ZTLOAD	ZIS+1
AC^DDUCHK1	CHK+8
ID^DDUCHK1	CHK+2
IX^DDUCHK1	CHK+3
NM^DDUCHK1	CHK+7
PT^DDUCHK1	CHK+4
^DDUCHK2	CHK+10
CHKGL^DDUCHK2	CHK+5
CHKSB^DDUCHK2	CHK+6
INDEX^DDUCHK4	CHK+9
KEY^DDUCHK5	CHK+9
^DIAC	DDAC
DT^DICRW	A+4
L^DICRW1	A+5
^DIR	A+13, PAGE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Check the Data Dictionary." Line Location: A+0
Function Call: WRITE	Prompt: !,"Note: Messages that begin with an asterisk(*) can NOT be corrected and" Line Location: A+1
Function Call: WRITE	Prompt: !,"will need careful evaluation by software development!" Line Location: A+2
Function Call: WRITE	Prompt: !?5,"*The file: "_$P($G(Y),U,2)_"(#"_$P($G(Y),U)_") is missing its ""GL"" (Global Location) node." Line Location: A+8
Function Call: WRITE	Prompt: !?6,"No further checking for this file can occur!" Line Location: A+9
Function Call: WRITE	Prompt: !!,"Checking file ",DDUCFILE Line Location: DQ+3
Function Call: WRITE	Prompt: !!,"List of ;;<file#>^<field #>^<cross reference#> that contain $Next" Line Location: EXIT+3
Function Call: WRITE	Prompt: !,I_$E(DDSP,1,(8-$L(I)))_";;"_DDFIL_U_DDFLD_U_DDXRN Line Location: EXIT+10
Function Call: WRITE	Prompt: !,I_$E(DDSP,1,(8-$L(I)))_";;LAST LINE" Line Location: EXIT+12
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+0
Function Call: WRITE	Prompt: !,"You don't have DD access to this file. No fixing will be done on this file." Line Location: DDAC+0
Function Call: WRITE	Prompt: !?5,"*File: "_DDUCRFI_", is missing its file header node." Line Location: CHK+1
Function Call: WRITE	Prompt: "has duplicate 'NM' nodes." Line Location: CHK+7
Function Call: WRITE	Prompt: !?8,"File: ",DDUCRFI," " Line Location: WFI+0
Function Call: WRITE	Prompt: !?5,"*File: "_DDUCFI_", is missing file's ""GL"" (Global Location) node.",!?6,"No further checking can occur!" Line Location: CHKHDR+4
Function Call: WRITE	Prompt: !?5,"*File: "_DDUCFI_", is missing the File header node." Line Location: CHKHDR+7
Function Call: WRITE	Prompt: !?5,"*File: "_DDUCFI_", header name is incorrect." Line Location: CHKHDR+8
Function Call: WRITE	Prompt: !?5,"*File: "_DDUCFI_" File header number is incorrect." Line Location: CHKHDR+9
Routine Call	DIR Line Location: A+13 PAGE
Routine Call	%ZIS Line Location: ZIS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CHK+1, CHK+2, CHK+3, CHK+4, CHK+7
^DD("ACOMP"	CHK+8
^DIC - [#1]	DQ+1, CHK, EN+2, CHKHDR+3, CHKHDR+6
^TMP("DDUCHK"	DQ!, EXIT+1, EXIT+5, EXIT+7, EXIT+9, EXIT+13!

Label References

Name	Line Occurrences
CHK	DQ+8
CHKHDR	DQ+6
DDAC	DQ+5
EN1	EN+2
EXIT	A+6, A+13, ZIS, ZIS+1
PAGE	DQ+1
WFI	CHK+7
ZIS	EN1+1

Naked Globals

Name	Field # of Occurrence
^(	CHK+7
^(0	CHK*, EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS*
DDFIL	EXIT+4~, EXIT+5, EXIT+7, EXIT+9, EXIT+10
DDFLD	EXIT+6~, EXIT+7, EXIT+9, EXIT+10
DDSP	EXIT+4~*, EXIT+10, EXIT+12
DDUC	A+3*, EXIT+17!
DDUC5	EXIT+17!
DDUCDNAM	EXIT+16!, CHK+7*
DDUCF	EXIT+17!
DDUCFE	EXIT+15!
DDUCFI	DQ+4, EXIT+15!, CHK, CHK+1, CHK+2, CHK+3, CHK+4, CHK+7, CHK+8, CHK+9 , EN+1, EN+2, EN+3, EN1, CHKHDR+3, CHKHDR+4, CHKHDR+6, CHKHDR+7, CHKHDR+8, CHKHDR+9
DDUCFIE	A+10, DQ+1, EXIT+15!, EN1
DDUCFILE	DQ+1*, DQ+3, DQ+4, EXIT+15!
DDUCFIS	A+10, DQ+1, EXIT+15!, EN1
DDUCFIX	A+13, DQ, EXIT+15!, DDAC, CHK, CHK+7, CHK+9, EN+1
DDUCFX	DQ*, EXIT+17!, DDAC
DDUCGL	CHKHDR+2~, CHKHDR+3*, CHKHDR+4, CHKHDR+5
DDUCHDR	CHKHDR+2~, CHKHDR+5*, CHKHDR+7, CHKHDR+8, CHKHDR+9
DDUCNA	CHKHDR+2~, CHKHDR+6*, CHKHDR+8
DDUCNAME	EXIT+16!, CHK+7*
DDUCOK	EXIT+17!
DDUCRFE	EXIT+16!
DDUCRFI	EXIT+15!, CHK+1, CHK+7, WFI
DDUCSTK	DQ!*, EXIT+16!
DDUCUP	EXIT+16!
DDUCX	EXIT+15!
DDUCX1	EXIT+15!
DDUCX2	EXIT+15!
DDUCX4	EXIT+15!
DDUCXN	EXIT+16!
DDUCXREF	EXIT+17!
DDUCXX	EXIT+16!
DDUCY	EXIT+16!
DDUCYY	EXIT+17!
DDUCYY1	EXIT+17!
DDUCYYX	EXIT+17!
DDUCZ	EXIT+17!
DDUERR	DQ+2~, DQ+7, CHKHDR+4
DDXRN	EXIT+8~, EXIT+9, EXIT+10
DIAC	EXIT+17!, DDAC*
DIB	EXIT+17!
DIB(1	A+10
DIFILE	DQ+4*, EXIT+17!
DIR	A+13!
DIR("?"	A+11, A+12
DIR("A"	A+11*
DIR("B"	A+11*
DIR(0	A+11, PAGE
>> DIRUT	A+13, DQ+1
DUZ(0	EXIT+1, DDAC
I	EXIT+4~, EXIT+10, EXIT+11, EXIT+12*
IO	DQ
IO("Q"	ZIS+1
IOF	EXIT+2, PAGE
IOSL	PAGE
IOST	PAGE
>> POP	ZIS
U	A+8, EXIT+10, CHK, EN+1*, EN+3, CHKHDR+6, CHKHDR+8, CHKHDR+9
>> X	A+6, A+7, A+10
>> Y	A+8, A+13
>> ZTRTN	ZIS+1*
>> ZTSAVE("DDUCFIE"	ZIS+1*
>> ZTSAVE("DDUCFIS"	ZIS+1*
>> ZTSAVE("DDUCFIX"	ZIS+1*

Customize PDF page

Package: VA Fileman

Routine: DDUCHK

Information

Source Information

Call Graph

Call Graph Total: 11

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
A
WFI
ZIS
CHKHDR	; Check for Missing or Incorrect File Header Node ;22*130
CHK
DDAC
EN1
EN	;
EXIT	;
PAGE
DQ