Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DIKKUTL3

Package: VA FileMan

Routine: DIKKUTL3


Information

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

Source Information

Source file <DIKKUTL3.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA FileMan 1 DIKKUTL  

Entry Points

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

External References

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
  • DIR
  • Line Location:
    • EOPREAD+3
Routine Call
  • %ZIS
  • Line Location:
    • VERIFY+8
    • VERIFY+20

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 - [#.401] 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!

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All