Routine: DIKKUTL3

Information

DIKKUTL3 ;SFISC/MKO-VERIFY KEY INTEGRITY ;3:10 PM 27 Oct 1998

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	7	YX^%DTC MSG^DIALOG S2^DIBT1 $$FROOTDA^DIKCU INTEG^DIKK $$EXTERNAL^DILFD ^DIR
Kernel	2	^%ZIS (,$$S)^%ZTLOAD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
VA Fileman	1	DIKKUTL

Entry Points

Name	Comments	DBIA/ICR reference
FLDERR(FIL,IENS,FLD,ROOT,SUPP)	;
EOPREAD	;
END
HDR	;Write page header
WRREC(FILE,IENS,TAB,ROOT)	;Write the record info
COLHDR	;Write column headers
DA(IENS,DA)	;Given IENS, write ien's and setup DA array
VERIFY(DIKKEY,DIKKTOP,DIKKFILE)	;Verify key integrity
SAVETEMP(Y)	;Save records in template Y
EOP	;Check whether task should be stopped
W(STR,TAB,KWN)	;Write STR
KEYERR(RFIL,IENS,KEY,ROOT)	;
MAIN	;Queued tasks enter here
ASKTEMP(DIKKTOP)	;Ask for a template name

Name	Field # of Occurrence
YX^%DTC	MAIN+11
^%ZIS	VERIFY+8, VERIFY+20
^%ZTLOAD	VERIFY+17
$$S^%ZTLOAD	EOP+1
MSG^DIALOG	MAIN+7
S2^DIBT1	ASKTEMP+5
$$FROOTDA^DIKCU	MAIN+27, WRREC+2
INTEG^DIKK	MAIN+6
$$EXTERNAL^DILFD	WRREC+5
^DIR	EOPREAD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VERIFY+8
Function Call: WRITE	Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),! Line Location: VERIFY+18
Function Call: WRITE	Prompt: !,"Report canceled!",! Line Location: VERIFY+19
Function Call: WRITE	Prompt: !!," NO PROBLEMS " Line Location: MAIN+21
Function Call: WRITE	Prompt: ?DIKKTAB(2),"Duplicate Key "_$P($G(^DD("KEY",KEY,0)),U,2)_" (#"_KEY_")" Line Location: KEYERR+2
Function Call: WRITE	Prompt: ?DIKKTAB(2),"Missing Key Field(s):" Line Location: FLDERR+3
Function Call: WRITE	Prompt: ?TAB,$S(ENAM]"":ENAM,1:"Unknown record name") Line Location: WRREC+6
Function Call: WRITE	Prompt: !?+$G(TAB),$G(STR) Line Location: W+4
Function Call: WRITE	Prompt: @IOF Line Location: EOP+3
Function Call: WRITE	Prompt: ! Line Location: EOPREAD+3
Function Call: WRITE	Prompt: "KEY INTEGRITY CHECK" Line Location: HDR+2
Function Call: WRITE	Prompt: ?(IOM-$L(DIKKHLIN)-$L(DIKKPAGE)-1),DIKKHLIN_DIKKPAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !,$TR($J("",IOM-1)," ","-") Line Location: HDR+4
Function Call: WRITE	Prompt: !," Key: "_DIKKNAME_" (#"_DIKKEY_"), File #"_DIKKFILE Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Uniqueness Index: "_DIKKUINM_" (#"_DIKKUI_")" Line Location: HDR+6
Function Call: WRITE	Prompt: Q:$D(DIRUT) Line Location: COLHDR+4
Function Call: WRITE	Prompt: ?DIKKTAB(1),FNAM,?DIKKTAB(2),"ERROR" Line Location: COLHDR+4
Function Call: WRITE	Prompt: !,"-------",?DIKKTAB(1),$TR($J("",$L(FNAM))," ","-"),?DIKKTAB(2),"-----" Line Location: COLHDR+5
Function Call: WRITE	Prompt: DA(I-1),! Line Location: DA+4
Function Call: WRITE	Prompt: DA Line Location: DA+5
Routine Call	DIALOG Line Location: MAIN+7
Routine Call	%ZIS Line Location: VERIFY+8 VERIFY+20
Routine Call	DIR Line Location: EOPREAD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	END+6
^%ZTSK - [#14.4]	VERIFY+7
^DD(	FLDERR+4, COLHDR+2
^DD("IX" - [#.11]	MAIN+16
^DD("KEY" - [#.31]	MAIN+14, MAIN+15, KEYERR+2
^DIBT(	SAVETEMP+5, SAVETEMP+6
^TMP("DIKKTAR"	MAIN+21, MAIN+25, MAIN+29, MAIN+30, MAIN+32, END+4!, SAVETEMP+2, SAVETEMP+3
^TMP("DIKKUTL"	MAIN+3!

Name	Line Occurrences
$$ASKTEMP	VERIFY+4
COLHDR	MAIN+26, W+3
DA	WRREC+3
END	MAIN+21
EOP	W+2
EOPREAD	END, EOP+2
FLDERR	MAIN+32
HDR	MAIN+20, W+3
KEYERR	MAIN+30
SAVETEMP	END+3
W	MAIN+34, FLDERR+4, COLHDR+3, COLHDR+4, DA+2
WRREC	KEYERR+1, FLDERR+2

Name	Field # of Occurrence
^(0	MAIN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	MAIN+11*
%ZIS	VERIFY+1~, VERIFY+7*, VERIFY+9!
C	ASKTEMP+2~
CNT	SAVETEMP+1~, SAVETEMP+2, SAVETEMP+5, SAVETEMP+6
D	ASKTEMP+2~
D1	ASKTEMP+2~
D2	ASKTEMP+2~
D3	ASKTEMP+2~
D4	ASKTEMP+2~
DA	WRREC+1~, WRREC+3, WRREC+4, DA~, DA+3!, DA+5*
DA(	DA+4*
DDA	ASKTEMP+1~
DIC	ASKTEMP+1~
DICKL	ASKTEMP+1~
DIERR	MAIN+7, WRREC+1~
DIKKEY	VERIFY~, MAIN+6, MAIN+14, MAIN+15, MAIN+30, HDR+5
DIKKFIL	MAIN+1~, MAIN+24, MAIN+25, MAIN+27, MAIN+29, MAIN+30, MAIN+32, COLHDR+2
DIKKFILE	VERIFY~, HDR+5, HDR+7
DIKKFLD	MAIN+2~, MAIN+31, MAIN+32
DIKKFNAM	MAIN+2~
DIKKHLIN	MAIN+1~, MAIN+12*, HDR+3
DIKKIENS	MAIN+2~, MAIN+28, MAIN+29, MAIN+30, MAIN+32
DIKKNAME	MAIN+1~, MAIN+14*, HDR+5
DIKKPAGE	MAIN+1~, MAIN+10, HDR+1, HDR+3
DIKKROOT	MAIN+2~, MAIN+27*, MAIN+30, MAIN+32
DIKKSUPP	MAIN+2~, MAIN+31*, MAIN+32
DIKKTAB	MAIN+1~
DIKKTAB(1	MAIN+13*, KEYERR+1, FLDERR+2, COLHDR+4, COLHDR+5
DIKKTAB(2	MAIN+13*, KEYERR+2, FLDERR+3, FLDERR+4, COLHDR+4, COLHDR+5
DIKKTEMP	VERIFY+1~, VERIFY+4*, END+3
DIKKTOP	VERIFY~, VERIFY+4, MAIN+6, ASKTEMP~, ASKTEMP+4
DIKKUI	MAIN+1~, MAIN+15*, MAIN+16, HDR+6
DIKKUIFL	MAIN+1~, MAIN+16*, HDR+7
DIKKUINM	MAIN+1~, MAIN+16*, HDR+6
DIR	EOPREAD+2~, ASKTEMP+1~
DIR(0	EOPREAD+3*
DIROUT	EOPREAD+2~, ASKTEMP+1~
DIRUT	MAIN+25, MAIN+29, MAIN+32, MAIN+33, END, KEYERR+1, FLDERR+1, FLDERR+2, WRREC+3, W+1 , W+2, EOP+1*, EOP+2, COLHDR+3, COLHDR+4, ASKTEMP+1~, ASKTEMP+5, DA+2
DIU0	ASKTEMP+1~
DK	ASKTEMP+1~, ASKTEMP+4*, SAVETEMP+1~
DQ	ASKTEMP+1~
DT	SAVETEMP+6
DTOUT	EOPREAD+2~, ASKTEMP+1~
DUOUT	EOPREAD+2~, ASKTEMP+1~
ENAM	WRREC+1~, WRREC+4, WRREC+5, WRREC+6
FIL	FLDERR~, FLDERR+2, FLDERR+4
FILE	WRREC~, WRREC+2, WRREC+5, SAVETEMP+1~, SAVETEMP+2*, SAVETEMP+3
FLD	FLDERR~, FLDERR+4, SAVETEMP+1~
FNAM	COLHDR+1~, COLHDR+2*, COLHDR+4, COLHDR+5
I	VERIFY+13~, VERIFY+16, ASKTEMP+2~, DA+1~, DA+4
IENS	KEYERR~, KEYERR+1, FLDERR~, FLDERR+2, WRREC~, WRREC+3, SAVETEMP+1~, SAVETEMP+3*, SAVETEMP+4, DA~ , DA+2, DA+4, DA+5
IO	VERIFY+22
IO("Q"	VERIFY+12
IOF	MAIN+19, EOP+3
IOM	HDR+3, HDR+4
>> IOP	VERIFY+20*
IOSL	W+1
IOST	MAIN+19, EOPREAD+1
J	ASKTEMP+2~
KEY	KEYERR~, KEYERR+2
KWN	W~, W+1
L	ASKTEMP+2~
MSG	WRREC+1~
O	ASKTEMP+2~
POP	VERIFY+1~, VERIFY+8, VERIFY+9!
REC	SAVETEMP+1~, SAVETEMP+4*, SAVETEMP+5
RFIL	KEYERR~, KEYERR+1
ROOT	KEYERR~, KEYERR+1, FLDERR~, FLDERR+2, WRREC~, WRREC+2*, WRREC+4
STR	W~, W+4
SUPP	FLDERR~, FLDERR+1, FLDERR+5*
TAB	WRREC~, WRREC+6, W~, W+4
U	MAIN+14, MAIN+15, MAIN+16, KEYERR+2, FLDERR+4, WRREC+4, COLHDR+2, SAVETEMP+6
X	EOPREAD+2~, ASKTEMP+2~
Y	MAIN+12, EOPREAD+2~, ASKTEMP+2~, ASKTEMP+5, ASKTEMP+6, SAVETEMP~, SAVETEMP+5, SAVETEMP+6
>> ZTDESC	VERIFY+15*
>> ZTQUEUED	END+5, EOP+1, EOPREAD+1
>> ZTREQ	END+5*
>> ZTRTN	VERIFY+14*
>> ZTSAVE(	VERIFY+16*
ZTSK	VERIFY+13~, VERIFY+18
>> ZTSTOP	EOP+1*

Customize PDF page

Package: VA Fileman

Routine: DIKKUTL3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: