source:
WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECINPR1.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 352 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | ECINPR1 ;BIR/JPW-After Commit Pre Init for Event Capture ;3 Apr 96 |
2 | ;;2.0; EVENT CAPTURE ;;8 May 96 | |
3 | EN ;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.