Routine: AQAOPV22

Package	Total	Call Graph
Quality Assurance	4	BYNUM2^AQAOHPRV (HEADING2,PERSON,VENDOR)^AQAOPV21 (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	$$VALI^XBDIQ1
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
VENDOR	; -- SUBRTN to print chs provider data
PERSON	; -- SUBRTN to print provider/person data
DEV	; -- SUBRTN to get print device and call print rtn
PRINT	;EP; -- check user selections and call proper subrtn
EXIT	; -- SUBRTN for eoj
ASK	; -- ask for groups to include
HEADING2	; -- SUBRTN to print second half of heading

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	VENDOR+2, VENDOR+3
^VA(200 - [#200]	PERSON+2, PERSON+3
^XUSEC("PROVIDER"	PERSON+4

Name	Field # of Occurrence
>> %ZIS	DEV+1*
AQAO	PERSON+1~, VENDOR+1~
>> AQAOHCON	PRINT+1*
>> AQAOSEL	ASK+8*, PRINT+5, PRINT+6, PERSON+4
>> AQAOSTOP	PERSON+2, PERSON+5, VENDOR+2, VENDOR+6
>> AQAOTY	PRINT+2*
AQAOX	PERSON+1~, PERSON+2, PERSON+3, PERSON+4, PERSON+6, VENDOR+1~, VENDOR+2, VENDOR+3, VENDOR+4, VENDOR+5 , VENDOR+7
DIR	ASK+1!
DIR("A"	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6*
DIR(0	ASK+1*
>> DIRUT	ASK+7
IO	PRINT+1
IO("Q"	DEV+3, DEV+4!
IOSL	PERSON+5, VENDOR+6
IOST	EXIT+1
>> POP	DEV+2
U	PERSON+2, PERSON+5, VENDOR+2, VENDOR+6
>> Y	ASK+8
>> ZTDESC	DEV+4*
>> ZTQUEUED	EXIT+1
>> ZTRTN	DEV+4*
>> ZTSAVE("AQAOSEL"	DEV+5*
ZTSK	DEV+5!

Information