LEX2018P.m

LEX2018P ;ISA/FJF-Pre/Post Install;11-17-00

 ;;2.0;LEXICON UTILITY;**18**;Sep 23, 1996

 ;

 Q

 ;                      

POST ; LEX*2.0*18 Post-Install

 D LOAD,MSG

 Q

LOAD ;   Load data

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

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

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

 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

 N LEXRV

 F LEXRV=757,757.001,757.01,757.02,757.1 D

 .D PRD^DILFD(LEXRV,"11^3001117")

 Q

MSG ;   Send Installation Message

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

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

 D IMP^LEX2018,SEND^LEXXST Q

 ;                       

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEX2018P   919     printed  Apr 09, 2024@21:13:53                                                                                                                                                                                                     Page 2

LEX2018P  ;ISA/FJF-Pre/Post Install;11-17-00

 +1       ;;2.0;LEXICON UTILITY;**18**;Sep 23, 1996

 +2       ;

 +3        QUIT 

 +4       ;                      

POST      ; LEX*2.0*18 Post-Install

 +1        DO LOAD

           DO MSG

 +2        QUIT 

LOAD      ;   Load data

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

           DO IMP^LEX2018

 +2        SET U="^"

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

           if LEXB=""

               QUIT 

           if LEXBUILD=""

               QUIT 

 +3        SET LEXCD=0

           SET LEXCD=+($$CPD^LEX2018)

 +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        NEW LEXRV

 +10       FOR LEXRV=757,757.001,757.01,757.02,757.1

               Begin DoDot:1

 +11               DO PRD^DILFD(LEXRV,"11^3001117")

               End DoDot:1

 +12       QUIT 

MSG       ;   Send Installation Message

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

               QUIT 

 +2        DO HOME^%ZIS

           NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF

 +3        DO IMP^LEX2018

           DO SEND^LEXXST

           QUIT 

 +4       ;                       

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

 +1        QUIT