DGENA2 ;ALB/CJM,RTK,TDM - Enrollment API - Automatic Update; 9/19/2002 ; 1/31/03 11:54am
;;5.3;PIMS;**121,122,147,232,327,469,491,1015,1016**;JUN 30, 2012;Build 20
;
AUTOUPD(DFN,EVENT) ;
;Description: If the patient meets the criteria for transmission to HEC,
; he is entered to the IVM PATIENT file for future transmission.
; This procedure checks for changes in enrollment priority,
; status and fields in the eligibility sub-record. If any changes are
; found, the current enrollment record is automatically updated.
;Input:
; DFN - Patient IEN
; EVENT - Event Type (optional)
; EVENT 1 : Date of Death Deleted
; EVENT 2 : Ineligible Date Deleted
;Output: None
;
;if the eligibility/enrollment upload is in progess, do not do anything
Q:($G(DGENUPLD)="ENROLLMENT/ELIGIBILITY UPLOAD IN PROGRESS")
;
; If the INCOME TEST DATA (Z10) upload is in progess, do not do anything
Q:($G(IVMZ10)="UPLOAD IN PROGRESS")
;
N DGENRIEN,DGENR1,DGENR2,STATUS,EFFDATE,OK,DEATH
;
;try to prevent problems rsulting from calling FM within FM
N DS,D0,DO,D1,DA,DD,DS,DG,DIC,DICR,DIE,DIG,DIH,DIV,DIW,DIX,DQ,DR
;
S EVENT=+$G(EVENT)
;
D EVENT^IVMPLOG(DFN)
;
D:$$LOCK^DGENA1($G(DFN)) ;may drop out of block
.S DGENRIEN=$$FINDCUR^DGENA(DFN)
.Q:'DGENRIEN
.Q:'$$GET^DGENA(DGENRIEN,.DGENR1)
.S STATUS=$$EXT^DGENU("STATUS",DGENR1("STATUS"))
.S (DEATH,EFFDATE)=$$DEATH^DGENPTA(DFN)
.I STATUS'="VERIFIED",STATUS'="UNVERIFIED",STATUS'="DECEASED",STATUS'["NOT ELIGIBLE",STATUS'["PENDING",STATUS'["REJECTED" Q
.I STATUS="DECEASED",((EVENT'=1)!(DEATH)) Q
.I STATUS["NOT ELIGIBLE",((EVENT'=2)!('$$VET^DGENPTA(DFN))) Q
.S:'EFFDATE EFFDATE=DT
.Q:'$$CREATE^DGENA6(DFN,DGENR1("APP"),EFFDATE,DGENR1("REASON"),DGENR1("REMARKS"),.DGENR2,DGENR1("DATE"),DGENR1("END"))
.S OK=1
.S:(DGENR1("PRIORITY")'=DGENR2("PRIORITY"))!(DGENR2("STATUS")'=DGENR1("STATUS")) OK=0
.I OK D
..N SUB
..S SUB=""
..F S SUB=$O(DGENR2("ELIG",SUB)) Q:SUB="" S:(DGENR1("ELIG",SUB)'=DGENR2("ELIG",SUB)) OK=0
.I 'OK D
..I (DGENR1("EFFDATE")=DGENR2("EFFDATE")),(DGENR1("SOURCE")=DGENR2("SOURCE")),(DGENR1("USER")=DGENR2("USER")),(DGENR1("DATETIME")\1)=(DGENR2("DATETIME")\1) D
...;in this case it's an overlay
...S DGENR2("PRIORREC")=DGENR1("PRIORREC")
...I $$EDITCUR^DGENA1(.DGENR2)
..E D
...;in this case create a new record, to preserve the audit trail
...I $$STORECUR^DGENA1(.DGENR2)
D UNLOCK^DGENA1($G(DFN))
Q
MTUPD ;
;Description - entry point for Means Test Event Driver for Enrollment
;
D AUTOUPD($G(DFN))
Q
;
SDDIS ;Entry point for the DGEN SD DISPLAY CURRENT ENROLLMENT protocol,
;which hangs of the Scheduling Event Driver
;
N DFN S DFN=$P($G(SDATA),"^",2)
;
;don't display if running in the background
Q:$D(ZTQUEUED)
;
;don't want to display enrollment for non-vets with no enrollment status
Q:('$$VET^DGENPTA(DFN))&('$$STATUS^DGENA(DFN))
;
;if making an appt., & in interactive mode, display enrollment status
I ($G(SDAMEVT)=1),$G(SDMODE)=0 D
.D DISPLAY^DGENU($P($G(SDATA),"^",2))
.D PAUSE^VALM1
;
;want to do the same thing for check-in, unless appt just made
I ($G(SDAMEVT)=4),$G(SDMODE)=0 D
.;want to try avoiding giving display if it was done already
.;so, if it is an unscheduled appt made today, skip
.N PTNODE,SCNODE
.S SCNODE=$G(^TMP("SDAMEVT",$J,"AFTER","SC"))
.S PTNODE=$G(^TMP("SDAMEVT",$J,"AFTER","DPT"))
.I +$P(SCNODE,"^",7)=$G(DT),$P(PTNODE,"^",7)=4 Q ;unscheduled appt made today
.D DISPLAY^DGENU($P($G(SDATA),"^",2))
.D PAUSE^VALM1
Q
;
ENROLL ;Entry point for the DGEN SD ENROLL PATIENT protocol, which hangs of
;the Scheduling Event Driver. This event enrolls patients upon check-out
;if there is no prior enrollment record.
;
; Input -- SDATA & SDAMEVT defined by the scheduling event driver
; Output -- none
;
N DGENR,DFN
;
;NOTE - it appears from testing that means test status REQUIRED is set
;within scheduling, obviating the need to do it here. This is why
;several lines are commented out.
;
;N DGENR,DGOKF,DGREQF,DFN,DGMSGF,DG,DGMT,DGMTCOR,DGMTE,DGRGAUTO,DGWRT,XMZ,DIG,DIH
;
;appointment made, check if enrollment appointment request needs reset.
;if appointment cancelled, or no-show put back on call list if no appts.
I ($G(SDAMEVT)=1)!($G(SDAMEVT)=2)!($G(SDAMEVT)=3) D REQUST(SDAMEVT,SDATA)
;check-out?
Q:($G(SDAMEVT)'=5)
;
S DFN=$P($G(SDATA),"^",2)
;
;don't enroll if the patient has an enrollment record
I $$FINDCUR^DGENA(DFN) Q
;
;non-vet?
Q:'$$VET^DGENPTA(DFN)
;
;dead?
Q:$$DEATH^DGENPTA(DFN)
;
;Does patient require a Means Test?
;S DGMSGF=1
;D EN^DGMTR
;
;Create local enrollment array
I $$CREATE^DGENA6(DFN,DT,,,,.DGENR) D
. ;
. ;Store local enrollment as current
. I $$STORECUR^DGENA1(.DGENR) D
. . ;
. . ;If patient's means test status is required, send bulletin
. . ;I $$MTREQ^DGEN(DFN) D MTBULL^DGEN(DFN,.DGENR)
Q
;
REQUST(SDAMEVT,SDATA) ;
;1. Check if cancelled appt. If no appts found put back on call list.
;2. Automatic collection of Appointment Request Date and Appointment
;Request Response
;- Set when Enrollment Application Date >= 8/1/2005 AND
;- Appointment Request Date is null.
;
; Input -- SDATA and SDAMEVT defined by scheduling event driver
; Output -- none
;
N DGENRIEN,DGENR,DPTERR,DGCOM,DGADT,DFN,DGCLN
I ($G(SDAMEVT)=2)!($G(SDAMEVT)=3) G CANNS
;apointment made?
Q:($G(SDAMEVT)'=1)
;
S DFN=$P($G(SDATA),"^",2)
S DGADT=$P($G(SDATA),"^",3)
S DGCLN=$P($G(SDATA),"^",4)
;get enrollment ien
S DGENRIEN=$$FINDCUR^DGENA(DFN)
I DGENRIEN,$$GET^DGENA(DGENRIEN,.DGENR) ;set-up enrollment array
I $G(DGENR("APP"))>3050731 D
. ;and, no appointment request date. Set request="yes", request date
. I '$$GET1^DIQ(2,DFN,1010.1511,"I") D
. . ;quit if 'no-count' clinic
. . I ($$GET1^DIQ(44,DGCLN,2502,"I")="Y") Q
. . ;quit if appt. date/time < date notified of request for appointment
. . I DGADT<DT Q
. . ;set fields
. . N FDATA
. . S FDATA(2,DFN_",",1010.159)=1
. . S FDATA(2,DFN_",",1010.1511)=DT
. . D FILE^DIE("","FDATA","DPTERR")
. ;if appointment made, appt. request="yes", request status'="filled"
. ;- set request status='filled' w comment
. ; also, if non count clinic, do not file data.
. I ($$GET1^DIQ(44,DGCLN,2502,"I")="Y") Q
. I ($$GET1^DIQ(2,DFN,1010.159,"I")),($$GET1^DIQ(2,DFN,1010.161,"I")'="F") D
. . ;set fields
. . N FDATA
. . S FDATA(2,DFN_",",1010.161)="F"
. . S DGCOM=$$GET1^DIQ(2,DFN,1010.163)
. . S DGCOM=DGCOM_$S(DGCOM'="":"<>",1:"")_"AutoComm:"_$S($$GET1^DIQ(2,DFN,1010.161,"I")="":"null",1:$S($$GET1^DIQ(2,DFN,1010.161,"I")="I":"IN PROGRESS",1:$$GET1^DIQ(2,DFN,1010.161)))_"|FILLED by Scheduling"
. . S FDATA(2,DFN_",",1010.163)=DGCOM
. . D FILE^DIE("","FDATA","DPTERR")
Q
;
CANNS ;If appointment cancelled or no-show, no appts made, put back on call list
N DGRDTI,SDARRY,SDCNT,FDATA
;
S DFN=$P($G(SDATA),"^",2)
;
S DGRDTI=$$GET1^DIQ(2,DFN,1010.1511,"I")
I 'DGRDTI Q
S SDARRY(1)=DGRDTI_";" ;Look out from 'notify of request date' to future.
S SDARRY(3)="R;I;NT" ;appointments made
S SDARRY(4)=DFN
S SDARRY("FLDS")=1
S SDCNT=$$SDAPI^SDAMA301(.SDARRY)
I SDCNT>0 D ;If only no-count clinic appts. put on call list
. N SDCOUNT,SDCL
. S SDCOUNT=0 ; count clinic
. S SDCL=0 F S SDCL=$O(^TMP($J,"SDAMA301",DFN,SDCL)) Q:'SDCL D Q:SDCOUNT
.. I $$GET1^DIQ(44,SDCL,2502,"I")="Y" Q
.. S SDCOUNT=SDCOUNT+1
. I SDCOUNT=0 S SDCNT=0 ;if only no-count clinic appts., put on call list
I SDCNT=0 D
. S FDATA(2,DFN_",",1010.161)="@" ;delete status
. S FDATA(2,DFN_",",1010.163)="@" ;delete comment
. D FILE^DIE("","FDATA","DPTERR")
Q
DGENA2 ;ALB/CJM,RTK,TDM - Enrollment API - Automatic Update; 9/19/2002 ; 1/31/03 11:54am
+1 ;;5.3;PIMS;**121,122,147,232,327,469,491,1015,1016**;JUN 30, 2012;Build 20
+2 ;
AUTOUPD(DFN,EVENT) ;
+1 ;Description: If the patient meets the criteria for transmission to HEC,
+2 ; he is entered to the IVM PATIENT file for future transmission.
+3 ; This procedure checks for changes in enrollment priority,
+4 ; status and fields in the eligibility sub-record. If any changes are
+5 ; found, the current enrollment record is automatically updated.
+6 ;Input:
+7 ; DFN - Patient IEN
+8 ; EVENT - Event Type (optional)
+9 ; EVENT 1 : Date of Death Deleted
+10 ; EVENT 2 : Ineligible Date Deleted
+11 ;Output: None
+12 ;
+13 ;if the eligibility/enrollment upload is in progess, do not do anything
+14 IF ($GET(DGENUPLD)="ENROLLMENT/ELIGIBILITY UPLOAD IN PROGRESS")
QUIT
+15 ;
+16 ; If the INCOME TEST DATA (Z10) upload is in progess, do not do anything
+17 IF ($GET(IVMZ10)="UPLOAD IN PROGRESS")
QUIT
+18 ;
+19 NEW DGENRIEN,DGENR1,DGENR2,STATUS,EFFDATE,OK,DEATH
+20 ;
+21 ;try to prevent problems rsulting from calling FM within FM
+22 NEW DS,D0,DO,D1,DA,DD,DS,DG,DIC,DICR,DIE,DIG,DIH,DIV,DIW,DIX,DQ,DR
+23 ;
+24 SET EVENT=+$GET(EVENT)
+25 ;
+26 DO EVENT^IVMPLOG(DFN)
+27 ;
+28 ;may drop out of block
IF $$LOCK^DGENA1($GET(DFN))
Begin DoDot:1
+29 SET DGENRIEN=$$FINDCUR^DGENA(DFN)
+30 IF 'DGENRIEN
QUIT
+31 IF '$$GET^DGENA(DGENRIEN,.DGENR1)
QUIT
+32 SET STATUS=$$EXT^DGENU("STATUS",DGENR1("STATUS"))
+33 SET (DEATH,EFFDATE)=$$DEATH^DGENPTA(DFN)
+34 IF STATUS'="VERIFIED"
IF STATUS'="UNVERIFIED"
IF STATUS'="DECEASED"
IF STATUS'["NOT ELIGIBLE"
IF STATUS'["PENDING"
IF STATUS'["REJECTED"
QUIT
+35 IF STATUS="DECEASED"
IF ((EVENT'=1)!(DEATH))
QUIT
+36 IF STATUS["NOT ELIGIBLE"
IF ((EVENT'=2)!('$$VET^DGENPTA(DFN)))
QUIT
+37 IF 'EFFDATE
SET EFFDATE=DT
+38 IF '$$CREATE^DGENA6(DFN,DGENR1("APP"),EFFDATE,DGENR1("REASON"),DGENR1("REMARKS"),.DGENR2,DGENR1("DATE"),DGENR1("END"))
QUIT
+39 SET OK=1
+40 IF (DGENR1("PRIORITY")'=DGENR2("PRIORITY"))!(DGENR2("STATUS")'=DGENR1("STATUS"))
SET OK=0
+41 IF OK
Begin DoDot:2
+42 NEW SUB
+43 SET SUB=""
+44 FOR
SET SUB=$ORDER(DGENR2("ELIG",SUB))
IF SUB=""
QUIT
IF (DGENR1("ELIG",SUB)'=DGENR2("ELIG",SUB))
SET OK=0
End DoDot:2
+45 IF 'OK
Begin DoDot:2
+46 IF (DGENR1("EFFDATE")=DGENR2("EFFDATE"))
IF (DGENR1("SOURCE")=DGENR2("SOURCE"))
IF (DGENR1("USER")=DGENR2("USER"))
IF (DGENR1("DATETIME")\1)=(DGENR2("DATETIME")\1)
Begin DoDot:3
+47 ;in this case it's an overlay
+48 SET DGENR2("PRIORREC")=DGENR1("PRIORREC")
+49 IF $$EDITCUR^DGENA1(.DGENR2)
End DoDot:3
+50 IF '$TEST
Begin DoDot:3
+51 ;in this case create a new record, to preserve the audit trail
+52 IF $$STORECUR^DGENA1(.DGENR2)
End DoDot:3
End DoDot:2
End DoDot:1
+53 DO UNLOCK^DGENA1($GET(DFN))
+54 QUIT
MTUPD ;
+1 ;Description - entry point for Means Test Event Driver for Enrollment
+2 ;
+3 DO AUTOUPD($GET(DFN))
+4 QUIT
+5 ;
SDDIS ;Entry point for the DGEN SD DISPLAY CURRENT ENROLLMENT protocol,
+1 ;which hangs of the Scheduling Event Driver
+2 ;
+3 NEW DFN
SET DFN=$PIECE($GET(SDATA),"^",2)
+4 ;
+5 ;don't display if running in the background
+6 IF $DATA(ZTQUEUED)
QUIT
+7 ;
+8 ;don't want to display enrollment for non-vets with no enrollment status
+9 IF ('$$VET^DGENPTA(DFN))&('$$STATUS^DGENA(DFN))
QUIT
+10 ;
+11 ;if making an appt., & in interactive mode, display enrollment status
+12 IF ($GET(SDAMEVT)=1)
IF $GET(SDMODE)=0
Begin DoDot:1
+13 DO DISPLAY^DGENU($PIECE($GET(SDATA),"^",2))
+14 DO PAUSE^VALM1
End DoDot:1
+15 ;
+16 ;want to do the same thing for check-in, unless appt just made
+17 IF ($GET(SDAMEVT)=4)
IF $GET(SDMODE)=0
Begin DoDot:1
+18 ;want to try avoiding giving display if it was done already
+19 ;so, if it is an unscheduled appt made today, skip
+20 NEW PTNODE,SCNODE
+21 SET SCNODE=$GET(^TMP("SDAMEVT",$JOB,"AFTER","SC"))
+22 SET PTNODE=$GET(^TMP("SDAMEVT",$JOB,"AFTER","DPT"))
+23 ;unscheduled appt made today
IF +$PIECE(SCNODE,"^",7)=$GET(DT)
IF $PIECE(PTNODE,"^",7)=4
QUIT
+24 DO DISPLAY^DGENU($PIECE($GET(SDATA),"^",2))
+25 DO PAUSE^VALM1
End DoDot:1
+26 QUIT
+27 ;
ENROLL ;Entry point for the DGEN SD ENROLL PATIENT protocol, which hangs of
+1 ;the Scheduling Event Driver. This event enrolls patients upon check-out
+2 ;if there is no prior enrollment record.
+3 ;
+4 ; Input -- SDATA & SDAMEVT defined by the scheduling event driver
+5 ; Output -- none
+6 ;
+7 NEW DGENR,DFN
+8 ;
+9 ;NOTE - it appears from testing that means test status REQUIRED is set
+10 ;within scheduling, obviating the need to do it here. This is why
+11 ;several lines are commented out.
+12 ;
+13 ;N DGENR,DGOKF,DGREQF,DFN,DGMSGF,DG,DGMT,DGMTCOR,DGMTE,DGRGAUTO,DGWRT,XMZ,DIG,DIH
+14 ;
+15 ;appointment made, check if enrollment appointment request needs reset.
+16 ;if appointment cancelled, or no-show put back on call list if no appts.
+17 IF ($GET(SDAMEVT)=1)!($GET(SDAMEVT)=2)!($GET(SDAMEVT)=3)
DO REQUST(SDAMEVT,SDATA)
+18 ;check-out?
+19 IF ($GET(SDAMEVT)'=5)
QUIT
+20 ;
+21 SET DFN=$PIECE($GET(SDATA),"^",2)
+22 ;
+23 ;don't enroll if the patient has an enrollment record
+24 IF $$FINDCUR^DGENA(DFN)
QUIT
+25 ;
+26 ;non-vet?
+27 IF '$$VET^DGENPTA(DFN)
QUIT
+28 ;
+29 ;dead?
+30 IF $$DEATH^DGENPTA(DFN)
QUIT
+31 ;
+32 ;Does patient require a Means Test?
+33 ;S DGMSGF=1
+34 ;D EN^DGMTR
+35 ;
+36 ;Create local enrollment array
+37 IF $$CREATE^DGENA6(DFN,DT,,,,.DGENR)
Begin DoDot:1
+38 ;
+39 ;Store local enrollment as current
+40 IF $$STORECUR^DGENA1(.DGENR)
Begin DoDot:2
+41 ;
+42 ;If patient's means test status is required, send bulletin
+43 ;I $$MTREQ^DGEN(DFN) D MTBULL^DGEN(DFN,.DGENR)
End DoDot:2
End DoDot:1
+44 QUIT
+45 ;
REQUST(SDAMEVT,SDATA) ;
+1 ;1. Check if cancelled appt. If no appts found put back on call list.
+2 ;2. Automatic collection of Appointment Request Date and Appointment
+3 ;Request Response
+4 ;- Set when Enrollment Application Date >= 8/1/2005 AND
+5 ;- Appointment Request Date is null.
+6 ;
+7 ; Input -- SDATA and SDAMEVT defined by scheduling event driver
+8 ; Output -- none
+9 ;
+10 NEW DGENRIEN,DGENR,DPTERR,DGCOM,DGADT,DFN,DGCLN
+11 IF ($GET(SDAMEVT)=2)!($GET(SDAMEVT)=3)
GOTO CANNS
+12 ;apointment made?
+13 IF ($GET(SDAMEVT)'=1)
QUIT
+14 ;
+15 SET DFN=$PIECE($GET(SDATA),"^",2)
+16 SET DGADT=$PIECE($GET(SDATA),"^",3)
+17 SET DGCLN=$PIECE($GET(SDATA),"^",4)
+18 ;get enrollment ien
+19 SET DGENRIEN=$$FINDCUR^DGENA(DFN)
+20 ;set-up enrollment array
IF DGENRIEN
IF $$GET^DGENA(DGENRIEN,.DGENR)
+21 IF $GET(DGENR("APP"))>3050731
Begin DoDot:1
+22 ;and, no appointment request date. Set request="yes", request date
+23 IF '$$GET1^DIQ(2,DFN,1010.1511,"I")
Begin DoDot:2
+24 ;quit if 'no-count' clinic
+25 IF ($$GET1^DIQ(44,DGCLN,2502,"I")="Y")
QUIT
+26 ;quit if appt. date/time < date notified of request for appointment
+27 IF DGADT<DT
QUIT
+28 ;set fields
+29 NEW FDATA
+30 SET FDATA(2,DFN_",",1010.159)=1
+31 SET FDATA(2,DFN_",",1010.1511)=DT
+32 DO FILE^DIE("","FDATA","DPTERR")
End DoDot:2
+33 ;if appointment made, appt. request="yes", request status'="filled"
+34 ;- set request status='filled' w comment
+35 ; also, if non count clinic, do not file data.
+36 IF ($$GET1^DIQ(44,DGCLN,2502,"I")="Y")
QUIT
+37 IF ($$GET1^DIQ(2,DFN,1010.159,"I"))
IF ($$GET1^DIQ(2,DFN,1010.161,"I")'="F")
Begin DoDot:2
+38 ;set fields
+39 NEW FDATA
+40 SET FDATA(2,DFN_",",1010.161)="F"
+41 SET DGCOM=$$GET1^DIQ(2,DFN,1010.163)
+42 SET DGCOM=DGCOM_$SELECT(DGCOM'="":"<>",1:"")_"AutoComm:"_$SELECT($$GET1^DIQ(2,DFN,1010.161,"I")="":"null",1:$SELECT($$GET1^DIQ(2,DFN,1010.161,"I")="I":"IN PROGRESS",1:$$GET1^DIQ(2,DFN,1010.161)))_"|FILLED by Scheduling"
+43 SET FDATA(2,DFN_",",1010.163)=DGCOM
+44 DO FILE^DIE("","FDATA","DPTERR")
End DoDot:2
End DoDot:1
+45 QUIT
+46 ;
CANNS ;If appointment cancelled or no-show, no appts made, put back on call list
+1 NEW DGRDTI,SDARRY,SDCNT,FDATA
+2 ;
+3 SET DFN=$PIECE($GET(SDATA),"^",2)
+4 ;
+5 SET DGRDTI=$$GET1^DIQ(2,DFN,1010.1511,"I")
+6 IF 'DGRDTI
QUIT
+7 ;Look out from 'notify of request date' to future.
SET SDARRY(1)=DGRDTI_";"
+8 ;appointments made
SET SDARRY(3)="R;I;NT"
+9 SET SDARRY(4)=DFN
+10 SET SDARRY("FLDS")=1
+11 SET SDCNT=$$SDAPI^SDAMA301(.SDARRY)
+12 ;If only no-count clinic appts. put on call list
IF SDCNT>0
Begin DoDot:1
+13 NEW SDCOUNT,SDCL
+14 ; count clinic
SET SDCOUNT=0
+15 SET SDCL=0
FOR
SET SDCL=$ORDER(^TMP($JOB,"SDAMA301",DFN,SDCL))
IF 'SDCL
QUIT
Begin DoDot:2
+16 IF $$GET1^DIQ(44,SDCL,2502,"I")="Y"
QUIT
+17 SET SDCOUNT=SDCOUNT+1
End DoDot:2
IF SDCOUNT
QUIT
+18 ;if only no-count clinic appts., put on call list
IF SDCOUNT=0
SET SDCNT=0
End DoDot:1
+19 IF SDCNT=0
Begin DoDot:1
+20 ;delete status
SET FDATA(2,DFN_",",1010.161)="@"
+21 ;delete comment
SET FDATA(2,DFN_",",1010.163)="@"
+22 DO FILE^DIE("","FDATA","DPTERR")
End DoDot:1
+23 QUIT
