- PSXRENV ;BIR/BAB-CMOP Pre-Initialization ;[ 04/08/97 2:06 PM ]
- ;;2.0;CMOP;;11 Apr 97
- START I ^XMB("NETNAME")?1"CMOP-".E S XPDQUIT=1 Q
- S XQABT1=$H
- I ^XMB("NETNAME")'?1"CMOP-".E W !!,"Consolidated Mail Outpatient Pharmacy Install for Remote Medical Center.",!!
- 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
- I ($G(^PSX(550,0))["CMOP SYSTEM^550I")&($P($G(^PSX(550,0)),"^",3)>0) G CKU
- I XPDENV=0 G CKU
- W !!,"This install of the Consolidated Mail Outpatient Pharmacy",!,"software at your medical center requires that you select the CMOP Host",!,"Facility which will be receiving your Outpatient Pharmacy prescription data.",!!
- S DIR(0)="SX^B:BEDFORD;D:DALLAS;L:LEAVENWORTH;W:WEST LA;M:MURFREESBORO;H:HINES",DIR("A")="Select the CMOP to RECEIVE YOUR DATA " D ^DIR K DIR
- I "BDLWMH"'[$E(X) S XPDABORT=2 Q
- S ^TMP("PSXCMOP",$J)="CMOP-"_$S($E(X)="L":"LEAV",$E(X)="B":"BED",$E(X)="D":"DAL",$E(X)="W":"WLA",$E(X)="M":"MURF",$E(X)="H":"HINES")_".DOMAIN.EXT"
- D BMES^XPDUTL("You have chosen "_Y(0)_" CMOP to receive your transmissions.")
- I '$O(^DIC(4.2,"B",^TMP("PSXCMOP",$J),0)) D BMES^XPDUTL("There is no Mailmain Domain entry for "_Y(0)_". Please add this domain to your system and re-run the CMOP installation. Discontinuing installation....") S XPDABORT=2 Q
- CKU S PSX=0 I $D(DUZ),DUZ(0)="@",$D(DT),$D(U),PSXDZ=0 D RXC G QUIT:ERROR D ENV G DONE
- QUIT ;
- S XPDABORT=2 I $G(ERROR)=1 K PSX,PSXDZ,ERROR Q
- DONE 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
- S XPDQUIT("CMOPH 2.0T5")=1
- Q
- ENV ;
- S (HOST,OP,NDF,KNL)=0
- 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
- RXC ;
- W !!,"Validating required RX CONSULT FILE entries......"
- I $G(^DIC(54,0,"GL"))'["^PS(54," W !!,"You must have Outpatient Pharmacy patch PSO*6*148 installed before installing CMOP Software.",!,"...INITIALIZATION ABORTED!",!! S ERROR=1 Q
- S (ERROR,RXC)=0 I '$D(^PS(54)) W !!,"You do not have an RX CONSULT FILE........INITIALIZATION ABORTED!",!! S ERROR=1 Q
- F XC=1:1:20 S YC=$P($T(CON+XC),";;",2) I $P(^PS(54,XC,0),"^")'=YC S ERROR=1 W !,"Your RX CONSULT File entry # "_$G(XC)_" is invalid.!!"
- W:ERROR=1 !!,"INITIALIZATION ABORTED!",!! K RXC,XC,YC
- Q
- CON ;
- ;;DROWSINESS
- ;;FINISH
- ;;EMPTY STOMACH
- ;;NO DAIRY PRODUCTS
- ;;WATER
- ;;DISCOLORATION
- ;;DIURETIC K
- ;;NO ALCOHOL
- ;;ADVICE
- ;;WITH FOOD
- ;;SUNLIGHT
- ;;SHAKE WELL
- ;;EXTERNAL
- ;;STRENGTH
- ;;REFRIGERATE
- ;;DUPLICATE
- ;;EXPIRATION DATE
- ;;NO REFILL
- ;;SAME DRUG
- ;;NO TRANSFER
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXRENV 3536 printed Feb 18, 2025@23:11:15 Page 2
- PSXRENV ;BIR/BAB-CMOP Pre-Initialization ;[ 04/08/97 2:06 PM ]
- +1 ;;2.0;CMOP;;11 Apr 97
- START IF ^XMB("NETNAME")?1"CMOP-".E
- SET XPDQUIT=1
- QUIT
- +1 SET XQABT1=$HOROLOG
- +2 IF ^XMB("NETNAME")'?1"CMOP-".E
- WRITE !!,"Consolidated Mail Outpatient Pharmacy Install for Remote Medical Center.",!!
- 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
- +1 IF ($GET(^PSX(550,0))["CMOP SYSTEM^550I")&($PIECE($GET(^PSX(550,0)),"^",3)>0)
- GOTO CKU
- +2 IF XPDENV=0
- GOTO CKU
- +3 WRITE !!,"This install of the Consolidated Mail Outpatient Pharmacy",!,"software at your medical center requires that you select the CMOP Host",!,"Facility which will be receiving your Outpatient Pharmacy prescription data.",!!
- +4 SET DIR(0)="SX^B:BEDFORD;D:DALLAS;L:LEAVENWORTH;W:WEST LA;M:MURFREESBORO;H:HINES"
- SET DIR("A")="Select the CMOP to RECEIVE YOUR DATA "
- DO ^DIR
- KILL DIR
- +5 IF "BDLWMH"'[$EXTRACT(X)
- SET XPDABORT=2
- QUIT
- +6 SET ^TMP("PSXCMOP",$JOB)="CMOP-"_$SELECT($EXTRACT(X)="L":"LEAV",$EXTRACT(X)="B":"BED",$EXTRACT(X)="D":"DAL",$EXTRACT(X)="W":"WLA",$EXTRACT(X)="M":"MURF",$EXTRACT(X)="H":"HINES")_".DOMAIN.EXT"
- +7 DO BMES^XPDUTL("You have chosen "_Y(0)_" CMOP to receive your transmissions.")
- +8 IF '$ORDER(^DIC(4.2,"B",^TMP("PSXCMOP",$JOB),0))
- DO BMES^XPDUTL("There is no Mailmain Domain entry for "_Y(0)_". Please add this domain to your system and re-run the CMOP installation. Discontinuing installation....")
- SET XPDABORT=2
- QUIT
- CKU SET PSX=0
- IF $DATA(DUZ)
- IF DUZ(0)="@"
- IF $DATA(DT)
- IF $DATA(U)
- IF PSXDZ=0
- DO RXC
- if 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=0
- IF OP=1
- IF NDF=1
- IF KNL=1
- SET PSX=1
- +1 if ERROR=1
- SET PSX=0
- KILL ERROR
- +2 IF PSX=0
- SET XPDABORT=2
- WRITE !,"INITIALIZATION ABORTED"
- +3 KILL PSX,PKG,KNL,NDF,OP,HOST,PSXDZ,ERROR
- +4 SET (XQABT2,XQABT3)=$HOROLOG
- +5 SET XPDQUIT("CMOPH 2.0T5")=1
- +6 QUIT
- ENV ;
- +1 SET (HOST,OP,NDF,KNL)=0
- +2 IF $DATA(^DIC(9.4,"B","OUTPATIENT PHARMACY"))
- SET PKG=$ORDER(^DIC(9.4,"B","OUTPATIENT PHARMACY",0))
- IF $GET(^DIC(9.4,+PKG,"VERSION"))'<"6.0"
- SET OP=1
- +3 IF OP'=1
- IF (^XMB("NETNAME")'?1"CMOP-".E)
- WRITE !,"Outpatient Pharmacy Version 6.0 (or greater) not found. This version is required to continue CMOP installation."
- +4 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
- +5 IF KNL'=1
- WRITE !,"Kernel Version 8.0 (or greater) not found. This version is required to continue CMOP installation."
- +6 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
- +7 IF NDF'=1
- WRITE !,"National Drug File Version 3.16 (or greater) not found. This version is required to continue CMOP installation."
- +8 QUIT
- RXC ;
- +1 WRITE !!,"Validating required RX CONSULT FILE entries......"
- +2 IF $GET(^DIC(54,0,"GL"))'["^PS(54,"
- WRITE !!,"You must have Outpatient Pharmacy patch PSO*6*148 installed before installing CMOP Software.",!,"...INITIALIZATION ABORTED!",!!
- SET ERROR=1
- QUIT
- +3 SET (ERROR,RXC)=0
- IF '$DATA(^PS(54))
- WRITE !!,"You do not have an RX CONSULT FILE........INITIALIZATION ABORTED!",!!
- SET ERROR=1
- QUIT
- +4 FOR XC=1:1:20
- SET YC=$PIECE($TEXT(CON+XC),";;",2)
- IF $PIECE(^PS(54,XC,0),"^")'=YC
- SET ERROR=1
- WRITE !,"Your RX CONSULT File entry # "_$GET(XC)_" is invalid.!!"
- +5 if ERROR=1
- WRITE !!,"INITIALIZATION ABORTED!",!!
- KILL RXC,XC,YC
- +6 QUIT
- CON ;
- +1 ;;DROWSINESS
- +2 ;;FINISH
- +3 ;;EMPTY STOMACH
- +4 ;;NO DAIRY PRODUCTS
- +5 ;;WATER
- +6 ;;DISCOLORATION
- +7 ;;DIURETIC K
- +8 ;;NO ALCOHOL
- +9 ;;ADVICE
- +10 ;;WITH FOOD
- +11 ;;SUNLIGHT
- +12 ;;SHAKE WELL
- +13 ;;EXTERNAL
- +14 ;;STRENGTH
- +15 ;;REFRIGERATE
- +16 ;;DUPLICATE
- +17 ;;EXPIRATION DATE
- +18 ;;NO REFILL
- +19 ;;SAME DRUG
- +20 ;;NO TRANSFER