source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEX2041P.m@ 952

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1LEX2041P ; 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 ;
14POST ; 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 ;
41LOAD ; 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 ;
59MSG ; 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 ;
67SCHG ; 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 ;
76KLEXM ; 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
80PRE ; LEX*2.0*41 Pre-Install (N/A for patch 41)
81 Q
82 ;
83CON ; Conversion of data (N/A for patch 41)
84 Q
Note: See TracBrowser for help on using the repository browser.