LR462A.m

LR462A ;DALOI/FHS - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE;15-DEC-2015 ;09/01/16  15:52

 ;;5.2;LAB SERVICE;**462**;Sep 27, 1994;Build 44

ENV ; Does not prevent loading of the transport global.

 ; Environment check is done only during the install.

 ;

 N XQA,XQAMSG

 ;

CHKNM ; Make sure the patch name exist

 S XUMF=1

 I '$D(XPDNM) D  G EXIT

 . D BMES("No valid patch name exist")

 . S XPDQUIT=2

 ;

 D CHECK

 D EXIT

 Q

 ;

CHECK ; Perform environment check

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

 . D BMES("Terminal Device is not defined")

 . S XPDQUIT=2

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

 . D BMES("Please log in to set local DUZ... variables")

 . S XPDQUIT=2

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

 . D BMES("You are not a valid user on this system")

 . S XPDQUIT=2

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

EXIT ;

 N XQA

 I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q

 D BMES("--- Environment Check is Ok ---")

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

 D BMES("Sending install loaded alert to mail group G.LMI")

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

 D SETUP^XQALERT

 H 5

 Q

 ;

PRE ;Pre-install entry point

 Q:'$D(XPDNM)

 ;

 D BMES("*** Preinstall completed ***")

 Q

POST ;Post install

 ;Set up CPRS AP ORDER MESSAGE LOG -

 ;CPRS AP ORDER MESSAGE IS STORE HERE FOR PROCESSING BY "TASKAP1^LR7OAPKM"

 I '$G(^XTMP("LRAP1",0)) D

 . S ^XTMP("LRAP1",0)=$$FMADD^XLFDT(DT+365)_U_DT_U_"CPRS AP ORDER MESSAGE LOG"

 . S ^XTMP("LRAP1",1,0)=10

 S $P(^XTMP("LRAP1",0),U,3)="CPRS AP ORDER MESSAGE LOG"

 D

 . D BMES("Sending install completion alert to mail group G.LMI")

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

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

 . D SETUP^XQALERT

 K LRDA,LRPRT,LRVR

 Q

BMES(STR) ;Write BMES^XPDUTL statements

 D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))

 Q

MAIL ;Send message to G.LMI local mail group of added 64 codes

 N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR462A   2031     printed  Mar 13, 2025@21:08:25                                                                                                                                                                                                      Page 2

LR462A    ;DALOI/FHS - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE;15-DEC-2015 ;09/01/16  15:52

 +1       ;;5.2;LAB SERVICE;**462**;Sep 27, 1994;Build 44

ENV       ; Does not prevent loading of the transport global.

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

 +2       ;

 +3        NEW XQA,XQAMSG

 +4       ;

CHKNM     ; Make sure the patch name exist

 +1        SET XUMF=1

 +2        IF '$DATA(XPDNM)

               Begin DoDot:1

 +3                DO BMES("No valid patch name exist")

 +4                SET XPDQUIT=2

               End DoDot:1

               GOTO EXIT

 +5       ;

 +6        DO CHECK

 +7        DO EXIT

 +8        QUIT 

 +9       ;

CHECK     ; Perform environment check

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

               Begin DoDot:1

 +2                DO BMES("Terminal Device is not defined")

 +3                SET XPDQUIT=2

               End DoDot:1

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

               Begin DoDot:1

 +5                DO BMES("Please log in to set local DUZ... variables")

 +6                SET XPDQUIT=2

               End DoDot:1

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

               Begin DoDot:1

 +8                DO BMES("You are not a valid user on this system")

 +9                SET XPDQUIT=2

               End DoDot:1

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

           QUIT 

EXIT      ;

 +1        NEW XQA

 +2        IF $GET(XPDQUIT)

               DO BMES("--- Install Environment Check FAILED ---")

               QUIT 

 +3        DO BMES("--- Environment Check is Ok ---")

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

 +5        DO BMES("Sending install loaded alert to mail group G.LMI")

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

 +7        DO SETUP^XQALERT

 +8        HANG 5

 +9        QUIT 

 +10      ;

PRE       ;Pre-install entry point

 +1        if '$DATA(XPDNM)

               QUIT 

 +2       ;

 +3        DO BMES("*** Preinstall completed ***")

 +4        QUIT 

POST      ;Post install

 +1       ;Set up CPRS AP ORDER MESSAGE LOG -

 +2       ;CPRS AP ORDER MESSAGE IS STORE HERE FOR PROCESSING BY "TASKAP1^LR7OAPKM"

 +3        IF '$GET(^XTMP("LRAP1",0))

               Begin DoDot:1

 +4                SET ^XTMP("LRAP1",0)=$$FMADD^XLFDT(DT+365)_U_DT_U_"CPRS AP ORDER MESSAGE LOG"

 +5                SET ^XTMP("LRAP1",1,0)=10

               End DoDot:1

 +6        SET $PIECE(^XTMP("LRAP1",0),U,3)="CPRS AP ORDER MESSAGE LOG"

 +7        Begin DoDot:1

 +8            DO BMES("Sending install completion alert to mail group G.LMI")

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

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

 +11           DO SETUP^XQALERT

           End DoDot:1

 +12       KILL LRDA,LRPRT,LRVR

 +13       QUIT 

BMES(STR) ;Write BMES^XPDUTL statements

 +1        DO BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))

 +2        QUIT 

MAIL      ;Send message to G.LMI local mail group of added 64 codes

 +1        NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN

 +2        QUIT