Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LR315

LR315.m

Go to the documentation of this file. 
  1. LR315 ;DALOI/KLL/CKA - LR*5.2*315 PATCH ENVIRONMENT CHECK ROUTINE ;09/21/07
  1.  ;;5.2;LAB SERVICE;**315**;NOV 1, 1997;Build 188
  1.  ;
  1.  ;;VA LR Patche(s): 315
  1.  ;
  1. EN ; Does not prevent loading of the transport global.
  1.  ;
  1.  I '$G(XPDENV) D  Q
  1.  .N XQA,XQAMSG,MSG
  1.  .S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")
  1.  .S XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($H)
  1.  .S XQA("G.LMI")=""
  1.  .; D SETUP^XQALERT                              ; IHS/MSC/MKK - LR*5.2*1031
  1.  .S MSG="Sending transport global loaded alert to mail group G.LMI"
  1.  .; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG     ; IHS/MSC/MKK - LR*5.2*1031
  1.  . ; D BMES^XPDUTL(XQAMSG) K MSG                   ; IHS/MSC/MKK - LR*5.2*1031
  1.  ;
  1.  D BMES^XPDUTL($$CJ^XLFSTR("--- Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)_" ---",IOM))    ; IHS/MSC/MKK
  1.  ;
  1.  D CHECK
  1.  I XPDENV S XPDDIQ("XPZ1","B")="YES"
  1.  D EXIT
  1.  Q
  1.  ;
  1. CHECK ; Perform environment check
  1.  D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$G(XPDNM,"Unknown patch")_" ---",$G(IOM,80)))      ; IHS/MSC/MKK
  1.  ;
  1.  I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D  Q
  1.  .D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
  1.  .S XPDQUIT=2
  1.  ;
  1.  I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q
  1.  .S MSG="Please log in to set local DUZ... variables"
  1.  .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
  1.  .S XPDQUIT=2
  1.  ;
  1.  I '($$ACTIVE^XUSER(DUZ)) D  Q
  1.  .S MSG="You are not a valid user on this system"
  1.  .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
  1.  .S XPDQUIT=2
  1.  S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
  1.  S XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($H)
  1.  S XQA("G.LMI")=""
  1.  ; D SETUP^XQALERT
  1.  ;
  1.  S MSG="Sending install started alert to mail group G.LMI"
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
  1.  ;
  1.  Q
  1.  ;
  1. EXIT ;
  1.  I $G(XPDQUIT) D
  1.  .S MSG="--- Install Environment Check FAILED ---"
  1.  .;D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
  1.  I '$G(XPDQUIT) D
  1.  .;D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
  1.  ;
  1.  I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" FAILED ---",80))     ; IHS/MSC/MKK
  1.  I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" is Ok ---",80))     ; IHS/MSC/MKK
  1.  ;
  1.  Q
  1.  ;
  1. PRE ; KIDS Pre install for LR*5.2*315
  1.  ;
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
  1.  ;
  1.  ; ----- BEGIN IHS/MSC/MKK
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$G(XPDNM,"Unknown patch")_" started ***",80))
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** No Action Required ***",80))
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$G(XPDNM,"Unknown patch")_" completed ***",80))
  1.  ; ----- END IHS/MSC/MKK
  1.  Q
  1.  ;
  1. POST ; KIDS Post install for LR*5.2*315
  1.  ;
  1.  N XQA,XQAMSG,MSG
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
  1.  ;
  1.  S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
  1.  S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
  1.  S XQA("G.LMI")=""
  1.  ; D SETUP^XQALERT
  1.  ;
  1.  S MSG="Sending install completion alert to mail group G.LMI"
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80))
  1.  ; 
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** "_XQAMSG_" ***",80))       ; IHS/MSC/MKK
  1.  ;
  1.  Q