LEX2012P ; ISA/CJE-LEX*2.0*12 Pre/Post Install ; 11/10/1998
;;2.0;Lexicon Utility;**12**;Sept 23, 1996
;
Q
;
POST ; LEX*2.0*12 Post-Install
D LOAD,MSG
Q
LOAD ; Load data
N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2012
S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
S LEXCD=0 S LEXCD=+($$CPD^LEX2012)
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
Q
MSG ; Send Installation Message
Q:+($G(DUZ))=0!('$D(^VA(200,+($G(DUZ)),0)))
D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
D IMP^LEX2012,SEND^LEXXST Q
;
CON ; Conversion of data (N/A for patch 12)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2012P 860 printed Mar 13, 2025@21:08:09 Page 2
LEX2012P ; ISA/CJE-LEX*2.0*12 Pre/Post Install ; 11/10/1998
+1 ;;2.0;Lexicon Utility;**12**;Sept 23, 1996
+2 ;
+3 QUIT
+4 ;
POST ; LEX*2.0*12 Post-Install
+1 DO LOAD
DO MSG
+2 QUIT
LOAD ; Load data
+1 NEW LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV
DO IMP^LEX2012
+2 SET U="^"
SET LEXB=$GET(^LEXM(0,"BUILD"))
if LEXB=""
QUIT
if LEXBUILD=""
QUIT
+3 SET LEXCD=0
SET LEXCD=+($$CPD^LEX2012)
+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!('$DATA(^VA(200,+($GET(DUZ)),0)))
QUIT
+2 DO HOME^%ZIS
NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
+3 DO IMP^LEX2012
DO SEND^LEXXST
QUIT
+4 ;
CON ; Conversion of data (N/A for patch 12)
+1 QUIT
