LA42.m

LA42 ;IHS/DIR/AAB - LA*5.2*42 PATCH ENVIRONMENT CHECK ROUTINE ; 12/3/1997 [ 12/17/1998  8:44 AM ]

 ;;5.2;LA;**1003**;SEP 01, 1998

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994

EN ; Does not prevent loading of the transport global.

 ; Environment check is done only during the install.

 Q:'$G(XPDENV)

 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

 . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))

 . S XPDQUIT=2

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

 . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))

 . S XPDQUIT=2

 ;W !!,"Checking for 1002..."  ;IHS/DIR TUC/AAB 06/17/98

 ;F RN="LA7ADL2" X "ZL @RN S LN2=$T(+2)" I LN2'["1002" D

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

 ;.  W ! S XPDQUIT=2

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

 Q

 ;

EXIT ;

 I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))

 I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

 Q

 ;

PRE ; KIDS Pre install for LA*5.2*42

 N LA7NOAC

 S LA7NOAC=1 ; Flag for actions

 D BMES^XPDUTL($$CJ^XLFSTR("--- Starting Pre Install ---",80))

 I LA7NOAC D BMES^XPDUTL($$CJ^XLFSTR("--- No action necessary ---",80))

 D BMES^XPDUTL($$CJ^XLFSTR("--- End Pre Install ---",80))

 Q

 ;

POST ; KIDS Post install for LA*5.2*42

 N LA7NOAC

 S LA7NOAC=1 ; Flag for actions

 D BMES^XPDUTL($$CJ^XLFSTR("--- Starting Post Install ---",80))

 I LA7NOAC D BMES^XPDUTL($$CJ^XLFSTR("--- No action necessary ---",80))

 D BMES^XPDUTL($$CJ^XLFSTR("--- End Post Install ---",80))

 Q

LA42      ;IHS/DIR/AAB - LA*5.2*42 PATCH ENVIRONMENT CHECK ROUTINE ; 12/3/1997 [ 12/17/1998  8:44 AM ]

 +1       ;;5.2;LA;**1003**;SEP 01, 1998

 +2       ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994

EN        ; Does not prevent loading of the transport global.

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

 +2        IF '$GET(XPDENV)

               QUIT 

 +3        DO CHECK

 +4        DO EXIT

 +5        QUIT 

 +6       ;

CHECK     ; Perform environment check

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

               Begin DoDot:1

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

 +3                SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

               Begin DoDot:1

 +5                DO BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))

 +6                SET XPDQUIT=2

               End DoDot:1

               QUIT 

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

               Begin DoDot:1

 +8                DO BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))

 +9                SET XPDQUIT=2

               End DoDot:1

               QUIT 

 +10      ;W !!,"Checking for 1002..."  ;IHS/DIR TUC/AAB 06/17/98

 +11      ;F RN="LA7ADL2" X "ZL @RN S LN2=$T(+2)" I LN2'["1002" D

 +12      ;.  W !,$$CJ^XLFSTR(RN_"--Patch 'LA*5.2*1002' has not been installed.",80)

 +13      ;.  W ! S XPDQUIT=2

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

 +15       QUIT 

 +16      ;

EXIT      ;

 +1        IF $GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))

 +2        IF '$GET(XPDQUIT)

               DO BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))

 +3        QUIT 

 +4       ;

PRE       ; KIDS Pre install for LA*5.2*42

 +1        NEW LA7NOAC

 +2       ; Flag for actions

           SET LA7NOAC=1

 +3        DO BMES^XPDUTL($$CJ^XLFSTR("--- Starting Pre Install ---",80))

 +4        IF LA7NOAC

               DO BMES^XPDUTL($$CJ^XLFSTR("--- No action necessary ---",80))

 +5        DO BMES^XPDUTL($$CJ^XLFSTR("--- End Pre Install ---",80))

 +6        QUIT 

 +7       ;

POST      ; KIDS Post install for LA*5.2*42

 +1        NEW LA7NOAC

 +2       ; Flag for actions

           SET LA7NOAC=1

 +3        DO BMES^XPDUTL($$CJ^XLFSTR("--- Starting Post Install ---",80))

 +4        IF LA7NOAC

               DO BMES^XPDUTL($$CJ^XLFSTR("--- No action necessary ---",80))

 +5        DO BMES^XPDUTL($$CJ^XLFSTR("--- End Post Install ---",80))

 +6        QUIT