EC2P136 ;ALB/DE - Inactive Stop Code DSS Unit Review ;4/4/17
;;2.0;EVENT CAPTURE;**136**;8 May 96;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
;
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/17 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=3171001.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 10/01/17.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P136 853 printed Dec 13, 2024@01:55 Page 2
EC2P136 ;ALB/DE - Inactive Stop Code DSS Unit Review ;4/4/17
+1 ;;2.0;EVENT CAPTURE;**136**;8 May 96;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 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/17 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=3171001.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 10/01/17.")
+8 QUIT
