LEX2017P ;ISA/FJF-Pre/Post Install;10-02-00
;;2.0;LEXICON UTILITY;**17**;Sep 23, 1996
;
Q
;
POST ; LEX*2.0*17 Post-Install
D LOAD,MSG
Q
LOAD ; Load data
N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2017
S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
S LEXCD=0 S LEXCD=+($$CPD^LEX2017)
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,"10^3001010")
Q
MSG ; Send Installation Message
Q:+($G(DUZ))=0!($$NOTDEF^LEX2017($G(DUZ)))
D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
D IMP^LEX2017,SEND^LEXXST Q
;
CON ; Conversion of data (N/A for patch 17)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2017P 933 printed Nov 22, 2024@17:13:51 Page 2
LEX2017P ;ISA/FJF-Pre/Post Install;10-02-00
+1 ;;2.0;LEXICON UTILITY;**17**;Sep 23, 1996
+2 ;
+3 QUIT
+4 ;
POST ; LEX*2.0*17 Post-Install
+1 DO LOAD
DO MSG
+2 QUIT
LOAD ; Load data
+1 NEW LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV
DO IMP^LEX2017
+2 SET U="^"
SET LEXB=$GET(^LEXM(0,"BUILD"))
if LEXB=""
QUIT
if LEXBUILD=""
QUIT
+3 SET LEXCD=0
SET LEXCD=+($$CPD^LEX2017)
+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,"10^3001010")
End DoDot:1
+12 QUIT
MSG ; Send Installation Message
+1 if +($GET(DUZ))=0!($$NOTDEF^LEX2017($GET(DUZ)))
QUIT
+2 DO HOME^%ZIS
NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
+3 DO IMP^LEX2017
DO SEND^LEXXST
QUIT
+4 ;
CON ; Conversion of data (N/A for patch 17)
+1 QUIT
