| [613] | 1 | LEX2028P ; ISL/KER - Pre/Post Install; 01/01/2004
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**28**;Sep 23, 1996
|
|---|
| 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*28 Post-Install
|
|---|
| 15 | N LEXEDT S LEXEDT=$G(^LEXM(0,"CREATED")) D LOAD,MSG,KLEXM
|
|---|
| 16 | Q
|
|---|
| 17 | LOAD ; Load data
|
|---|
| 18 | N LEXB,LEXBUILD,LEXCD,LEXIGHF,LEXLAST,LEXLREV D IMP^LEX2028
|
|---|
| 19 | S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:$G(LEXBUILD)=""
|
|---|
| 20 | S LEXCD=0 S LEXCD=+($$CPD^LEX2028)
|
|---|
| 21 | I LEXCD,LEXB=LEXBUILD D G RV
|
|---|
| 22 | . S X="Data for patch "_LEXBUILD_" has already been installed"
|
|---|
| 23 | . W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)
|
|---|
| 24 | . S X="" W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)
|
|---|
| 25 | I 'LEXCD,LEXB=LEXBUILD D EN^LEXXGI
|
|---|
| 26 | RV ; Revision Numbers
|
|---|
| 27 | N LEXRV F LEXRV=757,757.001,757.01,757.02,757.1,757.9,757.901,757.902,757.903,757.91 D
|
|---|
| 28 | . Q:'$D(^LEXM(LEXRV,0))
|
|---|
| 29 | . Q:'$D(^LEX(LEXRV,0))&('$D(^LEXT(LEXRV,0)))&('$D(^LEXC(LEXRV,0)))
|
|---|
| 30 | . Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
|
|---|
| 31 | . D PRD^DILFD(LEXRV,"28^3040101")
|
|---|
| 32 | F LEXRV=81,81.3 D
|
|---|
| 33 | . Q:'$D(^LEXM(LEXRV,0)) Q:'$D(^DD(LEXRV,0)) Q:'$L($$GET1^DID(+LEXRV,.01,,"LABEL"))
|
|---|
| 34 | . D PRD^DILFD(LEXRV,"17^3040101")
|
|---|
| 35 | LOADQ ; Quit Load
|
|---|
| 36 | D KLEXM
|
|---|
| 37 | Q
|
|---|
| 38 | MSG ; Send Installation Message
|
|---|
| 39 | Q:+($G(DUZ))=0!($$NOTDEF^LEX2028($G(DUZ)))
|
|---|
| 40 | D HOME^%ZIS N DIFROM,LEXLREV,LEXLAST,LEXBUILD,LEXIGHF,LEXSHORT
|
|---|
| 41 | S LEXSHORT="" D IMP^LEX2028,SEND^LEXXST Q
|
|---|
| 42 | ;
|
|---|
| 43 | PRE ; LEX*2.0*28 Pre-Install
|
|---|
| 44 | D KDD,KCH Q
|
|---|
| 45 | KDD ; Kill previous copies of DDs - (N/A for patch 28)
|
|---|
| 46 | Q
|
|---|
| 47 | KCH ; Kill previous changes - (N/A for patch 28)
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | KLEXM ; Subscripted Kill of ^LEXM
|
|---|
| 51 | N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
|
|---|
| 52 | K ^LEXM(0)
|
|---|
| 53 | Q
|
|---|
| 54 | CON ; Conversion of data (N/A for patch 28)
|
|---|
| 55 | Q
|
|---|
