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

ECINPR1.m

Go to the documentation of this file.
  1. ECINPR1 ;BIR/JPW-After Commit Pre Init for Event Capture ;3 Apr 96
  1. ;;2.0; EVENT CAPTURE ;;8 May 96
  1. EN ;deleting entries from file 723
  1. D MES^XPDUTL("Deleting entries from the MEDICAL SPECIALTY file (#723)...")
  1. S DIK="^ECC(723,",EC=0 F S EC=$O(^ECC(723,EC)) Q:'EC I $D(^ECC(723,EC,0)) S DA=EC D ^DIK
  1. K DA,DIK,EC
  1. D MES^XPDUTL("Entries deleted")
  1. Q