| 1 | LEX2041P ; ISL/FJF - Pre/Post Install ; 09/09/2006
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**41**;Sep 23, 1996;Build 34
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 10086 HOME^%ZIS
|
|---|
| 6 | ; DBIA 2052 $$GET1^DID
|
|---|
| 7 | ; DBIA 2055 PRD^DILFD
|
|---|
| 8 | ; DBIA 10014 EN^DIU2
|
|---|
| 9 | ; DBIA 10141 BMES^XPDUTL
|
|---|
| 10 | ; DBIA 10141 MES^XPDUTL
|
|---|
| 11 | ;
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | POST ; LEX*2.0*41 Post-Install
|
|---|
| 15 | N LEXEDT,LEXMUMPS
|
|---|
| 16 | S LEXEDT=$G(^LEXM(0,"CREATED"))
|
|---|
| 17 | ;
|
|---|
| 18 | ;-----------------------------
|
|---|
| 19 | ; Save Changes
|
|---|
| 20 | D SCHG
|
|---|
| 21 | ;
|
|---|
| 22 | ;-----------------------------
|
|---|
| 23 | ; Load Data into Files
|
|---|
| 24 | D LOAD
|
|---|
| 25 | ;
|
|---|
| 26 | ;-----------------------------
|
|---|
| 27 | ; Data Conversion
|
|---|
| 28 | D CON
|
|---|
| 29 | ;
|
|---|
| 30 | ;-----------------------------
|
|---|
| 31 | ; Re-Index Files - N/A for LEX*2.0*41
|
|---|
| 32 | ;
|
|---|
| 33 | ;
|
|---|
| 34 | ;-----------------------------
|
|---|
| 35 | ; Send a Install Message
|
|---|
| 36 | D MSG
|
|---|
| 37 | ;
|
|---|
| 38 | Q
|
|---|
| 39 | ;-----------------------------
|
|---|
| 40 | ;
|
|---|
| 41 | LOAD ; Load Data from ^LEXM into LEX Files
|
|---|
| 42 | N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV,LEXSHORT,LEXMSG
|
|---|
| 43 | D IMP^LEX2041
|
|---|
| 44 | S U="^",LEXB=$G(^LEXM(0,"BUILD"))
|
|---|
| 45 | Q:LEXB="" Q:LEXBUILD=""
|
|---|
| 46 | S LEXCD=+$$CPD^LEX2041
|
|---|
| 47 | I LEXCD,LEXB=LEXBUILD D D KLEXM Q
|
|---|
| 48 | .S X="Data for patch "_LEXBUILD_" has already been installed"
|
|---|
| 49 | .W:'$D(XPDNM) !!,X
|
|---|
| 50 | .D:$D(XPDNM) BMES^XPDUTL(X)
|
|---|
| 51 | .S X=""
|
|---|
| 52 | .W:'$D(XPDNM) !
|
|---|
| 53 | .D:$D(XPDNM) MES^XPDUTL(X)
|
|---|
| 54 | I 'LEXCD,LEXB=LEXBUILD D
|
|---|
| 55 | .S LEXSHORT=1,LEXMSG=1
|
|---|
| 56 | .D TASK^LEXXGI
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | MSG ; Send Installation Message to G.LEXICON
|
|---|
| 60 | Q:+($G(DUZ))=0!($$NOTDEF^LEX2041($G(DUZ)))
|
|---|
| 61 | D HOME^%ZIS
|
|---|
| 62 | N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
|
|---|
| 63 | S LEXSHORT=1
|
|---|
| 64 | D IMP^LEX2041 ;,POST^LEXXFI
|
|---|
| 65 | Q
|
|---|
| 66 | ;
|
|---|
| 67 | SCHG ; Save Change File Changes
|
|---|
| 68 | N LEXI,LEXFI,LEXFIL,LEXRT
|
|---|
| 69 | S LEXFI=0 F S LEXFI=$O(^LEXM(LEXFI)) Q:+LEXFI=0 D
|
|---|
| 70 | .S LEXI=0 F S LEXI=$O(^LEXM(LEXFI,LEXI)) Q:+LEXI=0 D
|
|---|
| 71 | ..N LEXCF,LEXIEN,LEXMUMPS
|
|---|
| 72 | ..S LEXMUMPS=$G(^LEXM(LEXFI,LEXI)),LEXRT=$P(LEXMUMPS,"^",2)
|
|---|
| 73 | ..S:LEXMUMPS["^LEX("!(LEXMUMPS["^LEXT(") LEXFIL=+($P(LEXRT,"(",2))
|
|---|
| 74 | Q
|
|---|
| 75 | ;
|
|---|
| 76 | KLEXM ; Subscripted Kill of ^LEXM
|
|---|
| 77 | N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
|
|---|
| 78 | K ^LEXM(0)
|
|---|
| 79 | Q
|
|---|
| 80 | PRE ; LEX*2.0*41 Pre-Install (N/A for patch 41)
|
|---|
| 81 | Q
|
|---|
| 82 | ;
|
|---|
| 83 | CON ; Conversion of data (N/A for patch 41)
|
|---|
| 84 | Q
|
|---|
