Routine: ACKQR3

Information

ACKQR3 ;AUG/JLTP BIR/PTD HCIOFO/AG - Visits by Diagnosis ;18 Jun 2013 10:20 AM

Package	Total	Call Graph
Quasar	6	$$ICDSYS^ACKQAICD ($$STOPNM,$$STOPSORT,DTRANGE,PARAMS)^ACKQRU ($$FTIME,$$MIXC,$$NUMDT,CNTR,PAUSE)^ACKQUTL ($$DIV,$$LEADROLE)^ACKQUTL2 $$CONVERT^ACKQUTL4 $$DIAGTXT^ACKQUTL8
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA FileMan	3	^%DT NOW^%DTC ($$GET1,GETS)^DIQ
DRG Grouper	2	$$CSI^ICDEX $$ICDDATA^ICDXCODE
Lexicon Utility	1	$$IMPDATE^LEXU

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: 3

Package	Total	Caller Graph
Quasar	3	ACKQAS VISITS BY DIAG ACKQNQ ACKQUTL7

Entry Points

Name	Comments	DBIA/ICR reference
OPTN	;Introduce option.
DEV	; get device
DQ	;Entry point when queued. ; variables required at this point are:- ; ACKDIV() - selected divisions ; ACKBD,ACKXBD - beginning of date range (internal,external) ; ACKED,ACKXED - end of date range (internal,external) ; ACKASB - A=audio,S=speech,B=both ; ACKSS - type of report (1=one clinicians etc) ; ACKSTF() - selected clinicians
EXIT	;ALWAYS EXIT HERE
STORE	;
GETDIAG(ACKICDN)	; get Diagnosis data and place in ^TMP
ICDDESC(ACKICD9,ACKICD)	; get the description of an ICD9 from the ^TMP file
PRINT	; print the report for each Division
PRINT2	; print for a single division
SUMM	;
TOTALS	; print the final page of totals for all divisions
HDR	;
SUMHD	;
TOTLHD	;
DIVNAME(ACKVDIV)	; get division name
STAFFNM(ACKSTF)	; get staff name
DATE(EDTE)
PRTDTSPN	;Print desginated code sorted by ICD9 or ICD10
ICD9PRT	;Print ICD9 codes
ICD10PRT	;Print ICD10 codes
BRKDESC(ACKWIDTH)	; If ICD Description too long break it into multiple lines

External References

Name	Field # of Occurrence
^%DT	DATE+9
NOW^%DTC	DQ+9
^%ZIS	DEV+3
HOME^%ZIS	DEV+9
^%ZISC	EXIT+8
^%ZTLOAD	DEV+9
$$ICDSYS^ACKQAICD	OPTN+13, OPTN+14
$$STOPNM^ACKQRU	PRINT2+8, SUMM+5, SUMM+19, TOTALS+10, TOTALS+24
$$STOPSORT^ACKQRU	STORE+12
DTRANGE^ACKQRU	OPTN+7
PARAMS^ACKQRU	OPTN+26
$$FTIME^ACKQUTL	DQ+9
$$MIXC^ACKQUTL	STAFFNM+1
$$NUMDT^ACKQUTL	DQ+9
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+4, TOTLHD+5, TOTLHD+6
PAUSE^ACKQUTL	PRINT+5, PRINT2+3, PRINT2+7, PRINT2+11, PRINT2+15, PRINT2+22, PRINT2+30, SUMM+4, SUMM+10, SUMM+17 , SUMM+26, SUMM+28, TOTALS+5, TOTALS+9, TOTALS+15, TOTALS+22, TOTALS+26, TOTALS+28
$$DIV^ACKQUTL2	OPTN+5
$$LEADROLE^ACKQUTL2	STORE+15
$$CONVERT^ACKQUTL4	PRINT2+17, STAFFNM+1
$$DIAGTXT^ACKQUTL8	GETDIAG+8
$$GET1^DIQ	STORE+20, PRINT2+12, DIVNAME+1
GETS^DIQ	GETDIAG+6
$$CSI^ICDEX	GETDIAG+2
$$ICDDATA^ICDXCODE	GETDIAG+3
$$IMPDATE^LEXU	OPTN+16
$$UP^XLFSTR	BRKDESC+2

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+1
Function Call: WRITE	Prompt: !,"sorted by ICD diagnostic codes.",! Line Location: OPTN+2
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80." Line Location: DEV+1
Function Call: WRITE	Prompt: !,"You can queue it to run at a later time.",! Line Location: DEV+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DEV+4
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+2
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: SUMM+15
Function Call: WRITE	Prompt: ?76,$J(ACKT(ACKVDIV,ACKSORT,ACKICD),4) Line Location: SUMM+25
Function Call: WRITE	Prompt: !!,"Total For Division: "_$$DIVNAME(ACKVDIV),?76,$J(ACKT(ACKVDIV),4) Line Location: SUMM+27
Function Call: WRITE	Prompt: !,ACKTXT,?12,$$DIVNAME(ACKVDIV) Line Location: TOTALS+6
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: TOTALS+20
Function Call: WRITE	Prompt: !!,"Grand Total:",?76,$J(ACKT2,4) Line Location: TOTALS+27
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+3
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+4
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+5
Function Call: WRITE	Prompt: ! Line Location: TOTLHD+6
Function Call: WRITE	Prompt: !,X Line Location: TOTLHD+7
Function Call: WRITE	Prompt: !,"ICD-9 DIAGNOSIS" Line Location: PRTDTSPN+2
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: PRTDTSPN+13
Function Call: WRITE	Prompt: !,"ICD-10 DIAGNOSIS" Line Location: PRTDTSPN+15
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: PRTDTSPN+26
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: ICD9PRT+8
Function Call: WRITE	Prompt: !?9,ACKICDDS(ACKARNM2) Line Location: ICD10PRT+9
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+9

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^SC - [#44]	GET1^DIQ
509850.63	GET1^DIQ
^ICD9 - [#80]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACK(509850.6 - [#509850.6]	DQ+12, DQ+13, STORE+1, STORE+2, STORE+8, STORE+19
^TMP("ACKQR3"	DQ+10!, EXIT+7!, STORE+21, STORE+22, STORE+25, STORE+26, STORE+28, STORE+30, GETDIAG+5, GETDIAG+7 , GETDIAG+9, GETDIAG+10*, ICDDESC+1, ICDDESC+2, PRINT+2, PRINT2+1, PRINT2+6, PRINT2+10, PRINT2+14, PRINT2+19 , PRINT2+21, SUMM+1, SUMM+3, SUMM+7, SUMM+9, SUMM+14, TOTALS+1, TOTALS+8, TOTALS+12, TOTALS+14 , TOTALS+19, PRTDTSPN+7, PRTDTSPN+20, ICD9PRT+7, ICD10PRT+8

Label References

Name	Line Occurrences
$$DATE	OPTN+10, OPTN+11
$$DIVNAME	SUMM+27, TOTALS+6, HDR+12, SUMHD+6
$$ICDDESC	SUMM+11, TOTALS+16, PRTDTSPN+9, PRTDTSPN+22, ICD9PRT+4, ICD10PRT+5
$$STAFFNM	HDR+7
BRKDESC	SUMM+11, TOTALS+16, PRTDTSPN+9, PRTDTSPN+22, ICD9PRT+4, ICD10PRT+5
EXIT	OPTN+5, OPTN+7, OPTN+26, DEV+4, DEV+6
GETDIAG	STORE+21
HDR	PRINT+3, PRINT2+2, PRINT2+4, PRINT2+7, PRINT2+11, PRINT2+15, PRINT2+22
ICD10PRT	PRINT2+29
ICD9PRT	PRINT2+28
PRINT	DQ+14
PRINT2	PRINT+6
PRTDTSPN	PRINT2+27
STORE	DQ+13
SUMHD	SUMM+1, SUMM+4, SUMM+10, SUMM+17, SUMM+26
TOTALS	PRINT+7
TOTLHD	TOTALS+3, TOTALS+5, TOTALS+9, TOTALS+15, TOTALS+22, TOTALS+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+9, EXIT+6!
%DT	EXIT+6!, DATE+6~, DATE+8*
%I	EXIT+6!
%T	EXIT+6!
%ZIS	DEV+3!*, EXIT+6!
%ZIS("B"	DEV+3*
ACK2	EXIT+1!, STORE+8*, STORE+9, STORE+14
ACKARNM2	SUMM+15, SUMM+16!, TOTALS+20, TOTALS+21!, PRTDTSPN+13, PRTDTSPN+14!, PRTDTSPN+26, PRTDTSPN+27!, ICD9PRT+8, ICD9PRT+9! , ICD10PRT+9, ICD10PRT+10!
ACKARNUM	SUMM+11!, SUMM+15, SUMM+16!, TOTALS+16!, TOTALS+20, TOTALS+21!, PRTDTSPN+9!, PRTDTSPN+13, PRTDTSPN+14!, PRTDTSPN+22! , PRTDTSPN+26, PRTDTSPN+27!, ICD9PRT+4!, ICD9PRT+8, ICD9PRT+9!, ICD10PRT+5!, ICD10PRT+9, ICD10PRT+10!, BRKDESC+3, BRKDESC+6 , BRKDESC+7, BRKDESC+8
ACKASB	EXIT+1!, STORE+12
ACKBD	DQ+12, EXIT+1!
ACKC	EXIT+1!
ACKCDT	DQ+9*, EXIT+1!, HDR+3, SUMHD+3, TOTLHD+3
ACKCL	EXIT+1!
ACKCLI	EXIT+1!
ACKCLN	EXIT+1!, PRINT2+9, PRINT2+10, PRINT2+12, PRINT2+14, PRINT2+19, PRINT2+21, PRTDTSPN+7, PRTDTSPN+20, ICD9PRT+7 , ICD10PRT+8
ACKCLNC	EXIT+1!, STORE+7*, STORE+16, STORE+25, STORE+26
ACKCNT	PRTDTSPN+1~, PRTDTSPN+7, PRTDTSPN+8, PRTDTSPN+12, PRTDTSPN+20, PRTDTSPN+21, PRTDTSPN+25
ACKCPT	EXIT+1!
ACKCT	EXIT+4!, STORE+25*, STORE+26
ACKD	DQ+12*, DQ+13, EXIT+2!
ACKDIV	OPTN+5*, EXIT+4!
ACKDIV(	STORE+5, PRINT+6
ACKDIVX	EXIT+4!
ACKDN	GETDIAG+1~, GETDIAG+4*
ACKED	DQ+12, EXIT+2!
ACKHDR	EXIT+4!, STORE+1*, STORE+7
ACKHDR2	EXIT+2!
ACKHDR5	EXIT+4!, STORE+2*, STORE+4
ACKI	EXIT+2!
ACKICD	STORE+25, STORE+26, STORE+28, STORE+30, STORE+32, GETDIAG+2, GETDIAG+3, ICDDESC~, PRINT2+20, PRINT2+21* , PRINT2+23, PRINT2+24, PRINT2+25, PRINT2+26, SUMM+8, SUMM+9, SUMM+14, SUMM+20, SUMM+21, SUMM+22 , SUMM+23, SUMM+25, TOTALS+13, TOTALS+14, TOTALS+19, PRTDTSPN+5, PRTDTSPN+6, PRTDTSPN+7, PRTDTSPN+18, PRTDTSPN+19 , PRTDTSPN+20, ICD9PRT+2, ICD9PRT+3, ICD9PRT+7, ICD10PRT+3, ICD10PRT+4, ICD10PRT+8
ACKICD9	EXIT+5!, GETDIAG+1~, GETDIAG+7*, GETDIAG+10, ICDDESC~, ICDDESC+1
ACKICDDS	SUMM+11!, SUMM+16!, TOTALS+16!, TOTALS+21!, PRTDTSPN+9!, PRTDTSPN+14!, PRTDTSPN+22!, PRTDTSPN+27!, ICD9PRT+4!, ICD9PRT+9! , ICD10PRT+5!, ICD10PRT+10!, BRKDESC+1, BRKDESC+2*, BRKDESC+4, BRKDESC+5
ACKICDDS(	SUMM+15, TOTALS+20, PRTDTSPN+13, PRTDTSPN+26, ICD9PRT+8, ICD10PRT+9, BRKDESC+3, BRKDESC+6, BRKDESC+7, BRKDESC+8*
ACKICDDS(1	SUMM+13, TOTALS+18, PRTDTSPN+11, PRTDTSPN+24, ICD9PRT+6, ICD10PRT+7, BRKDESC+1*
ACKICDN	EXIT+5!, STORE+20, STORE+21, STORE+22, GETDIAG~, GETDIAG+2, GETDIAG+3, GETDIAG+6, GETDIAG+7, GETDIAG+8 , GETDIAG+9, GETDIAG+10, ICDDESC+1~, ICDDESC+2
ACKINFO	GETDIAG+1~, GETDIAG+3*, GETDIAG+4
ACKLINE	EXIT+2!
ACKLR	EXIT+2!, STORE+14, STORE+15, STORE+16, STORE+17, STORE+25, STORE+26
ACKMSG	GETDIAG+1~
ACKOK	EXIT+4!
ACKOOP	EXIT+2!
ACKP	EXIT+2!, STORE+19*, STORE+20
ACKPC	EXIT+2!, PRINT2+18, PRINT2+19, PRINT2+21, PRINT2+24, PRINT2+26, SUMM+6, SUMM+7, SUMM+9, SUMM+11 , SUMM+13, SUMM+14, TOTALS+11, TOTALS+12, TOTALS+14, TOTALS+16, TOTALS+18, TOTALS+19, PRTDTSPN+3, PRTDTSPN+4 , PRTDTSPN+6, PRTDTSPN+7, PRTDTSPN+9, PRTDTSPN+11, PRTDTSPN+16, PRTDTSPN+17, PRTDTSPN+19, PRTDTSPN+20, PRTDTSPN+22, PRTDTSPN+24 , ICD9PRT+1, ICD9PRT+3, ICD9PRT+4, ICD9PRT+6, ICD9PRT+7, ICD10PRT+1, ICD10PRT+2*, ICD10PRT+4, ICD10PRT+5, ICD10PRT+7 , ICD10PRT+8
ACKPCP	EXIT+3!
ACKPG	DQ+9, EXIT+3!, HDR+1, HDR+2, HDR+3, SUMHD+1, SUMHD+2, SUMHD+3, TOTLHD+1, TOTLHD+2 , TOTLHD+3
ACKQDTXT	GETDIAG+1~, GETDIAG+8*, GETDIAG+9
ACKRDR	OPTN+20*, EXIT+3!, HDR+11
ACKSORT	EXIT+2!, EXIT+5!, STORE+12, STORE+25, STORE+26, STORE+28, STORE+30, STORE+32, STORE+34, PRINT2+5 , PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+21, SUMM+2, SUMM+3, SUMM+5, SUMM+7 , SUMM+9, SUMM+14, SUMM+19, SUMM+22, SUMM+23, SUMM+25, TOTALS+7, TOTALS+8*, TOTALS+10, TOTALS+12 , TOTALS+14, TOTALS+19, TOTALS+24, TOTALS+25, PRTDTSPN+7, PRTDTSPN+20, ICD9PRT+7, ICD10PRT+8
ACKSS	EXIT+3!, STORE+14, STORE+15, 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+21, STAFFNM~, STAFFNM+1, PRTDTSPN+7, PRTDTSPN+20 , ICD9PRT+7, ICD10PRT+8
ACKSTF(	STORE+17
ACKSTF(0	HDR+7
ACKT	DQ+10!*, EXIT+3!
ACKT(	STORE+32, STORE+33, SUMM+22, SUMM+23, SUMM+25, SUMM+27, TOTALS+4
ACKT(""	TOTALS+2
ACKT2	DQ+10!, EXIT+4!, STORE+34, TOTALS+27
ACKT2(	STORE+34*, TOTALS+25
ACKTMP	EXIT+5!, GETDIAG+1~, GETDIAG+5*, GETDIAG+6
ACKTXT	EXIT+5!, TOTALS+3, TOTALS+6
ACKV	DQ+13*, EXIT+3!, STORE+1, STORE+2, STORE+8, STORE+15, STORE+19, STORE+20
ACKVDIV	EXIT+4!, STORE+4, STORE+5, STORE+25, STORE+26, STORE+28, STORE+32, STORE+33, PRINT+1, PRINT+6* , PRINT2+1, PRINT2+6, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+21, SUMM+3, SUMM+7, SUMM+9, SUMM+14 , SUMM+22, SUMM+23, SUMM+25, SUMM+27, TOTALS+4*, TOTALS+6, HDR+12, SUMHD+6, DIVNAME~, DIVNAME+1 , PRTDTSPN+7, PRTDTSPN+20, ICD9PRT+7, ICD10PRT+8
ACKVSC	EXIT+3!, STORE+9*, STORE+12
ACKWIDTH	BRKDESC~, BRKDESC+6
ACKWORD	BRKDESC+5*, BRKDESC+6, BRKDESC+7, BRKDESC+8, BRKDESC+9!
ACKWRDNM	BRKDESC+4*, BRKDESC+5, BRKDESC+9!
ACKXBD	OPTN+10, OPTN+20, EXIT+3!
ACKXED	OPTN+11, OPTN+20, EXIT+4!
BEGDT	OPTN+13*, OPTN+17, EXIT+6!
DATESPAN	OPTN+9, OPTN+17, EXIT+6!, PRINT2+27, PRINT2+28, PRINT2+29, SUMM+21
DIRUT	OPTN+7, OPTN+26, EXIT+6!, PRINT+5, PRINT+6, PRINT+7, PRINT2+3, PRINT2+6, PRINT2+7, PRINT2+10 , PRINT2+11, PRINT2+14, PRINT2+15, PRINT2+19, PRINT2+22, PRINT2+30, SUMM+3, SUMM+4, SUMM+7, SUMM+10 , SUMM+17, SUMM+18, SUMM+26, SUMM+27, SUMM+28, TOTALS+4, TOTALS+5, TOTALS+8, TOTALS+9, TOTALS+12 , TOTALS+15, TOTALS+22, TOTALS+23, TOTALS+26, TOTALS+27, TOTALS+28
DTOUT	EXIT+6!
DUOUT	EXIT+6!
EDTE	DATE~, DATE+5, DATE+7
ENDDT	OPTN+14*, OPTN+17, EXIT+6!
I	EXIT+6!
ICD10ARY	ICD10PRT+11!
ICD10ARY(	PRINT2+26*, PRTDTSPN+17, PRTDTSPN+19, ICD10PRT+2, ICD10PRT+4
ICD10FLG	OPTN+9, OPTN+19, EXIT+6!, PRINT2+29, SUMM+20, SUMM+25
ICD9ARY	ICD9PRT+10!
ICD9ARY(	PRINT2+24*, PRTDTSPN+4, PRTDTSPN+6, ICD9PRT+1, ICD9PRT+3
ICD9FLG	OPTN+9, OPTN+18, EXIT+6!, PRINT2+28, SUMM+20, SUMM+25
IMPDATE	OPTN+16~*, OPTN+18, OPTN+19, GETDIAG+3
INTBEG	OPTN+10*, OPTN+13, OPTN+18, OPTN+19, EXIT+7!
INTEND	OPTN+11*, OPTN+14, OPTN+18, OPTN+19, EXIT+7!
IO	DQ+8
IO("Q"	DEV+6, DEV+7!
IOF	OPTN+1, EXIT+8, HDR+1, SUMHD+1, TOTLHD+1
IOM	HDR+3, HDR+13, SUMHD+3, SUMHD+8, TOTLHD+3, TOTLHD+7
IOP	DEV+3!
IOSL	PRINT2+7, PRINT2+11, PRINT2+15, PRINT2+22, SUMM+4, SUMM+10, SUMM+17, SUMM+26, TOTALS+5, TOTALS+9 , TOTALS+15, TOTALS+22, TOTALS+26
IOST	EXIT+8, PRINT+5, PRINT2+3, PRINT2+7, PRINT2+11, PRINT2+15, PRINT2+22, PRINT2+30, SUMM+4, SUMM+10 , SUMM+17, SUMM+26, SUMM+28, TOTALS+5, TOTALS+9, TOTALS+15, TOTALS+22, TOTALS+26, TOTALS+28, HDR+1 , SUMHD+1, TOTLHD+1
JJ	EXIT+7!
POP	DEV+4, EXIT+7!
SS	EXIT+7!
TOT	EXIT+7!, SUMM+22, SUMM+23, SUMM+24
U	STORE+4, STORE+7, STORE+9, STORE+14, GETDIAG+4
X	EXIT+7!, STORE+22, STORE+23, STORE+25, STORE+26, STORE+28, STORE+30, HDR+7, HDR+13, SUMHD+8 , TOTLHD+7, DATE+6~, DATE+7
Y	EXIT+7!, DATE+6~, DATE+10
ZTDESC	DEV+8*, EXIT+7!
ZTIO	EXIT+7!
>> ZTQUEUED	EXIT+8
>> ZTREQ	EXIT+8*
ZTRTN	DEV+8*, EXIT+7!
ZTSAVE	EXIT+7!
ZTSAVE("ACK*"	DEV+9*
ZTSK	DEV+9!, EXIT+7!

Customize PDF page

Package: Quasar