Routine: AQACQRI

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD
Quality Assurance	2	(R10,R2,R3,R4,R5,R6,R7,R8,R9)^AQACQRI1 (R11,R12,R13,R14,R15,R16,R17)^AQACQRI2
VA Fileman	2	^%DT EN1^DIP

Package

Total

Call Graph

(R10,R2,R3,R4,R5,R6,R7,R8,R9)^AQACQRI1 (R11,R12,R13,R14,R15,R16,R17)^AQACQRI2

^%DT EN1^DIP

Package	Total	Caller Graph
Quality Assurance	2	AQACQRI1 AQACQRI2

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Quarterly Report Printouts for IHS Inpatient Register",!! Line Location: AQACQRI+2
Function Call: READ	Prompt: "Start with report number (2-17)? " Timeout: $S($D(DTIME)#2:DTIME,1:3600) Variable: AQACNBR Line Location: RSTART+0
Function Call: WRITE	Prompt: !!,"Enter the number of the report to start printing with, from 2 through 17.",!,"All reports will print in order, starting with the one you choose.",!,"Enter ""^"" to quit.",!! Line Location: RSTART+1
Function Call: WRITE	Prompt: !! Line Location: RSTART+2
Function Call: WRITE	Prompt: !!,"Quarterly Report Printouts for IHS Inpatient Register",!! Line Location: START1+0
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Routine Call	%ZIS Line Location: DEV PRT+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	PRT+1
^%ZTSK - [#14.4]	PRQUE+2, QUIT!
^DD("DD"	AQASD, AQAFD

Name	Line Occurrences
@(	PRNOW
PRNOW	RSTART+3, PRQUE+1, SINGLE
QUE	RSTART+3, SINGLE
QUIT	RSTART, RSTART+3, PRNOW, QUE+1, SINGLE
RSTART	RSTART+1
SINGLE	EN2+1, EN3+1, EN4+1, EN5+1, EN6+1, EN7+1, EN8+1, EN9+1, EN10+1, EN11+1 , EN12+1, EN13+1, EN14+1, EN15+1, EN16+1, EN17+1
START	RSTART+3
START1	SINGLE

Name	Field # of Occurrence
%DT	AQASD, AQAFD, QUIT!
%DT("A"	AQASD, AQAFD
>> %IS	DEV*
>> %IS("B"	DEV*
AQACIOP	RSTART+3, PRQUE+1, DEV+1*, PRT, PRT+1, SINGLE, QUIT!
AQACNBR	RSTART*, RSTART+1, RSTART+2, QUIT!
AQAFD	AQAFD*, QUIT!
AQAFD1	AQAFD*, QUIT!
AQAG	PRQUE+2, QUE, QUIT!
AQASD	AQASD*, QUIT!
AQASD1	AQASD*, QUIT!
AQASNO	RSTART+2, PRNOW, EN2+1, EN3+1, EN4+1, EN5+1, EN6+1, EN7+1, EN8+1, EN9+1* , EN10+1, EN11+1, EN12+1, EN13+1, EN14+1, EN15+1, EN16+1, EN17+1, QUIT!
AQAZTSK	PRQUE+1*, QUIT!
>> DOUT	PRT*
DTIME	RSTART
DTOUT	QUIT!
IO	DEV, DEV+1
IO("Q"	RSTART+3, DEV+2, QUE!, SINGLE
IOF	PRT+1
>> IOP	PRT, PRT+1
IOST	PRT+1
>> PG	PRT*
>> POP	DEV
>> Y	AQASD, AQAFD
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE*
ZTSK	PRQUE+1, PRQUE+2, QUE+1, QUIT!

Information