LEX2014P.m

LEX2014P ; ISA/JPK - Pre/Post Install ; 07/28/1999

 ;;2.0;Lexicon Utility;**14**;Sep 23, 1996

 ;

 Q

 ;                      

POST ; LEX*2.0*14 Post-Install

 D LOAD,MSG

 Q

LOAD ;   Load data

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

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

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

 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,757.11,757.21 D

 .D PRD^DILFD(LEXRV,"9^2990811")

 Q

MSG ;   Send Installation Message

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

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

 D IMP^LEX2014,SEND^LEXXST Q

 ;                       

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEX2014P   939     printed  Apr 09, 2024@21:09:55                                                                                                                                                                                                     Page 2

LEX2014P  ; ISA/JPK - Pre/Post Install ; 07/28/1999

 +1       ;;2.0;Lexicon Utility;**14**;Sep 23, 1996

 +2       ;

 +3        QUIT 

 +4       ;                      

POST      ; LEX*2.0*14 Post-Install

 +1        DO LOAD

           DO MSG

 +2        QUIT 

LOAD      ;   Load data

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

           DO IMP^LEX2014

 +2        SET U="^"

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

           if LEXB=""

               QUIT 

           if LEXBUILD=""

               QUIT 

 +3        SET LEXCD=0

           SET LEXCD=+($$CPD^LEX2014)

 +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,757.11,757.21

               Begin DoDot:1

 +11               DO PRD^DILFD(LEXRV,"9^2990811")

               End DoDot:1

 +12       QUIT 

MSG       ;   Send Installation Message

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

               QUIT 

 +2        DO HOME^%ZIS

           NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF

 +3        DO IMP^LEX2014

           DO SEND^LEXXST

           QUIT 

 +4       ;                       

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

 +1        QUIT