source: WorldVistAEHR/trunk/r/CMOP-PSX/PSXPRE.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.0 KB
Line 
1PSXPRE ;BIR/BAB-CMOP Pre-Initialization ;[ 02/22/96 1:09 PM ]
2 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**3**;10 May 95
3START S XQABT1=$H
4 I ^XMB("NETNAME")?1"CMOP-".E W !!,"Consolidated Mail Outpatient Pharmacy Install for Host Facility.",!!
5 I ^XMB("NETNAME")'?1"CMOP-".E W !!,"Consolidated Mail Outpatient Pharmacy Install for Remote Medical Center.",!!
6DUZ 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!!",!! K DIFQ Q
7CKDT I '$D(DT) S %DT="",X="T" D ^%DT S DT=Y
8ASK I ^XMB("NETNAME")?1"CMOP-".E G CKU
9 I ($G(^PSX(550,0))["CMOP SYSTEM^550I")&($P($G(^PSX(550,0)),"^",3)>0) G CKU
10 W !!,*7,"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.",!!
11 S DIR(0)="SX^B:BEDFORD;D:DALLAS;L:LEAVENWORTH;W:WEST LA",DIR("A")="Select the CMOP to RECEIVE YOUR DATA " D ^DIR K DIR
12 I "BDLW"'[$E(X) K DIFQ Q
13 S ^TMP("PSXCMOP",$J)="CMOP-"_$S($E(X)="L":"LEAV",$E(X)="B":"BED",$E(X)="D":"DAL",$E(X)="W":"WLA")_".MED.VA.GOV"
14CKU S PSX=0 I $D(DUZ),DUZ(0)="@",$D(DT),$D(U),PSXDZ=0 D RXC G QUIT:ERROR D ENV G DONE
15QUIT ;
16 K DIFQ I $G(ERROR)=1 K PSX,PSXDZ,ERROR Q
17DONE I $G(PSXDZ)=0,HOST=1,OP=0,NDF=1,KNL=1 S PSX=1
18 I $G(PSXDZ)=0,HOST=0,OP=1,NDF=1,KNL=1 S PSX=1
19 S:ERROR=1 PSX=0 K ERROR
20 K:PSX=0 DIFQ
21 K PSX,PKG,KNL,NDF,OP,HOST,PSXDZ,ERROR
22 S (XQABT2,XQABT3)=$H
23 Q
24ENV ;
25 S (HOST,OP,NDF,KNL)=0
26 S:^XMB("NETNAME")?1"CMOP-".E HOST=1
27 I $D(^DIC(9.4,"B","OUTPATIENT PHARMACY")) S PKG=$O(^DIC(9.4,"B","OUTPATIENT PHARMACY",0)) S:$G(^DIC(9.4,+PKG,"VERSION"))="6.0" OP=1
28 I $D(^DIC(9.4,"B","KERNEL")) S PKG=$O(^DIC(9.4,"B","KERNEL",0)) S:$G(^DIC(9.4,+PKG,"VERSION"))'<7.1 KNL=1
29 I $D(^DIC(9.4,"B","NATIONAL DRUG FILE")) S PKG=$O(^DIC(9.4,"B","NATIONAL DRUG FILE",0)) S:$G(^DIC(9.4,+PKG,"VERSION"))["3.1" NDF=1
30 Q
31RXC ;
32 I $P(^XMB("NETNAME"),"-")="CMOP" S ERROR=0 Q
33 W !!,"Validating required RX CONSULT FILE entries......"
34 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
35 K ^TMP("PSXDIC",$J),^TMP("PSXDD",$J),^TMP("PSXPS",$J)
36 S (ERROR,RXC)=0 I '$D(^PS(54)) W !!,"You do not have an RX CONSULT FILE........INITIALIZATION ABORTED!",!! S ERROR=1 Q
37 F X=1:1:20 S Y=$P($T(CON+X),";;",2) I $P(^PS(54,X,0),"^")'=Y S ERROR=1 W !,"Your RX CONSULT File entry # "_X_" is invalid.!!"
38 W:ERROR=1 !!,"INITIALIZATION ABORTED!",!! K RXC,X,Y
39 N %X,%Y S %X="^DIC(54,",%Y="^TMP(""PSXDIC"",$J," D %XY^%RCR
40 N %X,%Y S %X="^DD(54,",%Y="^TMP(""PSXDD"",$J," D %XY^%RCR
41 N %X,%Y S %X="^PS(54,",%Y="^TMP(""PSXPS"",$J," D %XY^%RCR
42 Q
43CON ;
44 ;;DROWSINESS
45 ;;FINISH
46 ;;EMPTY STOMACH
47 ;;NO DAIRY PRODUCTS
48 ;;WATER
49 ;;DISCOLORATION
50 ;;DIURETIC K
51 ;;NO ALCOHOL
52 ;;ADVICE
53 ;;WITH FOOD
54 ;;SUNLIGHT
55 ;;SHAKE WELL
56 ;;EXTERNAL
57 ;;STRENGTH
58 ;;REFRIGERATE
59 ;;DUPLICATE
60 ;;EXPIRATION DATE
61 ;;NO REFILL
62 ;;SAME DRUG
63 ;;NO TRANSFER
Note: See TracBrowser for help on using the repository browser.