LEX2013P ; ISA/FJF-LEX*2.0*13 Pre/Post Install ; 02/17/1999
;;2.0;Lexicon Utility;**13**;Feb 17, 1999
;
Q
;
POST ; LEX*2.0*13 Post-Install
D LOAD,MSG
Q
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
Q
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2013P 858 printed Nov 22, 2024@17:13:48 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
