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

LR325.m

Go to the documentation of this file. 
  1. LR325 ;VA/DALOI/JMC - LR*5.2*325 PATCH ENVIRONMENT CHECK ROUTINE ; 4/17/07 3:41am
  1.  ;;5.2;LAB SERVICE;**1031**;NOV 01, 1997
  1.  ;
  1.  ;;VA LR Patche(s): 325
  1.  ;
  1.  ;Reference to $$FIND1^DIC supported by IA #2051
  1.  ;Reference to UPDATE^DIE supported by IA #2053
  1.  ;Reference to $$HTE^XLFDT supported by IA #10103
  1.  ;Reference to $$CJ^XLFSTR supported by IA #10104
  1.  ;Reference to BMES^XPDUTL supported by IA #10141
  1.  ;Reference to SETUP^XQALERT supported by IA #10081
  1.  ;Reference to $$ACTIVE^XUSER supported by IA #2343
  1. EN ; Does not prevent loading of the transport global.
  1.  ; Environment check is done only during the install.
  1.  ;
  1.  N XQA,XQAMSG
  1.  ;
  1.  I '$G(XPDENV) D  Q
  1.  . S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($H)
  1.  . S XQA("G.LMI")=""
  1.  . ; D SETUP^XQALERT                                                                               ; IHS/MSC/MKK
  1.  . ; D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",IOM))   ; IHS/MSC/MKK
  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.  S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)
  1.  S XQA("G.LMI")=""
  1.  ; D SETUP^XQALERT                                                                                 ; IHS/MSC/MKK
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",IOM))             ; IHS/MSC/MKK
  1.  ;
  1.  D CHECK
  1.  D EXIT
  1.  Q
  1.  ;
  1. CHECK ; Perform environment check
  1.  D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$G(XPDNM,"Unknown patch")_" ---",80))      ; IHS/MSC/MKK
  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.  I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q
  1.  . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
  1.  . S XPDQUIT=2
  1.  I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D  Q
  1.  . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
  1.  . S XPDQUIT=2
  1.  S XPDIQ("XPZ1","B")="NO"
  1.  Q
  1.  ;
  1. EXIT ;
  1.  ; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",IOM))        ; IHS/MSC/MKK
  1.  ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",IOM))                ; IHS/MSC/MKK
  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.  Q
  1.  ;
  1. PRE ; KIDS Pre install
  1.  ;
  1.  Q
  1.  N DA,DIK
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",IOM))
  1.  ;
  1.  D BMES^XPDUTL($$CJ^XLFSTR("Nothing required",IOM))
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",IOM))
  1.  Q
  1.  ;
  1. POST ; KIDS Post install
  1.  N ANS,FDA,LROUTINE,LRTST,TST,XQA,XQAMSG
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",IOM))
  1.  S LROUTINE=$$FIND1^DIC(62.05,,"B","ROUTINE","B",,"ANS")
  1.  I 'LROUTINE S LROUTINE=$O(^LAB(62.05,0))
  1.  S LRTST=$$FIND1^DIC(60,,"B","VBEC QA/QC","B",,"ANS")
  1.  I 'LRTST D
  1.  . K FDA(1)
  1.  . S FDA(1,60,"?+1,",.01)="VBEC QA/QC"
  1.  . S FDA(1,60,"?+1,",3)="N"
  1.  . S FDA(1,60,"?+1,",4)="WK"
  1.  . S FDA(1,60,"?+1,",17)=LROUTINE
  1.  . S FDA(1,60,"?+1,",51)="V QA/QC"
  1.  . D UPDATE^DIE("SE","FDA(1)","TST","ANS")
  1.  . D BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC QA/QC] to LABORATORY TEST file",IOM))
  1.  S LRTST=$$FIND1^DIC(60,,"B","VBEC UNIT PROCESSING","B",,"ANS")
  1.  I 'LRTST D
  1.  . K FDA(2),TST
  1.  . S FDA(2,60,"?+1,",.01)="VBEC UNIT PROCESSING"
  1.  . S FDA(2,60,"?+1,",3)="N"
  1.  . S FDA(2,60,"?+1,",4)="WK"
  1.  . S FDA(2,60,"?+1,",17)=LROUTINE
  1.  . S FDA(2,60,"?+1,",51)="V UNIT"
  1.  . D UPDATE^DIE("SE","FDA(2)","TST","ANS")
  1.  . D BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC UNIT PROCESSING] to LABORTORY TEST file",IOM))
  1.  S LRTST=$$FIND1^DIC(60,,"B","VBEC DONOR","B",,"ANS")
  1.  I 'LRTST D
  1.  . K FDA(3),TST
  1.  . S FDA(3,60,"?+1,",.01)="VBEC DONOR"
  1.  . S FDA(3,60,"?+1,",3)="N"
  1.  . S FDA(3,60,"?+1,",4)="WK"
  1.  . S FDA(3,60,"?+1,",17)=LROUTINE
  1.  . S FDA(3,60,"?+1,",51)="V DONOR"
  1.  . D UPDATE^DIE("SE","FDA(3)","TST","ANS")
  1.  . D BMES^XPDUTL($$CJ^XLFSTR("Added Test [VBEC DONOR] to LABORATORY TEST file",IOM))
  1.  ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to LMI mail group ",IOM))           ; IHS/MSC/MKK
  1.  S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
  1.  S XQA("G.LMI")=""
  1.  ; D SETUP^XQALERT                                                                                 ; IHS/MSC/MKK
  1.  S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
  1.  S XQA("G.LMI")=""
  1.  ; D SETUP^XQALERT                                                                                 ; IHS/MSC/MKK
  1.  D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed. ***",IOM))   ; IHS/MSC/MKK
  1.  Q