LEX2011 ; ISL LEX*2.0*11 Env chk/Post Install ; 05/25/1998
;;2.0;Lexicon Utility;**11**;Sep 23, 1996
;
ENV ; LEX*2.0*11 Environment Check
S U="^" D:'$$UR ET("User not defined (DUZ)") D:'$$SY ET("Undefined IO variable(s)") G:$D(LEXE) EXIT D:$$VERSION^XPDUTL("LEX")'="2.0" ET("Version 2.0 not found. Please install Lexicon Utility v 2.0") G:$D(LEXE) ABRT
QUIT W !!," Environment is ok",! Q
EXIT D:$D(LEXE) ED S XPDQUIT=2 K LEXE Q
ABRT D:$D(LEXE) ED S XPDQUIT=1 K LEXE Q
;
POST ; LEX*2.0*11 Post-Install (send install message only)
Q:+($G(DUZ))=0!('$D(^VA(200,+($G(DUZ)),0))) D HOME^%ZIS N DIFROM,LEXBUILD S LEXBUILD="LEX*2.0*11" D SEND^LEXXST Q
;
UR(X) Q:'$L($G(DUZ(0))) 0 Q:+($G(DUZ))=0!('$D(^VA(200,+($G(DUZ)),0))) 0 Q 1
SY(X) Q:'$D(IO)!('$D(IOF))!('$D(IOM))!('$D(ION))!('$D(IOSL))!('$D(IOST)) 0 Q 1
ET(X) N LEXI S LEXI=+($G(LEXE(0))),LEXI=LEXI+1,LEXE(LEXI)=" "_$G(X),LEXE(0)=LEXI Q
ED N LEXI S LEXI=0 F S LEXI=$O(LEXE(LEXI)) Q:+LEXI=0 W !,LEXE(LEXI)
W ! K LEXE Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2011 1027 printed Dec 13, 2024@02:03:39 Page 2
LEX2011 ; ISL LEX*2.0*11 Env chk/Post Install ; 05/25/1998
+1 ;;2.0;Lexicon Utility;**11**;Sep 23, 1996
+2 ;
ENV ; LEX*2.0*11 Environment Check
+1 SET U="^"
if '$$UR
DO ET("User not defined (DUZ)")
if '$$SY
DO ET("Undefined IO variable(s)")
if $DATA(LEXE)
GOTO EXIT
if $$VERSION^XPDUTL("LEX")'="2.0"
DO ET("Version 2.0 not found. Please install Lexicon Utility v 2.0")
if $DATA(LEXE)
GOTO ABRT
QUIT WRITE !!," Environment is ok",!
QUIT
EXIT if $DATA(LEXE)
DO ED
SET XPDQUIT=2
KILL LEXE
QUIT
ABRT if $DATA(LEXE)
DO ED
SET XPDQUIT=1
KILL LEXE
QUIT
+1 ;
POST ; LEX*2.0*11 Post-Install (send install message only)
+1 if +($GET(DUZ))=0!('$DATA(^VA(200,+($GET(DUZ)),0)))
QUIT
DO HOME^%ZIS
NEW DIFROM,LEXBUILD
SET LEXBUILD="LEX*2.0*11"
DO SEND^LEXXST
QUIT
+2 ;
UR(X) if '$LENGTH($GET(DUZ(0)))
QUIT 0
if +($GET(DUZ))=0!('$DATA(^VA(200,+($GET(DUZ)),0)))
QUIT 0
QUIT 1
SY(X) if '$DATA(IO)!('$DATA(IOF))!('$DATA(IOM))!('$DATA(ION))!('$DATA(IOSL))!('$DATA(IOST))
QUIT 0
QUIT 1
ET(X) NEW LEXI
SET LEXI=+($GET(LEXE(0)))
SET LEXI=LEXI+1
SET LEXE(LEXI)=" "_$GET(X)
SET LEXE(0)=LEXI
QUIT
ED NEW LEXI
SET LEXI=0
FOR
SET LEXI=$ORDER(LEXE(LEXI))
if +LEXI=0
QUIT
WRITE !,LEXE(LEXI)
+1 WRITE !
KILL LEXE
QUIT
