EC2P140.m

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 ---EC2P140   856     printed  Apr 09, 2024@21:04                                                                                                                                                                                                         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