| [613] | 1 | PSUENV ;BIR/PDW ; PBM V 3.0 ENVIRONMENTAL CHECK ROUTINE
|
|---|
| 2 | ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
|
|---|
| 3 | EN ; 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 | ;
|
|---|
| 38 | OP ; 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 | ;
|
|---|
| 59 | END ;EP
|
|---|
| 60 | I PSUPSJOK,PSUPSOOK,PSUNDFOK S PSUOK=1
|
|---|
| 61 | I 'PSUOK W:'$G(ZTQUEUED) !,"Installation Stopping",! S XPDQUIT=1
|
|---|
| 62 | Q
|
|---|
