source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR365.m

LR365   ;DALOI/CKA - LR*5.2*365 PATCH ENVIRONMENT CHECK ROUTINE ;05/7/07
        ;;5.2;LAB SERVICE;**365**;Sep 27, 1994;Build 9
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 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
        .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))
        Q
        ;
PRE     ; KIDS Pre install for LR*5.2*365
        Q
        ;
POST    ; KIDS Post install for LR*5.2*365
        ;
        Q