Routine: ACKQWLD

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Quasar	2	($$FTIME,$$NUMDT,$$XDAT,CNTR,PAUSE)^ACKQUTL (GETDT,INIT)^ACKQWL
VA FileMan	1	NOW^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
OPTN	;Introduce option.
DEV
DQ	;Entry point when queued.
EXIT	;ALWAYS EXIT HERE
COMPILE	;Compile properly sorted data in ^TMP global.
PRINT	;Print/display results.
ZIP	;For all visits.
ICD	;For ICD statistics.
CPT	;For CPT statistics.
CDR	;For CDR information.
DHD	;
HD1	;Header for all visits.
HD2	;Header for ICD statistics.
HD3	;Header for CPT statistics.
HD4	;Header for CDR statistics.
LINE

External References

Name	Field # of Occurrence
NOW^%DTC	DQ+2
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	EXIT+2
^%ZTLOAD	DEV+2
$$FTIME^ACKQUTL	DQ+2
$$NUMDT^ACKQUTL	DQ+2
$$XDAT^ACKQUTL	DHD+3
CNTR^ACKQUTL	DHD+3
PAUSE^ACKQUTL	ZIP+2, ZIP+6, ICD+1, ICD+3, ICD+8, CPT+1, CPT+3, CPT+8, CDR+1, CDR+3
GETDT^ACKQWL	OPTN+2
INIT^ACKQWL	OPTN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"This option produces a four-part capitation report.",!,"It includes demographic, diagnostic, procedure, and CDR data.",! Line Location: OPTN+1
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"No data found for report specifications." Line Location: PRINT+1
Function Call: WRITE	Prompt: !,LN Line Location: ZIP+11
Function Call: WRITE	Prompt: !,"Total:",?60,$J(T,6,2),!! Line Location: CDR+10
Function Call: WRITE	Prompt: @IOF,"Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,! Line Location: DHD+2
Function Call: WRITE	Prompt: ! Line Location: DHD+3
Function Call: WRITE	Prompt: ! Line Location: DHD+4
Function Call: WRITE	Prompt: !,"ZIP CODE",?21,"VISITS",?31,"UNIQUE",?42,"C&P" Line Location: HD1+2
Function Call: WRITE	Prompt: !,"ICD",?21,"VISITS",?31,"UNIQUE" Line Location: HD2+2
Function Call: WRITE	Prompt: !,"CPT",?21,"VISITS",?31,"UNIQUE" Line Location: HD3+2
Function Call: WRITE	Prompt: !,"CDR ACCOUNT",?58,"% WORKLOAD" Line Location: HD4+2
Function Call: WRITE	Prompt: !,X Line Location: LINE+0
Routine Call	%ZIS Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACK(509850 - [#509850]	CDR+5, CDR+6
^ACK(509850.7 - [#509850.7]	COMPILE+3, COMPILE+4, COMPILE+8, COMPILE+9, COMPILE+13, COMPILE+14, CDR+2, CDR+4
^TMP("ACKQWLD"	DQ+2!, EXIT+1!, COMPILE+5, COMPILE+10, COMPILE+15*, PRINT+1, ZIP+1, ZIP+5, ZIP+7, ICD+2 , ICD+6, ICD+7, ICD+9, CPT+2, CPT+6, CPT+7, CPT+9

Label References

Name	Line Occurrences
COMPILE	DQ+3
DHD	PRINT+1, ZIP+2, ZIP+6, ICD+1, ICD+3, ICD+8, CPT+1, CPT+3, CPT+8, CDR+1 , CDR+3
EXIT	OPTN+2, DEV+1, DEV+2
HD1	PRINT+2, ZIP+2, ZIP+6
HD2	ICD+1, ICD+3, ICD+8
HD3	CPT+1, CPT+3, CPT+8
HD4	CDR+1, CDR+3
LINE	PRINT+1, HD1+3, HD2+3, HD3+3, HD4+3
PRINT	DQ+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DQ+2
%I	EXIT+1!
%ZIS	DEV+1!*
%ZIS("B"	DEV+1*
ACKBFY	EXIT+1!
ACKCDT	DQ+2*, EXIT+1!, DHD+2
ACKDA	EXIT+1!, COMPILE+3, COMPILE+4, COMPILE+8, COMPILE+9, COMPILE+13, COMPILE+14, CDR+2, CDR+4
ACKEM	EXIT+1!
ACKM	EXIT+1!, DHD+3
ACKPG	DQ+2, EXIT+1!, DHD+2
AS	EXIT+1!, COMPILE+1~, ZIP+1, ZIP+3, ZIP+5, ZIP+7, ICD+2, ICD+4, ICD+6, ICD+7 , ICD+9, CPT+2*, CPT+4, CPT+6, CPT+7, CPT+9
CDR	EXIT+1!, CDR+2*, CDR+4
CPT	EXIT+1!, COMPILE+1~, CPT+6*, CPT+7, CPT+9, CPT+11
DIR	EXIT+1!
DIRUT	OPTN+2, EXIT+1!, ZIP+1, ZIP+2, ZIP+5, ZIP+6, ZIP+10, ZIP+13, ICD+1, ICD+2 , ICD+3, ICD+6, ICD+7, ICD+8, ICD+10, ICD+12, ICD+13, CPT+1, CPT+2, CPT+3 , CPT+6, CPT+7, CPT+8, CPT+10, CPT+12, CPT+13, CDR+1, CDR+2, CDR+3, CDR+9
DTOUT	EXIT+1!
DUOUT	EXIT+1!
I	EXIT+1!, COMPILE+3, COMPILE+4, COMPILE+8, COMPILE+9, COMPILE+13, COMPILE+14, ICD+9, CPT+9*
ICD	EXIT+1!, COMPILE+1~, ICD+6*, ICD+7, ICD+9, ICD+11
IO	DQ+1
IO("Q"	DEV+2!
IOF	OPTN+1, EXIT+2, DHD+2
IOM	DHD+2, LINE
IOP	DEV+1!
IOSL	ZIP+2, ZIP+6, ICD+3, ICD+8, CPT+3, CPT+8, CDR+3
IOST	EXIT+2, ZIP+2, ZIP+6, ICD+1, ICD+3, ICD+8, CPT+1, CPT+3, CPT+8, CDR+1 , CDR+3
LN	EXIT+1!, ZIP+11*
>> POP	DEV+1
T	EXIT+1!, ZIP+5, ZIP+9, ZIP+12, CDR+2, CDR+8, CDR+10
U	COMPILE+5, COMPILE+10, COMPILE+15, ZIP+8, ZIP+9, ZIP+12, ICD+9, ICD+11, CPT+9, CPT+11 , CDR+5, CDR+6, CDR+7, CDR+8
X	EXIT+1!, COMPILE+4, COMPILE+5, COMPILE+9, COMPILE+10, COMPILE+14, COMPILE+15, ZIP+7, ZIP+8, ZIP+9 , ICD+7, ICD+9, ICD+11, CPT+7, CPT+9, CPT+11, CDR+4, CDR+5, CDR+7, CDR+8 , DHD+1~, DHD+3, HD1+1~, HD2+1~, HD3+1~, HD4+1~, LINE*
XAS	EXIT+1!, COMPILE+1~, ZIP+3, ZIP+4, ZIP+12, ICD+4, ICD+5, CPT+4*, CPT+5
Y	EXIT+1!, ICD+9, CPT+9, CDR+5, CDR+6, CDR+7
ZIP	EXIT+1!, COMPILE+1~, ZIP+5, ZIP+7, ZIP+8, ICD+7, ICD+9, CPT+7*, CPT+9
>> ZTDESC	DEV+2*
>> ZTQUEUED	EXIT+2
>> ZTREQ	EXIT+2*
>> ZTRTN	DEV+2*
>> ZTSAVE("ACK*"	DEV+2*
ZTSK	DEV+2!

Customize PDF page

Package: Quasar

Routine: ACKQWLD

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: