Routine: AQAOPC1

Package	Total	Call Graph
Quality Assurance	4	CRIT^AQAOHOP2 ($$BDATE,$$EDATE,$$IND)^AQAOLKP ^AQAOPC11 (EXPORT,KILL)^AQAOUTIL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Package

Total

Call Graph

CRIT^AQAOHOP2 ($$BDATE,$$EDATE,$$IND)^AQAOLKP ^AQAOPC11 (EXPORT,KILL)^AQAOUTIL

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

^DIR

Name	Comments	DBIA/ICR reference
DATES	; >> ask user to choose date range
END	; >>> eoj
DEV	; >>> get print device
CRIT	; >>> check criteria defined for this indicator
IND	; >>> occurrences for which indicator?
TYPE	; >>> ask user what type of report to print

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are ",AQAOCNT," criteria defined for this indicator. Only" Line Location: CRIT+13
Function Call: WRITE	Prompt: !,"14 can fit on the report. Please choose up to 14 from the list." Line Location: CRIT+14
Function Call: WRITE	Prompt: !! Line Location: CRIT+15
Function Call: WRITE	Prompt: !! Line Location: DEV+2
Function Call: WRITE	Prompt: *7,"REMEMBER to use CONDENSED PRINT or WIDE PAPER!",!! Line Location: DEV+3
Routine Call	%ZIS Line Location: END+1
Routine Call	DIR Line Location: TYPE+7 CRIT+18
Routine Call	%ZIS Line Location: DEV+4

Name	Line Occurrences (* Changed, ! Killed)
^AQAO1(6 - [#9002169.6]	CRIT+1, CRIT+4, CRIT+5

Name	Field # of Occurrence
^(0	CRIT+5

Name	Field # of Occurrence
>> %ZIS	DEV+4*
AQAOAR	CRIT+23!
AQAOAR(	CRIT+17*, CRIT+22
>> AQAOBD	DATES+1*
>> AQAOCNT	CRIT+3, CRIT+6, CRIT+7, CRIT+13, CRIT+15
AQAOCR	CRIT+3!
AQAOCR(	CRIT+5*, CRIT+16, CRIT+17, CRIT+22!
>> AQAODLM	DEV+8
>> AQAOED	DATES+2*
>> AQAOIND	IND+1, IND+2, CRIT+1, CRIT+4
AQAOIOMX	CRIT+3!, CRIT+8*, DEV+3, DEV+9
>> AQAOTYP	TYPE+7*, CRIT+7
>> AQAOUA("USER"	DEV+1
>> AQAOXS	DEV+11
>> AQAOXSN	DEV+10
DIR	TYPE+1!, CRIT+15!
DIR("?"	TYPE+3, TYPE+4, TYPE+5, TYPE+6
DIR("A"	TYPE+2, CRIT+17, CRIT+18*
DIR(0	TYPE+1, CRIT+15
>> DIRUT	TYPE+7, CRIT+19
>> I	CRIT+21, DEV+7
IO	DEV+5
IO("Q"	DEV+5, DEV+6!
>> POP	DEV+4
U	IND+1, CRIT+5, DATES+1, DATES+2, DEV+1
>> X	CRIT+3, CRIT+4, CRIT+5, CRIT+15, CRIT+16, CRIT+17, CRIT+21, CRIT+22
Y	TYPE+7, CRIT+15, CRIT+17, CRIT+19, CRIT+21, CRIT+23!, DEV+1
Y(	CRIT+21*, CRIT+22
>> ZTDESC	DEV+6*
>> ZTRTN	DEV+6*
>> ZTSAVE(	DEV+7*
>> ZTSAVE("AQAODLM"	DEV+8*
>> ZTSAVE("AQAOIOMX"	DEV+9*
>> ZTSAVE("AQAOXS("	DEV+11*
>> ZTSAVE("AQAOXSM"	DEV+10*
>> ZTSAVE("AQAOXSN"	DEV+10*
ZTSK	DEV+12!

Information