Routine: AQAOCOD

Package	Total	Call Graph
Quality Assurance	3	(EOJ,INIT,LOOK,SETDIR)^AQAOCOD0 ^AQAOCOD2 DISPLAY2^AQAOCOD3
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

Quality Assurance

(EOJ,INIT,LOOK,SETDIR)^AQAOCOD0 ^AQAOCOD2 DISPLAY2^AQAOCOD3

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Quality Assurance	2	AQAOCOD0 AQAOPC2

Package

Total

Caller Graph

Quality Assurance

AQAOCOD0 AQAOPC2

Entry Points

Name	Comments	DBIA/ICR reference
A
RANGES	;ENTRY POINT - DISPLAY TABLE OF ALL RANGES
BEGIN
ASK1	;
SHOW	;ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS	;EVALUATE USER RESPONSE
TAX	;PLACE CODES FROM SELECTED TAXONOMY IN AQAOTBL
CHECK	;ASKS USER IF SATISFIED WITH ENTERED RANGES
A1
X3
X2
X
X1
DISPLAY	;ENTRY POINT SHOW CODES IN RANGE SELECTED

Name	Field # of Occurrence
EOJ^AQAOCOD0	X
INIT^AQAOCOD0	AQAOCOD+11
LOOK^AQAOCOD0	PROCESS+6, PROCESS+13, PROCESS+14, PROCESS+15
SETDIR^AQAOCOD0	ASK1+4
^AQAOCOD2	BEGIN+4
DISPLAY2^AQAOCOD3	DISPLAY+1
^DIC	TAX+2, TAX+3
^DIR	ASK1+4, CHECK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," You have selected ALL ",AQAOTL," for this report!" Line Location: PROCESS+2
Function Call: WRITE	Prompt: *7," ?? No taxonomies for procedures" Line Location: PROCESS+3
Function Call: WRITE	Prompt: *7," ?? Not allowed" Line Location: PROCESS+4
Function Call: WRITE	Prompt: *7," ?? No previous codes entered!" Line Location: PROCESS+7
Function Call: WRITE	Prompt: *7," ??" Line Location: PROCESS+8
Function Call: WRITE	Prompt: *7," ??" Line Location: PROCESS+9
Function Call: WRITE	Prompt: *7," ??" Line Location: PROCESS+10
Function Call: WRITE	Prompt: ! Line Location: PROCESS+13
Function Call: WRITE	Prompt: ! Line Location: PROCESS+15
Function Call: WRITE	Prompt: !!,"ICD codes in this range =>",!! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: $P(AQAO("LOW")," ") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: $P(AQAO("LOW")," ") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,$P(AQAO," "),?9,$P(^ICD9(DFN,0),U,3) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ! Line Location: A1+2
Function Call: WRITE	Prompt: !!,"ICD Code Range(s) Selected So Far =>",! Line Location: RANGES+1
Function Call: WRITE	Prompt: ! Line Location: RANGES+3
Function Call: READ	Timeout: 300 Variable: AQAO("N") Line Location: A+0
Function Call: WRITE	Prompt: " ??",*7 Line Location: A+0
Function Call: WRITE	Prompt: ! Line Location: X3+0
Function Call: WRITE	Prompt: ! Line Location: CHECK+1
Function Call: WRITE	Prompt: ! Line Location: CHECK+2
Routine Call	DIC Line Location: TAX+2 TAX+3
Routine Call	DIR Line Location: ASK1+4 CHECK+1

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

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAX+5
^ICD9 - [#80]	DISPLAY+2, DISPLAY+3
^ICD9("BA"	DISPLAY+2, DISPLAY+3

Label References

Name	Line Occurrences
@(	BEGIN+3
A	A
A1	A1
ASK1	BEGIN, ASK1+9
BEGIN	BEGIN+4
CHECK	BEGIN+3
DISPLAY	A+1
PROCESS	ASK1+6
RANGES	ASK1+8, SHOW+1, A+2
TAX	PROCESS+5
X	BEGIN+1, BEGIN+2
X1	ASK1+5, ASK1+7
X2	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10
X3	TAX+4

Name	Field # of Occurrence
^(	DISPLAY+3, TAX+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AQAO	DISPLAY+3, RANGES+2, A+1*
>> AQAO("BANG"	RANGES+3, A+2*!
>> AQAO("CODE"	TAX+5*
>> AQAO("ENTER"	BEGIN+4
>> AQAO("HI"	ASK1+1!, DISPLAY+3, A+1*
>> AQAO("LOW"	ASK1+1!, DISPLAY+2, DISPLAY+3, A+1*
>> AQAO("MODIFY"	BEGIN+4
>> AQAO("N"	A*, A+1
>> AQAO("NO DISP	LAY" , ASK1+8, ASK1+9, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+8, PROCESS+9, PROCESS+10*
>> AQAO("NUM"	RANGES+2*, A
>> AQAO("S"	TAX+1*, TAX+2, TAX+3
>> AQAOA	ASK1+1, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+13, PROCESS+15
>> AQAOCT	DISPLAY+3*
>> AQAOI	A+1*
>> AQAOICD	PROCESS+3, DISPLAY+1
>> AQAONE	PROCESS+1, PROCESS+6, PROCESS+14*
AQAOR	DISPLAY+3, A1, A1+1, A1+2!
>> AQAOSAV("X"	PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15
>> AQAOSTP	BEGIN+2, BEGIN+4
>> AQAOSUB	PROCESS+1, PROCESS+11
>> AQAOTBL	BEGIN+3, BEGIN+4, ASK1+4, ASK1+8, PROCESS+7
>> AQAOTBL(	RANGES+2, A+1, TAX+5*
>> AQAOTBL("ALL"	BEGIN+1, ASK1+7, PROCESS+2*
>> AQAOTL	ASK1+4, PROCESS+2
>> AQAOTYP	PROCESS+6, PROCESS+13, PROCESS+14, PROCESS+15
>> AQAOX	TAX+1
>> DFN	DISPLAY+2, DISPLAY+3
DIC	TAX+2!, TAX+3!
DIC("A"	TAX+1*
DIC("S"	TAX+2, TAX+3
DIC(0	TAX+2, TAX+3
DIR	ASK1+4!, CHECK+2!
DIR("A"	ASK1+4, CHECK+1
DIR("B"	CHECK+1*
DIR(0	CHECK+1*
DTIME	A1, A1+1
IOSL	DISPLAY+3
U	DISPLAY+2, DISPLAY+3, A1+1
>> X	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11 , PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, TAX+2, TAX+3*
>> Y	BEGIN+2, BEGIN+3, ASK1+5, TAX+4, TAX+5

Customize PDF page

Package: Quality Assurance

Routine: AQAOCOD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: