LR329.m

LR329 ;DALOI/JMC - LR*5.2*329 PATCH ENVIRONMENT CHECK ROUTINE ;24 Jan 2004

 ;;5.2;LAB SERVICE;**329**;Sep 27, 1994;Build 2

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("Sending install started alert to mail group G.LMI",80))

 ;

 D CHECK

 D EXIT

 Q

 ;

CHECK ; Perform environment check

 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

 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

 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))

 Q

 ;

PRE ; KIDS Pre install

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

 D BMES^XPDUTL($$CJ^XLFSTR("*** No action required ***",80))

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

 Q

 ;

POST ; KIDS Post install

 N XQA,XQAMSG,ZTDTH,ZTSK,ZTRTN,ZTDESC,ZTIO,ZTSAVE

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

 ;

 ; Task job to cleanup LR(68,"C" x-ref now

 D BMES^XPDUTL($$CJ^XLFSTR("*** Tasking check/cleanup ""C"" cross reference on ACCESSION file (#68) ***",80))

 S ZTRTN="CHKUID^LROC",ZTDESC="Check/cleanup file #68 'C' and 'D' x-ref"

 S ZTIO="",ZTDTH=$H

 D ^%ZTLOAD

 D BMES^XPDUTL($$CJ^XLFSTR("*** Task #"_ZTSK_" tasked to run ***",80))

 ;

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

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

 ;

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

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

 D SETUP^XQALERT

 ;

 S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"

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

 D SETUP^XQALERT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR329   2597     printed  Feb 18, 2025@23:29:41                                                                                                                                                                                                       Page 2

LR329     ;DALOI/JMC - LR*5.2*329 PATCH ENVIRONMENT CHECK ROUTINE ;24 Jan 2004

 +1       ;;5.2;LAB SERVICE;**329**;Sep 27, 1994;Build 2

EN        ; Does not prevent loading of the transport global.

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

 +2       ;

 +3        NEW XQA,XQAMSG

 +4       ;

 +5        IF '$GET(XPDENV)

               Begin DoDot:1

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

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

 +8                DO SETUP^XQALERT

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

               End DoDot:1

               QUIT 

 +10      ;

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

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

 +13       DO SETUP^XQALERT

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

 +15      ;

 +16       DO CHECK

 +17       DO EXIT

 +18       QUIT 

 +19      ;

CHECK     ; Perform environment check

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

               Begin DoDot:1

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

 +3                SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

               Begin DoDot:1

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

 +6                SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

               Begin DoDot:1

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

 +9                SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

 +11       QUIT 

 +12      ;

EXIT      ;

 +1        IF $GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))

 +2        IF '$GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

 +3        QUIT 

 +4       ;

PRE       ; KIDS Pre install

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

 +2        DO BMES^XPDUTL($$CJ^XLFSTR("*** No action required ***",80))

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

 +4        QUIT 

 +5       ;

POST      ; KIDS Post install

 +1        NEW XQA,XQAMSG,ZTDTH,ZTSK,ZTRTN,ZTDESC,ZTIO,ZTSAVE

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

 +3       ;

 +4       ; Task job to cleanup LR(68,"C" x-ref now

 +5        DO BMES^XPDUTL($$CJ^XLFSTR("*** Tasking check/cleanup ""C"" cross reference on ACCESSION file (#68) ***",80))

 +6        SET ZTRTN="CHKUID^LROC"

           SET ZTDESC="Check/cleanup file #68 'C' and 'D' x-ref"

 +7        SET ZTIO=""

           SET ZTDTH=$HOROLOG

 +8        DO ^%ZTLOAD

 +9        DO BMES^XPDUTL($$CJ^XLFSTR("*** Task #"_ZTSK_" tasked to run ***",80))

 +10      ;

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

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

 +13      ;

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

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

 +16       DO SETUP^XQALERT

 +17      ;

 +18       SET XQAMSG="LIM: Review description for "_$GET(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"

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

 +20       DO SETUP^XQALERT

 +21       QUIT