MCENV.m

MCENV ; HISC/NCA - Environment Check Routine For Patch 5 ;9/29/95  14:14

 ;;2.3;Medicine;**5**;09/13/1996

CHECK ; Check For Version and exclude Routine Install.

 Q:$$VERSION^XPDUTL("MC")=2.3

 D MES^XPDUTL("Site Not Running Medicine Version 2.3.")

 Q:'$$RTNUP^XPDUTL("MCARPCS1",2)

 Q:'$$RTNUP^XPDUTL("MCBPFTP1",2)

 Q

MCENV     ; HISC/NCA - Environment Check Routine For Patch 5 ;9/29/95  14:14

 +1       ;;2.3;Medicine;**5**;09/13/1996

CHECK     ; Check For Version and exclude Routine Install.

 +1        IF $$VERSION^XPDUTL("MC")=2.3

               QUIT 

 +2        DO MES^XPDUTL("Site Not Running Medicine Version 2.3.")

 +3        IF '$$RTNUP^XPDUTL("MCARPCS1",2)

               QUIT 

 +4        IF '$$RTNUP^XPDUTL("MCBPFTP1",2)

               QUIT 

 +5        QUIT