ACRF211E.m

ACRF211E ;IHS/OIRM/DSD/AEF - PATCH 1 ENVIRONMENT CHECK ROUTINE [ 01/16/2002  9:00 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**1**;JAN 11, 2002

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 ;      DETERMINES IF CORRECT VERSION NUMBER EXISTS

 ;      

 N X,Y

 S Y=$$VERSION^XPDUTL("ADMIN RESOURCE MGT SYSTEM")

 I Y'=$$VER^XPDUTL("ACR*2.1*1") D  Q

 . S XPDQUIT=1

 . S X="This patch is for ARMS version "_$$VER^XPDUTL("ACR*2.1*1")_" but you are running version "_Y_"."

 . D BMES^XPDUTL(X)

 . D BMES^XPDUTL("This patch cannot be installed on your system.")

 ;

 D BMES^XPDUTL("Everything looks OK, you may continue with installation.")

 Q

ACRF211E  ;IHS/OIRM/DSD/AEF - PATCH 1 ENVIRONMENT CHECK ROUTINE [ 01/16/2002  9:00 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;**1**;JAN 11, 2002

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2       ;      DETERMINES IF CORRECT VERSION NUMBER EXISTS

 +3       ;      

 +4        NEW X,Y

 +5        SET Y=$$VERSION^XPDUTL("ADMIN RESOURCE MGT SYSTEM")

 +6        IF Y'=$$VER^XPDUTL("ACR*2.1*1")

               Begin DoDot:1

 +7                SET XPDQUIT=1

 +8                SET X="This patch is for ARMS version "_$$VER^XPDUTL("ACR*2.1*1")_" but you are running version "_Y_"."

 +9                DO BMES^XPDUTL(X)

 +10               DO BMES^XPDUTL("This patch cannot be installed on your system.")

               End DoDot:1

               QUIT 

 +11      ;

 +12       DO BMES^XPDUTL("Everything looks OK, you may continue with installation.")

 +13       QUIT