Routine: AQAOPC5

Call Graph

Package	Total	Call Graph
Quality Assurance	4	^AQAOPC51 ($$IND,$$KF)^AQAOPU $$FACR^AQAOPU1 (EXPORT,KILL)^AQAOUTIL
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	^%DTC ^DIR

Name	Comments	DBIA/ICR reference
EDATE	; >>> choose ending occurrence date for report
BDATE	; >>> ask for beginning date
TYPE	; >> ask user what type of report to print
EXIT	; >>> early eoj
DEV	; >>> get print device

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: TYPE+1
Function Call: WRITE	Prompt: !! Line Location: BDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: BDATE+2
Function Call: WRITE	Prompt: *7," MUST BE MONTH AND YEAR ONLY!!" Line Location: BDATE+4
Function Call: WRITE	Prompt: *7," MUST INCLUDE MONTH!!" Line Location: BDATE+5
Function Call: WRITE	Prompt: ! Line Location: EDATE+1
Function Call: WRITE	Prompt: *7," NO FUTURE DATES" Line Location: EDATE+2
Function Call: WRITE	Prompt: *7," ENDING DATE MUST BE AFTER BEGINNING DATE" Line Location: EDATE+3
Function Call: WRITE	Prompt: *7," MUST BE MONTH AND YEAR ONLY!!" Line Location: EDATE+5
Function Call: WRITE	Prompt: *7," MUST INCLUDE MONTH!!" Line Location: EDATE+6
Function Call: WRITE	Prompt: !! Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIR Line Location: TYPE+5 BDATE+2 EDATE+2
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AQAOPC5"	TYPE+1!, TYPE+8!, EXIT+1!

Name	Line Occurrences
BDATE	BDATE+2, BDATE+3, BDATE+4, BDATE+5, EDATE+3, EDATE+4, EDATE+5, EDATE+8
EDATE	EDATE+2, EDATE+4, EDATE+6, DEV+1
EXIT	TYPE+5, BDATE+3, EDATE+4, DEV+2
TYPE	TYPE+5, TYPE+9, BDATE+3

Name	Field # of Occurrence
>> %ZIS	DEV+2*
AQAOBD	BDATE+6*, EDATE+3, EDATE+7, EDATE+9!, EDATE+10
>> AQAODLM	DEV+7
AQAOED	EDATE+7*, EDATE+9!, EDATE+11
>> AQAORPTT	DEV+6
>> AQAOTYP	TYPE+7*, TYPE+9
>> AQAOUA("USER"	DEV+1
DIR	TYPE+1!, BDATE+1!, EDATE+1!
DIR("?"	TYPE+4*
DIR("A"	TYPE+3, BDATE+1, EDATE+1*
DIR(0	TYPE+2, BDATE+1, EDATE+1*
>> DIRUT	TYPE+5, BDATE+3, EDATE+4
DT	BDATE+2, EDATE+2
>> I	DEV+5*
IO	DEV+3
IO("Q"	DEV+3, DEV+4!
>> POP	DEV+2
U	TYPE+9, DEV+1
>> X	TYPE+6*, TYPE+7, BDATE+3, EDATE+4, EDATE+8
>> X1	EDATE+7*
>> X2	EDATE+7*
>> Y	TYPE+5, TYPE+7, BDATE+2, BDATE+3, BDATE+4, BDATE+5, BDATE+6, EDATE+2, EDATE+3, EDATE+4 , EDATE+5, EDATE+6, EDATE+7, EDATE+10*, EDATE+11, DEV+1
>> ZTDESC	DEV+4*
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+5*
>> ZTSAVE("AQAODLM"	DEV+7*
>> ZTSAVE("AQAORPTT"	DEV+6*