source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEX2028P.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1LEX2028P ; 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 ;
14POST ; LEX*2.0*28 Post-Install
15 N LEXEDT S LEXEDT=$G(^LEXM(0,"CREATED")) D LOAD,MSG,KLEXM
16 Q
17LOAD ; 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
26RV ; 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")
35LOADQ ; Quit Load
36 D KLEXM
37 Q
38MSG ; 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 ;
43PRE ; LEX*2.0*28 Pre-Install
44 D KDD,KCH Q
45KDD ; Kill previous copies of DDs - (N/A for patch 28)
46 Q
47KCH ; Kill previous changes - (N/A for patch 28)
48 Q
49 ;
50KLEXM ; 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
54CON ; Conversion of data (N/A for patch 28)
55 Q
Note: See TracBrowser for help on using the repository browser.