MCAIPST ; HISC/NCA - Post-Init Conversions ;9/29/95 14:14
;;2.3;Medicine;**5**;09/13/1996
EN1 ; Remove Old MC Routines that Reference FILE 3, 6, or 16
Q:$$VERSION^XPDUTL("MC")'=2.3
F X="MCMENUDE","MCPOS02" X ^%ZOSF("DEL")
K X Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCAIPST 239 printed Dec 13, 2024@02:11:44 Page 2
MCAIPST ; HISC/NCA - Post-Init Conversions ;9/29/95 14:14
+1 ;;2.3;Medicine;**5**;09/13/1996
EN1 ; Remove Old MC Routines that Reference FILE 3, 6, or 16
+1 if $$VERSION^XPDUTL("MC")'=2.3
QUIT
+2 FOR X="MCMENUDE","MCPOS02"
XECUTE ^%ZOSF("DEL")
+3 KILL X
QUIT
