XU8P679.m

XU8P679 ; XU/LLB - EPIP XU*8.0*679 Preinstall routine ;Feb 8,2018@17:20

 ;;8.0;KERNEL;**679**;Jul 10, 1995;Build 27

FIX ; Deletes existing entries in EDUCATION file (#20.11) before install

 D BMES^XPDUTL("EDUCATION file (#20.11) is being cleared.")

 N DIK,D1

 S DIK="^DIC(20.11,"

 S D1=0

 F  S D1=$O(^DIC(20.11,D1)) Q:(D1'?.N)!(D1=0)  S DA=D1 D ^DIK

 D BMES^XPDUTL("File clearing is complete.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P679   408     printed  Mar 13, 2025@21:13:25                                                                                                                                                                                                      Page 2

XU8P679   ; XU/LLB - EPIP XU*8.0*679 Preinstall routine ;Feb 8,2018@17:20

 +1       ;;8.0;KERNEL;**679**;Jul 10, 1995;Build 27

FIX       ; Deletes existing entries in EDUCATION file (#20.11) before install

 +1        DO BMES^XPDUTL("EDUCATION file (#20.11) is being cleared.")

 +2        NEW DIK,D1

 +3        SET DIK="^DIC(20.11,"

 +4        SET D1=0

 +5        FOR 

               SET D1=$ORDER(^DIC(20.11,D1))

               if (D1'?.N)!(D1=0)

                   QUIT 

               SET DA=D1

               DO ^DIK

 +6        DO BMES^XPDUTL("File clearing is complete.")

 +7        QUIT