| 1 | LEXDDSS ; ISL Display Defaults - Single User Save ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; Saves default elements into the local array LEX
|
|---|
| 5 | ;
|
|---|
| 6 | BLB(LEXX) ; General blank - line - blank
|
|---|
| 7 | N LEXS S LEXS=LEXX D BL,TL,BL Q
|
|---|
| 8 | LB(LEXX) ; General line - blank
|
|---|
| 9 | N LEXS S LEXS=LEXX D TL,BL Q
|
|---|
| 10 | NAME(LEXX) ; Name
|
|---|
| 11 | N LEXS S LEXS="User defaults for: "_LEXX D BL,TL,BL Q
|
|---|
| 12 | VOC(LEXX) ; Vocabulary name
|
|---|
| 13 | N LEXS S LEXS="1. Vocabulary: "_LEXX D TL,BL Q
|
|---|
| 14 | DIS(LEXX) ; Display name
|
|---|
| 15 | N LEXS S LEXS="2. Display: "_LEXX D TL,BL Q
|
|---|
| 16 | DISE(LEXX) ; Display element
|
|---|
| 17 | N LEXS,LEXCTL,LEXN S LEXCTL=LEXX
|
|---|
| 18 | F S LEXCTL=$O(^LEX(757.03,"B",LEXCTL)) Q:LEXCTL=""!(LEXCTL'[LEXX) D
|
|---|
| 19 | . S LEXN=$O(^LEX(757.03,"B",LEXCTL,0))
|
|---|
| 20 | . S LEXN=$E($P($G(^LEX(757.03,LEXN,0)),"^",3),1,63)
|
|---|
| 21 | . S LEXS=" "_LEXX_" "_LEXN D TL
|
|---|
| 22 | Q
|
|---|
| 23 | FIL(LEXX) ; Filter name
|
|---|
| 24 | N LEXS S LEXS="3. Filter: "_LEXX D TL,BL Q
|
|---|
| 25 | FIE(LEXI,LEXE) ; Filter element (include/exclude)
|
|---|
| 26 | N LEXS,LEXSPC S LEXSPC=" "
|
|---|
| 27 | S LEXS=" "_$G(LEXI)
|
|---|
| 28 | I $L($G(LEXE)) S LEXS=LEXS_$E(LEXSPC,$L(LEXS),$L(LEXSPC))_LEXXE
|
|---|
| 29 | D TL Q
|
|---|
| 30 | CON(LEXX) ; Shortcut Context name
|
|---|
| 31 | N LEXS S LEXS="4. Shortcuts: "_LEXX D TL,BL Q
|
|---|
| 32 | TL Q:'$D(LEXS) N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)=LEXS,LEX(0)=LEXLN Q
|
|---|
| 33 | BL N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)="",LEX(0)=LEXLN Q
|
|---|
