PSXHENV.m

PSXHENV ;BIR/BAB-CMOP Environment Check-HOST ;[ 04/08/97   2:06 PM ]

 ;;2.0;CMOP;;11 Apr 97

START I ^XMB("NETNAME")'["CMOP-" S XPDQUIT=1 Q

 S XQABT1=$H

 S ERROR=0

 I ^XMB("NETNAME")?1"CMOP-".E W !!,"Consolidated Mail Outpatient Pharmacy Install for Host Facility.",!!

 E  S XPDABORT=2 Q

DUZ S PSXDZ=$S(('($D(DUZ)#2)):1,'$D(^VA(200,DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) I PSXDZ=1 W !!,"You must be a valid user and ",!,"DUZ(0) must be set to the ""@"" sign!!",!! S XPDABORT=2 Q

CKDT I '$D(DT) S %DT="",X="T" D ^%DT S DT=Y

CKU S PSX=0 I $D(DUZ),DUZ(0)="@",$D(DT),$D(U),PSXDZ=0 G QUIT:$G(ERROR) D ENV G DONE

QUIT ;

 S XPDABORT=2 I $G(ERROR)=1 K PSX,PSXDZ,ERROR Q

DONE I $G(PSXDZ)=0,HOST=1,OP=0,NDF=1,KNL=1 S PSX=1

 I $G(PSXDZ)=0,HOST=0,OP=1,NDF=1,KNL=1 S PSX=1

 S:ERROR=1 PSX=0 K ERROR

 I PSX=0 S XPDABORT=2 W !,"INITIALIZATION ABORTED"

 K PSX,PKG,KNL,NDF,OP,HOST,PSXDZ,ERROR

 S (XQABT2,XQABT3)=$H

 Q

ENV ;

 S (HOST,OP,NDF,KNL)=0

 S:^XMB("NETNAME")?1"CMOP-".E HOST=1

 ;I $D(^DIC(9.4,"B","OUTPATIENT PHARMACY")) S PKG=$O(^DIC(9.4,"B","OUTPATIENT PHARMACY",0)) I $G(^DIC(9.4,+PKG,"VERSION"))'<"6.0" S OP=1

 ;I OP'=1,(^XMB("NETNAME")'?1"CMOP-".E) W !,"Outpatient Pharmacy Version 6.0 (or greater) not found.  This version is required to continue CMOP installation."

 I $D(^DIC(9.4,"B","KERNEL")) S PKG=$O(^DIC(9.4,"B","KERNEL",0)) I $G(^DIC(9.4,+PKG,"VERSION"))'<"8.0" S KNL=1

 I KNL'=1 W !,"Kernel Version 8.0 (or greater) not found.  This version is required to continue CMOP installation."

 I $D(^DIC(9.4,"B","NATIONAL DRUG FILE")) S PKG=$O(^DIC(9.4,"B","NATIONAL DRUG FILE",0)) I $G(^DIC(9.4,+PKG,"VERSION"))'<"3.16" S NDF=1

 I NDF'=1 W !,"National Drug File Version 3.16 (or greater) not found.  This version is required to continue CMOP installation."

 Q

PSXHENV   ;BIR/BAB-CMOP Environment Check-HOST ;[ 04/08/97   2:06 PM ]

 +1       ;;2.0;CMOP;;11 Apr 97

START      IF ^XMB("NETNAME")'["CMOP-"

               SET XPDQUIT=1

               QUIT 

 +1        SET XQABT1=$HOROLOG

 +2        SET ERROR=0

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

               WRITE !!,"Consolidated Mail Outpatient Pharmacy Install for Host Facility.",!!

 +4       IF '$TEST

               SET XPDABORT=2

               QUIT 

DUZ        SET PSXDZ=$SELECT(('($DATA(DUZ)#2)):1,'$DATA(^VA(200,DUZ,0)):1,'$DATA(DUZ(0)):1,DUZ(0)'="@":1,1:0)

           IF PSXDZ=1

               WRITE !!,"You must be a valid user and ",!,"DUZ(0) must be set to the ""@"" sign!!",!!

               SET XPDABORT=2

               QUIT 

CKDT       IF '$DATA(DT)

               SET %DT=""

               SET X="T"

               DO ^%DT

               SET DT=Y

CKU        SET PSX=0

           IF $DATA(DUZ)

               IF DUZ(0)="@"

                   IF $DATA(DT)

                       IF $DATA(U)

                           IF PSXDZ=0

                               IF $GET(ERROR)

                                   GOTO QUIT

                               DO ENV

                               GOTO DONE

QUIT      ;

 +1        SET XPDABORT=2

           IF $GET(ERROR)=1

               KILL PSX,PSXDZ,ERROR

               QUIT 

DONE       IF $GET(PSXDZ)=0

               IF HOST=1

                   IF OP=0

                       IF NDF=1

                           IF KNL=1

                               SET PSX=1

 +1        IF $GET(PSXDZ)=0

               IF HOST=0

                   IF OP=1

                       IF NDF=1

                           IF KNL=1

                               SET PSX=1

 +2        IF ERROR=1

               SET PSX=0

           KILL ERROR

 +3        IF PSX=0

               SET XPDABORT=2

               WRITE !,"INITIALIZATION ABORTED"

 +4        KILL PSX,PKG,KNL,NDF,OP,HOST,PSXDZ,ERROR

 +5        SET (XQABT2,XQABT3)=$HOROLOG

 +6        QUIT 

ENV       ;

 +1        SET (HOST,OP,NDF,KNL)=0

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

               SET HOST=1

 +3       ;I $D(^DIC(9.4,"B","OUTPATIENT PHARMACY")) S PKG=$O(^DIC(9.4,"B","OUTPATIENT PHARMACY",0)) I $G(^DIC(9.4,+PKG,"VERSION"))'<"6.0" S OP=1

 +4       ;I OP'=1,(^XMB("NETNAME")'?1"CMOP-".E) W !,"Outpatient Pharmacy Version 6.0 (or greater) not found.  This version is required to continue CMOP installation."

 +5        IF $DATA(^DIC(9.4,"B","KERNEL"))

               SET PKG=$ORDER(^DIC(9.4,"B","KERNEL",0))

               IF $GET(^DIC(9.4,+PKG,"VERSION"))'<"8.0"

                   SET KNL=1

 +6        IF KNL'=1

               WRITE !,"Kernel Version 8.0 (or greater) not found.  This version is required to continue CMOP installation."

 +7        IF $DATA(^DIC(9.4,"B","NATIONAL DRUG FILE"))

               SET PKG=$ORDER(^DIC(9.4,"B","NATIONAL DRUG FILE",0))

               IF $GET(^DIC(9.4,+PKG,"VERSION"))'<"3.16"

                   SET NDF=1

 +8        IF NDF'=1

               WRITE !,"National Drug File Version 3.16 (or greater) not found.  This version is required to continue CMOP installation."

 +9        QUIT