source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPVPP.m@ 1710

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

initial load of WorldVistAEHR

File size: 2.0 KB
RevLine 
[613]1PPPVPP ;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 ;
9EN ;
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 ;
18DUZ ; 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 ;
26ENV ; 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 ;
40ENV2 ; 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 ;
Note: See TracBrowser for help on using the repository browser.