PSOERXH1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
;;7.0;OUTPATIENT PHARMACY;**467,527,508,581,617,700**;DEC 1997;Build 261
;
Q
; place eRx on Hold
HOLD ;
N MBMSITE,DIE,DA,DR,CURSTAT,CSTATI,LMATCH,LSTAT,SUBFIEN,NEWSTAT,RESP,DIR,RXSTAT,HCOMM,MTYPE
S MBMSITE=$S($$GET1^DIQ(59.7,1,102,"I")="MBM":1,1:0)
Q:'$G(PSOIEN)
D FULL^VALM1 S VALMBCK="R"
I $$DONOTFIL^PSOERXUT(PSOIEN) Q
S MTYPE=$$GET1^DIQ(52.49,PSOIEN,.08,"I")
S RXSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E")
I RXSTAT="RJ"!(RXSTAT="RM")!($G(MBMSITE)&($E(RXSTAT,1,3)="REM"))!(RXSTAT="PR") D Q
.W !!,"Cannot hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
.S DIR(0)="E" D ^DIR
I RXSTAT="RXP"!(RXSTAT="RXC")!(RXSTAT="RXE") D Q
.W !!,"Cannot hold a renewal response record that is in 'Complete', 'Processed', or 'Error' status.",!
; check to see if the erx order status is a hold status
S CSTATI=$$GET1^DIQ(52.49,PSOIEN,1,"I")
S CURSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E")
S VALMBCK="R"
I $E(CURSTAT,1)="H" D Q
.S DIR(0)="YO",DIR("B")="NO"
.S DIR("A",1)="This eRx is already in a 'HOLD' status."
.S DIR("A")="Would you like to change the hold status and comments?"
.D ^DIR
.Q:'Y
.K DIR
.S RESP=$$HDIR(1)
.I 'RESP D Q
..W "Hold Reason required. eRx not placed in a 'Hold' status."
..S DIR(0)="E" D ^DIR
.S DIR(0)="52.4919,1",DIR("A")="Additional Comments (Optional)" D ^DIR K DIR
.I Y="^" W !,"eRx NOT placed on hold." K DIR S DIR(0)="E" D ^DIR Q
.S HCOMM=$G(Y)
.S DIE="52.49",DR="1///"_RESP,DA=PSOIEN D ^DIE K DIE
.S SUBFIEN=$$NSTAT(PSOIEN,RESP,HCOMM)
.K @VALMAR D INIT^PSOERX1
.S PSORFRSH=1
K Y
S RESP=$$HDIR()
I 'RESP D Q
. W "Hold Reason required. eRx not placed in a 'Hold' status."
. S DIR(0)="E" D ^DIR
S DIR(0)="52.4919,1",DIR("A")="Additional Comments (Optional)" D ^DIR K DIR
I Y="^" Q
S HCOMM=Y
S DIE="52.49",DR="1////"_RESP,DA=PSOIEN D ^DIE K DIE
S FDA(52.4919,"+1,"_PSOIEN_",",.01)=$$NOW^XLFDT()
S FDA(52.4919,"+1,"_PSOIEN_",",.02)=RESP
S FDA(52.4919,"+1,"_PSOIEN_",",.03)=$G(DUZ)
S FDA(52.4919,"+1,"_PSOIEN_",",1)=HCOMM
W !,"Updating..."
D UPDATE^DIE(,"FDA","NEWSTAT","ERR") K FDA
S SUBFIEN=$O(NEWSTAT(0)) Q:'SUBFIEN
S SUBFIEN=$G(NEWSTAT(SUBFIEN))
H .5 W "done.",$C(7) H 1
S PSORFRSH=1
; Batch Hold
D BATCHHLD^PSOERXH2(PSOIEN,RESP,HCOMM,"H")
K @VALMAR D INIT^PSOERX1
I $G(VALM("TITLE"))'="eRx Holding Queue Display" K VALMBCK
Q
NSTAT(IEN,STAT,COMM) ;
N SUBFIEN
S FDA(52.4919,"+1,"_IEN_",",.01)=$$NOW^XLFDT()
S FDA(52.4919,"+1,"_IEN_",",.02)=STAT
S FDA(52.4919,"+1,"_IEN_",",.03)=$G(DUZ)
S FDA(52.4919,"+1,"_IEN_",",1)=COMM
D UPDATE^DIE(,"FDA","NEWSTAT") K FDA
S SUBFIEN=$O(NEWSTAT(0)) Q:'SUBFIEN
S SUBFIEN=$G(NEWSTAT(SUBFIEN))
Q SUBFIEN
HDIR(HTYP) ;
N DIC,Y,X
S DIC("A")="Select HOLD reason code: "
S DIC="^PS(52.45,",DIC(0)="AEMQ",DIC("S")="I $D(^PS(52.45,""TYPE"",""ERX"",Y)),$E($P(^PS(52.45,Y,0),U),1)=""H"",$P(^PS(52.45,Y,0),U,1)'=""HC"""
D ^DIC K DIC
I Y<1 Q 0
Q:'+$P(Y,U) 0
Q $P(Y,U)
; remove hold from eRx
UNHOLD ;
N Y,DIR,DIE,DA,DR,NEWSIEN,RXSTAT,RXSTATI,MTYPE,QUIT,PEND,HOLDIEN
D FULL^VALM1 S VALMBCK="R"
I $$DONOTFIL^PSOERXUT(PSOIEN) Q
S MTYPE=$$GET1^DIQ(52.49,PSOIEN,.08,"I")
S PEND=$$GET1^DIQ(52.49,PSOIEN,25.2,"I")
S RXSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E") I RXSTAT="RJ"!(RXSTAT="RM")!($G(MBMSITE)&($E(RXSTAT,1,3)="REM"))!(RXSTAT="PR") D Q
.W !!,"Cannot un-hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
.S DIR(0)="E" D ^DIR
W !
I $E($$GET1^DIQ(52.49,PSOIEN,1,"E"),1)'="H" D Q
.W !,"This eRx is not currently on hold. Please use the 'Hold'",!,"function to update the hold status and comments.",!!
.K DIR S DIR(0)="E"
.D ^DIR
.K @VALMAR D INIT^PSOERX1
; Un-Hold Comments
S DIR(0)="52.4919,1",DIR("A")="Additional Comments (Optional)" D ^DIR K DIR
I Y="^" Q
S UHCOMM=$G(Y)
S HOLDIEN=$$GET1^DIQ(52.49,PSOIEN,1,"I")
;
I RXSTAT="HC" D
.W !,"A change request has been generated for this NewRx record.",!,"Are you sure you like to unhold this prescription?"
.K DIR S DIR(0)="Y",DIR("B")="Y" D ^DIR
.I Y<1 S QUIT=1
I $G(QUIT) Q
; return processed records to PR - processed, so they cannot be finished again.
I PEND,RXSTAT="HC" D Q
.I PEND D
..S RXSTATI=$$PRESOLV^PSOERXA1("PR","ERX")
..D UPDSTAT^PSOERXU1(PSOIEN,"PR",UHCOMM)
.I 'PEND D
..N LSFOUND,LSLOOP,STDAT,LSTAT,LKNOWN,LKNOWNE
..S LSFOUND=0
..I '$D(^PS(52.49,PSOIEN,19)) D
...I MTYPE="N" S LKNOWNE="I"
...I MTYPE="RE" S LKNOWNE="RXI"
...I MTYPE="CX" S LKNOWNE="CXI"
..S LSLOOP=99999 F S LSLOOP=$O(^PS(52.49,PSOIEN,19,LSLOOP),-1) Q:'LSLOOP!(LSFOUND) D
...S STDAT=$G(^PS(52.49,PSOIEN,19,LSLOOP,0))
...S LSTAT=$P(STDAT,U,2)
...I $$GET1^DIQ(52.45,LSTAT,.01,"E")="HC" D S LSFOUND=1
....S LKNOWN=$O(^PS(52.49,PSOIEN,19,LSLOOP),-1)
....S LKNOWNE=$$GET1^DIQ(52.4919,LKNOWN_","_PSOIEN_",",.02,"E")
...I LKNOWNE="N"!(LKNOWNE="") S LKNOWNE="I"
..S RXSTATI=$$PRESOLV^PSOERXA1(LKNOWNE,"ERX")
..D UPDSTAT^PSOERXU1(PSOIEN,LKNOWNE,UHCOMM)
.W !,"eRx removed from hold status, and placed to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'."
.K DIR S DIR(0)="E" D ^DIR K DIR
.K @VALMAR D INIT^PSOERX1
I $$GET1^DIQ(52.49,PSOIEN,1.3,"I"),$$GET1^DIQ(52.49,PSOIEN,1.5,"I"),$$GET1^DIQ(52.49,PSOIEN,1.7,"I") D
.I MTYPE="N" S RXSTATI=$$PRESOLV^PSOERXA1("W","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E") Q
.I MTYPE="RE" S RXSTATI=$$PRESOLV^PSOERXA1("RXW","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
.I MTYPE="CX" S RXSTATI=$$PRESOLV^PSOERXA1("CXW","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
I '$G(RXSTATI),MTYPE="N" S RXSTATI=$$PRESOLV^PSOERXA1("I","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
I '$G(RXSTATI),MTYPE="RE" S RXSTATI=$$PRESOLV^PSOERXA1("RXI","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
I '$G(RXSTATI),MTYPE="CX" S RXSTATI=$$PRESOLV^PSOERXA1("CXI","ERX"),RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
D UPDSTAT^PSOERXU1(PSOIEN,RXSTAT,UHCOMM)
W !,"eRx removed from hold status, and placed to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'."
K DIR S DIR(0)="E" D ^DIR K DIR
;Batch Un-Hold
D BATCHHLD^PSOERXH2(PSOIEN,HOLDIEN,UHCOMM,"U")
K @VALMAR D INIT^PSOERX1
I $G(VALM("TITLE"))'="eRx Holding Queue Display" K VALMBCK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOERXH1 6325 printed Apr 09, 2024@21:38:32 Page 2
PSOERXH1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
+1 ;;7.0;OUTPATIENT PHARMACY;**467,527,508,581,617,700**;DEC 1997;Build 261
+2 ;
+3 QUIT
+4 ; place eRx on Hold
HOLD ;
+1 NEW MBMSITE,DIE,DA,DR,CURSTAT,CSTATI,LMATCH,LSTAT,SUBFIEN,NEWSTAT,RESP,DIR,RXSTAT,HCOMM,MTYPE
+2 SET MBMSITE=$SELECT($$GET1^DIQ(59.7,1,102,"I")="MBM":1,1:0)
+3 if '$GET(PSOIEN)
QUIT
+4 DO FULL^VALM1
SET VALMBCK="R"
+5 IF $$DONOTFIL^PSOERXUT(PSOIEN)
QUIT
+6 SET MTYPE=$$GET1^DIQ(52.49,PSOIEN,.08,"I")
+7 SET RXSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E")
+8 IF RXSTAT="RJ"!(RXSTAT="RM")!($GET(MBMSITE)&($EXTRACT(RXSTAT,1,3)="REM"))!(RXSTAT="PR")
Begin DoDot:1
+9 WRITE !!,"Cannot hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
+10 SET DIR(0)="E"
DO ^DIR
End DoDot:1
QUIT
+11 IF RXSTAT="RXP"!(RXSTAT="RXC")!(RXSTAT="RXE")
Begin DoDot:1
+12 WRITE !!,"Cannot hold a renewal response record that is in 'Complete', 'Processed', or 'Error' status.",!
End DoDot:1
QUIT
+13 ; check to see if the erx order status is a hold status
+14 SET CSTATI=$$GET1^DIQ(52.49,PSOIEN,1,"I")
+15 SET CURSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E")
+16 SET VALMBCK="R"
+17 IF $EXTRACT(CURSTAT,1)="H"
Begin DoDot:1
+18 SET DIR(0)="YO"
SET DIR("B")="NO"
+19 SET DIR("A",1)="This eRx is already in a 'HOLD' status."
+20 SET DIR("A")="Would you like to change the hold status and comments?"
+21 DO ^DIR
+22 if 'Y
QUIT
+23 KILL DIR
+24 SET RESP=$$HDIR(1)
+25 IF 'RESP
Begin DoDot:2
+26 WRITE "Hold Reason required. eRx not placed in a 'Hold' status."
+27 SET DIR(0)="E"
DO ^DIR
End DoDot:2
QUIT
+28 SET DIR(0)="52.4919,1"
SET DIR("A")="Additional Comments (Optional)"
DO ^DIR
KILL DIR
+29 IF Y="^"
WRITE !,"eRx NOT placed on hold."
KILL DIR
SET DIR(0)="E"
DO ^DIR
QUIT
+30 SET HCOMM=$GET(Y)
+31 SET DIE="52.49"
SET DR="1///"_RESP
SET DA=PSOIEN
DO ^DIE
KILL DIE
+32 SET SUBFIEN=$$NSTAT(PSOIEN,RESP,HCOMM)
+33 KILL @VALMAR
DO INIT^PSOERX1
+34 SET PSORFRSH=1
End DoDot:1
QUIT
+35 KILL Y
+36 SET RESP=$$HDIR()
+37 IF 'RESP
Begin DoDot:1
+38 WRITE "Hold Reason required. eRx not placed in a 'Hold' status."
+39 SET DIR(0)="E"
DO ^DIR
End DoDot:1
QUIT
+40 SET DIR(0)="52.4919,1"
SET DIR("A")="Additional Comments (Optional)"
DO ^DIR
KILL DIR
+41 IF Y="^"
QUIT
+42 SET HCOMM=Y
+43 SET DIE="52.49"
SET DR="1////"_RESP
SET DA=PSOIEN
DO ^DIE
KILL DIE
+44 SET FDA(52.4919,"+1,"_PSOIEN_",",.01)=$$NOW^XLFDT()
+45 SET FDA(52.4919,"+1,"_PSOIEN_",",.02)=RESP
+46 SET FDA(52.4919,"+1,"_PSOIEN_",",.03)=$GET(DUZ)
+47 SET FDA(52.4919,"+1,"_PSOIEN_",",1)=HCOMM
+48 WRITE !,"Updating..."
+49 DO UPDATE^DIE(,"FDA","NEWSTAT","ERR")
KILL FDA
+50 SET SUBFIEN=$ORDER(NEWSTAT(0))
if 'SUBFIEN
QUIT
+51 SET SUBFIEN=$GET(NEWSTAT(SUBFIEN))
+52 HANG .5
WRITE "done.",$CHAR(7)
HANG 1
+53 SET PSORFRSH=1
+54 ; Batch Hold
+55 DO BATCHHLD^PSOERXH2(PSOIEN,RESP,HCOMM,"H")
+56 KILL @VALMAR
DO INIT^PSOERX1
+57 IF $GET(VALM("TITLE"))'="eRx Holding Queue Display"
KILL VALMBCK
+58 QUIT
NSTAT(IEN,STAT,COMM) ;
+1 NEW SUBFIEN
+2 SET FDA(52.4919,"+1,"_IEN_",",.01)=$$NOW^XLFDT()
+3 SET FDA(52.4919,"+1,"_IEN_",",.02)=STAT
+4 SET FDA(52.4919,"+1,"_IEN_",",.03)=$GET(DUZ)
+5 SET FDA(52.4919,"+1,"_IEN_",",1)=COMM
+6 DO UPDATE^DIE(,"FDA","NEWSTAT")
KILL FDA
+7 SET SUBFIEN=$ORDER(NEWSTAT(0))
if 'SUBFIEN
QUIT
+8 SET SUBFIEN=$GET(NEWSTAT(SUBFIEN))
+9 QUIT SUBFIEN
HDIR(HTYP) ;
+1 NEW DIC,Y,X
+2 SET DIC("A")="Select HOLD reason code: "
+3 SET DIC="^PS(52.45,"
SET DIC(0)="AEMQ"
SET DIC("S")="I $D(^PS(52.45,""TYPE"",""ERX"",Y)),$E($P(^PS(52.45,Y,0),U),1)=""H"",$P(^PS(52.45,Y,0),U,1)'=""HC"""
+4 DO ^DIC
KILL DIC
+5 IF Y<1
QUIT 0
+6 if '+$PIECE(Y,U)
QUIT 0
+7 QUIT $PIECE(Y,U)
+8 ; remove hold from eRx
UNHOLD ;
+1 NEW Y,DIR,DIE,DA,DR,NEWSIEN,RXSTAT,RXSTATI,MTYPE,QUIT,PEND,HOLDIEN
+2 DO FULL^VALM1
SET VALMBCK="R"
+3 IF $$DONOTFIL^PSOERXUT(PSOIEN)
QUIT
+4 SET MTYPE=$$GET1^DIQ(52.49,PSOIEN,.08,"I")
+5 SET PEND=$$GET1^DIQ(52.49,PSOIEN,25.2,"I")
+6 SET RXSTAT=$$GET1^DIQ(52.49,PSOIEN,1,"E")
IF RXSTAT="RJ"!(RXSTAT="RM")!($GET(MBMSITE)&($EXTRACT(RXSTAT,1,3)="REM"))!(RXSTAT="PR")
Begin DoDot:1
+7 WRITE !!,"Cannot un-hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
+8 SET DIR(0)="E"
DO ^DIR
End DoDot:1
QUIT
+9 WRITE !
+10 IF $EXTRACT($$GET1^DIQ(52.49,PSOIEN,1,"E"),1)'="H"
Begin DoDot:1
+11 WRITE !,"This eRx is not currently on hold. Please use the 'Hold'",!,"function to update the hold status and comments.",!!
+12 KILL DIR
SET DIR(0)="E"
+13 DO ^DIR
+14 KILL @VALMAR
DO INIT^PSOERX1
End DoDot:1
QUIT
+15 ; Un-Hold Comments
+16 SET DIR(0)="52.4919,1"
SET DIR("A")="Additional Comments (Optional)"
DO ^DIR
KILL DIR
+17 IF Y="^"
QUIT
+18 SET UHCOMM=$GET(Y)
+19 SET HOLDIEN=$$GET1^DIQ(52.49,PSOIEN,1,"I")
+20 ;
+21 IF RXSTAT="HC"
Begin DoDot:1
+22 WRITE !,"A change request has been generated for this NewRx record.",!,"Are you sure you like to unhold this prescription?"
+23 KILL DIR
SET DIR(0)="Y"
SET DIR("B")="Y"
DO ^DIR
+24 IF Y<1
SET QUIT=1
End DoDot:1
+25 IF $GET(QUIT)
QUIT
+26 ; return processed records to PR - processed, so they cannot be finished again.
+27 IF PEND
IF RXSTAT="HC"
Begin DoDot:1
+28 IF PEND
Begin DoDot:2
+29 SET RXSTATI=$$PRESOLV^PSOERXA1("PR","ERX")
+30 DO UPDSTAT^PSOERXU1(PSOIEN,"PR",UHCOMM)
End DoDot:2
+31 IF 'PEND
Begin DoDot:2
+32 NEW LSFOUND,LSLOOP,STDAT,LSTAT,LKNOWN,LKNOWNE
+33 SET LSFOUND=0
+34 IF '$DATA(^PS(52.49,PSOIEN,19))
Begin DoDot:3
+35 IF MTYPE="N"
SET LKNOWNE="I"
+36 IF MTYPE="RE"
SET LKNOWNE="RXI"
+37 IF MTYPE="CX"
SET LKNOWNE="CXI"
End DoDot:3
+38 SET LSLOOP=99999
FOR
SET LSLOOP=$ORDER(^PS(52.49,PSOIEN,19,LSLOOP),-1)
if 'LSLOOP!(LSFOUND)
QUIT
Begin DoDot:3
+39 SET STDAT=$GET(^PS(52.49,PSOIEN,19,LSLOOP,0))
+40 SET LSTAT=$PIECE(STDAT,U,2)
+41 IF $$GET1^DIQ(52.45,LSTAT,.01,"E")="HC"
Begin DoDot:4
+42 SET LKNOWN=$ORDER(^PS(52.49,PSOIEN,19,LSLOOP),-1)
+43 SET LKNOWNE=$$GET1^DIQ(52.4919,LKNOWN_","_PSOIEN_",",.02,"E")
End DoDot:4
SET LSFOUND=1
+44 IF LKNOWNE="N"!(LKNOWNE="")
SET LKNOWNE="I"
End DoDot:3
+45 SET RXSTATI=$$PRESOLV^PSOERXA1(LKNOWNE,"ERX")
+46 DO UPDSTAT^PSOERXU1(PSOIEN,LKNOWNE,UHCOMM)
End DoDot:2
+47 WRITE !,"eRx removed from hold status, and placed to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'."
+48 KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
+49 KILL @VALMAR
DO INIT^PSOERX1
End DoDot:1
QUIT
+50 IF $$GET1^DIQ(52.49,PSOIEN,1.3,"I")
IF $$GET1^DIQ(52.49,PSOIEN,1.5,"I")
IF $$GET1^DIQ(52.49,PSOIEN,1.7,"I")
Begin DoDot:1
+51 IF MTYPE="N"
SET RXSTATI=$$PRESOLV^PSOERXA1("W","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
QUIT
+52 IF MTYPE="RE"
SET RXSTATI=$$PRESOLV^PSOERXA1("RXW","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
+53 IF MTYPE="CX"
SET RXSTATI=$$PRESOLV^PSOERXA1("CXW","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
End DoDot:1
+54 IF '$GET(RXSTATI)
IF MTYPE="N"
SET RXSTATI=$$PRESOLV^PSOERXA1("I","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
+55 IF '$GET(RXSTATI)
IF MTYPE="RE"
SET RXSTATI=$$PRESOLV^PSOERXA1("RXI","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
+56 IF '$GET(RXSTATI)
IF MTYPE="CX"
SET RXSTATI=$$PRESOLV^PSOERXA1("CXI","ERX")
SET RXSTAT=$$GET1^DIQ(52.45,RXSTATI,.01,"E")
+57 DO UPDSTAT^PSOERXU1(PSOIEN,RXSTAT,UHCOMM)
+58 WRITE !,"eRx removed from hold status, and placed to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'."
+59 KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
+60 ;Batch Un-Hold
+61 DO BATCHHLD^PSOERXH2(PSOIEN,HOLDIEN,UHCOMM,"U")
+62 KILL @VALMAR
DO INIT^PSOERX1
+63 IF $GET(VALM("TITLE"))'="eRx Holding Queue Display"
KILL VALMBCK
+64 QUIT