PSSCHENV ;BIR/WRT-CMOP-Host environment check routine ; 09/02/97 8:28
;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
; ENVIRONMENTAL CHECK ROUTINE-CMOP HOST
START I ^XMB("NETNAME")'["CMOP-" S XPDQUIT=1 Q
S XQABT1=$H
I ^XMB("NETNAME")?1"CMOP-".E
E S XPDABORT=2 Q
VERSION I '$D(^PS(59.7,1,10)) W !,"Install Aborted. You do not have NDF V. 3.15 loaded." S XPDQUIT=2
I $D(^PS(59.7,1,10)),$P(^PS(59.7,1,10),"^",1)<3.15 W !,"Install Aborted. You do not have NDF V. 3.15 or greater loaded." S XPDQUIT=2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSCHENV 509 printed Dec 13, 2024@02:30:26 Page 2
PSSCHENV ;BIR/WRT-CMOP-Host environment check routine ; 09/02/97 8:28
+1 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
+2 ; ENVIRONMENTAL CHECK ROUTINE-CMOP HOST
START IF ^XMB("NETNAME")'["CMOP-"
SET XPDQUIT=1
QUIT
+1 SET XQABT1=$HOROLOG
+2 IF ^XMB("NETNAME")?1"CMOP-".E
+3 IF '$TEST
SET XPDABORT=2
QUIT
VERSION IF '$DATA(^PS(59.7,1,10))
WRITE !,"Install Aborted. You do not have NDF V. 3.15 loaded."
SET XPDQUIT=2
+1 IF $DATA(^PS(59.7,1,10))
IF $PIECE(^PS(59.7,1,10),"^",1)<3.15
WRITE !,"Install Aborted. You do not have NDF V. 3.15 or greater loaded."
SET XPDQUIT=2
+2 QUIT
