Routine: AQAOPV23

Package	Total	Call Graph
Quality Assurance	4	BYCLASS^AQAOHPRV (HEADING2,PERSON,VENDOR)^AQAOPV21 (INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
VENDOR	; -- SUBRTN to print chs provider data
PERSON	; -- SUBRTN to print ihs provider data
DEV	; -- SUBRTN to get print device and call print rtn
PRINT	;EP; -- check user selections and call proper subrtn
EXIT	; -- SUBRTN for eoj
WHICH	; -- which class or types or all
ASK	; -- ask for groups to include
HEADING2	; -- SUBRTN to print second half of heading

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+6, EXIT+3
^%ZTLOAD	DEV+6
BYCLASS^AQAOHPRV	AQAOPV23+17
HEADING2^AQAOPV21	HEADING2+1
PERSON^AQAOPV21	PERSON+20
VENDOR^AQAOPV21	VENDOR+20
INIT^AQAOUTIL	PRINT+2
KILL^AQAOUTIL	EXIT+3
NEWPG^AQAOUTIL	PERSON+14, PERSON+19, VENDOR+14, VENDOR+19
PRTOPT^AQAOVAR	DEV+7, EXIT+1
^DIC	WHICH+8
^DIR	ASK+6, WHICH+3
$$VAL^XBDIQ1	PERSON+8, VENDOR+8, VENDOR+9
$$VALI^XBDIQ1	VENDOR+5, VENDOR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+1
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Routine Call	DIC Line Location: WHICH+8
Routine Call	DIR Line Location: ASK+6 WHICH+3
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	VENDOR+3, VENDOR+4
^TMP("AQAOPV23"	EXIT+2!, PRINT+1!, PERSON+10, PERSON+13, PERSON+16, PERSON+18, VENDOR+10, VENDOR+13, VENDOR+16, VENDOR+18
^VA(200 - [#200]	PERSON+3, PERSON+5, PERSON+6, PERSON+7

Label References

Name	Line Occurrences
ASK	WHICH+3
DEV	WHICH+4
EXIT	ASK+6, DEV+2, DEV+7, PRINT+7
HEADING2	PERSON+14, PERSON+19, VENDOR+14, VENDOR+19
PERSON	PRINT+5
PRINT	DEV+3
VENDOR	PRINT+6
WHICH	WHICH+8

Naked Globals

Name	Field # of Occurrence
^("PS"	PERSON+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
AQAOC	PERSON+1~, PERSON+12, PERSON+13, PERSON+16, PERSON+18
>> AQAOHCON	PRINT+2*
>> AQAON	PERSON+2, PERSON+3, PERSON+5, PERSON+10
AQAOSEL	ASK+7*, WHICH+2, WHICH+6, WHICH+7, EXIT+3!, PRINT+3, PRINT+5, PRINT+6
>> AQAOSEL1	WHICH+4, WHICH+9, PERSON+9, VENDOR+7
>> AQAOSTOP	PERSON+3, PERSON+5, PERSON+13, PERSON+14, PERSON+16, PERSON+18, PERSON+19, VENDOR+3, VENDOR+13, VENDOR+14 , VENDOR+16, VENDOR+18, VENDOR+19
AQAOT	VENDOR+1~, VENDOR+12, VENDOR+13, VENDOR+16, VENDOR+18
>> AQAOTY	PRINT+3*
AQAOX	PERSON+1~, PERSON+4, PERSON+5, PERSON+6, PERSON+7, PERSON+8, PERSON+10, PERSON+17, PERSON+18, PERSON+20 , VENDOR+1~, VENDOR+2, VENDOR+3, VENDOR+4, VENDOR+5, VENDOR+6, VENDOR+9, VENDOR+10, VENDOR+17, VENDOR+18 , VENDOR+20
AQAOY	PERSON+1~, PERSON+15, PERSON+16, PERSON+18, VENDOR+1~, VENDOR+15, VENDOR+16, VENDOR+18
DIC	WHICH+6!*
DIC("A"	WHICH+7*
DIC(0	WHICH+6*
DIR	ASK+1!, WHICH+1!
DIR("A"	ASK+2, ASK+3, ASK+4, ASK+5, WHICH+2*
DIR("B"	WHICH+1*
DIR(0	ASK+1, WHICH+1
>> DIRUT	ASK+6, WHICH+3
DT	PERSON+7
>> I	DEV+5*
IO	PRINT+1
IO("Q"	DEV+3, DEV+4!
IOSL	PERSON+19, VENDOR+19
IOST	EXIT+1
>> POP	DEV+2
U	WHICH+9, PERSON+3, PERSON+5, PERSON+7, PERSON+13, PERSON+14, PERSON+16, PERSON+18, PERSON+19, VENDOR+3 , VENDOR+13, VENDOR+14, VENDOR+16, VENDOR+18, VENDOR+19
X	PERSON+1~, PERSON+8, PERSON+9, PERSON+10, VENDOR+1~, VENDOR+6, VENDOR+7, VENDOR+8*, VENDOR+10
Y	ASK+7, WHICH+4, WHICH+8, WHICH+9, PERSON+1~, VENDOR+1~, VENDOR+9*, VENDOR+10
>> ZTDESC	DEV+4*
>> ZTQUEUED	EXIT+1
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+5*
ZTSK	DEV+6!

Customize PDF page

Package: Quality Assurance

Routine: AQAOPV23

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: