- ECINPR1 ;BIR/JPW-After Commit Pre Init for Event Capture ;3 Apr 96
- ;;2.0; EVENT CAPTURE ;;8 May 96
- EN ;deleting entries from file 723
- D MES^XPDUTL("Deleting entries from the MEDICAL SPECIALTY file (#723)...")
- 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
- K DA,DIK,EC
- D MES^XPDUTL("Entries deleted")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECINPR1 360 printed Feb 18, 2025@23:23:54 Page 2
- ECINPR1 ;BIR/JPW-After Commit Pre Init for Event Capture ;3 Apr 96
- +1 ;;2.0; EVENT CAPTURE ;;8 May 96
- EN ;deleting entries from file 723
- +1 DO MES^XPDUTL("Deleting entries from the MEDICAL SPECIALTY file (#723)...")
- +2 SET DIK="^ECC(723,"
- SET EC=0
- FOR
- SET EC=$ORDER(^ECC(723,EC))
- if 'EC
- QUIT
- IF $DATA(^ECC(723,EC,0))
- SET DA=EC
- DO ^DIK
- +3 KILL DA,DIK,EC
- +4 DO MES^XPDUTL("Entries deleted")
- +5 QUIT