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

EC2P133.m

Go to the documentation of this file.
EC2P133 ;ALB/DE - FY17 Inactive Stop Code DSS Unit Review ; 4/8/16
 ;;2.0;EVENT CAPTURE;**133**;8 May 96;Build 13
 ;
 ;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/16 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=3161001.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/16.")
 Q