| [613] | 1 | LR221 ;DALISC/FHS-LR*5.2*221 PATCH ENVIRONMENT CHECK ROUTINE
|
|---|
| 2 | ;;5.2;LAB SERVICE;**221**;Sep 27, 1994
|
|---|
| 3 | EN ; Does not prevent loading of the transport global.
|
|---|
| 4 | ; Environment check is done only during the install.
|
|---|
| 5 | Q:'$G(XPDENV)
|
|---|
| 6 | D CHECK
|
|---|
| 7 | D EXIT
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | CHECK ; Perform environment check
|
|---|
| 11 | N VER
|
|---|
| 12 | I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
|
|---|
| 13 | . D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
|
|---|
| 14 | . S XPDQUIT=2
|
|---|
| 15 | I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
|
|---|
| 16 | . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
|
|---|
| 17 | . S XPDQUIT=2
|
|---|
| 18 | I '$D(^VA(200,$G(DUZ),0))#2 D Q
|
|---|
| 19 | . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
|
|---|
| 20 | . S XPDQUIT=2
|
|---|
| 21 | ; I '$$PATCH^XPDUTL("LR*5.2*202") D Q
|
|---|
| 22 | ; . D BMES^XPDUTL($$CJ^XLFSTR("You must install patch LR*5.2*202",80))
|
|---|
| 23 | ; . S XPDQUIT=2
|
|---|
| 24 | S XPDIQ("XPZ1","B")="NO"
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | EXIT ;
|
|---|
| 28 | I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
|
|---|
| 29 | I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | PRE ; KIDS Pre install for LR*5.2*221
|
|---|
| 33 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
|
|---|
| 34 | D BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for pre install ---",80))
|
|---|
| 35 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | POST ; KIDS Post install for LR*5.2*221
|
|---|
| 39 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
|
|---|
| 40 | K ^LRO(69,"AE") S:$D(^LAM(0))#2 $P(^(0),U,3)=99999
|
|---|
| 41 | D BMES^XPDUTL($$CJ^XLFSTR("--- Purged ^LRO(69,""AE"") X-Ref ---",80))
|
|---|
| 42 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
|
|---|
| 43 | Q
|
|---|
