Routine: AQAOPC9

Information

AQAOPC9 ; IHS/ORDC/LJF - OCC REPORTS WITH XTRA SORT ;

Source file <AQAOPC9.m>

Package	Total	Call Graph
Quality Assurance	2	REVT^AQAOHOP3 KILL^AQAOUTIL
VA Fileman	2	^DIC ^DIR

Name	Comments	DBIA/ICR reference
SORT	; >>> ask user to choose which sort category to use
ALL	; >>> ask if all sort values should be included in report
CODES	; >> SUBRTN to ask for code values to include
XTRASCRN	; >> SUBRTN to ask for xtra screen if one defined for sort
RTN	;;
NUMBER	; >> SUBRTN to ask for number ranges to include
EXIT	; >>> eoj
REPORT	; >>> ask user to select report to run
POINTER	; >> SUBRTN to ask pointer values to include
SELECT	; >> ask user to choose which values to include ; code used determined by sort type

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SORT+1
Function Call: WRITE	Prompt: !! Line Location: ALL+1
Function Call: WRITE	Prompt: !! Line Location: REPORT+1
Function Call: WRITE	Prompt: !!,"For the ",AQAOXSM," selected,",! Line Location: XTRASCRN+1
Routine Call	DIC Line Location: SORT+3 POINTER+6
Routine Call	DIR Line Location: ALL+2 REPORT+4 XTRASCRN+6

Name	Line Occurrences (* Changed, ! Killed)
^AQAO1(9 - [#9002169.9]	SELECT+2, SELECT+5, POINTER+2, POINTER+3, XTRASCRN+3, XTRASCRN+4, XTRASCRN+5
^DIC - [#1]	POINTER+7

Name	Field # of Occurrence
>> AQAOI	POINTER+1, POINTER+2, POINTER+3
>> AQAOJ	POINTER+3*, POINTER+4, POINTER+7
>> AQAORTN	REPORT+5*
>> AQAOSTOP	POINTER+1*
>> AQAOTYP	SELECT+2*, SELECT+3, POINTER+7, POINTER+8
>> AQAOXS	SELECT+4
>> AQAOXS(0	ALL+3*
>> AQAOXS(1	POINTER+1!, POINTER+7, POINTER+8
>> AQAOXS(2	SELECT+5, XTRASCRN+1!, XTRASCRN+7*
>> AQAOXSM	SORT+4*, ALL+2, XTRASCRN+1
>> AQAOXSN	SORT+4*, SELECT+2, SELECT+5, POINTER+2, POINTER+3, XTRASCRN+3, XTRASCRN+4, XTRASCRN+5
DIC	SORT+1!, SORT+2, POINTER+4!
DIC("A"	SORT+1*
DIC("S"	SORT+2*
DIC(0	SORT+1, POINTER+4
DIR	ALL+1!, REPORT+1!, XTRASCRN+2!
DIR("A"	ALL+2, REPORT+2, REPORT+3, REPORT+4, XTRASCRN+2, XTRASCRN+5
DIR("B"	ALL+1*
DIR(0	ALL+1, REPORT+1
>> DIRUT	ALL+3, REPORT+4, XTRASCRN+6
>> DTOUT	REPORT+4, POINTER+6
>> DUOUT	SORT+3, POINTER+6
>> I	REPORT+3*
U	SORT+4, SELECT+2, POINTER+3, POINTER+7, POINTER+8
>> X	SORT+3, SELECT+3, POINTER+6, XTRASCRN+3, XTRASCRN+4*, XTRASCRN+5
>> Y	SORT+3, SORT+4, ALL+3, REPORT+4, POINTER+5*, POINTER+6, POINTER+7, POINTER+8, XTRASCRN+6, XTRASCRN+7

Name	Field # of Occurrence
$T(RTN+I	REPORT+3
$T(RTN+Y	REPORT+5