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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMWHEV 476 printed Oct 16, 2024@17:50:54 Page 2
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
