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 ---[H[J[2J[HYS141MCA 785 printed Nov 22, 2024@17:22:21 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
