- 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 Mar 13, 2025@21:08:08 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
