LEX2051P ;ISL/FJF - Pre/Post Install ; 30 Aug 2011 11:25 PM
;;2.0;LEXICON UTILITY;**51**;Sep 23, 1996;Build 77
;
; External References
; DBIA 10086 HOME^%ZIS
; DBIA 2052 $$GET1^DID
; DBIA 2055 PRD^DILFD
; DBIA 10014 EN^DIU2
; DBIA 10141 BMES^XPDUTL
; DBIA 10141 MES^XPDUTL
; DBIA 10013 ^DIK
;
Q
;
POST ; LEX*2.0*51 Post-Install
N LEXEDT,LEXMUMPS
S LEXEDT=$G(^LEXM(0,"CREATED"))
;
;-----------------------------
; Save Changes
D SCHG
;
;-----------------------------
; Load Data into Files
D LOAD
;
;-----------------------------
; Data Conversion
D CON
;
;-----------------------------
; Re-Index Files
D IND
;
;-----------------------------
; Send a Install Message
D MSG
;
Q
;-----------------------------
;
LOAD ; Load Data
;
; LEXSHORT Send Short Message
; LEXMSG Flag to send Message
;
N LEXSHORT,LEXMSG,LEXB,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF
S LEXSHORT="",LEXMSG=""
D IMP^LEX2051
S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:$G(LEXBUILD)=""
D:LEXB=LEXBUILD EN^LEXXGI
LQ ; Load Quit
D KLEXM
Q
;
MSG ; Send Installation Message to G.LEXICON
Q:+($G(DUZ))=0!($$NOTDEF^LEX2051($G(DUZ)))
D HOME^%ZIS
N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
S LEXSHORT=1
D IMP^LEX2051 ;,POST^LEXXFI
Q
;
SCHG ; Save Change File Changes
N LEXI,LEXFI,LEXFIL,LEXRT
S LEXFI=0 F S LEXFI=$O(^LEXM(LEXFI)) Q:+LEXFI=0 D
.S LEXI=0 F S LEXI=$O(^LEXM(LEXFI,LEXI)) Q:+LEXI=0 D
..N LEXCF,LEXIEN,LEXMUMPS
..S LEXMUMPS=$G(^LEXM(LEXFI,LEXI)),LEXRT=$P(LEXMUMPS,"^",2)
..S:LEXMUMPS["^LEX("!(LEXMUMPS["^LEXT(") LEXFIL=+($P(LEXRT,"(",2))
Q
;
KLEXM ; Subscripted Kill of ^LEXM
N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
K ^LEXM(0)
Q
PRE ; LEX*2.0*51 Pre-Install
; Kill all indexes
N DIK S DIK="^LEX(757.33," D IXALL2^DIK
; Delete the old DD
N DIU S DIU="^LEX(757.33,",DIU(0)="T" D EN^DIU2
Q
;
CON ; Conversion of data
N LEXLOUD S LEXLOUD="" D:$L($T(AWRD^LEXXGI4)) AWRD^LEXXGI4
Q
IND ; Rebuild indices
; Rebuild indices for 757.33
N DIK
D BMES^XPDUTL("Rebuilding indices")
D BMES^XPDUTL("")
S DIK="^LEX(757.33," D IXALL^DIK
D BMES^XPDUTL("Index rebuild complete")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2051P 2328 printed Apr 09, 2024@21:10:34 Page 2
LEX2051P ;ISL/FJF - Pre/Post Install ; 30 Aug 2011 11:25 PM
+1 ;;2.0;LEXICON UTILITY;**51**;Sep 23, 1996;Build 77
+2 ;
+3 ; External References
+4 ; DBIA 10086 HOME^%ZIS
+5 ; DBIA 2052 $$GET1^DID
+6 ; DBIA 2055 PRD^DILFD
+7 ; DBIA 10014 EN^DIU2
+8 ; DBIA 10141 BMES^XPDUTL
+9 ; DBIA 10141 MES^XPDUTL
+10 ; DBIA 10013 ^DIK
+11 ;
+12 QUIT
+13 ;
POST ; LEX*2.0*51 Post-Install
+1 NEW LEXEDT,LEXMUMPS
+2 SET LEXEDT=$GET(^LEXM(0,"CREATED"))
+3 ;
+4 ;-----------------------------
+5 ; Save Changes
+6 DO SCHG
+7 ;
+8 ;-----------------------------
+9 ; Load Data into Files
+10 DO LOAD
+11 ;
+12 ;-----------------------------
+13 ; Data Conversion
+14 DO CON
+15 ;
+16 ;-----------------------------
+17 ; Re-Index Files
+18 DO IND
+19 ;
+20 ;-----------------------------
+21 ; Send a Install Message
+22 DO MSG
+23 ;
+24 QUIT
+25 ;-----------------------------
+26 ;
LOAD ; Load Data
+1 ;
+2 ; LEXSHORT Send Short Message
+3 ; LEXMSG Flag to send Message
+4 ;
+5 NEW LEXSHORT,LEXMSG,LEXB,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF
+6 SET LEXSHORT=""
SET LEXMSG=""
+7 DO IMP^LEX2051
+8 SET U="^"
SET LEXB=$GET(^LEXM(0,"BUILD"))
if LEXB=""
QUIT
if $GET(LEXBUILD)=""
QUIT
+9 if LEXB=LEXBUILD
DO EN^LEXXGI
LQ ; Load Quit
+1 DO KLEXM
+2 QUIT
+3 ;
MSG ; Send Installation Message to G.LEXICON
+1 if +($GET(DUZ))=0!($$NOTDEF^LEX2051($GET(DUZ)))
QUIT
+2 DO HOME^%ZIS
+3 NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
+4 SET LEXSHORT=1
+5 ;,POST^LEXXFI
DO IMP^LEX2051
+6 QUIT
+7 ;
SCHG ; Save Change File Changes
+1 NEW LEXI,LEXFI,LEXFIL,LEXRT
+2 SET LEXFI=0
FOR
SET LEXFI=$ORDER(^LEXM(LEXFI))
if +LEXFI=0
QUIT
Begin DoDot:1
+3 SET LEXI=0
FOR
SET LEXI=$ORDER(^LEXM(LEXFI,LEXI))
if +LEXI=0
QUIT
Begin DoDot:2
+4 NEW LEXCF,LEXIEN,LEXMUMPS
+5 SET LEXMUMPS=$GET(^LEXM(LEXFI,LEXI))
SET LEXRT=$PIECE(LEXMUMPS,"^",2)
+6 if LEXMUMPS["^LEX("!(LEXMUMPS["^LEXT(")
SET LEXFIL=+($PIECE(LEXRT,"(",2))
End DoDot:2
End DoDot:1
+7 QUIT
+8 ;
KLEXM ; Subscripted Kill of ^LEXM
+1 NEW DA
SET DA=0
FOR
SET DA=$ORDER(^LEXM(DA))
if +DA=0
QUIT
KILL ^LEXM(DA)
+2 KILL ^LEXM(0)
+3 QUIT
PRE ; LEX*2.0*51 Pre-Install
+1 ; Kill all indexes
+2 NEW DIK
SET DIK="^LEX(757.33,"
DO IXALL2^DIK
+3 ; Delete the old DD
+4 NEW DIU
SET DIU="^LEX(757.33,"
SET DIU(0)="T"
DO EN^DIU2
+5 QUIT
+6 ;
CON ; Conversion of data
+1 NEW LEXLOUD
SET LEXLOUD=""
if $LENGTH($TEXT(AWRD^LEXXGI4))
DO AWRD^LEXXGI4
+2 QUIT
IND ; Rebuild indices
+1 ; Rebuild indices for 757.33
+2 NEW DIK
+3 DO BMES^XPDUTL("Rebuilding indices")
+4 DO BMES^XPDUTL("")
+5 SET DIK="^LEX(757.33,"
DO IXALL^DIK
+6 DO BMES^XPDUTL("Index rebuild complete")
+7 QUIT
