Routine: AQAOCOD1

Information

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

Package	Total	Call Graph
Quality Assurance	1	DEL^AQAOCOD9

Package	Total	Caller Graph
Quality Assurance	1	AQAOCOD0

Name	Comments	DBIA/ICR reference
ADD7	;;
ADD6	;;
ADD5	;;
ADD4	;;
ADD3	;;
ADD2	;;
ADD1	;;
SET11	;;
EOJ	;
NUMBER	;
ADD9	;;
ADD8	;;
SET12	;;
SET13	;;
CASEA	;
CASEC	;
CASEB	;
ADD13	;;
ADD12	;;
ADD11	;;
ADD10	;;
X1
SETRANGE	;
SET5	;;
ADD	; SECTION FOR ADDING CODES TO TABLE
NUMBER2	; CODE FOR PROCEDURES
SET1	;;
LETTER	;
SET8	;;
GETCASE	; SUBROUTINE TO DETERMINE AQAOCASE # FROM INPUT CODE RANGE
ADDPROC	; CASE SPECIFIC ADD PROCESSING

Name	Field # of Occurrence
DEL^AQAOCOD9	AQAOCOD1+8

Name	Line Occurrences (* Changed, ! Killed)
^ICD0("BA"	ADD1+2, ADD13+2, NUMBER2+1, NUMBER2+2, LETTER+2
^ICD9("BA"	ADD1+1, ADD13+1, NUMBER+2, NUMBER+3, LETTER+1

Name	Field # of Occurrence
>> AQAO("CODE"	NUMBER+2, NUMBER+3, NUMBER2+1, NUMBER2+2
>> AQAO("HI"	ADD+1, ADD1+1, ADD1+2, SET13+1, CASEA+1, CASEA+2, CASEB+1, CASEC+1
>> AQAO("LET"	LETTER+1, LETTER+2, LETTER+3*
>> AQAO("LOW"	ADD+1, ADD4+1, ADD12+1, ADD1+1, ADD1+2, ADD13+1, ADD13+2*, SET13+1, GETCASE+2, CASEC+1 , CASEC+2, NUMBER+2, NUMBER+3, NUMBER2+1, NUMBER2+2, LETTER+1, LETTER+2, LETTER+3
>> AQAO("NEWHI"	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	ADD+5!, ADDPROC+1, CASEA+1, CASEA+2, CASEB+1, CASEC+1, CASEC+2*, EOJ+1!
AQAODONE	ADD+2, ADD+3, ADD+4, ADD+5!, ADD10+1, ADD1+1, ADD1+2, EOJ+1!
>> AQAOFL	LETTER+3
>> AQAOICD	ADD1+1, ADD1+2, ADD13+1, ADD13+2, NUMBER+1, LETTER+1, LETTER+2
AQAONE	EOJ+1!
AQAONEXT	EOJ+1!
>> AQAOSUB	AQAOCOD1+7
>> AQAOTBL	ADD+1
>> AQAOTBL(	ADD+1, ADD+3, ADD4+1, ADD4+2!, ADD8+1!, ADD1+1!, ADD1+2!, ADD13+1!, ADD13+2!, SET13+1* , GETCASE+1
AQAOVAL	ADD+3*, ADD+5!, ADD4+1, ADD4+2, ADD12+1, ADD8+1, ADD1+1, ADD1+2, ADD13+1, ADD13+2 , GETCASE+1, EOJ+1!