Routine: AQAOCOD0

Name	Comments	DBIA/ICR reference
LOOK	;ENTRY POINT - LOOKUP USER RESPONSE; SET UTILITY NODES
ASK2	;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT
EOJ	;ENTRY POINT - end of job
INIT	;ENTRY POINT - initialize array; originally in ^ATXCODE
X3
SETDIR	;ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF AQAOCOD

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," ??" Line Location: LOOK+2
Function Call: WRITE	Prompt: !,*7,"Low and high codes of range must both start either with a letter or a number.",! Line Location: LOOK+7
Function Call: WRITE	Prompt: !,*7,"Low code is higher than high code.",! Line Location: LOOK+8
Function Call: WRITE	Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",! Line Location: ASK2+1
Function Call: WRITE	Prompt: !!,"Do you want to display the codes from a range you have already selected" Line Location: ASK2+2
Function Call: WRITE	Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",! Line Location: ASK2+4
Routine Call	DIC Line Location: LOOK+1
Routine Call	%ZIS Line Location: INIT+2

Name	Line Occurrences (* Changed, ! Killed)
^ICD0 - [#80.1]	LOOK+3, LOOK+5
^ICD9 - [#80]	LOOK+3, LOOK+5

Name	Line Occurrences
ASK2	ASK2+4
X3	LOOK+2

Name	Field # of Occurrence
>> %	ASK2+2*, ASK2+3, ASK2+4
>> AQAO("ENTER"	INIT+5*
>> AQAO("HI"	LOOK+4, LOOK+5, LOOK+6, LOOK+8
>> AQAO("LOW"	LOOK+3*, LOOK+4, LOOK+6, LOOK+8
>> AQAO("MODIFY"	INIT+4*
>> AQAO("NO DISP	LAY" , INIT+1, LOOK+2, LOOK+5, LOOK+7, LOOK+8
>> AQAO("NOT TAX	" , INIT+6*
>> AQAOA	LOOK+2*
>> AQAOICD	LOOK+1, LOOK+3, LOOK+5
>> AQAONE	LOOK+4
>> AQAOTBL	INIT+4, ASK2+1
>> AQAOTL	SETDIR+19
>> AQAOTYP	LOOK+3, LOOK+4, LOOK+5
>> AQAOX	INIT+3
DIC	LOOK+1*!
DIC(0	LOOK+1*
>> DIR("?"	SETDIR+12, SETDIR+13, SETDIR+14, SETDIR+15, SETDIR+16, SETDIR+17, SETDIR+18, SETDIR+19, SETDIR+20*
>> DIR("??"	SETDIR+21*
>> DIR(0	SETDIR+11*
DR	LOOK+1!
DTIME	INIT+2
>> IOP	INIT+2*
IOSL	INIT+2
U	INIT+1*, LOOK+3, LOOK+5
>> Y	LOOK+2, LOOK+3, LOOK+5

Information