Routine: AQAOCOD2

Information

AQAOCOD2 ; IHS/ORDC/LJF - RETRIEVES CODES IF MOD & ENTERS CODES INTO FILE ;

Package	Total	Call Graph
VA Fileman	5	YX^%DTC ^DIC YN^DICN ^DIE ^DIK

Package	Total	Caller Graph
Quality Assurance	1	AQAOCOD

Name	Comments	DBIA/ICR reference
EDIT	;DELETE CODES IN TAXONOMY FILE, THEN ENTER NEW RANGES
EOJ	;
ENTER	;
ASK	;ASK FOR TAXONOMY IF NOT COMING THROUGH TAXONOMY SYSTEM
X
CALLDIE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Would you like to save these codes in a Taxonomy for future use" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"TAXONOMY FILE LOCKED; CANNOT ADD. TRY AGAIN!",! Line Location: ASK+12
Function Call: WRITE	Prompt: !!,$P(^ATXAX(AQAOX,0),U)," TAXONOMY:" Line Location: ASK+17
Function Call: WRITE	Prompt: !!,"You may add codes to an existing taxonomy by selecting a taxonomy when asked to ""ENTER DX:""" Line Location: ASK+18
Function Call: WRITE	Prompt: !!,"Entering codes into the ",$P(^ATXAX(AQAOX,0),U)," taxonomy" Line Location: ENTER+1
Function Call: WRITE	Prompt: !,"One moment please ..." Line Location: ENTER+2
Function Call: WRITE	Prompt: !!,"Done!" Line Location: ENTER+4
Function Call: WRITE	Prompt: !!,"CANNOT EDIT; TAXONOMY LOCKED. TRY AGAIN.",! Line Location: CALLDIE+1
Function Call: WRITE	Prompt: "." Line Location: CALLDIE+3
Function Call: WRITE	Prompt: !!,"ERROR ENCOUNTERED - REENTER RANGES",! Line Location: CALLDIE+4
Routine Call	DIE Line Location: ASK+20 CALLDIE+2
Routine Call	DIC Line Location: ASK+13

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ASK+16, ASK+17, ASK+19, ASK+20, ENTER+1, CALLDIE+1, CALLDIE+2, EDIT+1
^ATXAX(0	ASK+12, ASK+13

Name	Field # of Occurrence
>> %	ASK+2, ASK+3, ASK+7, ASK+8, ASK+16, ASK+17, ASK+18
>> %H	ASK+8*
>> AQAO	ENTER+3, CALLDIE+2, EDIT+1
>> AQAO("EDIT"	ASK+17*, ASK+20
>> AQAO("ENTER"	AQAOCOD2+10, ASK+19*, ASK+20
>> AQAO("NOT TAX	" , ENTER+1, ENTER+2, ENTER+4, CALLDIE+3, CALLDIE+4
>> AQAO("X"	ENTER+3*, CALLDIE+2
AQAOHI	CALLDIE+2*, EOJ+1!
>> AQAOICD	AQAOCOD2+8
>> AQAOSTP	AQAOCOD2+9, ASK+15, ENTER+3
>> AQAOTBL(	ENTER+3, CALLDIE+2
AQAOTIME	ASK+8*, ASK+11, ASK+14!
>> AQAOX	AQAOCOD2+9, ASK+17, ASK+19, ASK+20, ENTER+1, CALLDIE+1, CALLDIE+2, EDIT+1
ATXFLG	ASK+9*, ASK+14!
DA	ASK+20, CALLDIE+2, CALLDIE+5!, EDIT+1*!
DA(1	EDIT+1*
DIC	ASK+10*, ASK+14!
DIC("DR"	ASK+11*
DIC("S"	ASK+9*
DIC(0	ASK+10*
DIE	ASK+20!, CALLDIE+2, CALLDIE+5!
DIK	EDIT+1*!
DLAYGO	ASK+12*, ASK+14!
DR	ASK+20!, CALLDIE+2, CALLDIE+5!
DR(2	CALLDIE+2*
DUZ	ASK+11
U	ASK+17, ENTER+1
>> X	ASK+8
>> Y	ASK+15, ASK+16, ASK+17, ASK+19, ENTER+3, CALLDIE+2, CALLDIE+4
>> ZTQUEUED	ENTER+1, ENTER+2, ENTER+4, CALLDIE+3, CALLDIE+4, EOJ+2
>> ZTREQ	EOJ+2*