| 1 | LR259 ;DALOI/WTY - LR*5.2*259 PATCH ENVIRONMENT CHECK ROUTINE ;09/21/02
|
|---|
| 2 | ;;5.2;LAB SERVICE;**259**;Sep 27, 1994
|
|---|
| 3 | EN ; Does not prevent loading of the transport global.
|
|---|
| 4 | ; Environment check is done only during the install.
|
|---|
| 5 | ;
|
|---|
| 6 | I '$G(XPDENV) D Q
|
|---|
| 7 | .N XQA,XQAMSG
|
|---|
| 8 | .S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")
|
|---|
| 9 | .S XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($H)
|
|---|
| 10 | .S XQA("G.LMI")=""
|
|---|
| 11 | .D SETUP^XQALERT
|
|---|
| 12 | .S MSG="Sending transport global loaded alert to mail group G.LMI"
|
|---|
| 13 | .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 14 | ;
|
|---|
| 15 | D CHECK
|
|---|
| 16 | D EXIT
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | CHECK ; Perform environment check
|
|---|
| 20 | ;
|
|---|
| 21 | I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
|
|---|
| 22 | .D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
|
|---|
| 23 | .S XPDQUIT=2
|
|---|
| 24 | ;
|
|---|
| 25 | I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
|
|---|
| 26 | .S MSG="Please log in to set local DUZ... variables"
|
|---|
| 27 | .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 28 | .S XPDQUIT=2
|
|---|
| 29 | ;
|
|---|
| 30 | I '$D(^VA(200,$G(DUZ),0))#2 D Q
|
|---|
| 31 | .S MSG="You are not a valid user on this system"
|
|---|
| 32 | .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 33 | .S XPDQUIT=2
|
|---|
| 34 | ;
|
|---|
| 35 | S XPDDIQ("XPZ1")=0
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | EXIT ;
|
|---|
| 40 | I $G(XPDQUIT) D
|
|---|
| 41 | .S MSG="--- Install Environment Check FAILED ---"
|
|---|
| 42 | .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 43 | I '$G(XPDQUIT) D
|
|---|
| 44 | .D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | PRE ; KIDS Pre install for LR*5.2*259
|
|---|
| 48 | ;
|
|---|
| 49 | N XQA,XQAMSG
|
|---|
| 50 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
|
|---|
| 51 | S XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($H)
|
|---|
| 52 | S XQA("G.LMI")=""
|
|---|
| 53 | D SETUP^XQALERT
|
|---|
| 54 | ;
|
|---|
| 55 | S MSG="Sending install started alert to mail group G.LMI"
|
|---|
| 56 | D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 57 | ;
|
|---|
| 58 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
|
|---|
| 59 | ;
|
|---|
| 60 | S Y=$$OPTDE^XPDUTL("LRAP",2)
|
|---|
| 61 | S MSG="Disabling Anatomic Pathology [LRAP] option"
|
|---|
| 62 | D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 63 | ;
|
|---|
| 64 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
|
|---|
| 65 | ;
|
|---|
| 66 | Q
|
|---|
| 67 | ;
|
|---|
| 68 | POST ; KIDS Post install for LR*5.2*259
|
|---|
| 69 | ;
|
|---|
| 70 | N XQA,XQAMSG
|
|---|
| 71 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
|
|---|
| 72 | ;
|
|---|
| 73 | S Y=$$OPTDE^XPDUTL("LRAP",1)
|
|---|
| 74 | S MSG="Enabling Anatomic Pathology [LRAP] option"
|
|---|
| 75 | D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 76 | ;
|
|---|
| 77 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
|
|---|
| 78 | ;
|
|---|
| 79 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
|
|---|
| 80 | S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
|
|---|
| 81 | S XQA("G.LMI")=""
|
|---|
| 82 | D SETUP^XQALERT
|
|---|
| 83 | ;
|
|---|
| 84 | S MSG="Sending install completion alert to mail group G.LMI"
|
|---|
| 85 | D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|---|
| 86 | ;
|
|---|
| 87 | Q
|
|---|
