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: DIU1

Package: VA FileMan

Routine: DIU1


Information

DIU1 ;SFISC/GFT-REINDEX A FILE ;6NOV2012

Source Information

Source file <DIU1.m>

Entry Points

Name Comments DBIA/ICR reference
4 ;RE-CROSS-REFERENCING -- UTILITY OPTION 4
DW
ALL
DD
ONE
IND
REDO
Q
UP
NO
KWREG(ROOT,LEV,I,J) ;Kill entire regular index
ONEXR(DI) ;Re-index one cross reference
LOGIC(DIUNAME) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: "OK, ARE YOU SURE YOU WANT TO KILL OFF THE EXISTING "
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: "'"_$P(DIUCNT($O(DIUCNT(""))),U,3)_"' INDEX"
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $P(^DD(+X(1,0),$P(X(1,0),U,2),0),U,1)_" INDEX"
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: X+DIUCNT_" INDICES"
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !,"DO YOU THEN WANT TO 'RE-CROSS-REFERENCE'"
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !,$C(7),"FILE WILL NOW BE 'RE-CROSS-REFERENCED'..."
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: DD+1
Function Call: WRITE
  • Prompt: "THERE ARE "_(X+DIUCNT)_$P(" RE-RUNNABLE",U,DINO>0)_" INDICES WITHIN THIS FILE",!,"DO YOU WISH TO RE-CROSS-REFERENCE ONE PARTICULAR INDEX"
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !,"SORRY. ",%," IS LISTED AS NOT RE-RUNNABLE"
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: !,"ARE YOU SURE YOU WANT TO DELETE AND RE-CROSS-REFERENCE "_%
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: $C(7)," ...DONE!"
  • Line Location: REDO+0
Function Call: WRITE
  • Prompt: !,"FIELD "
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: J_" ('"_$P(^DD(+%,J,0),U,1)_"'"
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: ", "_$O(^DD(+%,0,"NM",0))_" SUBFILE"
  • Condition for execution: %-DI
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: ") IS ",$S(X(I):"'"_$P(X(I),U,2)_"' INDEX",1:$P(X(I),U,3))
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: " OF "_$O(^("NM",0))_" "_$P("SUB",U,%>0)_"FILE"
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>44
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: " OF "
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: !?7,$C(7),"<NO ACTION TAKEN>"
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: !!?10,"File: "_$O(^DD(DI,0,"NM",""))_" (#"_DI_")"
  • Line Location: ONEXR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ONEXR+8
Function Call: WRITE
  • Prompt: $C(7)_" ...DONE!"
  • Line Location: ONEXR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: LOGIC+8
Info |  Source |  Entry Points |  Interaction Calls