EC2P140 ;ALB/MA - Inactive Stop Code DSS Unit Review ;10/19/17
;;2.0;EVENT CAPTURE;**140**;8 May 96;Build 16
;
;this routine is part of a combined build with scheduling to
;inactivate any DSS units that are set to send no records
;and have an inactive/invalid stop code
;
Q
;
POST ;entry point
N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
D BMES^XPDUTL("Queuing the inactivation of any DSS Units, that are set")
D MES^XPDUTL("to send no records and have an inactive/invalid stop code,")
D MES^XPDUTL("for 04/01/18 at 1:00 AM. If this patch is installed after that time")
D MES^XPDUTL("the post-install will queue immediately.")
S ZTRTN="CHKDSS^ECUTL3",ZTDTH=3180401.0100,ZTDESC="Inactivate DSS Units with invalid stop codes",ZTIO="" D ^%ZTLOAD
D BMES^XPDUTL("Done. You will receive a MailMan message with the results on 04/01/18.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P140 856 printed Nov 22, 2024@17:05:14 Page 2
EC2P140 ;ALB/MA - Inactive Stop Code DSS Unit Review ;10/19/17
+1 ;;2.0;EVENT CAPTURE;**140**;8 May 96;Build 16
+2 ;
+3 ;this routine is part of a combined build with scheduling to
+4 ;inactivate any DSS units that are set to send no records
+5 ;and have an inactive/invalid stop code
+6 ;
+7 QUIT
+8 ;
POST ;entry point
+1 NEW ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
+2 DO BMES^XPDUTL("Queuing the inactivation of any DSS Units, that are set")
+3 DO MES^XPDUTL("to send no records and have an inactive/invalid stop code,")
+4 DO MES^XPDUTL("for 04/01/18 at 1:00 AM. If this patch is installed after that time")
+5 DO MES^XPDUTL("the post-install will queue immediately.")
+6 SET ZTRTN="CHKDSS^ECUTL3"
SET ZTDTH=3180401.0100
SET ZTDESC="Inactivate DSS Units with invalid stop codes"
SET ZTIO=""
DO ^%ZTLOAD
+7 DO BMES^XPDUTL("Done. You will receive a MailMan message with the results on 04/01/18.")
+8 QUIT
