SDES2CANCELAPPT1.m

SDES2CANCELAPPT1 ;ALB/MGD,MCB - SDES2 CANCEL APPOINTMENT CONT. ; April 21,2026

 ;;5.3;Scheduling;**886,943**;Aug 13, 1993;Build 5

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

BEFOREEVENT(DFN,APPTSTARTTIME,CLINICIEN,SDATA) ;

 N SDDA,SDCPHDL

 S SDDA=$$SCIEN^SDECU2(DFN,CLINICIEN,APPTSTARTTIME)

 S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN

 D BEFORE^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDCPHDL)

 Q $G(SDDA)

 ;

AFTEREVENT(DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDATA) ;

 N SDCPHDL

 S SDCPHDL=$$HANDLE^SDAMEVT(1)

 S SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN

 D CANCEL^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,2,SDCPHDL)

 Q

 ;

CANCEL40984(SDERRORS,APPTIEN,CANCELREASONIEN,CANBYCLINORPAT,WALKIN,EAS,ROLLBACK) ;

 N IENS,FDA,ERR84

 S IENS=APPTIEN_","

 I WALKIN="YES" D

 .S ROLLBACK(409.84,IENS,.03)=$$GET1^DIQ(409.84,IENS,.03,"I")

 .S ROLLBACK(409.84,IENS,.04)=$$GET1^DIQ(409.84,IENS,.04,"I")

 .S FDA(409.84,IENS,.03)=""

 .S FDA(409.84,IENS,.04)=""

 S FDA(409.84,IENS,.12)=$$NOW^XLFDT

 S FDA(409.84,IENS,.121)=DUZ

 S FDA(409.84,IENS,.122)=CANCELREASONIEN

 S FDA(409.84,IENS,.17)=CANBYCLINORPAT

 S FDA(409.84,IENS,100)=EAS

 L +^SDEC(409.84,APPTIEN):3 I '$T D ERRLOG^SDES2JSON(.SDERRORS,192) Q

 D FILE^DIE("","FDA","ERR84")

 L -^SDEC(409.84,APPTIEN)

 I $D(ERR84) D ERRLOG^SDES2JSON(.SDERRORS,191) Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2CANCELAPPT1   1395     printed  Jul 22, 2026@16:01:54                                                                                                                                                                                            Page 2

SDES2CANCELAPPT1 ;ALB/MGD,MCB - SDES2 CANCEL APPOINTMENT CONT. ; April 21,2026

 +1       ;;5.3;Scheduling;**886,943**;Aug 13, 1993;Build 5

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

BEFOREEVENT(DFN,APPTSTARTTIME,CLINICIEN,SDATA) ;

 +1        NEW SDDA,SDCPHDL

 +2        SET SDDA=$$SCIEN^SDECU2(DFN,CLINICIEN,APPTSTARTTIME)

 +3        SET SDCPHDL=$$HANDLE^SDAMEVT(1)

           SET SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN

 +4        DO BEFORE^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDCPHDL)

 +5        QUIT $GET(SDDA)

 +6       ;

AFTEREVENT(DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDATA) ;

 +1        NEW SDCPHDL

 +2        SET SDCPHDL=$$HANDLE^SDAMEVT(1)

 +3        SET SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN

 +4        DO CANCEL^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,2,SDCPHDL)

 +5        QUIT 

 +6       ;

CANCEL40984(SDERRORS,APPTIEN,CANCELREASONIEN,CANBYCLINORPAT,WALKIN,EAS,ROLLBACK) ;

 +1        NEW IENS,FDA,ERR84

 +2        SET IENS=APPTIEN_","

 +3        IF WALKIN="YES"

               Begin DoDot:1

 +4                SET ROLLBACK(409.84,IENS,.03)=$$GET1^DIQ(409.84,IENS,.03,"I")

 +5                SET ROLLBACK(409.84,IENS,.04)=$$GET1^DIQ(409.84,IENS,.04,"I")

 +6                SET FDA(409.84,IENS,.03)=""

 +7                SET FDA(409.84,IENS,.04)=""

               End DoDot:1

 +8        SET FDA(409.84,IENS,.12)=$$NOW^XLFDT

 +9        SET FDA(409.84,IENS,.121)=DUZ

 +10       SET FDA(409.84,IENS,.122)=CANCELREASONIEN

 +11       SET FDA(409.84,IENS,.17)=CANBYCLINORPAT

 +12       SET FDA(409.84,IENS,100)=EAS

 +13       LOCK +^SDEC(409.84,APPTIEN):3

           IF '$TEST

               DO ERRLOG^SDES2JSON(.SDERRORS,192)

               QUIT 

 +14       DO FILE^DIE("","FDA","ERR84")

 +15       LOCK -^SDEC(409.84,APPTIEN)

 +16       IF $DATA(ERR84)

               DO ERRLOG^SDES2JSON(.SDERRORS,191)

               QUIT 

 +17       QUIT