- 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
