Routine: AQAOCOD9

Information

AQAOCOD9 ; IHS/ORDC/LJF - MAINTAIN CODE RANGES IN TABLE ;

Package	Total	Caller Graph
Quality Assurance	1	AQAOCOD1

Name	Comments	DBIA/ICR reference
CASEB	;
NUMBER	;
DEL	;ENTRY POINT - SECTION FOR DELETING CODES FROM TABLE
DELPROC	;CASE SPECIFIC DEL PROCESSING
DEL2A	;; for procedures
CASEA	;
DEL10	;;
DEL13	;;
DEL12	;;
DEL1	;;
DEL3	;;
DEL2	;;
DEL5	;;
DEL4	;;
DEL7	;;
DEL6	;;
DEL9	;;
DEL8	;;
X2
NUMBER2	; CODE FOR PROCEDURES
LETTER	;
GETCASE	; SUBROUTINE TO DETERMINE AQAOCASE # FROM INPUT CODE RANGE
DEL11	;;
CASEC	;

Name	Line Occurrences (* Changed, ! Killed)
^ICD0("BA"	DEL2A+2, DEL6+2, DEL9+3, NUMBER2+1, NUMBER2+2, LETTER+2
^ICD9("BA"	DEL2+3, DEL6+1, DEL9+2, NUMBER+2, NUMBER+3, LETTER+1

Name	Field # of Occurrence
>> AQAO("CODE"	NUMBER+2, NUMBER+3, NUMBER2+1, NUMBER2+2
>> AQAO("HI"	DEL2+2, DEL2+3, DEL2A+1, DEL2A+2, DEL6+1, DEL6+2, DEL9+2, DEL9+3, CASEA+1, CASEA+2 , CASEB+1, CASEC+1
>> AQAO("LET"	LETTER+1, LETTER+2, LETTER+3*
>> AQAO("LOW"	GETCASE+2, CASEC+1, CASEC+2, NUMBER+2, NUMBER+3, NUMBER2+1, NUMBER2+2, LETTER+1, LETTER+2, LETTER+3
>> AQAO("NEWHI"	DEL12+2, DEL9+4, NUMBER+3, NUMBER2+2, LETTER+1, LETTER+2, LETTER+3*
>> AQAO("THI"	GETCASE+1*, GETCASE+3!, CASEA+1, CASEB+1, CASEC+1, CASEC+2
>> AQAO("TLOW"	GETCASE+1*, GETCASE+2, GETCASE+3!, CASEA+1, CASEA+2
>> AQAOCASE	DELPROC+1, DEL8+2, DEL12+3, CASEA+1, CASEA+2, CASEB+1, CASEC+1, CASEC+2*
>> AQAODONE	DEL+2, DEL+3, DEL2+4, DEL2A+3, DEL6+3, DEL8+2, DEL12+3, DEL9+5*
>> AQAOFL	LETTER+3
>> AQAOICD	DEL2+1, DEL6+1, DEL6+2, DEL9+2, DEL9+3, NUMBER+1, LETTER+1, LETTER+2
>> AQAOTBL	DEL+1
>> AQAOTBL(	DEL+3, DEL2+2!, DEL2+3!, DEL2A+1!, DEL2A+2!, DEL6+1!, DEL6+2!, DEL8+1!, DEL12+1, DEL12+2* , DEL9+1, DEL9+2, DEL9+3, DEL9+4*, GETCASE+1
>> AQAOVAL	DEL+3*, DEL2+2, DEL2+3, DEL2A+1, DEL2A+2, DEL6+1, DEL6+2, DEL8+1, DEL12+1, DEL12+2 , DEL9+1, DEL9+2, DEL9+3, DEL9+4, GETCASE+1