LR213.m

LR213 ;DALCIOFO/NDH - LR PATCH ENVIRONMENT CHECK ROUTINE ;01/05/98  09:01

 ;;5.2T9;LR;**1018**;Nov 17, 2004

 ;;5.2;LAB SERVICE;**213**;Sep 27, 1994

 ;

INIT ;-->Does not prevent loading of the transport global.

 ;-->Environment check is done only during the install.

 ;

 Q:'$G(XPDENV)

 ;

 D CHECK

EXIT ;

 I $G(XPDQUIT) W !!,$$CJ^XLFSTR("Install Environment Check FAILED",80)

 I '$G(XPDQUIT) W !!,$$CJ^XLFSTR("Environment Check is Ok ---",80)

 K VER,RN,LN2

 Q

CHECK ;

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

 ;

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

 ;

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

 ;

 S VER=$$VERSION^XPDUTL("LR") I VER'>5.1 D VERSION QUIT

 ;

 ;

 QUIT

 ;

TERM ;

 W !,$$CJ^XLFSTR("Terminal Device is not defined",80),!!

 D XP

 Q

DUZ ;

 W !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),!

 D XP

 Q

USER ;

 W !,$$CJ^XLFSTR("You are not a valid user on this system.",80),!

 D XP

 Q

VERSION ;

 W !,$$CJ^XLFSTR("You must have LAB V5.2 Installed",80),!

 D XP

 Q

XP ;

 S XPDQUIT=2

 Q

 ;

 Q

LR213     ;DALCIOFO/NDH - LR PATCH ENVIRONMENT CHECK ROUTINE ;01/05/98  09:01

 +1       ;;5.2T9;LR;**1018**;Nov 17, 2004

 +2       ;;5.2;LAB SERVICE;**213**;Sep 27, 1994

 +3       ;

INIT      ;-->Does not prevent loading of the transport global.

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

 +2       ;

 +3        IF '$GET(XPDENV)

               QUIT 

 +4       ;

 +5        DO CHECK

EXIT      ;

 +1        IF $GET(XPDQUIT)

               WRITE !!,$$CJ^XLFSTR("Install Environment Check FAILED",80)

 +2        IF '$GET(XPDQUIT)

               WRITE !!,$$CJ^XLFSTR("Environment Check is Ok ---",80)

 +3        KILL VER,RN,LN2

 +4        QUIT 

CHECK     ;

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

               DO TERM

               QUIT 

 +2       ;

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

               DO DUZ

               QUIT 

 +4       ;

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

               DO USER

               QUIT 

 +6       ;

 +7        SET VER=$$VERSION^XPDUTL("LR")

           IF VER'>5.1

               DO VERSION

               QUIT 

 +8       ;

 +9       ;

 +10       QUIT 

 +11      ;

TERM      ;

 +1        WRITE !,$$CJ^XLFSTR("Terminal Device is not defined",80),!!

 +2        DO XP

 +3        QUIT 

DUZ       ;

 +1        WRITE !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),!

 +2        DO XP

 +3        QUIT 

USER      ;

 +1        WRITE !,$$CJ^XLFSTR("You are not a valid user on this system.",80),!

 +2        DO XP

 +3        QUIT 

VERSION   ;

 +1        WRITE !,$$CJ^XLFSTR("You must have LAB V5.2 Installed",80),!

 +2        DO XP

 +3        QUIT 

XP        ;

 +1        SET XPDQUIT=2

 +2        QUIT 

 +3       ;

 +4        QUIT