Routine: AQAOPC4

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

Name	Comments	DBIA/ICR reference
DATES	; >> ask user to choose date range
END	; >>> eoj
TYPE	; >>> ask user what type of report to print
DEV	; >>> get print device
IND	; >>> occurrences for which indicator?
OPEN	; >>> ask user if wants to include open cases

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> AQAOBD	DATES+1*
>> AQAODLM	DEV+6
>> AQAOED	DATES+2*
>> AQAOIND	IND+1, IND+2
>> AQAOSTAT	OPEN+7*
>> AQAOTYPE	TYPE+7*
>> AQAOUA("USER"	DEV+1
>> AQAOXS	DEV+8
>> AQAOXSN	DEV+7
DIR	TYPE+1!, OPEN+1!
DIR("?"	TYPE+3, TYPE+4, TYPE+5, TYPE+6, OPEN+3, OPEN+4, OPEN+5, OPEN+6
DIR("A"	TYPE+2, OPEN+2
DIR(0	TYPE+1, OPEN+1
>> DIRUT	TYPE+7, OPEN+7
>> I	DEV+5*
IO	DEV+3
IO("Q"	DEV+3, DEV+4!
>> POP	DEV+2
U	IND+1, DATES+1, DATES+2, DEV+1
>> X	OPEN+7
>> Y	TYPE+7, OPEN+7, DEV+1
>> ZTDESC	DEV+4*
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+5*
>> ZTSAVE("AQAODLM"	DEV+6*
>> ZTSAVE("AQAOXS("	DEV+8*
>> ZTSAVE("AQAOXSM"	DEV+7*
>> ZTSAVE("AQAOXSN"	DEV+7*
ZTSK	DEV+9!

Information