| 1 | LEXILG ; ISL Env/Post for ^LEX and ^GMP ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | Q
|
|---|
| 4 | PRE ; 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
|
|---|
| 20 | POST ; 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
|
|---|
