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 ---[H[J[2J[HXU8P679 408 printed Dec 13, 2024@02:08:31 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
