Routine: DMSQT

Package	Total	Call Graph
VA Fileman	4	DD^%DT DT^DICRW ^DIR ($$IDX,$$WAIT)^DMSQT1
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
A	; were all regular tables built?
C	; were all foreign keys built?
EN	; main driver logic ; follows flow of ALLF^DMSQF, checking that each step completed
D	; were all index tables built?
BADFILE(NUM)	;
INIT	; initialize variables
B	; were all columns built?
DONE	; come here if all checks succeed
ERROR	; come here on error
DATE	; check when projection run, compare with today
EXIT
DQ
PAGE
SCHEMA	; check if schema node set

External References

Name	Field # of Occurrence
DD^%DT	DATE+1, DATE+8, DATE+9
^%ZIS	EN+6
HOME^%ZIS	EN+9
^%ZISC	DQ+8
^%ZTLOAD	EN+9
DT^DICRW	INIT+1
^DIR	PAGE
$$IDX^DMSQT1	D+10
$$WAIT^DMSQT1	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Try again later. An SQLI projection is running right" Line Location: EN+3
Function Call: WRITE	Prompt: !?5,"now. It might take a few hours to finish, but then you" Line Location: EN+4
Function Call: WRITE	Prompt: !?5,"can try again and get a final status report." Line Location: EN+5
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+0
Function Call: WRITE	Prompt: !?10," TODAY'S DATE: ",Y,! Line Location: DATE+1
Function Call: WRITE	Prompt: !?5,"No date associated with first SQLI Table record." Line Location: DATE+3
Function Call: WRITE	Prompt: !?5,"No dates found in the SQLI Error Log." Line Location: DATE+5
Function Call: WRITE	Prompt: !?5,"Different dates on Table and Error Log files." Line Location: DATE+7
Function Call: WRITE	Prompt: !?10,"LAST SQLI TABLE UPDATE: ",Y Line Location: DATE+8
Function Call: WRITE	Prompt: !?10,"LAST SQLI ERROR UPDATE: ",Y,! Line Location: DATE+9
Function Call: WRITE	Prompt: !?5,"SQLI was run in the past. DDs may have changed since then.",! Line Location: DATE+12
Function Call: WRITE	Prompt: !?5,"No SQLI Schema records. Has the SQLI projection been run?" Line Location: SCHEMA+2
Function Call: WRITE	Prompt: !!?5,"No records in the SQLI Table file." Line Location: A+2
Function Call: WRITE	Prompt: !?5,"All regular tables appear to have been built." Line Location: A+4
Function Call: WRITE	Prompt: !!?5,"Not all files appear to have been built as tables." Line Location: A+6
Function Call: WRITE	Prompt: !?5,"The last regular file to be processed was ",DMLFILE,"." Line Location: A+7
Function Call: WRITE	Prompt: !?5,"The next one, file ",DMNFILE," may be the problem." Line Location: A+9
Function Call: WRITE	Prompt: !?5,"The next one, subfile ",DMNFILE," may be the problem." Line Location: A+13
Function Call: WRITE	Prompt: !!?5,"No records in the SQLI Column file." Line Location: B+2
Function Call: WRITE	Prompt: !!?5,"Columns have been built for the last table processed." Line Location: B+6
Function Call: WRITE	Prompt: !!?5,"It looks like not all columns were processed." Line Location: B+8
Function Call: WRITE	Prompt: !?5,"The last file processed was ",DMLCFILE,"." Line Location: B+12
Function Call: WRITE	Prompt: !?5,"The last field processed was ",DMLCFLD,"." Line Location: B+13
Function Call: WRITE	Prompt: !!?5,"The next field to be processed looks like ",DMNCFLD,"." Line Location: B+15
Function Call: WRITE	Prompt: !?5,"Having finished with all fields of ",DMLCFILE,", SQLI was probably" Line Location: B+18
Function Call: WRITE	Prompt: !?5,"trying to process ",DMNCFILE,", the next file." Line Location: B+19
Function Call: WRITE	Prompt: !?5,"The last one (",DMLCFILE,") is a subfile of ",DMPARENT,"." Line Location: B+22
Function Call: WRITE	Prompt: !?5,"It is field ",DMTOPFLD," of file ",DMPARENT,"." Line Location: B+24
Function Call: WRITE	Prompt: !?5,"The next field to be processed looks like ",DMNXTFLD,"." Line Location: B+26
Function Call: WRITE	Prompt: !?5,"That looks like the last field in ",DMPARENT,"." Line Location: B+29
Function Call: WRITE	Prompt: !?5,"The next file to be processed looks like ",DMNEXTF,"." Line Location: B+32
Function Call: WRITE	Prompt: !?5,"The next subfile to be processed looks like ",DMNEXTSF,"." Line Location: B+35
Function Call: WRITE	Prompt: !!?5,"SUGGESTION: Investigate this file/subfile as the potential" Line Location: BADFILE+4
Function Call: WRITE	Prompt: !?5,"source of the problem. That's: ",NUM," ",DMNAME,! Line Location: BADFILE+5
Function Call: WRITE	Prompt: !!?5,"No foreign key records have been built." Line Location: C+2
Function Call: WRITE	Prompt: !?5,"No table elements have been built for foreign keys." Line Location: C+5
Function Call: WRITE	Prompt: !!?5,"All regular foreign keys have been built (FKs)." Line Location: C+12
Function Call: WRITE	Prompt: !?5,"Parent foreign keys (PFKs) have also been built, the" Line Location: C+13
Function Call: WRITE	Prompt: !?5,"last one being for file/subfile ",DMFKFILE,"." Line Location: C+14
Function Call: WRITE	Prompt: !!?5,"Only regular foreign keys (FKs) have been processed." Line Location: C+16
Function Call: WRITE	Prompt: !?5,"The last was for file/subfile ",DMFKFILE,"." Line Location: C+17
Function Call: WRITE	Prompt: !!?5,"No records for SQLI index tables." Line Location: D+2
Function Call: WRITE	Prompt: !!?5,"Index tables don't appear to have been built." Line Location: D+4
Function Call: WRITE	Prompt: !!?5,"Index processing stopped at file ",DMLOF,"." Line Location: D+11
Function Call: WRITE	Prompt: !!?5,"All index tables appear to have been built. The last was for" Line Location: D+13
Function Call: WRITE	Prompt: !?5,"file/subfile ",$P(^DMSQ("T",DMASTER,0),U,7),"." Line Location: D+14
Function Call: WRITE	Prompt: !!?5,"No problems detected in SQLI data structures themselves.",! Line Location: DONE+1
Function Call: WRITE	Prompt: !!?5,"Problems found in SQLI data structures." Line Location: ERROR+1
Function Call: WRITE	Prompt: !?5,"---------------------------------------" Line Location: ERROR+2
Function Call: WRITE	Prompt: !?5,"See SQLI Site Manual, trouble-shooting section, for ideas about" Line Location: ERROR+3
Function Call: WRITE	Prompt: !?5,"how to investigate the problem. For example, RUNONE^DMSQ may be" Line Location: ERROR+4
Function Call: WRITE	Prompt: !?5,"used to explore a potential problem file." Line Location: ERROR+5
Routine Call	%ZIS Line Location: EN+9
Routine Call	DIR Line Location: PAGE
Routine Call	%ZIS Line Location: EN+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	A+11, A+12, B+14, B+21, B+23, B+25, B+34, BADFILE+2
^DIC - [#1]	A+8, B+17, B+30, B+31, BADFILE+1
^DMSQ("C" - [#1.5217]	INIT+5, B+3, B+9
^DMSQ("E" - [#1.5216]	B+4, C+3, C+6, C+7
^DMSQ("EX" - [#1.52192]	INIT+3
^DMSQ("F" - [#1.5219]	INIT+6
^DMSQ("P" - [#1.5218]	C+9
^DMSQ("S" - [#1.521]	SCHEMA+1
^DMSQ("T" - [#1.5215]	INIT+2, INIT+4, A+3, A+5, C+10, D+3, D+5, D+6, D+8, D+9 , D+14

Label References

Name	Line Occurrences
@(	DQ+7
A	DQ+3
B	DQ+4
BADFILE	A+10, A+14, B+16, B+20, B+27, B+33, B+36
C	DQ+5
D	DQ+6
DATE	DQ+1
INIT	DQ
PAGE	DQ+2, DQ+3, DQ+4, DQ+5, DQ+6, BADFILE+3
SCHEMA	DQ+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+6*
>> DIR(0	PAGE*
DIRUT	DQ+2, DQ+3, DQ+4, DQ+5, DQ+6, DQ+7, PAGE!, BADFILE+3
DMASTER	D+3*, D+5, D+8, D+14, EXIT+4!
DMC	C+8, C+9, C+11, C+15, EXIT+4!
DMCNODE	B+9*, B+10, EXIT+1!
DMEDATE	INIT+3*, DATE+4, DATE+6, DATE+9, DATE+11, EXIT!
DMFKFILE	C+10*, C+14, C+17, EXIT+4!
DMFKTBL	C+6*, C+7, C+10, EXIT+3!
DMKEYS	C+8, C+9, EXIT+4!
DMLCFILE	B+10*, B+11, B+12, B+14, B+16, B+17, B+18, B+21, B+22, B+23 , EXIT+1!
DMLCFLD	B+10*, B+11, B+13, B+14, EXIT+1!
DMLCOL	INIT+5*, B+1, B+3, B+9, EXIT+1!
DMLCTBL	B+4*, B+5, EXIT+1!
DMLCTE	B+3*, B+4, EXIT+1!
DMLFILE	A+5*, A+7, A+8, A+11, EXIT!
DMLFK	INIT+6*, C+1, EXIT+3!
DMLFKTE	C+3*, C+4, C+6, EXIT+3!
DMLO	D+5*, D+6, EXIT+4!
DMLOF	D+6*, D+11, EXIT+4!
DMLOOP	D+8*, D+9, D+10, EXIT+4!
DMLTBL	INIT+4*, A+1, A+3, A+5, B+5, D+1, D+3, EXIT!
DMNAME	BADFILE+1, BADFILE+2, BADFILE+5, EXIT+3!
DMNCFILE	B+17*, B+19, B+20, EXIT+2!
DMNCFLD	B+14*, B+15, EXIT+1!
DMNEXTF	B+31*, B+32, B+33, EXIT+3!
DMNEXTSF	B+34*, B+35, B+36, EXIT+3!
DMNFILE	A+8, A+9, A+10, A+11, A+12, A+13, A+14, EXIT!
DMNXTFLD	B+25*, B+26, B+28, EXIT+3!
DMPARENT	B+21*, B+22, B+23, B+24, B+25, B+27, B+29, B+30, B+31, B+34 , EXIT+2!
DMPKTE	C+7*, C+9, EXIT+4!
DMQ	DQ+7, INIT+1, SCHEMA+1, A+1, A+5, A+8, A+11, B+1, B+7, C+1* , C+4, C+15, D+1, D+3, D+5, D+10, D+11, D+12*, EXIT!
DMTDATE	INIT+2*, DATE+2, DATE+6, DATE+8, DATE+11, EXIT!
DMTOPFLD	B+23*, B+24, B+25, EXIT+3!
DT	DATE+1, DATE+11
IO	DQ
IO("Q"	EN+7, EN+9!
IOF	PAGE
IOSL	PAGE
IOST	PAGE
NUM	BADFILE~, BADFILE+1, BADFILE+2, BADFILE+5
>> POP	EN+6
U	INIT+2, A+3, A+5, B+3, B+4, B+10, BADFILE+1, C+6, C+10, D+3 , D+6, D+9, D+14
>> Y	DATE+1, DATE+8, DATE+9*
>> ZTDESC	EN+8*
>> ZTQUEUED	DQ+8
>> ZTREQ	DQ+8*
>> ZTRTN	EN+8*

Customize PDF page

Package: VA Fileman

Routine: DMSQT

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: