Routine: AQAOAPA

Package	Total	Call Graph
Quality Assurance	5	$$NEWAP^AQAOCID UPDATE^AQAOHAPL $$IND^AQAOLKP KILL^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
CATEGORY	; >>> ask user for action category to be tied to this action plan
ADDPLAN	; >>> add action plan
INDICATR	; >>> ask user for indicator tied to this action plan
EDIT	;ENTRY POINT for option to update action plan
NUMBER	; >>> get new action plan number
EXIT	; >> eoj
EDITPLAN	; >> drop user into editing the action plan
ASK	; >>> ask if user is sure wants to add plan

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CATEGORY+1
Function Call: WRITE	Prompt: !!!,"I will create Action Plan #",AQAOAPN,": ",AQAOCTN Line Location: NUMBER+4
Function Call: WRITE	Prompt: !?40,"For INDICATOR: ",AQAOINDN,! Line Location: NUMBER+5
Function Call: WRITE	Prompt: !! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,*7,"CANNOT ADD; ANOTHER USER IS ADDING. TRY AGAIN.",! Line Location: ADDPLAN+4
Function Call: WRITE	Prompt: !!,"ACTION PLAN CREATION COMPLETE . . ",!! Line Location: EDITPLAN+5
Function Call: WRITE	Prompt: !! Line Location: EDIT+3
Function Call: WRITE	Prompt: ! Line Location: EDIT+6
Routine Call	DIE Line Location: EDITPLAN+3 EDIT+11 EDIT+22
Routine Call	DIC Line Location: EDIT+6
Routine Call	DIR Line Location: CATEGORY+3 ASK+3 EDIT+20

FileNo	Call Tags
^AQAO(5 - [#9002168.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(5 - [#9002168.5]	ADDPLAN+3, ADDPLAN+5, EDITPLAN+1, EDITPLAN+4, EDIT+9, EDIT+13, EDIT+24
^VA(200 - [#200]	EDIT+22

Name	Line Occurrences
CATEGORY	CATEGORY+3
EDIT	EDIT+6, EDIT+9, EDIT+25
EXIT	INDICATR+1, CATEGORY+3, NUMBER+2, ASK+3, ADDPLAN+3, EDITPLAN+1, EDITPLAN+4, EDIT+6, EDIT+24
INDICATR	CATEGORY+3, ASK+3, EDITPLAN+5

Name	Field # of Occurrence
^(0	EDIT+13

Name	Field # of Occurrence
>> AQAOAPN	NUMBER+1*, NUMBER+2, NUMBER+4, ADDPLAN+1
>> AQAOCHK("OK"	EDIT+6!
>> AQAOCT	CATEGORY+4*, ADDPLAN+2
>> AQAOCTN	CATEGORY+4*, NUMBER+4
>> AQAOIND	INDICATR+1, INDICATR+2, ADDPLAN+2
>> AQAOINDN	INDICATR+2*, NUMBER+5
>> AQAOPLAN	ADDPLAN+5, EDITPLAN+1, EDITPLAN+3, EDITPLAN+4, EDIT+6, EDIT+9, EDIT+11, EDIT+13, EDIT+21, EDIT+24
>> AQAOSTAT	EDIT+12
>> DA	EDITPLAN+3, EDIT+11, EDIT+21*
DD	ADDPLAN+1!
DIC	ADDPLAN+1!, EDIT+3!
DIC("A"	EDIT+5*
DIC("DR"	ADDPLAN+2*
DIC("S"	EDIT+4*
DIC(0	ADDPLAN+1, EDIT+3
DIE	EDITPLAN+3!, EDIT+11!, EDIT+21*
DIR	CATEGORY+1!, ASK+1!, EDIT+14!
DIR("?"	EDIT+16, EDIT+17, EDIT+18, EDIT+19
DIR("A"	CATEGORY+2, ASK+2, EDIT+15*
DIR("B"	ASK+1, EDIT+14
DIR(0	CATEGORY+1, ASK+1, EDIT+14*
>> DIRUT	CATEGORY+3, ASK+3
DO	ADDPLAN+1!
>> DR	EDITPLAN+3, EDIT+11, EDIT+22*
DT	ADDPLAN+2, EDIT+13, EDIT+22
>> DTOUT	EDITPLAN+4, EDIT+24
>> DUOUT	EDITPLAN+4, EDIT+24
DUZ	ADDPLAN+2, EDIT+22
DUZ(2	ADDPLAN+2
U	INDICATR+1, INDICATR+2, CATEGORY+4, EDIT+6, EDIT+13, EDIT+22
>> X	CATEGORY+3, ADDPLAN+1*, EDIT+6
>> Y	CATEGORY+3, CATEGORY+4, ASK+3, ADDPLAN+5, EDIT+6, EDIT+20