Routine: AQAOPR7

Package	Total	Call Graph
Quality Assurance	5	($$BDATE,$$EDATE)^AQAOLKP ^AQAOPR71 ($$IND,$$KF)^AQAOPU $$FACR^AQAOPU1 (EXPORT,KILL)^AQAOUTIL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
STATUS	; >>> ask if user wants to select closed or deleted occ
DATES	; >> ask user to choose date range
END	; >>> eoj
USERS	; >> ask user to screen by user
DEV	; >>> get print device
TEAMS	; >> ask user to screen by teams
TYPE	; >> ask user what type of report to print

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	END+1
^%ZISC	DEV+8
^%ZTLOAD	DEV+8
$$BDATE^AQAOLKP	DATES+1
$$EDATE^AQAOLKP	DATES+2
^AQAOPR71	DEV+3
$$IND^AQAOPU	TYPE+7
$$KF^AQAOPU	TYPE+7
$$FACR^AQAOPU1	TYPE+7
EXPORT^AQAOUTIL	DEV+1
KILL^AQAOUTIL	DEV+8, END+1
^DIR	STATUS+5, TYPE+5, USERS+2, USERS+6, TEAMS+2, TEAMS+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Which OCCURRENCES do you want to print?" Line Location: STATUS+1
Function Call: WRITE	Prompt: !! Line Location: TYPE+1
Function Call: WRITE	Prompt: !! Line Location: USERS+1
Function Call: WRITE	Prompt: !! Line Location: TEAMS+1
Function Call: WRITE	Prompt: !! Line Location: DEV+2
Routine Call	%ZIS Line Location: END+1
Routine Call	DIR Line Location: STATUS+5 TYPE+5 USERS+2 USERS+6 TEAMS+2 TEAMS+5
Routine Call	%ZIS Line Location: DEV+2

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

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> AQAOBD	DATES+1*
>> AQAODLM	DEV+7
>> AQAOED	DATES+2*
>> AQAOO("TEAM"	TEAMS+3, TEAMS+6
>> AQAOO("USR"	USERS+3, USERS+8, USERS+9*
>> AQAOSTAT	STATUS+5*
>> AQAOTP	TYPE+7*, TYPE+9
>> AQAOUA("USER"	DEV+1
DIR	STATUS+2!, TYPE+1!, USERS+1!, USERS+5!, TEAMS+1!, TEAMS+5!
DIR("?"	TYPE+4*
DIR("A"	STATUS+2, STATUS+3, STATUS+4, TYPE+3, USERS+2, USERS+5, TEAMS+2*
DIR("B"	USERS+1, TEAMS+1
DIR(0	STATUS+2, TYPE+2, USERS+1, USERS+5, TEAMS+1, TEAMS+5
>> DIRUT	STATUS+5, TYPE+5, USERS+3, USERS+4, USERS+6, TEAMS+3, TEAMS+4, TEAMS+5
>> I	DEV+5*
IO	DEV+3
IO("Q"	DEV+3, DEV+4!
>> POP	DEV+2
U	TYPE+9, USERS+8, USERS+9, TEAMS+6, DATES+1, DATES+2, DEV+1
>> X	TYPE+6*, TYPE+7
>> Y	STATUS+5, TYPE+5, TYPE+7, USERS+4, USERS+7, USERS+8, USERS+9, TEAMS+4, TEAMS+6, DEV+1
>> ZTDESC	DEV+4*
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+5*
>> ZTSAVE("AQAODLM"	DEV+7*
>> ZTSAVE("^TMP(""AQAOPR7"",$J,"	DEV+6*
ZTSK	DEV+8!

Information