| 1 | PPPVPP ;ALB/JFP - Environment check for PPP ; 01 MAR 94
|
|---|
| 2 | ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; This routine contains environmental checks which get executed
|
|---|
| 6 | ; before the initialization is allowed to run. DIFQ is killed
|
|---|
| 7 | ; if problem encountered.
|
|---|
| 8 | ;
|
|---|
| 9 | EN ;
|
|---|
| 10 | N XQABT1
|
|---|
| 11 | ;
|
|---|
| 12 | S XQABT1=$H
|
|---|
| 13 | S IOP="HOME" D ^%ZIS
|
|---|
| 14 | W !!,">>> Checking for required packages"
|
|---|
| 15 | D DUZ,ENV2:$D(DIFQ)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DUZ ; check to see if valid user defined and DUZ(0)="@"
|
|---|
| 19 | ;
|
|---|
| 20 | N X
|
|---|
| 21 | S X=$O(^VA(200,+$G(DUZ),0))
|
|---|
| 22 | I X']""!($G(DUZ(0))'="@") W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file",!?3,"and the variable DUZ(0) must equal ""@"" before you continue!" K DIFQ
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | ENV ; environmental check to make sure required packages/patches are
|
|---|
| 27 | ; installed.
|
|---|
| 28 | ;
|
|---|
| 29 | W !
|
|---|
| 30 | I $G(^DG(43,1,"VERSION"))<5.3 W !?3,*7,"ERROR... MAS Version 5.3 is required for PPP v1.0" K DIFQ
|
|---|
| 31 | E W !," - MAS v5.3 (OK)"
|
|---|
| 32 | I +$G(^PS(59.7,1,49.99))<6 W !?3,*7,"ERROR... Outpatient PHARMACY Version 6.0 is required for PPP v1.0" K DIFQ
|
|---|
| 33 | E W !," - Outpatient PHARMACY v6.0 (OK)"
|
|---|
| 34 | I '$D(^VAT(394.61)) W !?3,*7,"ERROR... PDX Version 1.5 is required for PPP v1.0" K DIFQ
|
|---|
| 35 | E W !," - PDX v1.5 (OK)"
|
|---|
| 36 | I '$D(^VAMP(394.99)) W !?3,*7,"ERROR... MPD v1.0 is required for PPP v1.0" K DIFQ
|
|---|
| 37 | E W !," - MPD v1.0 (OK)"
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | ENV2 ; environmental check to make sure required packages/patches are
|
|---|
| 41 | ; installed. Uses utility in KERNEL v7.2
|
|---|
| 42 | ;
|
|---|
| 43 | W !
|
|---|
| 44 | I $$VERSION^XPDUTL("DG")<5.3 W !?3,*7,"ERROR... MAS Version 5.3 is required for PPP v1.0" K DIFQ
|
|---|
| 45 | E W !," - MAS v5.3 (OK)"
|
|---|
| 46 | I $$VERSION^XPDUTL("PSO")<6 W !?3,*7,"ERROR... Outpatient PHARMACY Version 6.0 is required for PPP v1.0" K DIFQ
|
|---|
| 47 | E W !," - Outpatient PHARMACY v6.0 (OK)"
|
|---|
| 48 | I $$VERSION^XPDUTL("VAQ")<1.5 W !?3,*7,"ERROR... PDX Version 1.5 is required for PPP v1.0" K DIFQ
|
|---|
| 49 | E W !," - PDX v1.5 (OK)"
|
|---|
| 50 | I $$VERSION^XPDUTL("VAM")<1.0 W !?3,*7,"ERROR... MPD v1.0 is required for PPP v1.0" K DIFQ
|
|---|
| 51 | E W !," - MPD v1.0 (OK)"
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
