Routine: AQAOPC7

Package	Total	Call Graph
Quality Assurance	4	SCRIT^AQAOHOP3 $$IND^AQAOLKP ^AQAOPC71 (EXPORT,KILL)^AQAOUTIL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
BDATE	; >>> ask for beginning date
END	; >>> eoj
EDATE	; >>> choose ending occurrence date for report
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." Line Location: CRIT+8
Function Call: WRITE	Prompt: !,"Please choose one from the list for this report." Line Location: CRIT+9
Function Call: WRITE	Prompt: !! Line Location: CRIT+10
Function Call: WRITE	Prompt: !! Line Location: BDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: BDATE+2
Function Call: WRITE	Prompt: *7," MUST BE MONTH AND YEAR ONLY!!" Line Location: BDATE+4
Function Call: WRITE	Prompt: *7," MUST INCLUDE MONTH!!" Line Location: BDATE+5
Function Call: WRITE	Prompt: ! Line Location: EDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: EDATE+2
Function Call: WRITE	Prompt: *7," ENDING DATE MUST BE AFTER BEGINNING DATE" Line Location: EDATE+3
Function Call: WRITE	Prompt: *7," MUST BE MONTH AND YEAR ONLY!!" Line Location: EDATE+5
Function Call: WRITE	Prompt: *7," MUST INCLUDE MONTH!!" Line Location: EDATE+6
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+13 BDATE+2 EDATE+2
Routine Call	%ZIS Line Location: DEV+4

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

Name	Line Occurrences
BDATE	BDATE+2, BDATE+3, BDATE+4, BDATE+5, EDATE+3, EDATE+4, EDATE+5, EDATE+8, DEV+1
EDATE	EDATE+2, EDATE+4, EDATE+6
END	TYPE+7, CRIT+1, CRIT+14, BDATE+3, EDATE+4, DEV+4
IND	BDATE+3
TYPE	IND+1

Name	Field # of Occurrence
^(0	CRIT+5

Name	Field # of Occurrence
>> %ZIS	DEV+4*
AQAOAR	CRIT+18!
AQAOAR(	CRIT+12*, CRIT+17
AQAOBD	BDATE+6*, EDATE+3, EDATE+7, EDATE+9!, EDATE+10
>> AQAOCNT	CRIT+3, CRIT+6, CRIT+8, CRIT+10
AQAOCR	CRIT+3!
AQAOCR(	CRIT+5*, CRIT+11, CRIT+12, CRIT+17!
>> AQAODLM	DEV+8
AQAOED	EDATE+7*, EDATE+9!, EDATE+11
>> AQAOIND	IND+1, IND+2, CRIT+1, CRIT+4
AQAOIOMX	CRIT+3!, DEV+3, DEV+9
>> AQAOTYPE	TYPE+7*
>> AQAOUA("USER"	DEV+1
>> AQAOXS	DEV+11
>> AQAOXSN	DEV+10
DIR	TYPE+1!, CRIT+10!, BDATE+1!, EDATE+1!
DIR("?"	TYPE+3, TYPE+4, TYPE+5, TYPE+6
DIR("A"	TYPE+2, CRIT+12, CRIT+13, BDATE+1, EDATE+1*
DIR(0	TYPE+1, CRIT+10, BDATE+1, EDATE+1
>> DIRUT	TYPE+7, CRIT+14, BDATE+3, EDATE+4
DT	BDATE+2, EDATE+2
>> I	CRIT+16, DEV+7
IO	DEV+5
IO("Q"	DEV+5, DEV+6!
>> POP	DEV+4
U	IND+1, CRIT+5, DEV+1
>> X	CRIT+3, CRIT+4, CRIT+5, CRIT+10, CRIT+11, CRIT+12, CRIT+16, CRIT+17, BDATE+3, EDATE+4 , EDATE+8
>> X1	EDATE+7*
>> X2	EDATE+7*
Y	TYPE+7, CRIT+10, CRIT+12, CRIT+16, CRIT+18!, BDATE+2, BDATE+3, BDATE+4, BDATE+5, BDATE+6 , EDATE+2, EDATE+3, EDATE+4, EDATE+5, EDATE+6, EDATE+7, EDATE+10*, EDATE+11, DEV+1
Y(	CRIT+16*, CRIT+17
>> 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!