YS141MCA.m

YS141MCA ;SLC/KCM - Patch 141 MoCA Task ; 1/27/2020

 ;;5.01;MENTAL HEALTH;**141**;Dec 30, 1994;Build 85

 ;

SETMOCA ; Set up MoCA attestation to be displayed starting Dec 1,2020

 D EN^XPAR("SYS","YSMOCA ATTESTATION DATE",1,3201201)

 Q

 N ENABLE

 S ENABLE=0 I $$NOW^XLFDT>3200831.2359 S ENABLE=1

 D EN^XPAR("SYS","YSMOCA ATTESTATION ENABLED",1,ENABLE)

 Q

QMOCA ; queue job to enable MoCA attestation

 N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTSK

 S ZTIO=""

 S ZTRTN="DQMOCA^YS141MCA"

 S ZTDESC="Enable MoCA Attestation Dialog on Sep 1, 2020"

 S ZTDTH="65623,120"  ; September 1, 2020 just after midnight

 D ^%ZTLOAD

 I '$G(ZTSK) D MES^XPDUTL("Unable to schedule MoCA update.")

 Q

DQMOCA ; set MoCA attestation enabled

 D EN^XPAR("SYS","YSMOCA ATTESTATION ENABLED",1,1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YS141MCA   785     printed  Apr 23, 2025@18:26:42                                                                                                                                                                                                     Page 2

YS141MCA  ;SLC/KCM - Patch 141 MoCA Task ; 1/27/2020

 +1       ;;5.01;MENTAL HEALTH;**141**;Dec 30, 1994;Build 85

 +2       ;

SETMOCA   ; Set up MoCA attestation to be displayed starting Dec 1,2020

 +1        DO EN^XPAR("SYS","YSMOCA ATTESTATION DATE",1,3201201)

 +2        QUIT 

 +3        NEW ENABLE

 +4        SET ENABLE=0

           IF $$NOW^XLFDT>3200831.2359

               SET ENABLE=1

 +5        DO EN^XPAR("SYS","YSMOCA ATTESTATION ENABLED",1,ENABLE)

 +6        QUIT 

QMOCA     ; queue job to enable MoCA attestation

 +1        NEW ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSAVE,ZTSK

 +2        SET ZTIO=""

 +3        SET ZTRTN="DQMOCA^YS141MCA"

 +4        SET ZTDESC="Enable MoCA Attestation Dialog on Sep 1, 2020"

 +5       ; September 1, 2020 just after midnight

           SET ZTDTH="65623,120"

 +6        DO ^%ZTLOAD

 +7        IF '$GET(ZTSK)

               DO MES^XPDUTL("Unable to schedule MoCA update.")

 +8        QUIT 

DQMOCA    ; set MoCA attestation enabled

 +1        DO EN^XPAR("SYS","YSMOCA ATTESTATION ENABLED",1,1)

 +2        QUIT