BLR1012E.m

BLR1012E ; IHS/HQT/MJL - LR*5.2*1012 PATCH ENVIRONMENT CHECK ROUTINE ;  [ 07/25/2001  2:15 PM ]

 ;;5.2;LR;**1012**;JUL 25, 2001

EN ;Prevents loading of the transport global.

 ;Environment check is done only during the install.

 ;

 Q:'$G(XPDENV)

 I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,1:0) W !!,$C(7),">>>  DUZ and DUZ(0) must be defined as an active user to initialize.",!,"     Please setup these parameters (Sign-on) before continuing.",! S XPDQUIT=1

 I +$G(^DD(60,0,"VR"))<5.2 W !!,$C(7),">>>  You must at least be running Lab 5.2 to continue.",! S XPDQUIT=1

 I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) W !,$$CJ^XLFSTR("Terminal Device in not defined",80),!! S XPDQUIT=1

 I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) W !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),! S XPDQUIT=1

 I '$D(^VA(200,$G(DUZ),0))#2 W !,$$CJ^XLFSTR("You are not a valid user on this system",80),! S XPDQUIT=1

 W !!,"Checking for LR 5.2 Patch 1011..."

 F RN="BLRTN","LRORD" X "ZL @RN S LN2=$T(+2)" I LN2'["1011",LN2'["1012" D

 .  W !,$$CJ^XLFSTR(RN_"--Patch 'LR*5.2*1011' has not been installed.",80)

 .  W ! S XPDQUIT=1

 K BLRFDA,BLRIEN,BLREMSG,DIC

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

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

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 Q

BLR1012E  ; IHS/HQT/MJL - LR*5.2*1012 PATCH ENVIRONMENT CHECK ROUTINE ;  [ 07/25/2001  2:15 PM ]

 +1       ;;5.2;LR;**1012**;JUL 25, 2001

EN        ;Prevents loading of the transport global.

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

 +2       ;

 +3        IF '$GET(XPDENV)

               QUIT 

 +4        IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,1:0)

               WRITE !!,$CHAR(7),">>>  DUZ and DUZ(0) must be defined as an active user to initialize.",!,"     Please setup these parameters (Sign-on) before continuing.",!

               SET XPDQUIT=1

 +5        IF +$GET(^DD(60,0,"VR"))<5.2

               WRITE !!,$CHAR(7),">>>  You must at least be running Lab 5.2 to continue.",!

               SET XPDQUIT=1

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

               WRITE !,$$CJ^XLFSTR("Terminal Device in not defined",80),!!

               SET XPDQUIT=1

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

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

               SET XPDQUIT=1

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

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

               SET XPDQUIT=1

 +9        WRITE !!,"Checking for LR 5.2 Patch 1011..."

 +10       FOR RN="BLRTN","LRORD"

               XECUTE "ZL @RN S LN2=$T(+2)"

               IF LN2'["1011"

                   IF LN2'["1012"

                       Begin DoDot:1

 +11                       WRITE !,$$CJ^XLFSTR(RN_"--Patch 'LR*5.2*1011' has not been installed.",80)

 +12                       WRITE !

                           SET XPDQUIT=1

                       End DoDot:1

 +13       KILL BLRFDA,BLRIEN,BLREMSG,DIC

 +14       IF $GET(XPDQUIT)

               WRITE !!,$$CJ^XLFSTR("Install environment check FAILED",80)

 +15       IF '$GET(XPDQUIT)

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

 +16       IF $GET(XPDENV)=1

               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +17       QUIT