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

Package: VA Fileman

Routine: DIU1


Information

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

Source Information

Source file <DIU1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 11 (CHIX,DD,WAIT)^DICD  YN^DICN  WR^DIDH  (DISKIPIN,IXALL)^DIK  CNT^DIK1  INDEX^DIKC  $$SUB^DIKCU  ($$CHOOSE,$$TYPE,GETXR,LIST)^DIKCUTL2  
$$CREF^DILF  ^DIR  DI^DIU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA Fileman 1 DIU  

Entry Points

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

External References

Name Field # of Occurrence
CHIX^DICD ONE+4
DD^DICD IND+1, REDO
WAIT^DICD ALL+4
YN^DICN ALL+4, ONE, ONE+6
WR^DIDH UP+1
DISKIPIN^DIK 4+2, ALL+8
IXALL^DIK ALL+10, DD+1
CNT^DIK1 ALL+8
INDEX^DIKC ALL+9, ONEXR+17
$$SUB^DIKCU ONEXR+4
$$CHOOSE^DIKCUTL2 ONEXR+9
$$TYPE^DIKCUTL2 ONE+1
GETXR^DIKCUTL2 DW+3, ONEXR+7
LIST^DIKCUTL2 Q+1, ONEXR+8
$$CREF^DILF KWREG+9
^DIR LOGIC+8, LOGIC+15
DI^DIU ONE+4

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
Routine Call
  • DIR
  • Line Location:
    • LOGIC+8
    • LOGIC+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ALL+2, DD!, DD+1, ONE+5, ONE+7, IND+1, REDO, Q, UP, UP+1
, ONEXR+3
^DIC - [#1] ALL+10, DD+1, IND+1
^UTILITY("DIK" 4+2!, DW, DW+1, DW+2, DW+5!

Label References

Name Line Occurrences
$$LOGIC ONEXR+13
4 Q+2
ALL ONE
DD DW+5, ALL+10, DD+1
DW DW+1
IND ONE+7
KWREG IND, KWREG+15
NO ALL+4, ONE, ONE+2, ONE+4, ONE+5, ONE+6, ONEXR+4, ONEXR+10, ONEXR+14
ONE DW+5
ONEXR ONE+3
Q ALL+4, ONE
REDO ONE+8, IND
UP Q

Naked Globals

Name Field # of Occurrence
^( DW+2
^("GL" DD!
^("GR" DD!
^("IX" DD!
^("NM" UP
^("RQ" DD!
^("SB" DD!
^(0 DW+2, DD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DW+4*, ALL+4*, ALL+5*, ONE*, ONE+5*, ONE+6*, ONE+7*, Q*, UP*, UP+1*
>> %F UP+1*
>> %Y ONE+7*
CROOT KWREG+8~, KWREG+9*, KWREG+10, KWREG+11, KWREG+15
DA ALL+8*, ONE+4*, ONE+5, ONE+7, IND+1, KWREG+13~, KWREG+14*, KWREG+15*
DA(1 DD*
>> DCNT ALL+8*
DH DW+1*, DW+2, NO!
DI 4+2, DW+3, ALL+5, DD, DD+1*, ONE+3, ONE+5, ONE+7, Q, UP
, ONEXR~, ONEXR+3, ONEXR+4, ONEXR+16, ONEXR+17
DIC ALL+11!
DICD ONE+4*, ONE+5, IND+1, REDO, NO!
DIK 4+2*, ALL+5, ALL+10*, ALL+11!, DD*, ONE+8
DIK(0 ALL+8*
DIKJ 4+1~
DINO 4+1~, 4+2, ALL+8, ONE
DIR LOGIC+1~, LOGIC+8!, LOGIC+15!
DIR("?" LOGIC+7*, LOGIC+14*
DIR("A" LOGIC+6*, LOGIC+13*
DIR(0 LOGIC+5*, LOGIC+12*
DIROUT LOGIC+1~
DIRUT LOGIC+1~, LOGIC+8, LOGIC+15
>> DIU 4+2, IND, IND+1*
DIUCNT 4+1~, DW+3, DW+5, ALL+1, ALL+2, ALL+3, ALL+9, ONE, ONE+1, ONE+3!
, Q+1, ONEXR+2~, ONEXR+7, ONEXR+8, ONEXR+9
DIUCNT( ALL+1, ONEXR+13
DIUCNT("" ALL+1
DIUCTRL ONEXR+2~, ONEXR+13*, ONEXR+14, ONEXR+16*, ONEXR+17
>> DIUF 4+2*, ALL+9, ALL+10, DD+1, ONE+8, IND+1
DIUFILE ONEXR+2~, ONEXR+4*, ONEXR+7, ONEXR+16
DIULOG ONEXR+2~, LOGIC+1~, LOGIC+2*, LOGIC+9*, LOGIC+16*, LOGIC+17
DIUNAME LOGIC~, LOGIC+6, LOGIC+13
DIUTYPE 4+1~, ONE+1*, ONE+2, ONE+3
DIUXR ONEXR+2~, ONEXR+9*, ONEXR+10, ONEXR+13, ONEXR+17
>> DL ONE+4*, REDO
DTOUT LOGIC+1~
DU 4+1~, DW+1*
DUOUT LOGIC+1~
DV 4+1~, DW*, DW+1*, DW+2
DW 4+1~, 4+2*, DW*, DW+1, DW+2
I ONE+5, ONE+7, ONE+8, IND, Q*, UP, UP+1, KWREG~, KWREG+11, KWREG+15
I( KWREG+15
J IND, Q*, KWREG~, KWREG+15
J( IND+1, REDO, KWREG+11
LEV KWREG~, KWREG+11, KWREG+15
>> N ALL+4*, ALL+10, IND+1, REDO
ROOT KWREG~, KWREG+9, KWREG+15
U DW+2, ALL+1, ALL+2, ALL+5, ONE, ONE+5, ONE+8, IND, Q, UP
, UP+1, KWREG+11, ONEXR+13
X 4+2!*, DW+2*, DW+4*, DW+5, ALL+1, ALL+2, ALL+3, ALL+5*, ALL+8*, ALL+10!
, ONE, ONE+1, ONE+4!*, ONE+5*, ONE+7, ONE+8, IND, IND+1*, REDO*, Q
, NO!, LOGIC+1~
X( DW+2*, DW+4!*, ALL+5!, Q, UP, UP+1
X(0 ALL+8
X(1 ALL+2
Y DW+1*, DW+2*, DW+4*, ONE+4, UP+1*, LOGIC+1~, LOGIC+9, LOGIC+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All