MCAIPST.m

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

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