LEX2011.m

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 ---LEX2011   1027     printed  Apr 09, 2024@21:09:51                                                                                                                                                                                                     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