PXRMWHEV.m

PXRMWHEV ; SLC/AGP - Environment check for PXRM*2.0*1 ;09/01/2004

 ;;2.0;CLINICAL REMINDERS;**1**;Feb 04, 2005

 ;

ENVCHK ;

 N TEXTI

 I +$$VERSION^XPDUTL("PXRM")'="2" S XPDABORT=1

 I $G(XPDABORT) D

 . S TEXTI(1)="This Patch is for Version 2, you are running Version 1.5."

 . S TEXTI(2)="This Patch cannot be installed until Clinical Reminders version 2 is installed."

 E  D

 . S TEXTI(1)="Environment check passed, ok to install PXRM*2.0*1"

 D EN^DDIOL(.TEXTI)

 Q

PXRMWHEV  ; SLC/AGP - Environment check for PXRM*2.0*1 ;09/01/2004

 +1       ;;2.0;CLINICAL REMINDERS;**1**;Feb 04, 2005

 +2       ;

ENVCHK    ;

 +1        NEW TEXTI

 +2        IF +$$VERSION^XPDUTL("PXRM")'="2"

               SET XPDABORT=1

 +3        IF $GET(XPDABORT)

               Begin DoDot:1

 +4                SET TEXTI(1)="This Patch is for Version 2, you are running Version 1.5."

 +5                SET TEXTI(2)="This Patch cannot be installed until Clinical Reminders version 2 is installed."

               End DoDot:1

 +6       IF '$TEST

               Begin DoDot:1

 +7                SET TEXTI(1)="Environment check passed, ok to install PXRM*2.0*1"

               End DoDot:1

 +8        DO EN^DDIOL(.TEXTI)

 +9        QUIT