54 lines
2.0 KiB
Mathematica
54 lines
2.0 KiB
Mathematica
PPPVPP ;ALB/JFP - Environment check for PPP ; 01 MAR 94
|
|
;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
; This routine contains environmental checks which get executed
|
|
; before the initialization is allowed to run. DIFQ is killed
|
|
; if problem encountered.
|
|
;
|
|
EN ;
|
|
N XQABT1
|
|
;
|
|
S XQABT1=$H
|
|
S IOP="HOME" D ^%ZIS
|
|
W !!,">>> Checking for required packages"
|
|
D DUZ,ENV2:$D(DIFQ)
|
|
Q
|
|
;
|
|
DUZ ; check to see if valid user defined and DUZ(0)="@"
|
|
;
|
|
N X
|
|
S X=$O(^VA(200,+$G(DUZ),0))
|
|
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
|
|
Q
|
|
;
|
|
;
|
|
ENV ; environmental check to make sure required packages/patches are
|
|
; installed.
|
|
;
|
|
W !
|
|
I $G(^DG(43,1,"VERSION"))<5.3 W !?3,*7,"ERROR... MAS Version 5.3 is required for PPP v1.0" K DIFQ
|
|
E W !," - MAS v5.3 (OK)"
|
|
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
|
|
E W !," - Outpatient PHARMACY v6.0 (OK)"
|
|
I '$D(^VAT(394.61)) W !?3,*7,"ERROR... PDX Version 1.5 is required for PPP v1.0" K DIFQ
|
|
E W !," - PDX v1.5 (OK)"
|
|
I '$D(^VAMP(394.99)) W !?3,*7,"ERROR... MPD v1.0 is required for PPP v1.0" K DIFQ
|
|
E W !," - MPD v1.0 (OK)"
|
|
Q
|
|
;
|
|
ENV2 ; environmental check to make sure required packages/patches are
|
|
; installed. Uses utility in KERNEL v7.2
|
|
;
|
|
W !
|
|
I $$VERSION^XPDUTL("DG")<5.3 W !?3,*7,"ERROR... MAS Version 5.3 is required for PPP v1.0" K DIFQ
|
|
E W !," - MAS v5.3 (OK)"
|
|
I $$VERSION^XPDUTL("PSO")<6 W !?3,*7,"ERROR... Outpatient PHARMACY Version 6.0 is required for PPP v1.0" K DIFQ
|
|
E W !," - Outpatient PHARMACY v6.0 (OK)"
|
|
I $$VERSION^XPDUTL("VAQ")<1.5 W !?3,*7,"ERROR... PDX Version 1.5 is required for PPP v1.0" K DIFQ
|
|
E W !," - PDX v1.5 (OK)"
|
|
I $$VERSION^XPDUTL("VAM")<1.0 W !?3,*7,"ERROR... MPD v1.0 is required for PPP v1.0" K DIFQ
|
|
E W !," - MPD v1.0 (OK)"
|
|
Q
|
|
;
|