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

EC2P136.m

Go to the documentation of this file.
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