LR308.m

LR308 ;VA/DALOI/KLL - LR*5.2*308 PATCH ENVIRONMENT CHECK ROUTINE ;07/30/04

 ;;5.2;LAB SERVICE;**1031**;NOV 01, 1997

 ;

 ;;VA LR Patche(s): 308

 ;

EN ; Does not prevent loading of the transport global.

 ; Environment check is done only during the install.

 ;

 I '$G(XPDENV) D  Q

 .N XQA,XQAMSG

 .S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")

 .S XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($H)

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

 .; D SETUP^XQALERT

 .S MSG="Sending transport global loaded alert to mail group G.LMI"

 .; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 ;

 D BMES^XPDUTL($$CJ^XLFSTR("--- Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)_" ---",IOM))    ; IHS/MSC/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

 ;

 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

 .S MSG="Please log in to set local DUZ... variables"

 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 .S XPDQUIT=2

 ;

 I '$D(^VA(200,$G(DUZ),0))#2 D  Q

 .S MSG="You are not a valid user on this system"

 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 .S XPDQUIT=2

 ;

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

 ;

 Q

 ;

EXIT ;

 I $G(XPDQUIT) D

 .S MSG="--- Install Environment Check FAILED ---"

 .; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 I '$G(XPDQUIT) D

 .; 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 for LR*5.2*308

 ;

 N XQA,XQAMSG

 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")

 S XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($H)

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

 ; D SETUP^XQALERT

 ;

 S MSG="Sending install started alert to mail group G.LMI"

 ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 ;

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

 ;

 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$G(XPDNM,"Unknown patch")_" started ***",80))    ; IHS/MSC/MKK

 ;

 S Y=$$OPTDE^XPDUTL("LRAP",2)

 S MSG="Disabling Anatomic Pathology [LRAP] option"

 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 ;

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

 ;

 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$G(XPDNM,"Unknown patch")_" completed ***",80))  ; IHS/MSC/MKK

 Q

 ;

POST ; KIDS Post install for LR*5.2*308

 ;

 N XQA,XQAMSG

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

 ;

 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install for "_$G(XPDNM,"Unknown patch")_" started ***",80))   ; IHS/MSC/MKK 

 ;

 S Y=$$OPTDE^XPDUTL("LRAP",1)

 S MSG="Enabling Anatomic Pathology [LRAP] option"

 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 ;

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

 ; 

 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install for "_$G(XPDNM,"Unknown patch")_" completed ***",80))   ; IHS/MSC/MKK 

 ;

 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")

 S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)

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

 ; D SETUP^XQALERT

 ;

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

 ;

 S MSG="Sending install completion alert to mail group G.LMI"

 ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 ;

 Q

LR308     ;VA/DALOI/KLL - LR*5.2*308 PATCH ENVIRONMENT CHECK ROUTINE ;07/30/04

 +1       ;;5.2;LAB SERVICE;**1031**;NOV 01, 1997

 +2       ;

 +3       ;;VA LR Patche(s): 308

 +4       ;

EN        ; Does not prevent loading of the transport global.

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

 +2       ;

 +3        IF '$GET(XPDENV)

               Begin DoDot:1

 +4                NEW XQA,XQAMSG

 +5                SET XQAMSG="Transport global for patch "_$GET(XPDNM,"Unknown patch")

 +6                SET XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($HOROLOG)

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

 +8       ; D SETUP^XQALERT

 +9                SET MSG="Sending transport global loaded alert to mail group G.LMI"

 +10      ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

               End DoDot:1

               QUIT 

 +11      ;

 +12      ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("--- Installation of patch "_$GET(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($HOROLOG)_" ---",IOM))

 +13      ;

 +14       DO CHECK

 +15       DO EXIT

 +16       QUIT 

 +17      ;

CHECK     ; Perform environment check

 +1       ; IHS/MSC/MKK

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

 +2       ;

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

               Begin DoDot:1

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

 +5                SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +6       ;

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

               Begin DoDot:1

 +8                SET MSG="Please log in to set local DUZ... variables"

 +9                DO BMES^XPDUTL($$CJ^XLFSTR(MSG,80))

                   KILL MSG

 +10               SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +11      ;

 +12       IF '$DATA(^VA(200,$GET(DUZ),0))#2

               Begin DoDot:1

 +13               SET MSG="You are not a valid user on this system"

 +14               DO BMES^XPDUTL($$CJ^XLFSTR(MSG,80))

                   KILL MSG

 +15               SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +16      ;

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

 +18      ;

 +19       QUIT 

 +20      ;

EXIT      ;

 +1        IF $GET(XPDQUIT)

               Begin DoDot:1

 +2                SET MSG="--- Install Environment Check FAILED ---"

 +3       ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

               End DoDot:1

 +4        IF '$GET(XPDQUIT)

               Begin DoDot:1

 +5       ; D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

               End DoDot:1

 +6       ;

 +7       ; IHS/MSC/MKK

           IF $GET(XPDQUIT)

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

 +8       ; IHS/MSC/MKK

           IF '$GET(XPDQUIT)

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

 +9        QUIT 

 +10      ;

PRE       ; KIDS Pre install for LR*5.2*308

 +1       ;

 +2        NEW XQA,XQAMSG

 +3        SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")

 +4        SET XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($HOROLOG)

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

 +6       ; D SETUP^XQALERT

 +7       ;

 +8        SET MSG="Sending install started alert to mail group G.LMI"

 +9       ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 +10      ;

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

 +12      ;

 +13      ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$GET(XPDNM,"Unknown patch")_" started ***",80))

 +14      ;

 +15       SET Y=$$OPTDE^XPDUTL("LRAP",2)

 +16       SET MSG="Disabling Anatomic Pathology [LRAP] option"

 +17       DO BMES^XPDUTL($$CJ^XLFSTR(MSG,80))

           KILL MSG

 +18      ;

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

 +20      ;

 +21      ; IHS/MSC/MKK

           DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install for "_$GET(XPDNM,"Unknown patch")_" completed ***",80))

 +22       QUIT 

 +23      ;

POST      ; KIDS Post install for LR*5.2*308

 +1       ;

 +2        NEW XQA,XQAMSG

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

 +4       ;

 +5       ; IHS/MSC/MKK 

           DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install for "_$GET(XPDNM,"Unknown patch")_" started ***",80))

 +6       ;

 +7        SET Y=$$OPTDE^XPDUTL("LRAP",1)

 +8        SET MSG="Enabling Anatomic Pathology [LRAP] option"

 +9        DO BMES^XPDUTL($$CJ^XLFSTR(MSG,80))

           KILL MSG

 +10      ;

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

 +12      ; 

 +13      ; IHS/MSC/MKK 

           DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install for "_$GET(XPDNM,"Unknown patch")_" completed ***",80))

 +14      ;

 +15       SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")

 +16       SET XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($HOROLOG)

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

 +18      ; D SETUP^XQALERT

 +19      ;

 +20      ; IHS/MSC/MKK

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

 +21      ;

 +22       SET MSG="Sending install completion alert to mail group G.LMI"

 +23      ; D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG

 +24      ;

 +25       QUIT