SROATMNO ;BIR/MAM - TRANSMIT NO ASSESSMENT ;12/18/07
;;3.0; Surgery ;**27,38,47,62,68,79,83,81,88,93,95,97,129,125,142,153,160,166**;24 Jun 93;Build 6
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
; Reference to ^DIC(45.3 supported by DBIA #218
;
N SR10SP,SRINTUB,SR95PO,SRLO,SRPID,TDATE K ^TMP("SRA",$J) S SRATOT=0,SRASITE=+$P($$SITE^SROVAR,"^",3),(SRAMNUM,SRACNT)=1
S Z=$E(DT,1,3)-1,SRLO=Z_"0214"
S TDATE=0 F S TDATE=$O(^SRF("AQ",TDATE)) Q:TDATE="" I DT'<TDATE S SRTN=0 F S SRTN=$O(^SRF("AQ",TDATE,SRTN)) Q:'SRTN D SET
S SRATOTM=SRAMNUM D ^SROATM4
Q
SET I $P($G(^SRF(SRTN,.4)),"^",2)="T"!(TDATE<SRLO) K ^SRF("AQ",TDATE,SRTN) Q
I $P($G(^SRF(SRTN,30)),"^")!$P($G(^SRF(SRTN,31)),"^",8)!'$P($G(^SRF(SRTN,.2)),"^",12)!($P($G(^SRF(SRTN,"NON")),"^")="Y") K ^SRF("AQ",TDATE,SRTN) S $P(^SRF(SRTN,.4),"^",2)="" Q
I $P($G(^SRF(SRTN,"RA")),"^",6)="Y",$P($G(^SRF(SRTN,"RA")),"^",2)="N" K ^SRF("AQ",TDATE,SRTN) Q
I $P($G(^SRF(SRTN,0)),"^",9)="" K ^SRF("AQ",TDATE,SRTN) Q
S SR10SP=" " K DA,DIE,DR S DA=SRTN,DIE=130,DR="905///R" D ^DIE K DR,DA,DIE
S SRA(0)=^SRF(SRTN,0),DATE=$E($P(SRA(0),"^",9),1,7),SPEC=$P(SRA(0),"^",4) S:SPEC SPEC=$P(^DIC(45.3,$P(^SRO(137.45,SPEC,0),"^",2),0),"^")
S EMERG=$P(SRA(0),"^",10),EMERG=$S(EMERG="EM":"Y",1:"N")
K SRTECH,SRZ S SRT=0 F S SRT=$O(^SRF(SRTN,6,SRT)) Q:'SRT D ^SROPRIN Q:$D(SRZ)
I $D(SRTECH) S SRINTUB=$P($G(^SRF(SRTN,6,SRT,8)),"^",2)
I '$D(SRTECH) S (SRTECH,SRINTUB)=""
S CPT=$P($G(^SRO(136,SRTN,0)),"^",2),SRPMOD="" I CPT S CPT=$P($$CPT^ICPTCOD(CPT),"^",2) D
.S SRM=0,SRCNT=1 F S SRM=$O(^SRO(136,SRTN,1,SRM)) Q:'SRM D Q:SRCNT>5
..S X=$P(^SRO(136,SRTN,1,SRM,0),"^") I X S Y=$P($$MOD^ICPTMOD(X,"I"),"^",2),SRPMOD=SRPMOD_Y,SRCNT=SRCNT+1
S DFN=$P(SRA(0),"^") N I D DEM^VADPT S SRDOB=$E($P(VADM(3),"^"),1,7),SRDEATH=$P(VADM(6),U)
S SRPID=VA("PID"),SRPID=$TR(SRPID,"-","") ; remove hyphens from PID
S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),"^"),1:""),SRDIV=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)
D RS^SROATM2
S SRMAJMIN=$E($P($G(^SRF(SRTN,0)),U,3),1)
S SRDTHUR=$E($P($G(^SRF(SRTN,.4)),U,7),1)
S SRSTATUS=$E($P($G(^SRF(SRTN,0)),U,12),1) I SRSTATUS'="I"&(SRSTATUS'="O") S VAIP("D")=$P(SRA(0),"^",9) D IN5^VADPT S SRSTATUS=$S(VAIP(13):"I",1:"O") K VAIP
S SRAGE="" I $P(VADM(3),"^") S SRAGE=$E(DATE,1,3)-$E($P(VADM(3),"^"),1,3)-($E(DATE,4,7)<$E($P(VADM(3),"^"),4,7))
S SRASA="",Y=$P($G(^SRF(SRTN,1.1)),"^",3) S:Y X=$P($P($G(^SRO(132.8,Y,0)),"^"),"-"),SRASA=$E(X,1,2)
; Admission wi 14 days following outpatient surgery due to an Occurrence
S (SRADMIT,SRADMT)=0 I SRSTATUS="O" D ADM^SROQ0A S SRADMIT=$S(SRADMT=0:"0",1:"1")
S EXC=$P($G(^SRF(SRTN,"RA")),"^",7),SRWOUND=$P($G(^SRF(SRTN,"1.0")),"^",8)
D OCC
S SRNODE=" X" S:$P($G(^SRF(SRTN,"RA")),U,6)="N" SRNODE=" *" S:$P($G(^SRF(SRTN,"RA")),U,2)="C" SRNODE=" C"
S SRTEMP="/"_$J(SRASITE,3)_$J(SRTN,7)_SRNODE_$J(DATE,7)_$J(SRTECH,3)_$J(EMERG,1)_$J(SPEC,3)_$J(CPT,5)_$J(EXC,1)_$J(SRPID,20)_$J(SRDIV,6)_" "
S SRTEMP=SRTEMP_$J(SRMAJMIN,1)_$J($E(SRDEATH,1,7),7)_$J(SRDTHUR,1)_$J(SRSTATUS,1)_$J(SRAGE,3)_$J(SRASA,2)_$J(SRADMIT,1)_SRTMP
K CPT,SRMOD F SRZ=1:1:10 S (CPT(SRZ),SRMOD(SRZ))=""
S (OPS,CNT)=0 F S OPS=$O(^SRO(136,SRTN,3,OPS)) Q:'OPS!(CNT=10) S CNT=CNT+1,X=$P($G(^SRO(136,SRTN,3,OPS,0)),"^") I X S CPT(CNT)=$P($$CPT^ICPTCOD(X),"^",2) D MOD
S SRCC=$P($G(^SRF(SRTN,"CON")),"^"),SRBLANK=" "
I SRCC,$P($G(^SRF(SRCC,30)),"^")!($P($G(^SRF(SRCC,31)),"^",8)) S SRCC=""
S SRTEMP=SRTEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)_$J(CPT(7),5)_$J(CPT(8),5)_$J(CPT(9),5)_$J(CPT(10),5)_$J(SRWOUND,2)_$J(SROCTYPE,1)_SRBLANK_$J(SRCC,10)_$J(SRDEATH,12)
S ^TMP("SRA",$J,SRAMNUM,SRACNT,0)=SRTEMP,SRACNT=SRACNT+1
S SRICD=$P($G(^SRO(136,SRTN,0)),"^",3) S:SRICD SRICD=$P(^ICD9(SRICD,0),"^")
S SRA(.2)=$G(^SRF(SRTN,.2))
S SRTEMP="/"_$J(SRASITE,3)_$J(SRTN,7)_" B"_$J($E($P(SRA(.2),"^"),1,12),12)_$J($E($P(SRA(.2),"^",4),1,12),12)_$E(SRPMOD_SR10SP,1,10)
F I=1:1:10 S SRTEMP=SRTEMP_$E(SRMOD(I)_SR10SP,1,10)
S ^TMP("SRA",$J,SRAMNUM,SRACNT,0)=SRTEMP_$J(SRINTUB,1)_SR95PO_$J(SRATT,2)_$J(SRDOB,7)_$J(SRICD,6)_$J(SROC(38),2),SRACNT=SRACNT+1
I SRACNT>100 S SRACNT=1,SRAMNUM=SRAMNUM+1
S SRATOT=SRATOT+1
S X=$E($P(^SRF(SRTN,0),"^",9),1,5)_"00",^TMP("SRWL",$J,X)=""
K DATE,ANES,EMERG,EXC,SPEC,SRADMIT,SRADMT,SRATT,SRBLANK,SRCC,SRDIV,SRDOB,SRDTHUR,SRICD,SRIO,SRMAJMIN,SROCTYPE,SRTEMP,SRTMP,SRWOUND,SRZ,SR14,CPT
Q
OCC ; total of each occurrence by category
N SRIOFLAG,SRPOFLAG
F SRK=1:1:38 S SROC(SRK)=""
S (SRPO,SRIOFLAG)=0 F S SRPO=$O(^SRF(SRTN,10,SRPO)) Q:'SRPO S SRSUB=$P(^SRF(SRTN,10,SRPO,0),U,2) I SRSUB'="" D
.S SROC(SRSUB)=SROC(SRSUB)+1,SRIOFLAG=1
S (SRPO,SRPOFLAG)=0 F S SRPO=$O(^SRF(SRTN,16,SRPO)) Q:'SRPO S SRSUB=$P(^SRF(SRTN,16,SRPO,0),U,2) I SRSUB'="" D
.S SROC(SRSUB)=SROC(SRSUB)+1,SRPOFLAG=1
S (SROCTYPE,SRTMP)="" F SRK=1:1:10 S SRTMP=SRTMP_$J(SROC(SRK),2)
S SRTMP=SRTMP_$J(SROC(37),2) F SRK=12:1:32 S SRTMP=SRTMP_$J(SROC(SRK),2)
S SR95PO=$J(SROC(33),2)_$J(SROC(34),2)_$J(SROC(35),2)_$J(SROC(36),2)
I SRIOFLAG=1,(SRPOFLAG=0) S SROCTYPE="I"
I SRIOFLAG=0,(SRPOFLAG=1) S SROCTYPE="P"
I SRIOFLAG=1,(SRPOFLAG=1) S SROCTYPE="B"
I SRIOFLAG=0,(SRPOFLAG=0) S SROCTYPE=""
Q
MOD N SRM S SRM=0,SRCNT=1 F S SRM=$O(^SRO(136,SRTN,3,OPS,1,SRM)) Q:'SRM D Q:SRCNT>5
.S X=$P(^SRO(136,SRTN,3,OPS,1,SRM,0),"^"),Y=$P($$MOD^ICPTMOD(X,"I"),"^",2)
.I Y'="" S SRMOD(CNT)=SRMOD(CNT)_Y,SRCNT=SRCNT+1
Q
SROATMNO ;BIR/MAM - TRANSMIT NO ASSESSMENT ;12/18/07
+1 ;;3.0; Surgery ;**27,38,47,62,68,79,83,81,88,93,95,97,129,125,142,153,160,166**;24 Jun 93;Build 6
+2 ;** NOTICE: This routine is part of an implementation of a nationally
+3 ;** controlled procedure. Local modifications to this routine
+4 ;** are prohibited.
+5 ;
+6 ; Reference to ^DIC(45.3 supported by DBIA #218
+7 ;
+8 NEW SR10SP,SRINTUB,SR95PO,SRLO,SRPID,TDATE
KILL ^TMP("SRA",$JOB)
SET SRATOT=0
SET SRASITE=+$PIECE($$SITE^SROVAR,"^",3)
SET (SRAMNUM,SRACNT)=1
+9 SET Z=$EXTRACT(DT,1,3)-1
SET SRLO=Z_"0214"
+10 SET TDATE=0
FOR
SET TDATE=$ORDER(^SRF("AQ",TDATE))
IF TDATE=""
QUIT
IF DT'<TDATE
SET SRTN=0
FOR
SET SRTN=$ORDER(^SRF("AQ",TDATE,SRTN))
IF 'SRTN
QUIT
DO SET
+11 SET SRATOTM=SRAMNUM
DO ^SROATM4
+12 QUIT
SET IF $PIECE($GET(^SRF(SRTN,.4)),"^",2)="T"!(TDATE<SRLO)
KILL ^SRF("AQ",TDATE,SRTN)
QUIT
+1 IF $PIECE($GET(^SRF(SRTN,30)),"^")!$PIECE($GET(^SRF(SRTN,31)),"^",8)!'$PIECE($GET(^SRF(SRTN,.2)),"^",12)!($PIECE($GET(^SRF(SRTN,"NON")),"^")="Y")
KILL ^SRF("AQ",TDATE,SRTN)
SET $PIECE(^SRF(SRTN,.4),"^",2)=""
QUIT
+2 IF $PIECE($GET(^SRF(SRTN,"RA")),"^",6)="Y"
IF $PIECE($GET(^SRF(SRTN,"RA")),"^",2)="N"
KILL ^SRF("AQ",TDATE,SRTN)
QUIT
+3 IF $PIECE($GET(^SRF(SRTN,0)),"^",9)=""
KILL ^SRF("AQ",TDATE,SRTN)
QUIT
+4 SET SR10SP=" "
KILL DA,DIE,DR
SET DA=SRTN
SET DIE=130
SET DR="905///R"
DO ^DIE
KILL DR,DA,DIE
+5 SET SRA(0)=^SRF(SRTN,0)
SET DATE=$EXTRACT($PIECE(SRA(0),"^",9),1,7)
SET SPEC=$PIECE(SRA(0),"^",4)
IF SPEC
SET SPEC=$PIECE(^DIC(45.3,$PIECE(^SRO(137.45,SPEC,0),"^",2),0),"^")
+6 SET EMERG=$PIECE(SRA(0),"^",10)
SET EMERG=$SELECT(EMERG="EM":"Y",1:"N")
+7 KILL SRTECH,SRZ
SET SRT=0
FOR
SET SRT=$ORDER(^SRF(SRTN,6,SRT))
IF 'SRT
QUIT
DO ^SROPRIN
IF $DATA(SRZ)
QUIT
+8 IF $DATA(SRTECH)
SET SRINTUB=$PIECE($GET(^SRF(SRTN,6,SRT,8)),"^",2)
+9 IF '$DATA(SRTECH)
SET (SRTECH,SRINTUB)=""
+10 SET CPT=$PIECE($GET(^SRO(136,SRTN,0)),"^",2)
SET SRPMOD=""
IF CPT
SET CPT=$PIECE($$CPT^ICPTCOD(CPT),"^",2)
Begin DoDot:1
+11 SET SRM=0
SET SRCNT=1
FOR
SET SRM=$ORDER(^SRO(136,SRTN,1,SRM))
IF 'SRM
QUIT
Begin DoDot:2
+12 SET X=$PIECE(^SRO(136,SRTN,1,SRM,0),"^")
IF X
SET Y=$PIECE($$MOD^ICPTMOD(X,"I"),"^",2)
SET SRPMOD=SRPMOD_Y
SET SRCNT=SRCNT+1
End DoDot:2
IF SRCNT>5
QUIT
End DoDot:1
+13 SET DFN=$PIECE(SRA(0),"^")
NEW I
DO DEM^VADPT
SET SRDOB=$EXTRACT($PIECE(VADM(3),"^"),1,7)
SET SRDEATH=$PIECE(VADM(6),U)
+14 ; remove hyphens from PID
SET SRPID=VA("PID")
SET SRPID=$TRANSLATE(SRPID,"-","")
+15 SET X=$$SITE^SROUTL0(SRTN)
SET SRDIV=$SELECT(X:$PIECE(^SRO(133,X,0),"^"),1:"")
SET SRDIV=$SELECT(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)
+16 DO RS^SROATM2
+17 SET SRMAJMIN=$EXTRACT($PIECE($GET(^SRF(SRTN,0)),U,3),1)
+18 SET SRDTHUR=$EXTRACT($PIECE($GET(^SRF(SRTN,.4)),U,7),1)
+19 SET SRSTATUS=$EXTRACT($PIECE($GET(^SRF(SRTN,0)),U,12),1)
IF SRSTATUS'="I"&(SRSTATUS'="O")
SET VAIP("D")=$PIECE(SRA(0),"^",9)
DO IN5^VADPT
SET SRSTATUS=$SELECT(VAIP(13):"I",1:"O")
KILL VAIP
+20 SET SRAGE=""
IF $PIECE(VADM(3),"^")
SET SRAGE=$EXTRACT(DATE,1,3)-$EXTRACT($PIECE(VADM(3),"^"),1,3)-($EXTRACT(DATE,4,7)<$EXTRACT($PIECE(VADM(3),"^"),4,7))
+21 SET SRASA=""
SET Y=$PIECE($GET(^SRF(SRTN,1.1)),"^",3)
IF Y
SET X=$PIECE($PIECE($GET(^SRO(132.8,Y,0)),"^"),"-")
SET SRASA=$EXTRACT(X,1,2)
+22 ; Admission wi 14 days following outpatient surgery due to an Occurrence
+23 SET (SRADMIT,SRADMT)=0
IF SRSTATUS="O"
DO ADM^SROQ0A
SET SRADMIT=$SELECT(SRADMT=0:"0",1:"1")
+24 SET EXC=$PIECE($GET(^SRF(SRTN,"RA")),"^",7)
SET SRWOUND=$PIECE($GET(^SRF(SRTN,"1.0")),"^",8)
+25 DO OCC
+26 SET SRNODE=" X"
IF $PIECE($GET(^SRF(SRTN,"RA")),U,6)="N"
SET SRNODE=" *"
IF $PIECE($GET(^SRF(SRTN,"RA")),U,2)="C"
SET SRNODE=" C"
+27 SET SRTEMP="/"_$JUSTIFY(SRASITE,3)_$JUSTIFY(SRTN,7)_SRNODE_$JUSTIFY(DATE,7)_$JUSTIFY(SRTECH,3)_$JUSTIFY(EMERG,1)_$JUSTIFY(SPEC,3)_$JUSTIFY(CPT,5)_$JUSTIFY(EXC,1)_$JUSTIFY(SRPID,20)_$JUSTIFY(SRDIV,6)_" "
+28 SET SRTEMP=SRTEMP_$JUSTIFY(SRMAJMIN,1)_$JUSTIFY($EXTRACT(SRDEATH,1,7),7)_$JUSTIFY(SRDTHUR,1)_$JUSTIFY(SRSTATUS,1)_$JUSTIFY(SRAGE,3)_$JUSTIFY(SRASA,2)_$JUSTIFY(SRADMIT,1)_SRTMP
+29 KILL CPT,SRMOD
FOR SRZ=1:1:10
SET (CPT(SRZ),SRMOD(SRZ))=""
+30 SET (OPS,CNT)=0
FOR
SET OPS=$ORDER(^SRO(136,SRTN,3,OPS))
IF 'OPS!(CNT=10)
QUIT
SET CNT=CNT+1
SET X=$PIECE($GET(^SRO(136,SRTN,3,OPS,0)),"^")
IF X
SET CPT(CNT)=$PIECE($$CPT^ICPTCOD(X),"^",2)
DO MOD
+31 SET SRCC=$PIECE($GET(^SRF(SRTN,"CON")),"^")
SET SRBLANK=" "
+32 IF SRCC
IF $PIECE($GET(^SRF(SRCC,30)),"^")!($PIECE($GET(^SRF(SRCC,31)),"^",8))
SET SRCC=""
+33 SET SRTEMP=SRTEMP_$JUSTIFY(CPT(1),5)_$JUSTIFY(CPT(2),5)_$JUSTIFY(CPT(3),5)_$JUSTIFY(CPT(4),5)_$JUSTIFY(CPT(5),5)_$JUSTIFY(CPT(6),5)_$JUSTIFY(CPT(7),5)_...
... $JUSTIFY(CPT(8),5)_$JUSTIFY(CPT(9),5)_$JUSTIFY(CPT(10),5)_$JUSTIFY(SRWOUND,2)_$JUSTIFY(SROCTYPE,1)_SRBLANK_$JUSTIFY(SRCC,10)_$JUSTIFY(SRDEATH,12)
+34 SET ^TMP("SRA",$JOB,SRAMNUM,SRACNT,0)=SRTEMP
SET SRACNT=SRACNT+1
+35 SET SRICD=$PIECE($GET(^SRO(136,SRTN,0)),"^",3)
IF SRICD
SET SRICD=$PIECE(^ICD9(SRICD,0),"^")
+36 SET SRA(.2)=$GET(^SRF(SRTN,.2))
+37 SET SRTEMP="/"_$JUSTIFY(SRASITE,3)_$JUSTIFY(SRTN,7)_" B"_$JUSTIFY($EXTRACT($PIECE(SRA(.2),"^"),1,12),12)_$JUSTIFY($EXTRACT($PIECE(SRA(.2),"^",4),1,12),12)_$EXTRACT(SRPMOD_SR10SP,1,10)
+38 FOR I=1:1:10
SET SRTEMP=SRTEMP_$EXTRACT(SRMOD(I)_SR10SP,1,10)
+39 SET ^TMP("SRA",$JOB,SRAMNUM,SRACNT,0)=SRTEMP_$JUSTIFY(SRINTUB,1)_SR95PO_$JUSTIFY(SRATT,2)_$JUSTIFY(SRDOB,7)_$JUSTIFY(SRICD,6)_$JUSTIFY(SROC(38),2)
SET SRACNT=SRACNT+1
+40 IF SRACNT>100
SET SRACNT=1
SET SRAMNUM=SRAMNUM+1
+41 SET SRATOT=SRATOT+1
+42 SET X=$EXTRACT($PIECE(^SRF(SRTN,0),"^",9),1,5)_"00"
SET ^TMP("SRWL",$JOB,X)=""
+43 KILL DATE,ANES,EMERG,EXC,SPEC,SRADMIT,SRADMT,SRATT,SRBLANK,SRCC,SRDIV,SRDOB,SRDTHUR,SRICD,SRIO,SRMAJMIN,SROCTYPE,SRTEMP,SRTMP,SRWOUND,SRZ,SR14,CPT
+44 QUIT
OCC ; total of each occurrence by category
+1 NEW SRIOFLAG,SRPOFLAG
+2 FOR SRK=1:1:38
SET SROC(SRK)=""
+3 SET (SRPO,SRIOFLAG)=0
FOR
SET SRPO=$ORDER(^SRF(SRTN,10,SRPO))
IF 'SRPO
QUIT
SET SRSUB=$PIECE(^SRF(SRTN,10,SRPO,0),U,2)
IF SRSUB'=""
Begin DoDot:1
+4 SET SROC(SRSUB)=SROC(SRSUB)+1
SET SRIOFLAG=1
End DoDot:1
+5 SET (SRPO,SRPOFLAG)=0
FOR
SET SRPO=$ORDER(^SRF(SRTN,16,SRPO))
IF 'SRPO
QUIT
SET SRSUB=$PIECE(^SRF(SRTN,16,SRPO,0),U,2)
IF SRSUB'=""
Begin DoDot:1
+6 SET SROC(SRSUB)=SROC(SRSUB)+1
SET SRPOFLAG=1
End DoDot:1
+7 SET (SROCTYPE,SRTMP)=""
FOR SRK=1:1:10
SET SRTMP=SRTMP_$JUSTIFY(SROC(SRK),2)
+8 SET SRTMP=SRTMP_$JUSTIFY(SROC(37),2)
FOR SRK=12:1:32
SET SRTMP=SRTMP_$JUSTIFY(SROC(SRK),2)
+9 SET SR95PO=$JUSTIFY(SROC(33),2)_$JUSTIFY(SROC(34),2)_$JUSTIFY(SROC(35),2)_$JUSTIFY(SROC(36),2)
+10 IF SRIOFLAG=1
IF (SRPOFLAG=0)
SET SROCTYPE="I"
+11 IF SRIOFLAG=0
IF (SRPOFLAG=1)
SET SROCTYPE="P"
+12 IF SRIOFLAG=1
IF (SRPOFLAG=1)
SET SROCTYPE="B"
+13 IF SRIOFLAG=0
IF (SRPOFLAG=0)
SET SROCTYPE=""
+14 QUIT
MOD NEW SRM
SET SRM=0
SET SRCNT=1
FOR
SET SRM=$ORDER(^SRO(136,SRTN,3,OPS,1,SRM))
IF 'SRM
QUIT
Begin DoDot:1
+1 SET X=$PIECE(^SRO(136,SRTN,3,OPS,1,SRM,0),"^")
SET Y=$PIECE($$MOD^ICPTMOD(X,"I"),"^",2)
+2 IF Y'=""
SET SRMOD(CNT)=SRMOD(CNT)_Y
SET SRCNT=SRCNT+1
End DoDot:1
IF SRCNT>5
QUIT
+3 QUIT
