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

EC2P9PST.m

Go to the documentation of this file.
  1. EC2P9PST ;ALB/GTS/JAP - PATCH EC*2.0*9 Post-Init Rtn ; Feb 13, 1997
  1. ;;2.0; EVENT CAPTURE ;**9**;8 May 96
  1. ;
  1. POST ;Entry point
  1. D INTRO
  1. ;
  1. ;if new entries (iens>489) already added, display message and quit
  1. I $D(^EC(725,490,0)) D Q
  1. .D MES^XPDUTL(" ")
  1. .D MES^XPDUTL(" It appears that patch EC*2*9 was previously installed.")
  1. .D MES^XPDUTL(" ")
  1. .D MES^XPDUTL(" If you wish to repeat the installation of patch EC*2*9,")
  1. .D MES^XPDUTL(" then run CLEAN^EC725CH3 first -- that will delete any")
  1. .D MES^XPDUTL(" entries from EC*2*9 previously added.")
  1. .D MES^XPDUTL(" ")
  1. ;
  1. ;add new entries
  1. I '$D(^EC(725,490)) D ADD^EC725CH3
  1. Q
  1. ;
  1. INTRO ; Message intro
  1. ;;
  1. ;; The purpose of Patch EC*2*9 is to add new entries to the
  1. ;; EC NATIONAL PROCEDURE File (#725). A total of 433 new
  1. ;; entries will be made.
  1. ;;
  1. ;;
  1. ;;QUIT
  1. ;
  1. N TXTVAR
  1. F I=1:1 S TXTVAR=$P($T(INTRO+I),";;",2) Q:TXTVAR="QUIT" DO
  1. .D MES^XPDUTL(TXTVAR)
  1. Q