EC2P151 ;ALB/TXH - Inactive Stop Code DSS Unit Review; JUN 11, 2020@09:53
;;2.0;EVENT CAPTURE;**151**;May 8, 1996;Build 4
;
;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 10/01/20 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=3201001.0100
S 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 10/01/20.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P151 884 printed Oct 16, 2024@17:56:09 Page 2
EC2P151 ;ALB/TXH - Inactive Stop Code DSS Unit Review; JUN 11, 2020@09:53
+1 ;;2.0;EVENT CAPTURE;**151**;May 8, 1996;Build 4
+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 10/01/20 at 1:00 AM. If this patch is installed after that time")
+5 DO MES^XPDUTL("the post-install will queue immediately.")
+6 ;
+7 SET ZTRTN="CHKDSS^ECUTL3"
SET ZTDTH=3201001.0100
+8 SET ZTDESC="Inactivate DSS Units with invalid stop codes"
SET ZTIO=""
+9 DO ^%ZTLOAD
+10 ;
+11 DO BMES^XPDUTL("Done. You will receive a MailMan message with the results on 10/01/20.")
+12 QUIT
