MCPRE00 ;HIRMFO/DAD-PRE INSTALLATION DRIVER ;8/2/96  11:04
 ;;2.3;Medicine;;09/13/1996
 ;
 N MCDEL,MCPRE,MCVER
 S MCVER=$P(^XTMP("MC","VER"),U)
 S MCDEL=$P(^XTMP("MC","DEL"),U)
 ;
 I MCVER]"",MCVER<2 D
 . I MCDEL=1 D
 .. S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")
 .. Q
 . E  D
 .. S XPDABORT=2
 .. Q
 . Q
 ;
 I MCVER'<2 D
 . S MCPRE=$$NEWCP^XPDUTL("PRE01","^MCPRE01")
 . S MCPRE=$$NEWCP^XPDUTL("PRE02","^MCPRE02")
 . S MCPRE=$$NEWCP^XPDUTL("PRE03","^MCPRE03")
 . S MCPRE=$$NEWCP^XPDUTL("PRE04","^MCPRE04")
 . S MCPRE=$$NEWCP^XPDUTL("PRE05","^MCPRE05")
 . S MCPRE=$$NEWCP^XPDUTL("PRE06","^MCPRE06")
 . S MCPRE=$$NEWCP^XPDUTL("PRE07","^MCPRE07")
 . S MCPRE=$$NEWCP^XPDUTL("PRE08","^MCPRE08")
 . S MCPRE=$$NEWCP^XPDUTL("PRE0Z","^MCPRE0Z")
 . Q
 Q