- LR111 ;DALISC/FHS/HOAK - LR*5.2*111 ENVIRNMENT CHECK ROUTINE ;6/10/97 800 ;
- ;;5.2;LAB SERVICE;**59,111**;Sep 27, 1994
- EN ; Does not prevent loading of the transport global.
- ;Envirnment check is done only during the install.
- Q:'$G(XPDENV)
- ;-------------------------------------------------------------------
- ; check for device assigned
- DEVICE ;
- I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D
- . W !,$$CJ^XLFSTR("Terminal Device in not defined",80),!!
- ;-------------------------------------------------------------------
- ; asertain wether user signed on
- USER ;
- I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D
- . W !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),!
- . S XPDQUIT=2
- ;-------------------------------------------------------------------
- I '$D(^VA(200,$G(DUZ),0))#2 D
- . W !,$$CJ^XLFSTR("You are not a valid user on this system",80),!
- . S XPDQUIT=2
- ;-------------------------------------------------------------------
- I +$G(^LAM("VR"))'>5.1 D
- . W !,$$CJ^XLFSTR("You must have LAB V5.2 or greater Installed",80),!
- . S XPDQUIT=2
- ;-------------------------------------------------------------------
- I $G(XPDQUIT) W !!,$$CJ^XLFSTR("Install environment check FAILED",80)
- I '$G(XPDQUIT) W !!,$$CJ^XLFSTR("Envirnment Check is Ok ---",80)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR111 1318 printed Mar 13, 2025@21:07:26 Page 2
- LR111 ;DALISC/FHS/HOAK - LR*5.2*111 ENVIRNMENT CHECK ROUTINE ;6/10/97 800 ;
- +1 ;;5.2;LAB SERVICE;**59,111**;Sep 27, 1994
- EN ; Does not prevent loading of the transport global.
- +1 ;Envirnment check is done only during the install.
- +2 if '$GET(XPDENV)
- QUIT
- +3 ;-------------------------------------------------------------------
- +4 ; check for device assigned
- DEVICE ;
- +1 IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)
- Begin DoDot:1
- +2 WRITE !,$$CJ^XLFSTR("Terminal Device in not defined",80),!!
- End DoDot:1
- +3 ;-------------------------------------------------------------------
- +4 ; asertain wether user signed on
- USER ;
- +1 IF $SELECT('$GET(DUZ):1,$DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,1:0)
- Begin DoDot:1
- +2 WRITE !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),!
- +3 SET XPDQUIT=2
- End DoDot:1
- +4 ;-------------------------------------------------------------------
- +5 IF '$DATA(^VA(200,$GET(DUZ),0))#2
- Begin DoDot:1
- +6 WRITE !,$$CJ^XLFSTR("You are not a valid user on this system",80),!
- +7 SET XPDQUIT=2
- End DoDot:1
- +8 ;-------------------------------------------------------------------
- +9 IF +$GET(^LAM("VR"))'>5.1
- Begin DoDot:1
- +10 WRITE !,$$CJ^XLFSTR("You must have LAB V5.2 or greater Installed",80),!
- +11 SET XPDQUIT=2
- End DoDot:1
- +12 ;-------------------------------------------------------------------
- +13 IF $GET(XPDQUIT)
- WRITE !!,$$CJ^XLFSTR("Install environment check FAILED",80)
- +14 IF '$GET(XPDQUIT)
- WRITE !!,$$CJ^XLFSTR("Envirnment Check is Ok ---",80)
- +15 QUIT
