| [613] | 1 | LR331 ;DALOI/JMC - LR*5.2*331 PATCH ENVIRONMENT CHECK ROUTINE ; Feb 25, 2005
|
|---|
| 2 | ;;5.2;LAB SERVICE;**331**;Sep 27, 1994;Build 7
|
|---|
| 3 | EN ; Does not prevent loading of the transport global.
|
|---|
| 4 | ; Environment check is done only during the install.
|
|---|
| 5 | ;
|
|---|
| 6 | N XQA,XQAMSG
|
|---|
| 7 | ;
|
|---|
| 8 | I '$G(XPDENV) D Q
|
|---|
| 9 | . S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($H)
|
|---|
| 10 | . S XQA("G.LMI")=""
|
|---|
| 11 | . D SETUP^XQALERT
|
|---|
| 12 | . D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))
|
|---|
| 13 | ;
|
|---|
| 14 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)
|
|---|
| 15 | S XQA("G.LMI")=""
|
|---|
| 16 | D SETUP^XQALERT
|
|---|
| 17 | D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))
|
|---|
| 18 | ;
|
|---|
| 19 | D CHECK
|
|---|
| 20 | D EXIT
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | CHECK ; Perform environment check
|
|---|
| 24 | I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
|
|---|
| 25 | . D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
|
|---|
| 26 | . S XPDQUIT=2
|
|---|
| 27 | I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
|
|---|
| 28 | . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
|
|---|
| 29 | . S XPDQUIT=2
|
|---|
| 30 | I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D Q
|
|---|
| 31 | . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
|
|---|
| 32 | . S XPDQUIT=2
|
|---|
| 33 | S XPDIQ("XPZ1","B")="NO"
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | EXIT ;
|
|---|
| 37 | I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
|
|---|
| 38 | I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | PRE ; KIDS Pre install
|
|---|
| 42 | ;
|
|---|
| 43 | N DA,DIK
|
|---|
| 44 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
|
|---|
| 45 | ;
|
|---|
| 46 | D BMES^XPDUTL($$CJ^XLFSTR("Deleting Field #15 in file #68, ACCESSION",80))
|
|---|
| 47 | S DIK="^DD(68.02,",DA=15,DA(1)=68 D ^DIK
|
|---|
| 48 | D BMES^XPDUTL($$CJ^XLFSTR("Field will be installed as part of KIDS installation",80))
|
|---|
| 49 | ;
|
|---|
| 50 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | POST ; KIDS Post install
|
|---|
| 54 | N XQA,XQAMSG
|
|---|
| 55 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
|
|---|
| 56 | D BMES^XPDUTL($$CJ^XLFSTR("*** No action required ***",80))
|
|---|
| 57 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
|
|---|
| 58 | D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
|
|---|
| 59 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
|
|---|
| 60 | S XQA("G.LMI")=""
|
|---|
| 61 | D SETUP^XQALERT
|
|---|
| 62 | S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
|
|---|
| 63 | S XQA("G.LMI")=""
|
|---|
| 64 | D SETUP^XQALERT
|
|---|
| 65 | Q
|
|---|
