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

LEX2012P.m

Go to the documentation of this file.
  1. LEX2012P ; ISA/CJE-LEX*2.0*12 Pre/Post Install ; 11/10/1998
  1. ;;2.0;Lexicon Utility;**12**;Sept 23, 1996
  1. ;
  1. Q
  1. ;
  1. POST ; LEX*2.0*12 Post-Install
  1. D LOAD,MSG
  1. Q
  1. LOAD ; Load data
  1. N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2012
  1. S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
  1. S LEXCD=0 S LEXCD=+($$CPD^LEX2012)
  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. Q
  1. MSG ; Send Installation Message
  1. Q:+($G(DUZ))=0!('$D(^VA(200,+($G(DUZ)),0)))
  1. D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF
  1. D IMP^LEX2012,SEND^LEXXST Q
  1. ;
  1. CON ; Conversion of data (N/A for patch 12)
  1. Q