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

LEX2041P.m

Go to the documentation of this file.
  1. LEX2041P ; ISL/FJF - Pre/Post Install ; 09/09/2006
  1. ;;2.0;LEXICON UTILITY;**41**;Sep 23, 1996;Build 34
  1. ;
  1. ; External References
  1. ; DBIA 10086 HOME^%ZIS
  1. ; DBIA 2052 $$GET1^DID
  1. ; DBIA 2055 PRD^DILFD
  1. ; DBIA 10014 EN^DIU2
  1. ; DBIA 10141 BMES^XPDUTL
  1. ; DBIA 10141 MES^XPDUTL
  1. ;
  1. Q
  1. ;
  1. POST ; LEX*2.0*41 Post-Install
  1. N LEXEDT,LEXMUMPS
  1. S LEXEDT=$G(^LEXM(0,"CREATED"))
  1. ;
  1. ;-----------------------------
  1. ; Save Changes
  1. D SCHG
  1. ;
  1. ;-----------------------------
  1. ; Load Data into Files
  1. D LOAD
  1. ;
  1. ;-----------------------------
  1. ; Data Conversion
  1. D CON
  1. ;
  1. ;-----------------------------
  1. ; Re-Index Files - N/A for LEX*2.0*41
  1. ;
  1. ;
  1. ;-----------------------------
  1. ; Send a Install Message
  1. D MSG
  1. ;
  1. Q
  1. ;-----------------------------
  1. ;
  1. LOAD ; Load Data from ^LEXM into LEX Files
  1. N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV,LEXSHORT,LEXMSG
  1. D IMP^LEX2041
  1. S U="^",LEXB=$G(^LEXM(0,"BUILD"))
  1. Q:LEXB="" Q:LEXBUILD=""
  1. S LEXCD=+$$CPD^LEX2041
  1. I LEXCD,LEXB=LEXBUILD D D KLEXM Q
  1. .S X="Data for patch "_LEXBUILD_" has already been installed"
  1. .W:'$D(XPDNM) !!,X
  1. .D:$D(XPDNM) BMES^XPDUTL(X)
  1. .S X=""
  1. .W:'$D(XPDNM) !
  1. .D:$D(XPDNM) MES^XPDUTL(X)
  1. I 'LEXCD,LEXB=LEXBUILD D
  1. .S LEXSHORT=1,LEXMSG=1
  1. .D TASK^LEXXGI
  1. Q
  1. ;
  1. MSG ; Send Installation Message to G.LEXICON
  1. Q:+($G(DUZ))=0!($$NOTDEF^LEX2041($G(DUZ)))
  1. D HOME^%ZIS
  1. N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
  1. S LEXSHORT=1
  1. D IMP^LEX2041 ;,POST^LEXXFI
  1. Q
  1. ;
  1. SCHG ; Save Change File Changes
  1. N LEXI,LEXFI,LEXFIL,LEXRT
  1. S LEXFI=0 F S LEXFI=$O(^LEXM(LEXFI)) Q:+LEXFI=0 D
  1. .S LEXI=0 F S LEXI=$O(^LEXM(LEXFI,LEXI)) Q:+LEXI=0 D
  1. ..N LEXCF,LEXIEN,LEXMUMPS
  1. ..S LEXMUMPS=$G(^LEXM(LEXFI,LEXI)),LEXRT=$P(LEXMUMPS,"^",2)
  1. ..S:LEXMUMPS["^LEX("!(LEXMUMPS["^LEXT(") LEXFIL=+($P(LEXRT,"(",2))
  1. Q
  1. ;
  1. KLEXM ; Subscripted Kill of ^LEXM
  1. N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
  1. K ^LEXM(0)
  1. Q
  1. PRE ; LEX*2.0*41 Pre-Install (N/A for patch 41)
  1. Q
  1. ;
  1. CON ; Conversion of data (N/A for patch 41)
  1. Q