source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUENV.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PSUENV ;BIR/PDW ; PBM V 3.0 ENVIRONMENTAL CHECK ROUTINE
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3EN ; CHECK ENVIRONMENT
4 ;
5 ;
6 S (PSUPSJOK,PSUPSOOK,PSUOK,PSUNDFOK)=0
7 K XPDQUIT
8 ; Check Pharmacy Benefits Managment installed
9 S X=$$VERSION^XPDUTL("PSS")
10 I +X'=1 D G END
11 . Q:$G(ZTQUEUED)
12 . W !,"**INSTALLATION ABORTED** "
13 . W "Pharmacy Data Managment Version 1 is REQUIRED for this install !!"
14 ;
15 S X=$$PATCH^XPDUTL("PSS*1.0*13")
16 I 'X D G END
17 . Q:$G(ZTQUEUED)
18 . W !,"**INSTALLATION ABORTED** "
19 . W "Patch PSS*1*13 is REQUIRED for this install !!"
20 ;
21 ; Check In Patient version and Patch
22 S X=$$VERSION^XPDUTL("PSJ")
23 I +X=0 S PSUPSJOK=1 G OP ; IP not installed.. proceed to OP
24 I +X=4.5 D
25 . S Y=$$PATCH^XPDUTL("PSJ*4.5*61")
26 . I Y S PSUPSJOK=1 Q
27 . Q:$G(ZTQUEUED)
28 . W !,"**INSTALLATION ABORTED** "
29 . W "Patch PSJ*4.5*61 is REQUIRED for this install !!"
30 ;
31 I +X=5,PSUPSJOK=0 D
32 . S Y=$$PATCH^XPDUTL("PSJ*5.0*13")
33 . I Y S PSUPSJOK=1 Q
34 . Q:$G(ZTQUEUED)
35 . W !,"**INSTALLATION ABORTED** "
36 . W "Patch PSJ*5.0*13 is REQUIRED for this install !!"
37 ;
38OP ; Check Out Patient Version and Patch
39 S X=$$VERSION^XPDUTL("PSO")
40 I "6^7"'[$E(+X) D G END
41 . W !,"**INSTALLATION ABORTED** "
42 . W "Version 6 or 7 of Outpatient Pharmacy is REQUIRED for this install !!"
43 I +X=6 S PSUPSOOK=1
44 I +X=7 D
45 . S Y=$$PATCH^XPDUTL("PSO*7.0*11")
46 . I Y S PSUPSOOK=1 Q
47 . Q:$G(ZTQUEUED)
48 . W !,"**INSTALLATION ABORTED** "
49 . W "Patch PS0*7.0*11 is REQUIRED for this install !!"
50 ;
51 ; Check if proper version of NDF is installed
52 S X=$$VERSION^XPDUTL("PSN")
53 I X'>3.17 D G END
54 . Q:$G(ZTQUEUED)
55 . W !,"**INSTALLATION ABORTED** ",!
56 . W "National Drug File Version 3.18 or higher is REQUIRED for this install !!"
57 S PSUNDFOK=1
58 ;
59END ;EP
60 I PSUPSJOK,PSUPSOOK,PSUNDFOK S PSUOK=1
61 I 'PSUOK W:'$G(ZTQUEUED) !,"Installation Stopping",! S XPDQUIT=1
62 Q
Note: See TracBrowser for help on using the repository browser.