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 ---[H[J[2J[HLEX2014P 939 printed Sep 23, 2025@19:39:28 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
