Routine: AQAOPR3

Information

AQAOPR3 ; IHS/ORDC/LJF - PRINT SUMMARIES ;

Source file <AQAOPR3.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC EN1^DIP ^DIR
Quality Assurance	2	KILL^AQAOUTIL PRTOPT^AQAOVAR

Package	Total	Caller Graph
Quality Assurance	2	AQAOREV1 AQAOVAL

Name	Comments	DBIA/ICR reference
ASK	; >>> ask for occ id or patient name or indicator
PRINT	;ENTRY POINT >>> print each summary by looping through occurrences
END	; >>> eoj
DEV	; >>> get print device
CLOSED	; >>> ask if user wants to select closed or deleted occ

FileNo	Call Tags
^AQAOC - [#9002167]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AQAOC - [#9002167]	ASK+8
^DPT - [#2]	ASK+8

Name	Line Occurrences
END	CLOSED+3, ASK+10, DEV+1, DEV+5
PRINT	DEV+2

Name	Field # of Occurrence
>> %ZIS	DEV+1*
AQAOARR	ASK+2!, ASK+5, ASK+10
AQAOARR(	ASK+9*, PRINT+3, PRINT+4
>> AQAODEV	DEV+1*, PRINT+6, PRINT+7
>> AQAOIFN	PRINT+2, PRINT+3, PRINT+4, PRINT+6
AQAOINAC	CLOSED+3*, END+1!
>> AQAONAM	ASK+8, ASK+9, PRINT+4
>> AQAORVW	ASK+1*
>> AQAOSLV	DEV+2*, PRINT+9
>> BY	PRINT+6*
DIC	ASK+3!, PRINT+5
DIC("A"	ASK+4, ASK+5
DIC("S"	ASK+6*
DIC(0	ASK+3*
DIR	CLOSED+1!
DIR("A"	CLOSED+2*
DIR("B"	CLOSED+1*
DIR(0	CLOSED+1*
>> DIRUT	CLOSED+3
>> DQTIME	PRINT+7*
>> FLDS	PRINT+5*
>> FR	PRINT+6*
IO("Q"	DEV+2, DEV+3!
IO("S"	DEV+2
ION	DEV+1
IOP	PRINT+6, PRINT+7, PRINT+8!
>> L	PRINT+5*
>> POP	DEV+1
>> TO	PRINT+6*
U	ASK+2, ASK+8
>> X	ASK+2*, ASK+7
>> Y	CLOSED+3, ASK+2, ASK+7, ASK+8, ASK+9, PRINT+2, PRINT+3
>> ZTDESC	DEV+3*
>> ZTQUEUED	PRINT+7, PRINT+9
>> ZTRTN	DEV+3*
>> ZTSAVE("AQAOARR("	DEV+4*
>> ZTSAVE("AQAODEV"	DEV+4*
ZTSK	DEV+5!