- LEX2018P ;ISA/FJF-Pre/Post Install;11-17-00
- ;;2.0;LEXICON UTILITY;**18**;Sep 23, 1996
- ;
- Q
- ;
- POST ; LEX*2.0*18 Post-Install
- D LOAD,MSG
- Q
- LOAD ; Load data
- N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2018
- S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
- S LEXCD=0 S LEXCD=+($$CPD^LEX2018)
- 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 D
- .D PRD^DILFD(LEXRV,"11^3001117")
- Q
- MSG ; Send Installation Message
- Q:+($G(DUZ))=0!($$NOTDEF^LEX2018($G(DUZ)))
- D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
- D IMP^LEX2018,SEND^LEXXST Q
- ;
- CON ; Conversion of data (N/A for patch 18)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2018P 919 printed Feb 18, 2025@23:29:47 Page 2
- LEX2018P ;ISA/FJF-Pre/Post Install;11-17-00
- +1 ;;2.0;LEXICON UTILITY;**18**;Sep 23, 1996
- +2 ;
- +3 QUIT
- +4 ;
- POST ; LEX*2.0*18 Post-Install
- +1 DO LOAD
- DO MSG
- +2 QUIT
- LOAD ; Load data
- +1 NEW LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV
- DO IMP^LEX2018
- +2 SET U="^"
- SET LEXB=$GET(^LEXM(0,"BUILD"))
- if LEXB=""
- QUIT
- if LEXBUILD=""
- QUIT
- +3 SET LEXCD=0
- SET LEXCD=+($$CPD^LEX2018)
- +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
- Begin DoDot:1
- +11 DO PRD^DILFD(LEXRV,"11^3001117")
- End DoDot:1
- +12 QUIT
- MSG ; Send Installation Message
- +1 if +($GET(DUZ))=0!($$NOTDEF^LEX2018($GET(DUZ)))
- QUIT
- +2 DO HOME^%ZIS
- NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
- +3 DO IMP^LEX2018
- DO SEND^LEXXST
- QUIT
- +4 ;
- CON ; Conversion of data (N/A for patch 18)
- +1 QUIT