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

EC2P166.m

Go to the documentation of this file.
  1. EC2P166 ;ALB/DTA - Inactive Stop Code DSS Unit Review; JUN 13, 2023@01:19
  1. ;;2.0;EVENT CAPTURE;**166**;May 8, 1996;Build 6
  1. ;
  1. ;This routine is part of a combined build with scheduling to
  1. ;inactivate any DSS units that are set to send no records
  1. ;and have an inactive/invalid stop code.
  1. ;
  1. ; References to %ZTLOAD supported by ICR# 10063
  1. ; References to BMES^XPDUTL supported by ICR# 10141
  1. ; References to MES^XPDUTL supported by ICR# 10141
  1. ;
  1. Q
  1. ;
  1. POST ;post install entry point
  1. N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
  1. D BMES^XPDUTL("Queuing the inactivation of any DSS Units, that are set")
  1. D MES^XPDUTL("to send no records and have an inactive/invalid stop code,")
  1. D MES^XPDUTL("for 10/01/23 at 1:00 AM. If this patch is installed after that time")
  1. D MES^XPDUTL("the post-install will queue immediately.")
  1. ;
  1. S ZTRTN="CHKDSS^ECUTL3",ZTDTH=3231001.0100
  1. S ZTDESC="Inactivate DSS Units with invalid stop codes",ZTIO=""
  1. D ^%ZTLOAD
  1. ;
  1. D BMES^XPDUTL("Done. You will receive a MailMan message with the results.")
  1. Q