Routine: AQAODICC

Package	Total	Call Graph
Quality Assurance	4	DIE^AQAODIC CRINTRO^AQAOHCRT $$IND^AQAOLKP KILL^AQAOUTIL
VA Fileman	4	^DIC ^DIE Y^DIQ ^DIR

Package

Total

Call Graph

DIE^AQAODIC CRINTRO^AQAOHCRT $$IND^AQAOLKP KILL^AQAOUTIL

^DIC ^DIE Y^DIQ ^DIR

Name	Comments	DBIA/ICR reference
NONE	; >>> if none, ask to add
END	; >>> eoj
EDIT	; >> SUBRTN to edit or delete entry
DISPLAY	; >> display all criteria
EDIT1
ADD	; >> SUBRTN to add new entry
INDC	; >>> ask for indicator that will be linked to criteria
FIND	; >>> find all criteria already linked to this indicator

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Enter the INDICATOR for which you are defining review criteria:" Line Location: INDC+1
Function Call: WRITE	Prompt: !!,"NO CRITERIA ALREADY LINKED . . .",! Line Location: NONE+2
Function Call: WRITE	Prompt: !!?5,"<<< REVIEW CRITERIA >>>",! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?65,Y Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,(AQAOCNT+1),") ADD NEW ENTRY" Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !!,"To DELETE the link between this criteria and your indicator" Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"enter an '@' at the INDICATOR prompt; otherwise hit <return>." Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+3
Routine Call	DIE Line Location: ADD+13
Routine Call	DIC Line Location: ADD+4 ADD+11
Routine Call	DIR Line Location: NONE+4 DISPLAY+14

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	ADD+10
^AQAO1(6 - [#9002169.6]	FIND+2, FIND+4, FIND+5, DISPLAY+4, DISPLAY+5, ADD+1, ADD+4, ADD+5, ADD+7, ADD+8 , ADD+14, EDIT+6
^DD(9002169.6	DISPLAY+6

Name	Field # of Occurrence
^(0	ADD+7*

Name	Field # of Occurrence
AQAOARR	FIND+1!, NONE+1
AQAOARR(	FIND+6*, DISPLAY+3, DISPLAY+4, DISPLAY+5, EDIT+3, EDIT1+1
>> AQAOCNT	FIND+1, FIND+6, DISPLAY+7, DISPLAY+8, DISPLAY+16
>> AQAODA	ADD+4, ADD+5, ADD+7, ADD+8, ADD+9, ADD+10, ADD+12, ADD+14, EDIT+3, EDIT1+1*
>> AQAODA1	EDIT+3*, EDIT+4, EDIT+6
>> AQAODIC	EDIT+4, EDIT1
>> AQAODR	EDIT+4, EDIT1
>> AQAOIND	INDC+2*, FIND+2, FIND+4, ADD+8, ADD+10, EDIT+6
>> AQAOX	FIND+1, FIND+2, FIND+4, FIND+5, FIND+6, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5
>> AQAOY	FIND+3, FIND+4, FIND+5, FIND+6, DISPLAY+17*, EDIT+3, EDIT1+1
>> C	DISPLAY+6*
>> DA	ADD+12*
>> DA(1	ADD+10*
DIC	ADD+3!, ADD+9!, ADD+12!
DIC("DR"	ADD+10*
DIC(0	ADD+3, ADD+9
>> DIE	ADD+12*
DIR	NONE+3!, DISPLAY+8!
DIR("?"	DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13
DIR("A"	NONE+3, DISPLAY+9
DIR(0	NONE+3, DISPLAY+8
>> DIRUT	NONE+4, DISPLAY+14, ADD+4
>> DLAYGO	ADD+3*
>> DR	ADD+12*
U	FIND+6, DISPLAY+4, DISPLAY+5, DISPLAY+6, ADD+10, EDIT+3, EDIT1+1
>> X	ADD+10*
>> Y	NONE+4, DISPLAY+5*, DISPLAY+6, DISPLAY+14, DISPLAY+16, DISPLAY+17, ADD+4

Information