ECINPR1.m

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 ---ECINPR1   360     printed  Dec 13, 2024@01:57:31                                                                                                                                                                                                      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