Routine: DMSQ

Package	Total	Call Graph
VA Fileman	4	^DIR (ALLF,ONEF)^DMSQF $$WAIT^DMSQT1 CLF^DMSQU
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
RUNONE	;re-runs the projection of one file - for testing purposes only.
RUN	;runs the projection of all files (called from SETUP)
SETUP	;entry point to begin SQLI projection process
PURGE	;entry point to clear data from SQLI files, all except keywords
EXIT
ASK	; select (sub)file number

External References

Name	Field # of Occurrence
^%ZIS	SETUP+37
HOME^%ZIS	SETUP+40
^%ZISC	RUN+7
^%ZTLOAD	SETUP+40
^DIR	SETUP+25, ASK+4, PURGE+13
ALLF^DMSQF	RUN+6
ONEF^DMSQF	RUNONE+7
$$WAIT^DMSQT1	SETUP+4, RUN+3, PURGE+5
CLF^DMSQU	PURGE+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Another SQLI projection is already running right now." Line Location: SETUP+5
Function Call: WRITE	Prompt: !?5,"Try later if you want to re-run the SQLI projection." Line Location: SETUP+6
Function Call: WRITE	Prompt: !,"PROGRAMMER MODE REQUIRED (NOTHING DONE)",! Line Location: SETUP+26
Function Call: WRITE	Prompt: !!?5,"Running this job on your terminal (HOME device) will tie up" Line Location: SETUP+27
Function Call: WRITE	Prompt: !?5,"your terminal for the several hours it takes to run, but you" Line Location: SETUP+28
Function Call: WRITE	Prompt: !?5,"will see the job's status as it's running." Line Location: SETUP+29
Function Call: WRITE	Prompt: !!?5,"Queuing will send it to the background for processing. The" Line Location: SETUP+30
Function Call: WRITE	Prompt: !?5,"status will be apparent from the printed output (if there's an" Line Location: SETUP+31
Function Call: WRITE	Prompt: !?5,"error, it's text will be printed). TaskMan/Kernel tools can also" Line Location: SETUP+32
Function Call: WRITE	Prompt: !?5,"be used to determine whether the job ran to completion or not." Line Location: SETUP+33
Function Call: WRITE	Prompt: !!?5,"Don't send this directly to a printer (without queuing) unless" Line Location: SETUP+34
Function Call: WRITE	Prompt: !?5,"you are prepared to tie up your terminal AND the printer for" Line Location: SETUP+35
Function Call: WRITE	Prompt: !?5,"the duration of the process.",! Line Location: SETUP+36
Function Call: WRITE	Prompt: !,"PROGRAMMER MODE REQUIRED (NOTHING DONE)",! Line Location: RUN+2
Function Call: WRITE	Prompt: !?5,"Another SQLI projection is being run right now. So" Line Location: RUN+4
Function Call: WRITE	Prompt: !?5,"this attempt to re-run the projection is aborted." Line Location: RUN+5
Function Call: WRITE	Prompt: !,"PROGRAMMER MODE REQUIRED (NOTHING DONE)",! Line Location: RUNONE+4
Function Call: WRITE	Prompt: !?5,"No file selected; nothing done." Line Location: RUNONE+6
Function Call: WRITE	Prompt: !?5,"Done. See SQLI files for changes." Line Location: RUNONE+7
Function Call: WRITE	Prompt: !?5,"Invalid selection: no SQLI table for this (sub)file." Line Location: ASK+6
Function Call: WRITE	Prompt: !,"PROGMODE REQUIRED (NOTHING DONE)",! Line Location: PURGE+4
Function Call: WRITE	Prompt: !?5,"Purging can't be done right now. The SQLI structures" Line Location: PURGE+6
Function Call: WRITE	Prompt: !?5,"are in the process of being built, a job that might take" Line Location: PURGE+7
Function Call: WRITE	Prompt: !?5,"a few hours. So try again later (when the job finishes)." Line Location: PURGE+8
Function Call: WRITE	Prompt: !,"Working..." Line Location: PURGE+14
Function Call: WRITE	Prompt: "Done!" Line Location: PURGE+16
Routine Call	%ZIS Line Location: SETUP+40
Routine Call	DIR Line Location: SETUP+25 ASK+4 PURGE+13
Routine Call	%ZIS Line Location: SETUP+37

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	SETUP+37*
DIR	SETUP+25!, ASK+4!, PURGE+13!
DIR("?"	SETUP+9, SETUP+10, SETUP+11, SETUP+12, SETUP+13, SETUP+14, SETUP+15, SETUP+16, SETUP+17, SETUP+18 , SETUP+19, SETUP+20, SETUP+21, SETUP+22, SETUP+23, SETUP+24, ASK+3, PURGE+10, PURGE+11, PURGE+12
DIR("A"	SETUP+8, ASK+2, PURGE+9*
DIR("B"	SETUP+7, PURGE+13
DIR(0	SETUP+7, ASK+2, PURGE+13*
>> DIRUT	ASK+4, PURGE+13
DM1	RUNONE+5~, ASK+1*, ASK+2
DM2	RUNONE+5~, ASK+1*, ASK+2
DMDOT	SETUP+41*, EXIT!
DMFN	RUNONE+5~, RUNONE+7, ASK+4*, ASK+5
DMQ	RUNONE+5~, RUNONE+6, ASK+4
DUZ(0	SETUP+26, RUN+2, RUNONE+4, PURGE+4
I	PURGE+3~, PURGE+15*
IO	SETUP+41, RUN+1
IO("Q"	SETUP+38, SETUP+40!
IO(0	SETUP+41
>> POP	SETUP+37
>> Y	SETUP+25, ASK+4, PURGE+13
>> ZTDESC	SETUP+39*
>> ZTQUEUED	SETUP+3, RUN+8
>> ZTREQ	RUN+8*
>> ZTRTN	SETUP+39*

Customize PDF page

Package: VA Fileman

Routine: DMSQ

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: