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

EC2P146A.m

Go to the documentation of this file.
  1. EC2P146A ;ALB/DBE - EC National Procedure Update;11/28/18 12:00pm
  1. ;;2.0;EVENT CAPTURE;**146**;8 May 96;Build 4
  1. ;
  1. ;this routine is used as a post-init in a KIDS build
  1. ;to modify the EC National Procedure file (#725)
  1. ;
  1. Q
  1. ;
  1. POST ; entry point
  1. D MES^XPDUTL(" ")
  1. D MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
  1. D MES^XPDUTL(" ")
  1. ;* add new/edit national procedures
  1. D ADDPROC^EC2P146B ;add new procedures
  1. ;D NAMECHG^ ;change description - No MID-FY19 Request
  1. ;D CPTCHG^ ;change CPT code - No MID-FY19 Request
  1. D INACT^EC2P146C ;inactivate code
  1. ;
  1. ;create task to inspect event code screens
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
  1. D MES^XPDUTL("for 04/02/19 at 1:00 AM. If this patch is installed after that time")
  1. D MES^XPDUTL("the inspection will queue immediately.")
  1. N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
  1. S ZTRTN="INACTSCR^ECUTL3(1)",ZTDTH=3190402.0100,ZTDESC="Inspecting EC Event Code Screens file",ZTIO="" D ^%ZTLOAD
  1. D BMES^XPDUTL("Done. Task: "_$G(ZTSK)_" has been created for this job.")
  1. D MES^XPDUTL("You will receive a MailMan message with the results on 04/02/19.")
  1. ;
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
  1. D MES^XPDUTL(" ")
  1. Q