1 | LBR258P ;ALB/MRY - Env/Pre/Post-install of consolidation ;[ 02/08/01 08:21 AM]
|
---|
2 | ;;2.5;Library;**8**;Mar 11, 1996
|
---|
3 | ;
|
---|
4 | EN ; Environment check
|
---|
5 | ;
|
---|
6 | I '$G(DUZ)!($G(DUZ(0))'["@") W !,"USER 'DUZ' VARIABLES **NOT** CORRECTLY DEFINED. CONFIRM THAT DUZ(0)='@'. THEN D ^XUP." S XPDQUIT=1 Q
|
---|
7 | ;
|
---|
8 | I $$VERSION^XPDUTL("LBRY")<2.5 S QUIT=0 D G ABRT:QUIT
|
---|
9 | . I $$VERSION^XPDUTL("LBR")>2 Q
|
---|
10 | . W !!,"VERSION 2.5 OF LIBRARY HAS NOT BEEN LOADED",! S QUIT=1
|
---|
11 | D BMES^XPDUTL(">> Environment check complete and okay.")
|
---|
12 | ;
|
---|
13 | K QUIT Q
|
---|
14 | ;
|
---|
15 | POST ; Post-install
|
---|
16 | ; Beta sites who installed a previous version of LBR*8. Otherwise, quit.
|
---|
17 | ;
|
---|
18 | D BMES^XPDUTL(">> Running Post-install...")
|
---|
19 | D MES^XPDUTL(" ...Cleaning up version numbers.")
|
---|
20 | ;
|
---|
21 | ; Clean up version number
|
---|
22 | S N=679.9999 F S N=$O(^DD(N)) Q:N>689.4 I $$GET1^DID(N,"","","VERSION")?1"2.5"1A.N S ^DD(N,0,"VR")=2.5
|
---|
23 | ;
|
---|
24 | G POST2 ; After V7
|
---|
25 | ;
|
---|
26 | ; Delete fields (#40/#41 of File #682.1) previously install from
|
---|
27 | ; patch *8 in beta sites. These fields are not used.
|
---|
28 | ;
|
---|
29 | ; Quit if a field isn't found at site.
|
---|
30 | I $$GET1^DID(682.1,41,"","LABEL")="" G POST2
|
---|
31 | D MES^XPDUTL(" ...Removing from File (#682.1) fields #40, #41 and its data.")
|
---|
32 | ;
|
---|
33 | ; Delete data
|
---|
34 | N LBRN
|
---|
35 | S LBRN=0
|
---|
36 | F S LBRN=$O(^LBRY(682.1,LBRN)) Q:'LBRN D
|
---|
37 | . S DIE="^LBRY(682.1,",DA=LBRN,DR="40///@" D ^DIE
|
---|
38 | . ; If data exists for field #41 (12th node), then delete.
|
---|
39 | . I $D(^LBRY(682.1,DA,12,0)) D
|
---|
40 | . . S DIE="^LBRY(682.1,",DA=LBRN,DR="41///@" D ^DIE
|
---|
41 | K DIE,DA,DR
|
---|
42 | ;
|
---|
43 | ; Remove DD fields
|
---|
44 | S DIK="^DD(682.1,",DA=40,DA(1)=682.1 D ^DIK
|
---|
45 | S DIK="^DD(682.1,",DA=41,DA(1)=682.1 D ^DIK
|
---|
46 | K DIK,DA
|
---|
47 | ;
|
---|
48 | POST2 D BMES^XPDUTL(">> Post-install complete.")
|
---|
49 | G EXIT
|
---|
50 | ABRT S XPDQUIT=1 Q
|
---|
51 | EXIT K QUIT,LBRN D CLEAN^DILF
|
---|
52 | Q
|
---|