DMSQT ;SFISC/EZ-TROUBLE SHOOTING ;11/13/97 12:25
;;22.0;VA FileMan;;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
Q
; DMQ - status flag for flow of control
; DMTDATE, DMEDATE - dates when Tables and Errors last updates
; DMLTBL - last table
; DMLFILE, DMNFILE - last file being processed, next one to be done
; DMLCOL, DMCNODE - last column processed, that column's node
; DMLCTE, DMLCTBL - last column's table element and table
; DMLCFILE, DMLCFLD - the last column's file and field reference
; DMNCFLD - what would be the next column's field reference
; (using ^DD to see what field is coming up next for processing)
; DMNCFILE - what would be the next column's file reference
; DMPARENT - parent to a subfile, may itself be a subfile
; DMTOPFLD - the top (upper) level field number for a subfile
; DMNXTFLD - the next field in the upper file to be processed
; DMNEXTF - the next file to be processed, coming up a subfile path
; DMNEXTSF - the next subfile to be processed, up from a subfile path
; DMNAME - the name of a file or subfile
; DMLFK, DMLFKTE - last foreign key, and it's last table element
; DMFKTBL - foreign key table, pointer from table element record
; DMPKTE - primary key table element record
; DMKEYS, DMC - keys (primary keys), and a counter
; DMFKFILE - foreign key file, the table element pointer
; DMASTER - the master table for this index table
; DMLO, DMLOF - where SQLI left off when building index tables
; So DMLO would be the last regular table where SQLI left off
; and DMLOF would be that table's file number.
EN ; main driver logic
; follows flow of ALLF^DMSQF, checking that each step completed
I $$WAIT^DMSQT1 D Q
. W !?5,"Try again later. An SQLI projection is running right"
. W !?5,"now. It might take a few hours to finish, but then you"
. W !?5,"can try again and get a final status report."
S %ZIS="QM" D ^%ZIS Q:POP
I $D(IO("Q")) D Q
. S ZTRTN="DQ^DMSQT",ZTDESC="SQLI DIAGNOSTICS REPORT"
. D ^%ZTLOAD D HOME^%ZIS K IO("Q")
DQ U IO D INIT D
. D DATE
. D SCHEMA D PAGE Q:$D(DIRUT)
. D A D PAGE Q:$D(DIRUT)
. D B D PAGE Q:$D(DIRUT)
. D C D PAGE Q:$D(DIRUT)
. D D D PAGE Q:$D(DIRUT)
D @$S($D(DIRUT):"EXIT",DMQ=1:"DONE",DMQ=2:"ERROR",1:"EXIT")
D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
Q
INIT ; initialize variables
S DMQ="" D DT^DICRW
S DMTDATE=$P($G(^DMSQ("T",1,0)),U,8)
S DMEDATE=$O(^DMSQ("EX","D",0))
S DMLTBL=$O(^DMSQ("T",999999999999999999999999),-1)
S DMLCOL=$O(^DMSQ("C",999999999999999999999999),-1)
S DMLFK=$O(^DMSQ("F",999999999999999999999999),-1)
Q
PAGE K DIRUT I $Y+4>IOSL S DIR(0)="E" D:IOST["C-" ^DIR W @IOF
Q
DATE ; check when projection run, compare with today
S Y=DT D DD^%DT W !?10," TODAY'S DATE: ",Y,!
I 'DMTDATE D
. W !?5,"No date associated with first SQLI Table record."
I 'DMEDATE D
. W !?5,"No dates found in the SQLI Error Log."
I DMTDATE'=DMEDATE D
. W !?5,"Different dates on Table and Error Log files."
S Y=DMTDATE D DD^%DT W !?10,"LAST SQLI TABLE UPDATE: ",Y
S Y=DMEDATE D DD^%DT W !?10,"LAST SQLI ERROR UPDATE: ",Y,!
;I DMTDATE,DMEDATE,DT'=DMTDATE,DT'=DMEDATE D
I (DMTDATE!DMEDATE)&(DT'=DMTDATE!(DT'=DMEDATE)) D
. W !?5,"SQLI was run in the past. DDs may have changed since then.",!
Q
SCHEMA ; check if schema node set
I '$O(^DMSQ("S",0)) S DMQ=2 D Q
. W !?5,"No SQLI Schema records. Has the SQLI projection been run?"
Q
A ; were all regular tables built?
I 'DMLTBL S DMQ=2 D Q
. W !!?5,"No records in the SQLI Table file."
I $P(^DMSQ("T",DMLTBL,0),U,4) D Q
. W !?5,"All regular tables appear to have been built."
S DMLFILE=$P(^DMSQ("T",DMLTBL,0),U,7) I 'DMLFILE S DMQ=2 Q
;. W !!?5,"Not all files appear to have been built as tables."
W !?5,"The last regular file to be processed was ",DMLFILE,"."
S DMNFILE=+$O(^DIC(DMLFILE)) I DMNFILE S DMQ=2 D Q
. W !?5,"The next one, file ",DMNFILE," may be the problem."
. D BADFILE(DMNFILE)
S DMNFILE=+$O(^DD(DMLFILE)) I DMNFILE S DMQ=2 D Q
. I $D(^DD(DMNFILE,0,"UP")) D
.. W !?5,"The next one, subfile ",DMNFILE," may be the problem."
.. D BADFILE(DMNFILE)
Q
B ; were all columns built?
I 'DMLCOL S DMQ=2 D Q
. W !!?5,"No records in the SQLI Column file."
S DMLCTE=$P(^DMSQ("C",DMLCOL,0),U,1)
S DMLCTBL=$P($G(^DMSQ("E",DMLCTE,0)),U,3)
I DMLCTBL=DMLTBL D Q
. W !!?5,"Columns have been built for the last table processed."
S DMQ=2 D
. W !!?5,"It looks like not all columns were processed."
S DMCNODE=^DMSQ("C",DMLCOL,0)
S DMLCFILE=$P(DMCNODE,U,5),DMLCFLD=$P(DMCNODE,U,6)
I DMLCFILE,DMLCFLD D
. W !?5,"The last file processed was ",DMLCFILE,"."
. W !?5,"The last field processed was ",DMLCFLD,"."
. S DMNCFLD=$O(^DD(DMLCFILE,DMLCFLD)) I +DMNCFLD D Q
.. W !!?5,"The next field to be processed looks like ",DMNCFLD,"."
.. D BADFILE(DMLCFILE)
. I $D(^DIC(DMLCFILE)) S DMNCFILE=$O(^DIC(DMLCFILE)) I +DMNCFILE D Q
.. W !?5,"Having finished with all fields of ",DMLCFILE,", SQLI was probably"
.. W !?5,"trying to process ",DMNCFILE,", the next file."
.. D BADFILE(DMNCFILE)
. S DMPARENT=$G(^DD(DMLCFILE,0,"UP")) I DMPARENT D
.. W !?5,"The last one (",DMLCFILE,") is a subfile of ",DMPARENT,"."
.. S DMTOPFLD=$O(^DD(DMPARENT,"SB",DMLCFILE,0))
.. W !?5,"It is field ",DMTOPFLD," of file ",DMPARENT,"."
.. S DMNXTFLD=$O(^DD(DMPARENT,DMTOPFLD)) I +DMNXTFLD D
... W !?5,"The next field to be processed looks like ",DMNXTFLD,"."
... D BADFILE(DMPARENT)
.. I '+DMNXTFLD D
... W !?5,"That looks like the last field in ",DMPARENT,"."
... I $D(^DIC(DMPARENT)) D Q
.... S DMNEXTF=$O(^DIC(DMPARENT)) I +DMNEXTF D
..... W !?5,"The next file to be processed looks like ",DMNEXTF,"."
..... D BADFILE(DMNEXTF)
... S DMNEXTSF=$G(^DD(DMPARENT,0,"UP")) I DMNEXTSF D Q
.... W !?5,"The next subfile to be processed looks like ",DMNEXTSF,"."
.... D BADFILE(DMNEXTSF)
Q
BADFILE(NUM) ;
S DMNAME=$P($G(^DIC(NUM,0)),U,1)
I 'DMNAME S DMNAME=$O(^DD(NUM,0,"NM",0))
D PAGE Q:$D(DIRUT)
W !!?5,"SUGGESTION: Investigate this file/subfile as the potential"
W !?5,"source of the problem. That's: ",NUM," ",DMNAME,!
Q
C ; were all foreign keys built?
I 'DMLFK S DMQ=2 D Q
. W !!?5,"No foreign key records have been built."
S DMLFKTE=$O(^DMSQ("E","E","F",999999999999),-1)
I 'DMLFKTE S DMQ=2 D Q
. W !?5,"No table elements have been built for foreign keys."
S DMFKTBL=$P(^DMSQ("E",DMLFKTE,0),U,3)
S DMPKTE=$O(^DMSQ("E","F",DMFKTBL,"P",0))
S (DMKEYS,DMC)=0
F S DMKEYS=$O(^DMSQ("P","B",DMPKTE,DMKEYS)) Q:DMKEYS="" S DMC=DMC+1
S DMFKFILE=$P(^DMSQ("T",DMFKTBL,0),U,7)
I DMC>1 D Q
. W !!?5,"All regular foreign keys have been built (FKs)."
. W !?5,"Parent foreign keys (PFKs) have also been built, the"
. W !?5,"last one being for file/subfile ",DMFKFILE,"."
I DMC'>1 S DMQ=2 D Q
. W !!?5,"Only regular foreign keys (FKs) have been processed."
. W !?5,"The last was for file/subfile ",DMFKFILE,"."
Q
D ; were all index tables built?
I 'DMLTBL S DMQ=2 D Q
. W !!?5,"No records for SQLI index tables."
S DMASTER=$P(^DMSQ("T",DMLTBL,0),U,4) I 'DMASTER S DMQ=2 D Q
. W !!?5,"Index tables don't appear to have been built."
S DMLO=$O(^DMSQ("T",DMASTER)) I 'DMLO S DMQ=2 Q
S DMLOF=$P(^DMSQ("T",DMLO,0),U,7) I DMLOF D
. ; find out if any indexes remain to be processed
. S DMLOOP=DMASTER F S DMLOOP=$O(^DMSQ("T",DMLOOP)) Q:DMLOOP'>0 D
.. Q:$P(^DMSQ("T",DMLOOP,0),U,4)
.. S:$$IDX^DMSQT1(DMLOOP) DMQ=2
I DMQ=2 W !!?5,"Index processing stopped at file ",DMLOF,"." Q
S DMQ=1
W !!?5,"All index tables appear to have been built. The last was for"
W !?5,"file/subfile ",$P(^DMSQ("T",DMASTER,0),U,7),"."
Q
DONE ; come here if all checks succeed
W !!?5,"No problems detected in SQLI data structures themselves.",!
Q
ERROR ; come here on error
W !!?5,"Problems found in SQLI data structures."
W !?5,"---------------------------------------"
W !?5,"See SQLI Site Manual, trouble-shooting section, for ideas about"
W !?5,"how to investigate the problem. For example, RUNONE^DMSQ may be"
W !?5,"used to explore a potential problem file."
Q
EXIT K DMQ,DMTDATE,DMEDATE,DMLTBL,DMLFILE,DMNFILE
K DMLCOL,DMLCTE,DMLCTBL,DMCNODE,DMLCFILE,DMLCFLD,DMNCFLD
K DMNCFILE,DMPARENT
K DMTOPFLD,DMNXTFLD,DMNEXTF,DMNEXTSF,DMNAME,DMLFK,DMLFKTE,DMFKTBL
K DMPKTE,DMKEYS,DMC,DMFKFILE,DMASTER,DMLO,DMLOF,DMLOOP
Q
DMSQT ;SFISC/EZ-TROUBLE SHOOTING ;11/13/97 12:25
+1 ;;22.0;VA FileMan;;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 QUIT
+4 ; DMQ - status flag for flow of control
+5 ; DMTDATE, DMEDATE - dates when Tables and Errors last updates
+6 ; DMLTBL - last table
+7 ; DMLFILE, DMNFILE - last file being processed, next one to be done
+8 ; DMLCOL, DMCNODE - last column processed, that column's node
+9 ; DMLCTE, DMLCTBL - last column's table element and table
+10 ; DMLCFILE, DMLCFLD - the last column's file and field reference
+11 ; DMNCFLD - what would be the next column's field reference
+12 ; (using ^DD to see what field is coming up next for processing)
+13 ; DMNCFILE - what would be the next column's file reference
+14 ; DMPARENT - parent to a subfile, may itself be a subfile
+15 ; DMTOPFLD - the top (upper) level field number for a subfile
+16 ; DMNXTFLD - the next field in the upper file to be processed
+17 ; DMNEXTF - the next file to be processed, coming up a subfile path
+18 ; DMNEXTSF - the next subfile to be processed, up from a subfile path
+19 ; DMNAME - the name of a file or subfile
+20 ; DMLFK, DMLFKTE - last foreign key, and it's last table element
+21 ; DMFKTBL - foreign key table, pointer from table element record
+22 ; DMPKTE - primary key table element record
+23 ; DMKEYS, DMC - keys (primary keys), and a counter
+24 ; DMFKFILE - foreign key file, the table element pointer
+25 ; DMASTER - the master table for this index table
+26 ; DMLO, DMLOF - where SQLI left off when building index tables
+27 ; So DMLO would be the last regular table where SQLI left off
+28 ; and DMLOF would be that table's file number.
EN ; main driver logic
+1 ; follows flow of ALLF^DMSQF, checking that each step completed
+2 IF $$WAIT^DMSQT1
Begin DoDot:1
+3 WRITE !?5,"Try again later. An SQLI projection is running right"
+4 WRITE !?5,"now. It might take a few hours to finish, but then you"
+5 WRITE !?5,"can try again and get a final status report."
End DoDot:1
QUIT
+6 SET %ZIS="QM"
DO ^%ZIS
IF POP
QUIT
+7 IF $DATA(IO("Q"))
Begin DoDot:1
+8 SET ZTRTN="DQ^DMSQT"
SET ZTDESC="SQLI DIAGNOSTICS REPORT"
+9 DO ^%ZTLOAD
DO HOME^%ZIS
KILL IO("Q")
End DoDot:1
QUIT
DQ USE IO
DO INIT
Begin DoDot:1
+1 DO DATE
+2 DO SCHEMA
DO PAGE
IF $DATA(DIRUT)
QUIT
+3 DO A
DO PAGE
IF $DATA(DIRUT)
QUIT
+4 DO B
DO PAGE
IF $DATA(DIRUT)
QUIT
+5 DO C
DO PAGE
IF $DATA(DIRUT)
QUIT
+6 DO D
DO PAGE
IF $DATA(DIRUT)
QUIT
End DoDot:1
+7 DO @$SELECT($DATA(DIRUT):"EXIT",DMQ=1:"DONE",DMQ=2:"ERROR",1:"EXIT")
+8 DO ^%ZISC
IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+9 QUIT
INIT ; initialize variables
+1 SET DMQ=""
DO DT^DICRW
+2 SET DMTDATE=$PIECE($GET(^DMSQ("T",1,0)),U,8)
+3 SET DMEDATE=$ORDER(^DMSQ("EX","D",0))
+4 SET DMLTBL=$ORDER(^DMSQ("T",999999999999999999999999),-1)
+5 SET DMLCOL=$ORDER(^DMSQ("C",999999999999999999999999),-1)
+6 SET DMLFK=$ORDER(^DMSQ("F",999999999999999999999999),-1)
+7 QUIT
PAGE KILL DIRUT
IF $Y+4>IOSL
SET DIR(0)="E"
IF IOST["C-"
DO ^DIR
WRITE @IOF
+1 QUIT
DATE ; check when projection run, compare with today
+1 SET Y=DT
DO DD^%DT
WRITE !?10," TODAY'S DATE: ",Y,!
+2 IF 'DMTDATE
Begin DoDot:1
+3 WRITE !?5,"No date associated with first SQLI Table record."
End DoDot:1
+4 IF 'DMEDATE
Begin DoDot:1
+5 WRITE !?5,"No dates found in the SQLI Error Log."
End DoDot:1
+6 IF DMTDATE'=DMEDATE
Begin DoDot:1
+7 WRITE !?5,"Different dates on Table and Error Log files."
End DoDot:1
+8 SET Y=DMTDATE
DO DD^%DT
WRITE !?10,"LAST SQLI TABLE UPDATE: ",Y
+9 SET Y=DMEDATE
DO DD^%DT
WRITE !?10,"LAST SQLI ERROR UPDATE: ",Y,!
+10 ;I DMTDATE,DMEDATE,DT'=DMTDATE,DT'=DMEDATE D
+11 IF (DMTDATE!DMEDATE)&(DT'=DMTDATE!(DT'=DMEDATE))
Begin DoDot:1
+12 WRITE !?5,"SQLI was run in the past. DDs may have changed since then.",!
End DoDot:1
+13 QUIT
SCHEMA ; check if schema node set
+1 IF '$ORDER(^DMSQ("S",0))
SET DMQ=2
Begin DoDot:1
+2 WRITE !?5,"No SQLI Schema records. Has the SQLI projection been run?"
End DoDot:1
QUIT
+3 QUIT
A ; were all regular tables built?
+1 IF 'DMLTBL
SET DMQ=2
Begin DoDot:1
+2 WRITE !!?5,"No records in the SQLI Table file."
End DoDot:1
QUIT
+3 IF $PIECE(^DMSQ("T",DMLTBL,0),U,4)
Begin DoDot:1
+4 WRITE !?5,"All regular tables appear to have been built."
End DoDot:1
QUIT
+5 SET DMLFILE=$PIECE(^DMSQ("T",DMLTBL,0),U,7)
IF 'DMLFILE
SET DMQ=2
QUIT
+6 ;. W !!?5,"Not all files appear to have been built as tables."
+7 WRITE !?5,"The last regular file to be processed was ",DMLFILE,"."
+8 SET DMNFILE=+$ORDER(^DIC(DMLFILE))
IF DMNFILE
SET DMQ=2
Begin DoDot:1
+9 WRITE !?5,"The next one, file ",DMNFILE," may be the problem."
+10 DO BADFILE(DMNFILE)
End DoDot:1
QUIT
+11 SET DMNFILE=+$ORDER(^DD(DMLFILE))
IF DMNFILE
SET DMQ=2
Begin DoDot:1
+12 IF $DATA(^DD(DMNFILE,0,"UP"))
Begin DoDot:2
+13 WRITE !?5,"The next one, subfile ",DMNFILE," may be the problem."
+14 DO BADFILE(DMNFILE)
End DoDot:2
End DoDot:1
QUIT
+15 QUIT
B ; were all columns built?
+1 IF 'DMLCOL
SET DMQ=2
Begin DoDot:1
+2 WRITE !!?5,"No records in the SQLI Column file."
End DoDot:1
QUIT
+3 SET DMLCTE=$PIECE(^DMSQ("C",DMLCOL,0),U,1)
+4 SET DMLCTBL=$PIECE($GET(^DMSQ("E",DMLCTE,0)),U,3)
+5 IF DMLCTBL=DMLTBL
Begin DoDot:1
+6 WRITE !!?5,"Columns have been built for the last table processed."
End DoDot:1
QUIT
+7 SET DMQ=2
Begin DoDot:1
+8 WRITE !!?5,"It looks like not all columns were processed."
End DoDot:1
+9 SET DMCNODE=^DMSQ("C",DMLCOL,0)
+10 SET DMLCFILE=$PIECE(DMCNODE,U,5)
SET DMLCFLD=$PIECE(DMCNODE,U,6)
+11 IF DMLCFILE
IF DMLCFLD
Begin DoDot:1
+12 WRITE !?5,"The last file processed was ",DMLCFILE,"."
+13 WRITE !?5,"The last field processed was ",DMLCFLD,"."
+14 SET DMNCFLD=$ORDER(^DD(DMLCFILE,DMLCFLD))
IF +DMNCFLD
Begin DoDot:2
+15 WRITE !!?5,"The next field to be processed looks like ",DMNCFLD,"."
+16 DO BADFILE(DMLCFILE)
End DoDot:2
QUIT
+17 IF $DATA(^DIC(DMLCFILE))
SET DMNCFILE=$ORDER(^DIC(DMLCFILE))
IF +DMNCFILE
Begin DoDot:2
+18 WRITE !?5,"Having finished with all fields of ",DMLCFILE,", SQLI was probably"
+19 WRITE !?5,"trying to process ",DMNCFILE,", the next file."
+20 DO BADFILE(DMNCFILE)
End DoDot:2
QUIT
+21 SET DMPARENT=$GET(^DD(DMLCFILE,0,"UP"))
IF DMPARENT
Begin DoDot:2
+22 WRITE !?5,"The last one (",DMLCFILE,") is a subfile of ",DMPARENT,"."
+23 SET DMTOPFLD=$ORDER(^DD(DMPARENT,"SB",DMLCFILE,0))
+24 WRITE !?5,"It is field ",DMTOPFLD," of file ",DMPARENT,"."
+25 SET DMNXTFLD=$ORDER(^DD(DMPARENT,DMTOPFLD))
IF +DMNXTFLD
Begin DoDot:3
+26 WRITE !?5,"The next field to be processed looks like ",DMNXTFLD,"."
+27 DO BADFILE(DMPARENT)
End DoDot:3
+28 IF '+DMNXTFLD
Begin DoDot:3
+29 WRITE !?5,"That looks like the last field in ",DMPARENT,"."
+30 IF $DATA(^DIC(DMPARENT))
Begin DoDot:4
+31 SET DMNEXTF=$ORDER(^DIC(DMPARENT))
IF +DMNEXTF
Begin DoDot:5
+32 WRITE !?5,"The next file to be processed looks like ",DMNEXTF,"."
+33 DO BADFILE(DMNEXTF)
End DoDot:5
End DoDot:4
QUIT
+34 SET DMNEXTSF=$GET(^DD(DMPARENT,0,"UP"))
IF DMNEXTSF
Begin DoDot:4
+35 WRITE !?5,"The next subfile to be processed looks like ",DMNEXTSF,"."
+36 DO BADFILE(DMNEXTSF)
End DoDot:4
QUIT
End DoDot:3
End DoDot:2
End DoDot:1
+37 QUIT
BADFILE(NUM) ;
+1 SET DMNAME=$PIECE($GET(^DIC(NUM,0)),U,1)
+2 IF 'DMNAME
SET DMNAME=$ORDER(^DD(NUM,0,"NM",0))
+3 DO PAGE
IF $DATA(DIRUT)
QUIT
+4 WRITE !!?5,"SUGGESTION: Investigate this file/subfile as the potential"
+5 WRITE !?5,"source of the problem. That's: ",NUM," ",DMNAME,!
+6 QUIT
C ; were all foreign keys built?
+1 IF 'DMLFK
SET DMQ=2
Begin DoDot:1
+2 WRITE !!?5,"No foreign key records have been built."
End DoDot:1
QUIT
+3 SET DMLFKTE=$ORDER(^DMSQ("E","E","F",999999999999),-1)
+4 IF 'DMLFKTE
SET DMQ=2
Begin DoDot:1
+5 WRITE !?5,"No table elements have been built for foreign keys."
End DoDot:1
QUIT
+6 SET DMFKTBL=$PIECE(^DMSQ("E",DMLFKTE,0),U,3)
+7 SET DMPKTE=$ORDER(^DMSQ("E","F",DMFKTBL,"P",0))
+8 SET (DMKEYS,DMC)=0
+9 FOR
SET DMKEYS=$ORDER(^DMSQ("P","B",DMPKTE,DMKEYS))
IF DMKEYS=""
QUIT
SET DMC=DMC+1
+10 SET DMFKFILE=$PIECE(^DMSQ("T",DMFKTBL,0),U,7)
+11 IF DMC>1
Begin DoDot:1
+12 WRITE !!?5,"All regular foreign keys have been built (FKs)."
+13 WRITE !?5,"Parent foreign keys (PFKs) have also been built, the"
+14 WRITE !?5,"last one being for file/subfile ",DMFKFILE,"."
End DoDot:1
QUIT
+15 IF DMC'>1
SET DMQ=2
Begin DoDot:1
+16 WRITE !!?5,"Only regular foreign keys (FKs) have been processed."
+17 WRITE !?5,"The last was for file/subfile ",DMFKFILE,"."
End DoDot:1
QUIT
+18 QUIT
D ; were all index tables built?
+1 IF 'DMLTBL
SET DMQ=2
Begin DoDot:1
+2 WRITE !!?5,"No records for SQLI index tables."
End DoDot:1
QUIT
+3 SET DMASTER=$PIECE(^DMSQ("T",DMLTBL,0),U,4)
IF 'DMASTER
SET DMQ=2
Begin DoDot:1
+4 WRITE !!?5,"Index tables don't appear to have been built."
End DoDot:1
QUIT
+5 SET DMLO=$ORDER(^DMSQ("T",DMASTER))
IF 'DMLO
SET DMQ=2
QUIT
+6 SET DMLOF=$PIECE(^DMSQ("T",DMLO,0),U,7)
IF DMLOF
Begin DoDot:1
+7 ; find out if any indexes remain to be processed
+8 SET DMLOOP=DMASTER
FOR
SET DMLOOP=$ORDER(^DMSQ("T",DMLOOP))
IF DMLOOP'>0
QUIT
Begin DoDot:2
+9 IF $PIECE(^DMSQ("T",DMLOOP,0),U,4)
QUIT
+10 IF $$IDX^DMSQT1(DMLOOP)
SET DMQ=2
End DoDot:2
End DoDot:1
+11 IF DMQ=2
WRITE !!?5,"Index processing stopped at file ",DMLOF,"."
QUIT
+12 SET DMQ=1
+13 WRITE !!?5,"All index tables appear to have been built. The last was for"
+14 WRITE !?5,"file/subfile ",$PIECE(^DMSQ("T",DMASTER,0),U,7),"."
+15 QUIT
DONE ; come here if all checks succeed
+1 WRITE !!?5,"No problems detected in SQLI data structures themselves.",!
+2 QUIT
ERROR ; come here on error
+1 WRITE !!?5,"Problems found in SQLI data structures."
+2 WRITE !?5,"---------------------------------------"
+3 WRITE !?5,"See SQLI Site Manual, trouble-shooting section, for ideas about"
+4 WRITE !?5,"how to investigate the problem. For example, RUNONE^DMSQ may be"
+5 WRITE !?5,"used to explore a potential problem file."
+6 QUIT
EXIT KILL DMQ,DMTDATE,DMEDATE,DMLTBL,DMLFILE,DMNFILE
+1 KILL DMLCOL,DMLCTE,DMLCTBL,DMCNODE,DMLCFILE,DMLCFLD,DMNCFLD
+2 KILL DMNCFILE,DMPARENT
+3 KILL DMTOPFLD,DMNXTFLD,DMNEXTF,DMNEXTSF,DMNAME,DMLFK,DMLFKTE,DMFKTBL
+4 KILL DMPKTE,DMKEYS,DMC,DMFKFILE,DMASTER,DMLO,DMLOF,DMLOOP
+5 QUIT
