Routine: QAQAHOCZ

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC ^DIC YN^DICN ^DIR
Quality Assurance Integration	3	EN^QAQAHOCH BUILD^QAQAHOCX ^QAQAHOCY
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
ROUTINE	; *** Prompt user for Ad Hoc interface routine name
R1
R2
FILE	; *** Prompt user for the file that Ad Hoc will use
FIELDS	; *** Prompt user for the fields that Ad Hoc will use
NODATA	; *** Include optional output checking code in OTHER entry point (Y/N)
MENUHDR	; *** Prompt user for the sort/print menu screen header
BUILD	; *** Build Ad Hoc Report interface routine(s)
EXIT	; *** Exit the Ad Hoc interface compiler

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ROUTINE+2
Function Call: WRITE	Prompt: !!?5,"* ",QAQPROG," already exists !! ",7 Line Location: ROUTINE+4
Function Call: WRITE	Prompt: !!?5,"Do you want to replace it" Line Location: R1+0
Function Call: WRITE	Prompt: !!?10,QAQYESNO Line Location: R1+2
Function Call: WRITE	Prompt: !!?5,"Replace ",QAQPROG,", are you sure" Line Location: R2+0
Function Call: WRITE	Prompt: !!?10,QAQYESNO Line Location: R2+2
Function Call: WRITE	Prompt: !!,"Select the FILE to be used by the Ad Hoc Report Generator." Line Location: FILE+1
Function Call: WRITE	Prompt: !!,"Select the FIELDS to be used by the Ad Hoc Report Generator." Line Location: FIELDS+1
Function Call: WRITE	Prompt: !!?5,"* No sort fields chosen !! ",7 Line Location: FIELDS+2
Function Call: WRITE	Prompt: !!,"Automatically include the ""No data found..."" message" Line Location: NODATA+1
Function Call: WRITE	Prompt: ! Line Location: MENUHDR+2
Function Call: WRITE	Prompt: !!,"Building the Ad Hoc Report Generator interface routine(s)...",! Line Location: BUILD+1
Function Call: WRITE	Prompt: !!,"Enter 'DO ^",QAQPROG,"' to run the Ad Hoc Report Generator." Line Location: BUILD+3
Routine Call	DIC Line Location: FILE+2
Routine Call	DIR Line Location: ROUTINE+2 MENUHDR+2
Routine Call	%ZIS Line Location: QAQAHOCZ+3

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ROUTINE+3
^TMP($J	EXIT+2!

Name	Line Occurrences
EXIT	QAQAHOCZ+3, ROUTINE+2, ROUTINE+3, FILE+2, FIELDS+2, NODATA+1, MENUHDR+2
NODATA	NODATA+2
R1	R1+2
R2	R2+2
ROUTINE	ROUTINE+3

Name	Field # of Occurrence
%	QAQAHOCZ+4, R1+1, R1+2, R2+1, R2+2, NODATA+1*, NODATA+2, EXIT+1!
%DT	EXIT+1!
%H	EXIT+1!
DIC	FILE+2!*, EXIT+1!
DIC("A"	FILE+2*
DIC(0	FILE+2*
DIE	EXIT+1!
DIR	ROUTINE+1!, MENUHDR+1!, EXIT+1!
DIR("?"	ROUTINE+1, MENUHDR+1
DIR("A"	ROUTINE+1, MENUHDR+1
DIR(0	ROUTINE+1, MENUHDR+1
>> DIROUT	MENUHDR+2
DIRUT	ROUTINE+2, EXIT+1!
DTOUT	MENUHDR+2, EXIT+1!
DUOUT	MENUHDR+2, EXIT+1!
QA	EXIT+3!
QAI	EXIT+3!
QAQ	EXIT+3!
QAQCHOSN	EXIT+3!
QAQDD	EXIT+3!
QAQDONE	EXIT+3!
QAQFILE	FILE+2*, EXIT+3!
QAQFILE(0	FILE+2*
QAQLEN	EXIT+3!
QAQLEVEL	EXIT+3!
QAQLN	EXIT+3!
QAQMHDR	MENUHDR+2*, EXIT+3!
QAQMMAX	FIELDS+2, EXIT+3!
QAQNODAT	NODATA+1*, EXIT+3!
QAQPROG	ROUTINE+2*, ROUTINE+4, R2, BUILD+3, EXIT+3!
QAQQUIT	FIELDS+2, EXIT+3!
QAQREPLC	ROUTINE+3, R1+1, R2+1, EXIT+3!
QAQRTN	EXIT+3!
QAQRTNNO	EXIT+3!
QAQRTNXT	EXIT+3!
QAQSORT	FIELDS+2, EXIT+3!
QAQTAB	EXIT+3!
QAQTEXT	EXIT+3!
QAQTODAY	QAQAHOCZ+4*, EXIT+3!
QAQWP	EXIT+3!
QAQYESNO	QAQAHOCZ+3*, R1+2, R2+2, EXIT+3!
X	QAQAHOCZ+4, ROUTINE+2, EXIT+3!
XCM	EXIT+3!
XCN	EXIT+3!
Y	ROUTINE+2, FILE+2, MENUHDR+2, EXIT+3!
Y(0	FILE+2