Routine: AQAOPV21

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Quality Assurance	3	LOOKUP^AQAOHPRV (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	($$VAL,$$VALI,ENP)^XBDIQ1

Package	Total	Caller Graph
Quality Assurance	2	AQAOPV22 AQAOPV23

Entry Points

Name	Comments	DBIA/ICR reference
PERSON(AQAOI,AQAOX)	;EP; -- SUBRTN to print provider/person data
LOOKUP(DIC,DICS,INPUT)	; -- SUBRTN to find prov/pers/vendr from user input
DEV	; -- SUBRTN to get print device and call print rtn
VENDOR(AQAOI,AQAOX)	;EP; -- SUBRTN to print vendor data
EXIT	; -- SUBRTN for eoj
PRINT	;EP; -- loop thru user's selections
HEADING2	;EP; -- SUBRTN to print second half of heading
LOOP	; -- ask for names or qi codes until user is done

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LOOP+1
Function Call: WRITE	Prompt: !! Line Location: DEV+2
Function Call: WRITE	Prompt: !?1,AQAOI,AQAOX Line Location: PERSON+3
Function Call: WRITE	Prompt: ?10,$E(AQAO(.01),1,25) Line Location: PERSON+4
Function Call: WRITE	Prompt: ?40,"IHS ",$E(AQAO(53.5),1,20) Line Location: PERSON+5
Function Call: WRITE	Prompt: ?40,"IHS ",$E(AQAO(8),1,20) Line Location: PERSON+6
Function Call: WRITE	Prompt: " (",AQAO(9999999.039),")" Line Location: PERSON+7
Function Call: WRITE	Prompt: !?1,AQAOI,AQAOX Line Location: VENDOR+3
Function Call: WRITE	Prompt: ?10,$E(AQAO(.01),1,25),?40,"CHS " Line Location: VENDOR+4
Function Call: WRITE	Prompt: $E($$VAL^XBDIQ1(9999999.34,X,.02),1,25) Line Location: VENDOR+6
Function Call: WRITE	Prompt: ?14,"(Please forward any INACTIVE NAMES to the proper dept.)" Line Location: HEADING2+1
Function Call: WRITE	Prompt: !,AQAOLIN2,!,"QI Code",?10,"Name",?40,"Description" Line Location: HEADING2+2
Function Call: WRITE	Prompt: !,AQAOLINE,! Line Location: HEADING2+3
Function Call: WRITE	Prompt: *7,"Try again",! Line Location: LOOKUP+3
Routine Call	DIC Line Location: LOOKUP+3
Routine Call	DIR Line Location: LOOP+13
Routine Call	%ZIS Line Location: DEV+2

Name	Field # of Occurrence
>> %ZIS	DEV+2*
AQAO	PERSON+1~, VENDOR+1~
AQAO(	PERSON+4, PERSON+5, PERSON+7, VENDOR+4, VENDOR+7
AQAO(8	PERSON+6
AQAOARR	AQAOPV21+17!, DEV+1
AQAOARR(	PRINT+7, LOOKUP+4*
>> AQAOHCON	PRINT+1*
AQAOI	PRINT+5*, PRINT+7, PRINT+9, PERSON~, PERSON+3, VENDOR~, VENDOR+3
>> AQAOLIN2	HEADING2+2
>> AQAOLINE	HEADING2+3
>> AQAOSTOP	PRINT+5, PRINT+7, PRINT+8
>> AQAOTY	PRINT+2*
AQAOX	AQAOPV21+18, LOOP+2, LOOP+16, LOOP+17, PRINT+6, PRINT+7*, PERSON~, PERSON+2, PERSON+3, VENDOR~ , VENDOR+2, VENDOR+3, VENDOR+5
DIC	LOOKUP~
DIC("S"	LOOKUP+3*
DIC(0	LOOKUP+2*
DICS	LOOKUP~, LOOKUP+3
DIR	LOOP+1!
DIR("?"	LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12*
DIR("A"	LOOP+2, LOOP+3
DIR(0	LOOP+1*
>> DIRUT	LOOP+13
INPUT	LOOKUP~, LOOKUP+2, LOOKUP+4
IO	PRINT+1
IO("Q"	DEV+4, DEV+5!
IOSL	PRINT+8
IOST	EXIT+1
>> POP	DEV+3
>> S	LOOP+15*, LOOP+16, LOOP+17
U	PRINT+5, PRINT+7, PRINT+8
X	PRINT+9, VENDOR+5, VENDOR+6, LOOKUP+1~, LOOKUP+2*
Y	LOOP+15, LOOP+16, LOOP+17, LOOKUP+1~, LOOKUP+3, LOOKUP+4
>> ZTDESC	DEV+5*
>> ZTQUEUED	EXIT+1
>> ZTRTN	DEV+5*
>> ZTSAVE("AQAOARR("	DEV+6*
ZTSK	DEV+6!