Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls