Routine: LEX2013P

LEX2013P ; ISA/FJF-LEX*2.0*13 Pre/Post Install             ; 02/17/1999

 ;;2.0;Lexicon Utility;**13**;Feb 17, 1999

POST ; LEX*2.0*13 Post-Install

 D LOAD,MSG

LOAD ;   Load data

 N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2013

 S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB=""  Q:LEXBUILD=""

 S LEXCD=0 S LEXCD=+($$CPD^LEX2013)

 I LEXCD,LEXB=LEXBUILD D  Q

 . S X="Data for patch "_LEXBUILD_" has already been installed"

 . W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)

 . S X="" W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)

 I 'LEXCD,LEXB=LEXBUILD D EN^LEXXGI

MSG ;   Send Installation Message

 Q:+($G(DUZ))=0!($$NOTDEF^LEX2013($G(DUZ)))

 D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF

 D IMP^LEX2013,SEND^LEXXST Q

CON ; Conversion of data (N/A for patch 13)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2013P   858     printed  Apr 09, 2024@21:09:20                                                                                                                                                                                                     Page 2

LEX2013P  ; ISA/FJF-LEX*2.0*13 Pre/Post Install             ; 02/17/1999

 +1       ;;2.0;Lexicon Utility;**13**;Feb 17, 1999

 +2       ;

 +3        QUIT

 +4       ;

POST      ; LEX*2.0*13 Post-Install

 +1        DO LOAD

           DO MSG

 +2        QUIT

LOAD      ;   Load data

 +1        NEW LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV

           DO IMP^LEX2013

 +2        SET U="^"

           SET LEXB=$GET(^LEXM(0,"BUILD"))

           if LEXB=""

               QUIT

           if LEXBUILD=""

               QUIT

 +3        SET LEXCD=0

           SET LEXCD=+($$CPD^LEX2013)

 +4        IF LEXCD

               IF LEXB=LEXBUILD

                   Begin DoDot:1

 +5                    SET X="Data for patch "_LEXBUILD_" has already been installed"

 +6                    if '$DATA(XPDNM)

                           WRITE !!,X

                       if $DATA(XPDNM)

                           DO BMES^XPDUTL(X)

 +7                    SET X=""

                       if '$DATA(XPDNM)

                           WRITE !

                       if $DATA(XPDNM)

                           DO MES^XPDUTL(X)

                   End DoDot:1

                   QUIT

 +8        IF 'LEXCD

               IF LEXB=LEXBUILD

                   DO EN^LEXXGI

 +9        QUIT

MSG       ;   Send Installation Message

 +1        if +($GET(DUZ))=0!($$NOTDEF^LEX2013($GET(DUZ)))

               QUIT

 +2        DO HOME^%ZIS

           NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF

 +3        DO IMP^LEX2013

           DO SEND^LEXXST

           QUIT

 +4       ;

CON       ; Conversion of data (N/A for patch 13)

 +1        QUIT

LEX2013P.m