LA72.m

LA72 ;VA/DALOI/JMC - LA*5.2*72 PATCH ENVIRONMENT CHECK ROUTINE ; 8/30/05 12:01pm

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**1031**;NOV 01, 1997

 ;

 ;;VA LA Patche(s): 72

 ;

EN ;

 ; Does not prevent loading of the transport global.

 ; Environment check is done only during the install.

 ;

 N XQA,XQAMSG

 ;

 I '$G(XPDENV) D  Q

 . S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($H)

 . S XQA("G.LMI")=""

 . ; D SETUP^XQALERT

 . ; D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))

 ;

 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)

 S XQA("G.LMI")=""

 ; D SETUP^XQALERT

 ; 

 D BMES^XPDUTL($$CJ^XLFSTR("--- "_XQAMSG_" ---",80))       ; IHS/OIT/MKK

 ; 

 D CHECK

 D EXIT

 Q

 ;

CHECK ;

 ; Perform environment check

 D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$G(XPDNM,"Unknown patch")_" ---",80))      ; IHS/MSC/MKK

 ; Device Defined

 I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D  Q

 . D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))

 . S XPDQUIT=2

 ; DUZ setup

 I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q

 . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))

 . S XPDQUIT=2

 ; Active User

 I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D  Q

 . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))

 . S XPDQUIT=2

 S XPDIQ("XPZ1","B")="NO"

 Q

 ;

EXIT ;

 ;

 ; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))

 ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

 ;

 I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" FAILED ---",80))     ; IHS/MSC/MKK

 I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" is Ok ---",80))     ; IHS/MSC/MKK

 ;

 Q

 ;

PRE ;

 ;; KIDS Pre Install

 N DA,DIK

 ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))

 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))

 D BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for pre install ---",80))

 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))

 Q

 ;

POST ;

 ;; KIDS Post Install

 N DA,DIK,FDA,LA7X,LA7ERR,XQA,XQAMSG

 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))

 D BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for post install ---",80))  ; IHS/MSC/MKK

 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))

 ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))

 ; Send alert

 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)

 S XQA("G.LMI")=""

 ; D SETUP^XQALERT

 D BMES^XPDUTL($$CJ^XLFSTR("--- "_XQAMSG_" ---",80))       ; IHS/MSC/MKK

 Q

LA72      ;VA/DALOI/JMC - LA*5.2*72 PATCH ENVIRONMENT CHECK ROUTINE ; 8/30/05 12:01pm

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**1031**;NOV 01, 1997

 +2       ;

 +3       ;;VA LA Patche(s): 72

 +4       ;

EN        ;

 +1       ; Does not prevent loading of the transport global.

 +2       ; Environment check is done only during the install.

 +3       ;

 +4        NEW XQA,XQAMSG

 +5       ;

 +6        IF '$GET(XPDENV)

               Begin DoDot:1

 +7                SET XQAMSG="Transport global for patch "_$GET(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($HOROLOG)

 +8                SET XQA("G.LMI")=""

 +9       ; D SETUP^XQALERT

 +10      ; D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))

               End DoDot:1

               QUIT 

 +11      ;

 +12       SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($HOROLOG)

 +13       SET XQA("G.LMI")=""

 +14      ; D SETUP^XQALERT

 +15      ; 

 +16      ; IHS/OIT/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("--- "_XQAMSG_" ---",80))

 +17      ; 

 +18       DO CHECK

 +19       DO EXIT

 +20       QUIT 

 +21      ;

CHECK     ;

 +1       ; Perform environment check

 +2       ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$GET(XPDNM,"Unknown patch")_" ---",80))

 +3       ; Device Defined

 +4        IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)

               Begin DoDot:1

 +5                DO BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))

 +6                SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +7       ; DUZ setup

 +8        IF $SELECT('$GET(DUZ):1,$DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,1:0)

               Begin DoDot:1

 +9                DO BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))

 +10               SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +11      ; Active User

 +12       IF $PIECE($$ACTIVE^XUSER(DUZ),"^")'=1

               Begin DoDot:1

 +13               DO BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))

 +14               SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +15       SET XPDIQ("XPZ1","B")="NO"

 +16       QUIT 

 +17      ;

EXIT      ;

 +1       ;

 +2       ; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))

 +3       ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

 +4       ;

 +5       ; IHS/MSC/MKK

           IF $GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$GET(XPDNM,"Unknown patch")_" FAILED ---",80))

 +6       ; IHS/MSC/MKK

           IF '$GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$GET(XPDNM,"Unknown patch")_" is Ok ---",80))

 +7       ;

 +8        QUIT 

 +9       ;

PRE       ;

 +1       ;; KIDS Pre Install

 +2        NEW DA,DIK

 +3       ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))

 +4        DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))

 +5        DO BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for pre install ---",80))

 +6        DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))

 +7        QUIT 

 +8       ;

POST      ;

 +1       ;; KIDS Post Install

 +2        NEW DA,DIK,FDA,LA7X,LA7ERR,XQA,XQAMSG

 +3        DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))

 +4       ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for post install ---",80))

 +5        DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))

 +6       ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))

 +7       ; Send alert

 +8        SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($HOROLOG)

 +9        SET XQA("G.LMI")=""

 +10      ; D SETUP^XQALERT

 +11      ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("--- "_XQAMSG_" ---",80))

 +12       QUIT