LEX2058P ;ISL/FJF - Pre/Post Install ; 16 Sep 2011 11:45 AM
;;2.0;LEXICON UTILITY;**58**;Sep 23, 1996;Build 53
;
; 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
;
Q
;
POST ; LEX*2.0*58 Post-Install
;
;-----------------------------
; Rebuild indices
D IND
;
;-----------------------------
; Send a Install Message
D MSG
;
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 IXALL2^DIK,IXALL^DIK
D BMES^XPDUTL("Index rebuild complete")
Q
MSG ; Send Installation Message to G.LEXICON
Q:+($G(DUZ))=0!($$NOTDEF^LEX2058($G(DUZ)))
D HOME^%ZIS
N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
S LEXSHORT=1
D IMP^LEX2058,POST^LEXXFI
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2058P 986 printed Dec 13, 2024@02:04:30 Page 2
LEX2058P ;ISL/FJF - Pre/Post Install ; 16 Sep 2011 11:45 AM
+1 ;;2.0;LEXICON UTILITY;**58**;Sep 23, 1996;Build 53
+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 ;
+11 QUIT
+12 ;
POST ; LEX*2.0*58 Post-Install
+1 ;
+2 ;-----------------------------
+3 ; Rebuild indices
+4 DO IND
+5 ;
+6 ;-----------------------------
+7 ; Send a Install Message
+8 DO MSG
+9 ;
+10 QUIT
+11 ;-----------------------------
+12 ;
+13 ;
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 IXALL2^DIK
DO IXALL^DIK
+6 DO BMES^XPDUTL("Index rebuild complete")
+7 QUIT
MSG ; Send Installation Message to G.LEXICON
+1 if +($GET(DUZ))=0!($$NOTDEF^LEX2058($GET(DUZ)))
QUIT
+2 DO HOME^%ZIS
+3 NEW DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
+4 SET LEXSHORT=1
+5 DO IMP^LEX2058
DO POST^LEXXFI
+6 QUIT
