| [613] | 1 | IBYHPRE ;ALB/TMP - PATCH IB*2*43 ENVIRONMENT CHECK ; 21-AUG-95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**43**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | D DUZ
|
|---|
| 5 | D P6:$D(DIFQ),P8:$D(DIFQ),P13:$D(DIFQ),P23:$D(DIFQ),P40:$D(DIFQ),P45:$D(DIFQ)
|
|---|
| 6 | ; (Assume patch 28 is there if patch 40 is)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | ;
|
|---|
| 10 | DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
|
|---|
| 11 | N X S X=$O(^VA(200,+$G(DUZ),0)) W !
|
|---|
| 12 | I X']""!($G(DUZ(0))'="@") D
|
|---|
| 13 | .W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file"
|
|---|
| 14 | .W !?3,"and the variable DUZ(0) must equal ""@"" before you continue!"
|
|---|
| 15 | .K DIFQ
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | P6 ; Make sure IB 2.0 patch 6 is installed.
|
|---|
| 19 | N X
|
|---|
| 20 | S X=$T(+2^IBCOIVM)
|
|---|
| 21 | I X'["**6" D
|
|---|
| 22 | .W !!?3,"Patch IB*2*6 does not appear to be installed! Please"
|
|---|
| 23 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 24 | .K DIFQ
|
|---|
| 25 | Q
|
|---|
| 26 | P8 ; Make sure IB 2.0 patch 8 is installed.
|
|---|
| 27 | N X
|
|---|
| 28 | S X=$T(+2^IBCU5)
|
|---|
| 29 | I X'["**8" D
|
|---|
| 30 | .W !!?3,"Patch IB*2*8 does not appear to be installed! Please"
|
|---|
| 31 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 32 | .K DIFQ
|
|---|
| 33 | Q
|
|---|
| 34 | P13 ; Make sure IB 2.0 patch 13 is installed.
|
|---|
| 35 | N X
|
|---|
| 36 | S X=$T(+2^IBTRKR3)
|
|---|
| 37 | I X'["**13" D
|
|---|
| 38 | .W !!?3,"Patch IB*2*13 does not appear to be installed! Please"
|
|---|
| 39 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 40 | .K DIFQ
|
|---|
| 41 | Q
|
|---|
| 42 | P23 ; Make sure IB 2.0 patch 23 is installed.
|
|---|
| 43 | N X
|
|---|
| 44 | S X=$T(+2^IBTRKR)
|
|---|
| 45 | I X'["**23" D
|
|---|
| 46 | .W !!?3,"Patch IB*2*23 does not appear to be installed! Please"
|
|---|
| 47 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 48 | .K DIFQ
|
|---|
| 49 | Q
|
|---|
| 50 | P40 ; Make sure IB 2.0 patch 40 is installed.
|
|---|
| 51 | N X
|
|---|
| 52 | S X=$T(+2^IBAFIL)
|
|---|
| 53 | I X'["**40" D
|
|---|
| 54 | .W !!?3,"Patch IB*2*40 does not appear to be installed! Please"
|
|---|
| 55 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 56 | .K DIFQ
|
|---|
| 57 | Q
|
|---|
| 58 | P45 ; Make sure IB 2.0 patch 45 is installed.
|
|---|
| 59 | N X
|
|---|
| 60 | S X=$T(+2^IBTRKR)
|
|---|
| 61 | I X'["45**" D
|
|---|
| 62 | .W !!?3,"Patch IB*2*45 does not appear to be installed! Please"
|
|---|
| 63 | .W !?3,"install this patch and then re-run this initialization."
|
|---|
| 64 | .K DIFQ
|
|---|
| 65 | Q
|
|---|
