Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EC2P155

EC2P155.m

Go to the documentation of this file.
EC2P155 ;ALB/JG - Inactive Stop Code DSS Unit Review; JUN 3, 2021@01:23
 ;;2.0;EVENT CAPTURE;**155**;May 8, 1996;Build 1
 ;
 ;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/21 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=3211001.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/21.")
 Q