source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DMSQT.m@ 1474

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