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

LEX2028P.m

Go to the documentation of this file.
  1. LEX2028P ; ISL/KER - Pre/Post Install; 01/01/2004
  1. ;;2.0;LEXICON UTILITY;**28**;Sep 23, 1996
  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*28 Post-Install
  1. N LEXEDT S LEXEDT=$G(^LEXM(0,"CREATED")) D LOAD,MSG,KLEXM
  1. Q
  1. LOAD ; Load data
  1. N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2028
  1. S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:$G(LEXBUILD)=""
  1. S LEXCD=0 S LEXCD=+($$CPD^LEX2028)
  1. I LEXCD,LEXB=LEXBUILD D G RV
  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. RV ; Revision Numbers
  1. N LEXRV F LEXRV=757,757.001,757.01,757.02,757.1,757.9,757.901,757.902,757.903,757.91 D
  1. . Q:'$D(^LEXM(LEXRV,0))
  1. . Q:'$D(^LEX(LEXRV,0))&('$D(^LEXT(LEXRV,0)))&('$D(^LEXC(LEXRV,0)))
  1. . Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
  1. . D PRD^DILFD(LEXRV,"28^3040101")
  1. F LEXRV=81,81.3 D
  1. . Q:'$D(^LEXM(LEXRV,0)) Q:'$D(^DD(LEXRV,0)) Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
  1. . D PRD^DILFD(LEXRV,"17^3040101")
  1. LOADQ ; Quit Load
  1. D KLEXM
  1. Q
  1. MSG ; Send Installation Message
  1. Q:+($G(DUZ))=0!($$NOTDEF^LEX2028($G(DUZ)))
  1. D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
  1. S LEXSHORT="" D IMP^LEX2028,SEND^LEXXST Q
  1. ;
  1. PRE ; LEX*2.0*28 Pre-Install
  1. D KDD,KCH Q
  1. KDD ; Kill previous copies of DDs - (N/A for patch 28)
  1. Q
  1. KCH ; Kill previous changes - (N/A for patch 28)
  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. CON ; Conversion of data (N/A for patch 28)
  1. Q