SDES2CANCELAPPT1.m

SDES2CANCELAPPT1 ;ALB/MGD - SDES2 CANCEL APPOINTMENT CONT. ; AUG 05 2024

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

 ;;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2CANCELAPPT1   694     printed  Feb 19, 2025@00:19:52                                                                                                                                                                                             Page 2

SDES2CANCELAPPT1 ;ALB/MGD - SDES2 CANCEL APPOINTMENT CONT. ; AUG 05 2024

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

 +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