Routine: AQAQPR3

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT C^%DTC ^DIR
Quality Assurance	2	^AQAQPR31 END^AQAQPR32
Uncategorized	1	^%ET

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT C^%DTC ^DIR

Quality Assurance

^AQAQPR31 END^AQAQPR32

Uncategorized

^%ET

Name	Field # of Occurrence
^%DT	DATE, DATE2
C^%DTC	DATE2+3
^%ET	ERR+5
^%ZIS	DEV
HOME^%ZIS	END
^%ZISC	QUE+2, ERR+4
^%ZTLOAD	QUE+2
^AQAQPR31	DEV
END^AQAQPR32	ERR+6
^DIR	DX+4, PRV+4, ALL+2, ONE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?25,"INPATIENT DIAGNOSES BY PROVIDER",!! Line Location: AQAQPR3+3
Function Call: WRITE	Prompt: !,"This report gives you a listing (with subcounts) of diagnoses " Line Location: AQAQPR3+4
Function Call: WRITE	Prompt: !,"for inpatient visits. You can choose to see PRIMARY diagnoses" Line Location: AQAQPR3+5
Function Call: WRITE	Prompt: !,"only or BOTH primary and secondary diagnoses. You will be asked" Line Location: AQAQPR3+6
Function Call: WRITE	Prompt: !,"for a DATE RANGE. You can get the report for ALL PROVIDERS or" Line Location: AQAQPR3+7
Function Call: WRITE	Prompt: !,"only ONE PROVIDER; for ONE CLASS such as all pediatricians; or" Line Location: AQAQPR3+8
Function Call: WRITE	Prompt: !,"for one STAFF CATEGORY. The report is SUBTOTALED by provider and" Line Location: AQAQPR3+9
Function Call: WRITE	Prompt: !,"within each provider by diagnostic category.",!! Line Location: AQAQPR3+10
Function Call: WRITE	Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",! Line Location: DATE2+2
Function Call: WRITE	Prompt: ! Line Location: DX+1
Function Call: WRITE	Prompt: ! Line Location: PRV+0
Function Call: WRITE	Prompt: ! Line Location: ALL+1
Function Call: WRITE	Prompt: ! Line Location: ONE+1
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: *7,!!?30,"Interrupt Acknowledged",!! Line Location: ERR+4
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: DX+4 PRV+4 ALL+2 ONE+4
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("NBRK"	ERR+1
^%ZOSF("OS"	ERR+4

Name	Line Occurrences
DATE	DATE2+1
DATE2	DATE2+2, PRV+4
DEV	ALL+2
END	DATE+1, DX+4, PRV+4, ALL+3, ONE+4, DEV
ONE	PRV+5
PRV	DX+4, ONE+4
QUE	DEV

Name	Field # of Occurrence
^("OS"	ERR+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE, DATE2
>> %DT("A"	DATE, DATE2
>> %ZIS	DEV*
AQAQBDT	DATE+1*, DATE2+2, END!
AQAQCDX	DX+4*, END!
AQAQEDT	DATE2+1, DATE2+2, DATE2+3, END!
AQAQI	QUE+1*, END!
AQAQSRT	ALL+2, ONE+1!, ONE+5, END!
AQAQTYP	PRV+4*, PRV+5, ONE+2, ONE+3, END!
DIR	DX+1!, PRV!, ALL+1!, ONE+1!, END!
DIR("A"	DX+1, DX+2, DX+3, PRV, PRV+1, PRV+2, PRV+3, ALL+1
DIR("B"	ALL+2*
DIR(0	DX+1, PRV, ALL+1, ONE+2, ONE+3*
>> DIRUT	DX+4, PRV+4, ALL+3, ONE+4
DT	DATE2+3
IO	DEV
IO("Q"	DEV, QUE!
IOF	AQAQPR3+3
>> POP	DEV
U	ERR+4
>> X	DATE, DATE2, DATE2+3, DX+4, PRV+4, ONE+4
>> X1	DATE2+3*
>> X2	DATE2+3*
Y	DATE+1, DATE2+1, DX+4, PRV+4, ALL+2, ONE+5, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!

Customize PDF page

Package: Quality Assurance

Routine: AQAQPR3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ALL	;***> choose one or all classes or categories
DATE2
END
ERR	;EP;***> entry point to handle errors
DEV
ONE	;***> choose which class or category to print
PRV
QUE
DX	;***> primary dx only or primary & secondary
DATE