- 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 Feb 18, 2025@23:30:33 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
