Routine: DMSQP5

Package	Total	Call Graph
VA Fileman	4	DT^DICRW FIELD^DID ^DIR $$WAIT^DMSQT1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
EN	; for a single file or number range, display DD information
ASK1
RPT	;
EXIT
ASK	; select file numbers
PAGE	; do page breaks if using a terminal (C-) device
DQ	; print DD information in file number order ; find file number links (from subfiles or pointers)

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Sorry, SQLI files are empty.",! Line Location: EN+1
Function Call: WRITE	Prompt: !?5,"Try later. SQLI is being re-built right now." Line Location: EN+3
Function Call: WRITE	Prompt: !,"WARNING: REPORT JUST WRITES TO THE SCREEN WITHOUT PAGE BREAKS" Line Location: ASK+1
Function Call: WRITE	Prompt: !," (INTENDED FOR SCREEN CAPTURES) SO PICK ONE TABLE" Line Location: ASK+2
Function Call: WRITE	Prompt: !," OR A SMALL RANGE WHEN TESTING",! Line Location: ASK+3
Function Call: WRITE	Prompt: !,"SQLI table not found." Line Location: ASK+8
Function Call: WRITE	Prompt: !!?5,"There isn't a table for the file number you've entered." Line Location: ASK1+5
Function Call: WRITE	Prompt: !?5,"(The highest possible number is "_DM2_".)",! Line Location: ASK1+6
Function Call: WRITE	Prompt: !!?5,"Enter a LARGER number to get a range." Line Location: ASK1+8
Function Call: WRITE	Prompt: !?5,"The highest possible number here is "_DM2_".",! Line Location: ASK1+9
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Function Call: WRITE	Prompt: !,FI_" "_FN,!?($L(FI)-3),"TBL:"_TN Line Location: RPT+24
Function Call: WRITE	Prompt: !?10,FLD_" "_$G(DMSQTMP("LABEL")),!?($L(FLD)+7),"COL:"_EN Line Location: RPT+25
Function Call: WRITE	Prompt: !?20,$G(DMSQTMP("TYPE")) Line Location: RPT+26
Function Call: WRITE	Prompt: !?20,FLDGBL Line Location: RPT+29
Routine Call	DIR Line Location: ASK+7 ASK1+3 PAGE+1
Routine Call	%ZIS Line Location: EN+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(	RPT+23
^DIC - [#1]	RPT+23
^DMSQ("C" - [#1.5217]	RPT+5, RPT+9, RPT+16, RPT+17, RPT+18, RPT+19
^DMSQ("DM" - [#1.5212]	RPT+13
^DMSQ("E" - [#1.5216]	DQ+10, RPT+1, RPT+3, RPT+6, RPT+10, RPT+13
^DMSQ("F" - [#1.5219]	RPT+11, RPT+12
^DMSQ("P" - [#1.5218]	RPT+7, RPT+8
^DMSQ("S" - [#1.521]	EN+1
^DMSQ("T" - [#1.5215]	ASK+4, ASK+8, ASK1+4, DQ+5, DQ+6, DQ+7, DQ+8, RPT+13

Name	Field # of Occurrence
^(	RPT+23
^(0	RPT+19

Name	Field # of Occurrence
>> %ZIS	EN+5*
CI	DQ+3~, RPT+5*, RPT+8, RPT+9, RPT+12, RPT+16, RPT+17, RPT+18, RPT+19
DIR	ASK+7!, ASK1+3!, PAGE+1!
DIR("?"	ASK+6, ASK1+2
DIR("A"	ASK+5, ASK1+1
DIR("B"	ASK+7, ASK1
DIR(0	ASK+5, ASK1+1, PAGE+1*
>> DIRUT	ASK+7, DQ+11
DM1	EXIT+1!, ASK+4*, ASK+5, ASK1+1
DM2	EXIT+1!, ASK+4*, ASK+5, ASK1+1, ASK1+6, ASK1+9
DMFN	EXIT+1!, ASK+7*, ASK+8, ASK1, ASK1+7, DQ+5
DMFN1	EXIT+1!, ASK1+3*, ASK1+4, ASK1+7, DQ+6
DMQ	EN+4, EXIT+1!, ASK+7, ASK1+3, DQ+3~, DQ+5, DQ+6, DQ+7, DQ+10, DQ+11*
DMSQTMP	DQ+4~
DMSQTMP("LABEL"	RPT+25
DMSQTMP("TYPE"	RPT+26
>> DTOUT	ASK1+3
>> DUOUT	ASK1+3
EI	DQ+3~, DQ+9, DQ+10, RPT+1, RPT+3, RPT+5
EN	DQ+4~, RPT+3*, RPT+25
EXTRACT	DQ+4~, RPT+19*, RPT+21
FEI	DQ+3~, RPT+10*, RPT+11, RPT+13
FI	DQ+3~, DQ+5, DQ+6, DQ+7, RPT+22, RPT+23, RPT+24
FKI	DQ+3~, RPT+11*, RPT+12
FLD	DQ+4~, RPT+4, RPT+16, RPT+22, RPT+25
FLDGBL	DQ+4~, RPT+4, RPT+17, RPT+20, RPT+21, RPT+29
FN	DQ+4~, RPT+23*, RPT+24
GBL	DQ+4~, DQ+9, RPT+9, RPT+17
ID	DQ+4~, RPT+4, RPT+9, RPT+14, RPT+15
IO	DQ+2
IO("Q"	EN+6
IOF	PAGE+1
IOSL	PAGE+1
IOST	PAGE+1
LINK	DQ+4~, RPT+4, RPT+13, RPT+14
PARLNK	DQ+4~, DQ+9, RPT+14, RPT+28
PEI	DQ+3~, RPT+6*, RPT+7
PI	DQ+3~, RPT+7*, RPT+8
PIECE	DQ+4~, RPT+18*, RPT+20
>> POP	EN+5
PTRLNK	DQ+4~, RPT+4, RPT+14, RPT+27
TI	DQ+3~, DQ+7*, DQ+8, DQ+10, RPT+6, RPT+10
TN	DQ+4~, DQ+8*, RPT+24
U	DQ+8, RPT+1, RPT+3, RPT+8, RPT+12, RPT+13, RPT+16, RPT+18, RPT+19, RPT+23
>> Y	ASK+7, ASK1+3
>> ZTRTN	EN+7*
>> ZTSAVE("DMFN"	EN+7*
>> ZTSAVE("DMFN1"	EN+7*