source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXILG.m@ 767

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1LEXILG ; ISL Env/Post for ^LEX and ^GMP ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 Q
4PRE ; Pre-Init
5 ; Save User Defaults
6 S U="^" W !,"Saving Lexicon v 1.0 User Defaults",! D:$D(^GMPT) SD^LEXILGU
7 ; Remove Lexicon from MTLU
8 W !,"Removing Lexicon v 1.0 from the Multi-Term Look-up Utility (MTLU)",!
9 D EN^LEXILGX
10 ; Save Lexicon Pointers
11 W !,"Saving Lexicon v 1.0 Pointers",!
12 D SP^LEXILGP
13 ; Rename Lexicon Options
14 W !,"Renaming Lexicon v 1.0 Options",!
15 D:$O(^DIC(19,"B","GMPT "))["GMPT" RE^LEXILGO
16 ; Delete Lexicon v 1.0 DDs
17 W !!,"Deleting Lexicon v 1.0 Data Dictionaries",!
18 D:$D(^DD(757)) DD^LEXILGD
19 Q
20POST ; Post-Init
21 ; Restore User Defaults
22 W !!,"Restoring Lexicon User Defaults for use with Lexicon v 2.0",!
23 S U="^" D RD^LEXILGU,DF^LEXILGU
24 ; Repoint to ^LEX
25 W !,"Repointing Files/Fields for use with Lexicon v 2.0",!
26 D:$D(^TMP("LEXPT")) PL^LEXILGP,DP^LEXILGP
27 ; Check for GMPT Package file entry
28 W !!,"Checking for GMPT Package file entry (not used in Lexicon v 2.0)",!
29 D:$D(^DIC(9.4,"C","GMPT")) DG^LEXILGO
30 ; Check for ^GMP or ^GMPT
31 W !,"Checking for ^GMP or ^GMPT (not used in Lexicon v 2.0)",!
32 D DG^LEXILGD
33 I $D(IOST),IOST["C-" N LEXPOST W !," Press <Return> to continue " R LEXPOST:660
34 ; Mail
35 D EN2^LEXLGM,EN^LEXPL
36 Q
Note: See TracBrowser for help on using the repository browser.