Routine: ACKQR2

Information

ACKQR2 ;AUG/JLTP BIR/PTD HCIOFO/AG -Statistics by Procedure ; [ 12/07/95 9:52 AM ]

Package	Total	Call Graph
Quasar	5	($$STOPNM,$$STOPSORT,DTRANGE,PARAMS)^ACKQRU ($$FTIME,$$MIXC,$$NUMDT,CNTR,PAUSE)^ACKQUTL ($$DIV,$$LEADROLE)^ACKQUTL2 $$CONVERT^ACKQUTL4 $$PROCTXT^ACKQUTL8
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	NOW^%DTC $$GET1^DIQ
CPT HCPCS Codes	1	$$CPT^ICPTCOD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Quasar	1	ACKQAS PROC STATS

Entry Points

Name	Comments	DBIA/ICR reference
OPTN
DEV
DQ	; Queued entry ; Vars required :- ; ACKDIV() - selected divs, ACKBD,ACKXBD - beginning date range (int,ext) ; ACKED,ACKXED - end date range (int, ext) ; ACKASB - A=audio,S=speech,O=other,ASO=all three ; ACKSS - type of report (1=one clinician etc), ACKSTF(x) - selected prvds
EXIT	; 1 way out
STORE	;
GETCPT(ACKCPTN)	; Get Proc code data & put in ^TMP
CPTDESC(ACKCPT)	; Get Proc desc
PRINT	; print report 4 each div
PRINT2	; print for single div
SUMM	;
TOTALS	; Print final page of tots 4 all divs
HDR	;
SUMHD	;
TOTLHD
DIVNAME(ACKVDIV)	; Get div name
STAFFNM(ACKSTF)	; Get staff name

External References

Name	Field # of Occurrence
NOW^%DTC	DQ+7
^%ZIS	DEV+2
HOME^%ZIS	DEV+8
^%ZISC	EXIT+7
^%ZTLOAD	DEV+8
$$STOPNM^ACKQRU	PRINT2+9, SUMM+5, SUMM+13, TOTALS+11, TOTALS+19
$$STOPSORT^ACKQRU	STORE+12
DTRANGE^ACKQRU	OPTN+5
PARAMS^ACKQRU	OPTN+11
$$FTIME^ACKQUTL	DQ+7
$$MIXC^ACKQUTL	STAFFNM+1
$$NUMDT^ACKQUTL	DQ+7
CNTR^ACKQUTL	HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, SUMHD+4 , SUMHD+5, SUMHD+6, SUMHD+7, TOTLHD+3, TOTLHD+4, TOTLHD+5
PAUSE^ACKQUTL	PRINT+5, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, PRINT2+23, SUMM+4, SUMM+8, SUMM+11 , SUMM+15, SUMM+17, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21, TOTALS+23
$$DIV^ACKQUTL2	OPTN+3
$$LEADROLE^ACKQUTL2	STORE+27
$$CONVERT^ACKQUTL4	PRINT2+17, STAFFNM+1
$$PROCTXT^ACKQUTL8	GETCPT+5
$$GET1^DIQ	STORE+19, STORE+21, STORE+22, STORE+26, PRINT2+12, DIVNAME+1
$$CPT^ICPTCOD	GETCPT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"This option produces a report listing clinic visits for a date range" Line Location: OPTN+0
Function Call: WRITE	Prompt: !,"sorted by CPT-4 procedure codes.",! Line Location: OPTN+1
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80." Line Location: DEV+0
Function Call: WRITE	Prompt: !,"You can queue it to run at a later time.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"No data found for report specifications.",!! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"No data found for report specifications.",!! Line Location: PRINT2+3
Function Call: WRITE	Prompt: !!,"Total For Division: "_$$DIVNAME(ACKVDIV),?62,$J(ACKT(ACKVDIV),4) Line Location: SUMM+16
Function Call: WRITE	Prompt: !,ACKTXT,?12,$$DIVNAME(ACKVDIV) Line Location: TOTALS+7
Function Call: WRITE	Prompt: !!,"STOP CODE: ",$$STOPNM^ACKQRU(ACKSORT) Line Location: TOTALS+11
Function Call: WRITE	Prompt: !?5,ACKCPT,?15,$$CPTDESC(ACKCPT),?55,"COUNT: " Line Location: TOTALS+15
Function Call: WRITE	Prompt: $J(^TMP("ACKQR2",$J,2,ACKSORT,ACKCPT),4) Line Location: TOTALS+16
Function Call: WRITE	Prompt: !!,"Total For ",$$STOPNM^ACKQRU(ACKSORT) Line Location: TOTALS+19
Function Call: WRITE	Prompt: ?62,$J(ACKT2(ACKSORT),4) Line Location: TOTALS+20
Function Call: WRITE	Prompt: !!,"Grand Total:",?62,$J(ACKT2,4) Line Location: TOTALS+22
Function Call: WRITE	Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: HDR+12
Function Call: WRITE	Prompt: !,X Line Location: HDR+13
Function Call: WRITE	Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,! Line Location: SUMHD+3
Function Call: WRITE	Prompt: ! Line Location: SUMHD+4
Function Call: WRITE	Prompt: ! Line Location: SUMHD+5
Function Call: WRITE	Prompt: ! Line Location: SUMHD+6
Function Call: WRITE	Prompt: ! Line Location: SUMHD+7
Function Call: WRITE	Prompt: !,X Line Location: SUMHD+8
Function Call: WRITE	Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,! Line Location: TOTLHD+2
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+3
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+4
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+5
Function Call: WRITE	Prompt: !,X Line Location: TOTLHD+6
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+8

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^SC - [#44]	GET1^DIQ
509850.61	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACK(509850.6 - [#509850.6]	DQ+10, DQ+11, STORE+1, STORE+8, STORE+18
^TMP("ACKQR2"	DQ+8!, EXIT+5!, STORE+31, STORE+32, STORE+35, STORE+36, STORE+38, STORE+40, GETCPT+3, GETCPT+4 , GETCPT+5, GETCPT+6, CPTDESC+1, CPTDESC+2, PRINT+2, PRINT2+1, PRINT2+7, PRINT2+10, PRINT2+14, PRINT2+19 , PRINT2+22, SUMM+1, SUMM+3, SUMM+7, SUMM+10, TOTALS+1, TOTALS+9, TOTALS+13, TOTALS+16

Label References

Name	Line Occurrences
$$CPTDESC	PRINT2+21, SUMM+9, TOTALS+15
$$DIVNAME	SUMM+16, TOTALS+7, HDR+12, SUMHD+6
$$STAFFNM	HDR+7
EXIT	OPTN+3, OPTN+5, OPTN+11, DEV+3, DEV+5
GETCPT	STORE+31
HDR	PRINT+3, PRINT2+2, PRINT2+5, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20
PRINT	DQ+12
PRINT2	PRINT+6
STORE	DQ+11
SUMHD	SUMM+1, SUMM+4, SUMM+8, SUMM+11, SUMM+15
TOTALS	PRINT+7
TOTLHD	TOTALS+4, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DQ+7
%DT	EXIT+6!
%I	EXIT+6!
%T	EXIT+6!
%ZIS	DEV+2!*, EXIT+6!
%ZIS("B"	DEV+2*
ACK2	EXIT+1!, STORE+8*, STORE+9, STORE+15
ACKASB	EXIT+1!, STORE+12
ACKBD	DQ+10, EXIT+1!
ACKC	EXIT+1!
ACKCDT	DQ+7*, EXIT+1!, HDR+3, SUMHD+3, TOTLHD+2
ACKCL	EXIT+1!
ACKCLI	EXIT+1!
ACKCLN	EXIT+1!, PRINT2+10*, PRINT2+12, PRINT2+14, PRINT2+19, PRINT2+22
ACKCLNC	EXIT+1!, STORE+6*, STORE+7, STORE+35, STORE+36
ACKCPT	EXIT+1!, STORE+32, STORE+33, STORE+35, STORE+36, STORE+38, STORE+40, GETCPT+1~, GETCPT+4, GETCPT+6 , CPTDESC~, CPTDESC+1, PRINT2+18, PRINT2+19, PRINT2+21, PRINT2+22, SUMM+6, SUMM+7, SUMM+9, SUMM+10 , TOTALS+12, TOTALS+13, TOTALS+15, TOTALS+16
ACKCPTN	EXIT+5!, STORE+21, STORE+31, STORE+32, GETCPT~, GETCPT+3, GETCPT+4, GETCPT+5, GETCPT+6, CPTDESC+1~ , CPTDESC+2
ACKCT	EXIT+4!, STORE+35*, STORE+36
ACKD	DQ+10*, DQ+11, EXIT+2!
ACKDIV	OPTN+3*, EXIT+4!
ACKDIV(	STORE+4, PRINT+6
ACKED	DQ+10, EXIT+2!
ACKHDR	EXIT+4!, STORE+1*, STORE+6
ACKHDR2	EXIT+2!
ACKHDR5	EXIT+4!, STORE+1*, STORE+3
ACKI	EXIT+2!
ACKLINE	EXIT+2!
ACKLR	EXIT+2!, STORE+15, STORE+26, STORE+27*, STORE+28, STORE+29, STORE+35, STORE+36
ACKOK	EXIT+4!
ACKOOP	EXIT+2!
ACKP	EXIT+2!, STORE+18*, STORE+19, STORE+21, STORE+22, STORE+26
ACKPC	EXIT+2!
ACKPCP	EXIT+3!
ACKPG	DQ+7, EXIT+3!, HDR+1, HDR+2, HDR+3, SUMHD+1, SUMHD+2, SUMHD+3, TOTLHD, TOTLHD+1 , TOTLHD+2
>> ACKQQPN	STORE+19*, STORE+20
ACKQUIT	EXIT+5!, STORE+24, STORE+25, STORE+28, STORE+29*
ACKRDR	OPTN+6*, EXIT+3!, HDR+11
ACKSORT	EXIT+2!, EXIT+4!, STORE+12, STORE+35, STORE+36, STORE+38, STORE+40, STORE+42, STORE+44, PRINT2+6 , PRINT2+7, PRINT2+9, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+22, SUMM+2, SUMM+3, SUMM+5, SUMM+7 , SUMM+10, SUMM+13, SUMM+14, TOTALS+8, TOTALS+9*, TOTALS+11, TOTALS+13, TOTALS+16, TOTALS+19, TOTALS+20
ACKSS	EXIT+3!, STORE+15, STORE+25, PRINT2+16, HDR+7, HDR+8, HDR+9, HDR+10
ACKSTAFF	EXIT+3!
ACKSTF	EXIT+3!, PRINT2+13, PRINT2+14, PRINT2+17, PRINT2+19, PRINT2+22, STAFFNM~, STAFFNM+1
ACKSTF(	STORE+15, STORE+29
ACKSTF(0	HDR+7
ACKT	DQ+8!, EXIT+3!
ACKT(	STORE+42, STORE+43, SUMM+14, SUMM+16, TOTALS+5
ACKT(""	TOTALS+3
ACKT2	DQ+8!, EXIT+4!, STORE+44, TOTALS+22
ACKT2(	STORE+44*, TOTALS+20
ACKTXT	EXIT+5!, TOTALS+4, TOTALS+7
ACKV	DQ+11*, EXIT+3!, STORE+1, STORE+8, STORE+18, STORE+19, STORE+21, STORE+22, STORE+26, STORE+27
ACKVDIV	EXIT+4!, STORE+3, STORE+4, STORE+35, STORE+36, STORE+38, STORE+42, STORE+43, PRINT+1, PRINT+6* , PRINT2+1, PRINT2+7, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+22, SUMM+3, SUMM+7, SUMM+10, SUMM+14 , SUMM+16, TOTALS+5*, TOTALS+7, HDR+12, SUMHD+6, DIVNAME~, DIVNAME+1
ACKVOL	EXIT+5!, STORE+22, STORE+23, STORE+36, STORE+38, STORE+40, STORE+42, STORE+43, STORE+44
ACKVSC	EXIT+3!, STORE+9*, STORE+12
ACKXBD	OPTN+6, EXIT+3!
ACKXED	OPTN+6, EXIT+4!
DIRUT	OPTN+5, OPTN+11, EXIT+6!, PRINT+5, PRINT+6, PRINT+7, PRINT2+4, PRINT2+7, PRINT2+8, PRINT2+10 , PRINT2+11, PRINT2+14, PRINT2+15, PRINT2+19, PRINT2+20, PRINT2+23, SUMM+3, SUMM+4, SUMM+7, SUMM+8 , SUMM+11, SUMM+12, SUMM+15, SUMM+16, SUMM+17, TOTALS+2, TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+10 , TOTALS+13, TOTALS+14, TOTALS+17, TOTALS+18, TOTALS+21, TOTALS+22, TOTALS+23
DTOUT	EXIT+6!
DUOUT	EXIT+6!
I	EXIT+6!
IO	DQ+6
IO("Q"	DEV+5, DEV+6!
IOF	OPTN, EXIT+7, HDR+1, SUMHD+1, TOTLHD
IOM	HDR+3, HDR+13, SUMHD+3, SUMHD+8, TOTLHD+2, TOTLHD+6
IOP	DEV+2!
IOSL	PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, SUMM+4, SUMM+8, SUMM+11, SUMM+15, TOTALS+6, TOTALS+10 , TOTALS+14, TOTALS+17, TOTALS+21
IOST	EXIT+7, PRINT+5, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, PRINT2+23, SUMM+4, SUMM+8 , SUMM+11, SUMM+15, SUMM+17, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21, TOTALS+23, HDR+1 , SUMHD+1, TOTLHD
JJ	EXIT+6!
>> POP	DEV+3
SS	EXIT+6!
U	STORE+3, STORE+6, STORE+9, STORE+15, GETCPT+3
X	EXIT+6!, HDR+7, HDR+13, SUMHD+8, TOTLHD+6
Y	EXIT+6!
ZTDESC	DEV+7*, EXIT+6!
ZTIO	EXIT+6!
>> ZTQUEUED	EXIT+7
>> ZTREQ	EXIT+7*
ZTRTN	DEV+7*, EXIT+6!
ZTSAVE	EXIT+5!
ZTSAVE("ACK*"	DEV+8*
ZTSK	DEV+8!, EXIT+5!

Customize PDF page

Package: Quasar