Routine: AQAOPV2

Information

AQAOPV2 ; IHS/ORDC/LJF - PRINT PROVIDER QI CODES ;

Source file <AQAOPV2.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Quality Assurance	3	SINGLE^AQAOHPRV (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	2	IX^DIC EN^DIQ1

Name	Comments	DBIA/ICR reference
END	; >>> eoj
DEV	; >>> get print device
PRINT	; >>> loop thru selections and print data
SINGLE	;display of selected provider codes
HEADING2	; >>> SUBRTN to print second half of heading
ASK	; >>> ask user for provider names to display

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEV+2
Function Call: WRITE	Prompt: ?14,"(Please forward INACTIVE PROVIDER NAMES to proper dept.)" Line Location: HEADING2+1
Function Call: WRITE	Prompt: !,AQAOLINE,! Line Location: HEADING2+2
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: ASK+4

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("DIQ1"	PRINT+5!, PRINT+7, PRINT+8, PRINT+10, END+1!

Name	Field # of Occurrence
>> %ZIS	DEV+2*
AQAOARR	SINGLE+2!, DEV+1
AQAOARR(	ASK+5*, PRINT+3
>> AQAOHCON	PRINT+1*
>> AQAOLINE	HEADING2+2
>> AQAOSTOP	PRINT+3, PRINT+4
>> AQAOTY	PRINT+1*
>> AQAOX	SINGLE+3, ASK+2, ASK+4, PRINT+2, PRINT+3, PRINT+6, PRINT+9
>> D	ASK+1*
>> DA	PRINT+6*, PRINT+7, PRINT+8, PRINT+10
DIC	ASK+1!, PRINT+6
DIC("A"	ASK+1, ASK+2
DIC("S"	ASK+3*
DIC(0	ASK+1*
>> DR	PRINT+6*
>> DTOUT	ASK+4
>> DUOUT	ASK+4
IO	DEV+3
IO("Q"	DEV+3, DEV+4!
IOSL	PRINT+4
IOST	PRINT+12
>> POP	DEV+2
U	PRINT+3, PRINT+4
>> X	ASK+4
>> Y	ASK+4, ASK+5
>> ZTDESC	DEV+4*
>> ZTQUEUED	PRINT+12
>> ZTRTN	DEV+4*
>> ZTSAVE("AQAOARR("	DEV+5*
ZTSK	DEV+5!