Routine: AQAOVAL

Package	Total	Call Graph
Quality Assurance	7	^AQAOAUD ^AQAOEDTS ASK^AQAOLKP PRINT^AQAOPR3 $$ALLREV^AQAOREV FIND^AQAOREV1 KILL^AQAOUTIL
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Quality Assurance	2	AQAOENTR AQAOREV

Entry Points

Name	Comments	DBIA/ICR reference
EXIT1
SUM	; >> SUBRTN to print occurrence summary
EXIT	; >> eoj
ASK	; >>> ask for occ id or patient name or indicator
CLOSE	;ENTRY POINT >>> close out occurrence
FIND	; >> find all reviews for this occurrence

Name	Field # of Occurrence
^AQAOAUD	CLOSE+18
^AQAOEDTS	CLOSE+46, CLOSE+49
ASK^AQAOLKP	ASK+2
PRINT^AQAOPR3	SUM+4
$$ALLREV^AQAOREV	CLOSE+7
FIND^AQAOREV1	FIND+1
KILL^AQAOUTIL	EXIT+1
^DIE	CLOSE+24, CLOSE+39, CLOSE+40, CLOSE+41
^DIR	ASK+5, CLOSE+4, CLOSE+11, CLOSE+34, CLOSE+51, EXIT+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+4
Function Call: WRITE	Prompt: ! Line Location: CLOSE+1
Function Call: WRITE	Prompt: !!,*7,"There appears to be some outstanding referrals" Line Location: CLOSE+8
Function Call: WRITE	Prompt: ! Line Location: CLOSE+9
Function Call: WRITE	Prompt: !!,"CANNOT CLOSE; AUDIT FILE LOCKED. TRY AGAIN!",! Line Location: CLOSE+13
Function Call: WRITE	Prompt: !!,"CANNOT CLOSE; ANOTHER USER EDITING OCCURRENCE.",! Line Location: CLOSE+15
Function Call: WRITE	Prompt: !!!?5,"Closing out Occurrence #",AQAOCID,". . . .",!! Line Location: CLOSE+16
Function Call: WRITE	Prompt: ! Line Location: EXIT+2
Routine Call	DIE Line Location: CLOSE+24 CLOSE+39 CLOSE+40 CLOSE+41
Routine Call	DIR Line Location: ASK+5 CLOSE+4 CLOSE+11 CLOSE+34 CLOSE+51 EXIT+3

FileNo	Call Tags
^AQAOC - [#9002167]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	CLOSE+12
^AQAO(6 - [#9002168.6]	CLOSE+44
^AQAOC - [#9002167]	CLOSE+14, CLOSE+20, CLOSE+21, CLOSE+24, CLOSE+36, CLOSE+39, CLOSE+40, CLOSE+41, CLOSE+43, CLOSE+47 , SUM+3
^AQAQX("B"	CLOSE+45, CLOSE+48
^DPT - [#2]	SUM+3

Name	Field # of Occurrence
>> AQAOACT	CLOSE+43*, CLOSE+44
AQAOARR	SUM+1~
AQAOARR(	SUM+3*
AQAOCID	CLOSE+16, SUM+1~
AQAOCLS	CLOSE+21!, CLOSE+36!
AQAOCLS(2	CLOSE+22, CLOSE+37
AQAOCLS(3	CLOSE+22, CLOSE+37
AQAOCLS(4	CLOSE+22, CLOSE+37
AQAOCLS(6	CLOSE+23, CLOSE+38
AQAOCLS(7	CLOSE+23, CLOSE+38
AQAODATE	SUM+1~
>> AQAODEV	SUM+4*
>> AQAOENTR	ASK+1, EXIT+1
AQAOIFN	ASK+2, ASK+6, CLOSE+14, CLOSE+17, CLOSE+19, CLOSE+20, CLOSE+21, CLOSE+24, CLOSE+36, CLOSE+39 , CLOSE+40, CLOSE+41, CLOSE+43, CLOSE+47, SUM+1~, SUM+2*, SUM+3
AQAOIND	SUM+1~
AQAOP	CLOSE+46!, CLOSE+49!
AQAOPAT	SUM+1~
>> AQAOPT	CLOSE+45, CLOSE+48
>> AQAORIFN	CLOSE+25, CLOSE+36
AQAORVW	SUM+1~
>> AQAOUDIT("ACTION"	CLOSE+17*
>> AQAOUDIT("COMMENT"	CLOSE+18*
>> AQAOUDIT("DA"	CLOSE+17*
>> DA	CLOSE+19*
DIC	EXIT1!
DIE	CLOSE+19!*
DIR	ASK+4!, CLOSE+1!, CLOSE+9!, CLOSE+26!, CLOSE+50!, EXIT+2!, EXIT1!
DIR("?"	CLOSE+2, CLOSE+3, CLOSE+28, CLOSE+29, CLOSE+30, CLOSE+31, CLOSE+32, CLOSE+33, CLOSE+34*
DIR("A"	ASK+5, CLOSE+4, CLOSE+10, CLOSE+27, CLOSE+51, EXIT+3
DIR("B"	ASK+4, CLOSE+1, CLOSE+9, EXIT+2
DIR(0	ASK+4, CLOSE+1, CLOSE+9, CLOSE+26, CLOSE+50, EXIT+2
>> DIRUT	CLOSE+5, CLOSE+7, EXIT+4
>> DR	CLOSE+24, CLOSE+39, CLOSE+40, CLOSE+41
>> DTOUT	ASK+2
>> DUOUT	ASK+2
U	CLOSE+22, CLOSE+23, CLOSE+37, CLOSE+38, CLOSE+43, CLOSE+44, CLOSE+47, SUM+3
>> X	ASK+6, CLOSE+21, CLOSE+22, CLOSE+23, CLOSE+36, CLOSE+37, CLOSE+38, SUM+2, SUM+3
>> Y	ASK+6, CLOSE+5, CLOSE+7, CLOSE+35, CLOSE+42, EXIT+4