PSSENVN.m

PSSENVN ;BIR/WRT-Environment check routine ; 09/02/97 8:36

 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 ; ENVIRONMENTAL CHECK ROUTINE

START I ^XMB("NETNAME")?1"CMOP-".E 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 ---PSSENVN   491     printed  Feb 18, 2025@23:57:32                                                                                                                                                                                                      Page 2

PSSENVN   ;BIR/WRT-Environment check routine ; 09/02/97 8:36

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 +2       ; ENVIRONMENTAL CHECK ROUTINE

START      IF ^XMB("NETNAME")?1"CMOP-".E

               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