EC2P163 ;ALB/DTA - Inactive Stop Code DSS Unit Review; JUN 13, 2023@01:19
;;2.0;EVENT CAPTURE;**163**;May 8, 1996;Build 3
;
;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.
;
; References to %ZTLOAD supported by ICR# 10063
; References to BMES^XPDUTL supported by ICR# 10141
; References to MES^XPDUTL supported by ICR# 10141
;
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/23 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=3231001.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/23.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P163 1045 printed Nov 22, 2024@17:05:52 Page 2
EC2P163 ;ALB/DTA - Inactive Stop Code DSS Unit Review; JUN 13, 2023@01:19
+1 ;;2.0;EVENT CAPTURE;**163**;May 8, 1996;Build 3
+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 ; References to %ZTLOAD supported by ICR# 10063
+8 ; References to BMES^XPDUTL supported by ICR# 10141
+9 ; References to MES^XPDUTL supported by ICR# 10141
+10 ;
+11 QUIT
+12 ;
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/23 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=3231001.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/23.")
+12 QUIT
