Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEX2018P

LEX2018P.m

Go to the documentation of this file.
  1. LEX2018P ;ISA/FJF-Pre/Post Install;11-17-00
  1. ;;2.0;LEXICON UTILITY;**18**;Sep 23, 1996
  1. ;
  1. Q
  1. ;
  1. POST ; LEX*2.0*18 Post-Install
  1. D LOAD,MSG
  1. Q
  1. LOAD ; Load data
  1. N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2018
  1. S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
  1. S LEXCD=0 S LEXCD=+($$CPD^LEX2018)
  1. I LEXCD,LEXB=LEXBUILD D Q
  1. . S X="Data for patch "_LEXBUILD_" has already been installed"
  1. . W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)
  1. . S X="" W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)
  1. I 'LEXCD,LEXB=LEXBUILD D EN^LEXXGI
  1. N LEXRV
  1. F LEXRV=757,757.001,757.01,757.02,757.1 D
  1. .D PRD^DILFD(LEXRV,"11^3001117")
  1. Q
  1. MSG ; Send Installation Message
  1. Q:+($G(DUZ))=0!($$NOTDEF^LEX2018($G(DUZ)))
  1. D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
  1. D IMP^LEX2018,SEND^LEXXST Q
  1. ;
  1. CON ; Conversion of data (N/A for patch 18)
  1. Q