source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECINPR1.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 352 bytes
Line 
1ECINPR1 ;BIR/JPW-After Commit Pre Init for Event Capture ;3 Apr 96
2 ;;2.0; EVENT CAPTURE ;;8 May 96
3EN ;deleting entries from file 723
4 D MES^XPDUTL("Deleting entries from the MEDICAL SPECIALTY file (#723)...")
5 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
6 K DA,DIK,EC
7 D MES^XPDUTL("Entries deleted")
8 Q
Note: See TracBrowser for help on using the repository browser.