Routine: AQAOPC2

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

Entry Points

Name	Comments	DBIA/ICR reference
DATES	; >> ask user to choose date range
END	; >>> eoj
TYPE	; >>> ask user what type of report to print
DESCRIPT	; >>> ask user for report description
DEV	; >>> get print device
IND	; >>> occurrences for which indicator?
PROC	; >>> choose procedure codes for report
CLDX	; >>> choose clinical dx codes for report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"You can now LIMIT the report to occurrences with certain ICD" Line Location: DATES+5
Function Call: WRITE	Prompt: !,"codes. You will be asked to select one or more DIAGNOSIS code" Line Location: DATES+6
Function Call: WRITE	Prompt: !,"ranges and one or more PROCEDURE code ranges. To include all" Line Location: DATES+7
Function Call: WRITE	Prompt: !,"diagnoses, enter ""ALL"" at the ENTER DIAGNOSES prompt. To" Line Location: DATES+8
Function Call: WRITE	Prompt: !,"include all procedures, enter ""ALL"" at the ENTER PROCEDURES" Line Location: DATES+9
Function Call: WRITE	Prompt: !,"prompt." Line Location: DATES+10
Function Call: WRITE	Prompt: !! Line Location: CLDX+1
Function Call: WRITE	Prompt: *7," ??" Line Location: CLDX+5
Function Call: WRITE	Prompt: !!?5,"Now you can choose select PROCEDURES:",!! Line Location: PROC+1
Function Call: WRITE	Prompt: *7," ??" Line Location: PROC+6
Function Call: WRITE	Prompt: !! Line Location: DESCRIPT+1
Function Call: WRITE	Prompt: !!,"REMINDER: Use wide paper or condensed print!" Line Location: DEV+2
Function Call: WRITE	Prompt: !! Line Location: DEV+3
Routine Call	%ZIS Line Location: END+1
Routine Call	DIR Line Location: TYPE+7 DESCRIPT+8
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences
CLDX	CLDX+5
DATES	DATES+2
DESCRIPT	DEV+1
END	TYPE+7, IND+1, DATES+1, DATES+2, CLDX+4, PROC+5, DESCRIPT+8, DEV+3
IND	DATES+1
PROC	PROC+6
TYPE	IND+1

Name	Field # of Occurrence
>> %ZIS	DEV+3*
AQAOARR	CLDX+1!, CLDX+5
AQAOARR(	CLDX+3*
AQAOARR1	PROC+2!, PROC+6
AQAOARR1(	PROC+3*
>> AQAOBD	DATES+1*
>> AQAODESC	DESCRIPT+8*
>> AQAODLM	DEV+7
>> AQAOED	DATES+2*
AQAOICD	CLDX+2, PROC+2, PROC+4!
>> AQAOIND	IND+1, IND+2
AQAOTBL	CLDX+1!, PROC+2!, PROC+4!
AQAOTBL(	CLDX+3, PROC+3
AQAOTL	CLDX+2, PROC+2, PROC+4!
>> AQAOTYPE	TYPE+7*, DEV+2
>> AQAOUA("USER"	DEV+1
>> AQAOXS	DEV+9
>> AQAOXSN	DEV+8
DIR	TYPE+1!, DESCRIPT+1!
DIR("?"	TYPE+3, TYPE+4, TYPE+5, TYPE+6, DESCRIPT+2, DESCRIPT+3, DESCRIPT+4, DESCRIPT+5, DESCRIPT+6, DESCRIPT+7
DIR("A"	TYPE+2, DESCRIPT+1
DIR(0	TYPE+1, DESCRIPT+1
>> DIRUT	TYPE+7
>> DTOUT	DESCRIPT+8
>> DUOUT	CLDX+4, PROC+5
>> I	DEV+6*
IO	DEV+4
IO("Q"	DEV+4, DEV+5!
>> POP	DEV+3
U	IND+1, DATES+1, DATES+2, DESCRIPT+8, DEV+1
>> X	CLDX+3, PROC+3, DESCRIPT+8
>> Y	TYPE+7, DESCRIPT+8, DEV+1
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+5*
>> ZTSAVE(	DEV+6*
>> ZTSAVE("AQAODLM"	DEV+7*
>> ZTSAVE("AQAOXS("	DEV+9*
>> ZTSAVE("AQAOXSM"	DEV+8*
>> ZTSAVE("AQAOXSN"	DEV+8*
ZTSK	DEV+10!