Routine: AQAOREV

Package	Total	Call Graph
Quality Assurance	8	^AQAOAUD ^AQAOEDTS INTRO^AQAOHREV ASK^AQAOLKP (FIND,SUM)^AQAOREV1 KILL^AQAOUTIL CLOSE^AQAOVAL PRTOPT^AQAOVAR
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
Quality Assurance	1	AQAOVAL

Entry Points

Name	Comments	DBIA/ICR reference
REVCNT()	; -- SUBRTN to return # of reviews;PATCH 3
REFCNT()	; -- SUBRTN to return # of referrals;PATCH 3
EDIT	; edit review
START	; >> lock entry, display summary, display reviews
ADD	; SUBRTN to add new review to occ
EXIT	; >> eoj
CHOOSE	; >> choose review entry to add or edit
ASK	; >> ask for occ id
ALLREV()	;EP; -- SUBRTN to return whether referrals covered by reviews;PATCH 3

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: START+4
Function Call: WRITE	Prompt: !!,"(To add a review for a stage already used, enter in quotes, i.e. ""PEER"".)" Line Location: ADD+3
Routine Call	DIE Line Location: EDIT+9
Routine Call	DIC Line Location: ADD+6
Routine Call	DIR Line Location: START+5 CHOOSE+4

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	EDIT+1, ADD+1
^AQAO(6 - [#9002168.6]	EDIT+12, EDIT+19
^AQAOC - [#9002167]	ASK+1, START+1, EDIT+11, EDIT+19, EXIT+1, ADD+4*, REFCNT+4, REFCNT+7, REFCNT+10, REFCNT+11 , REFCNT+13, REVCNT+2
^AQAQX("B"	EDIT+13, EDIT+16
^XUSEC("AQAOZVAL"	EDIT+19

Name	Line Occurrences
$$ALLREV	EDIT+19
$$REFCNT	ALLREV+1
$$REVCNT	ALLREV+1
ADD	CHOOSE+1, CHOOSE+6
ASK	START+1, START+8, CHOOSE+1, CHOOSE+5, EDIT+22
EDIT	CHOOSE+1
EXIT	ASK+6, CHOOSE+4, EDIT+1

Name	Field # of Occurrence
AQAO	CHOOSE+6!
AQAO(	CHOOSE+7
>> AQAOACT	EDIT+11*, EDIT+12, EDIT+19
AQAOENTR	EDIT+20*!
AQAOIFN	ASK+1, ASK+4!, ASK+6, START+1, START+6, EDIT+3, EDIT+7, EDIT+11, EDIT+19, EXIT+1 , ADD+4, ADD+5, ADD+7, REFCNT+4, REFCNT+7, REFCNT+10, REFCNT+11, REFCNT+13, REVCNT+2
>> AQAONUM	CHOOSE+1, CHOOSE+2, CHOOSE+3, CHOOSE+5
AQAOP	EDIT+14!, EDIT+17!
>> AQAOPT	EDIT+13, EDIT+16
AQAORF	REFCNT+1~, REFCNT+4, REFCNT+7, REFCNT+11, REFCNT+14*, REFCNT+16
AQAORIFN	CHOOSE+1, CHOOSE+5, CHOOSE+6!, CHOOSE+7, EDIT+4, EDIT+7, EDIT+11, EDIT+19, ADD+6, ADD+7 , ADD+8
AQAORV	REVCNT+1~, REVCNT+2, REVCNT+3
>> AQAORVW	ASK+2*
>> AQAOSTOP	START+8
>> AQAOUDIT("ACTION"	EDIT+3, ADD+7
>> AQAOUDIT("COMMENT"	EDIT+5, ADD+8
>> AQAOUDIT("DA"	EDIT+3, ADD+7
>> AQAOUDIT("REV"	EDIT+4, ADD+8
>> DA	EDIT+7*
>> DA(1	EDIT+7, ADD+5
DIC	ADD+5!*
DIC(0	ADD+6*
DIE	EDIT+7!*
DIR	START+4!, CHOOSE+2!, EDIT+7!
DIR("A"	START+5, CHOOSE+2, CHOOSE+3*
DIR("B"	START+4*
DIR(0	START+4, CHOOSE+2
>> DIRUT	CHOOSE+4
>> DR	EDIT+8*
>> DTOUT	ASK+6
>> DUOUT	ASK+6
DUZ	EDIT+19
U	START+8, CHOOSE+7, EDIT+11, EDIT+12, EDIT+19, REFCNT+4, REFCNT+11
X	START+6, REFCNT+1~, REFCNT+6, REFCNT+7, REFCNT+10, REFCNT+11, REFCNT+13, REVCNT+1~, REVCNT+2*
Y	START+6, CHOOSE+5, CHOOSE+7, ADD+6, REFCNT+1~, REFCNT+12, REFCNT+13