source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDDSS.m@ 1656

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1LEXDDSS ; 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 ;
6BLB(LEXX) ; General blank - line - blank
7 N LEXS S LEXS=LEXX D BL,TL,BL Q
8LB(LEXX) ; General line - blank
9 N LEXS S LEXS=LEXX D TL,BL Q
10NAME(LEXX) ; Name
11 N LEXS S LEXS="User defaults for: "_LEXX D BL,TL,BL Q
12VOC(LEXX) ; Vocabulary name
13 N LEXS S LEXS="1. Vocabulary: "_LEXX D TL,BL Q
14DIS(LEXX) ; Display name
15 N LEXS S LEXS="2. Display: "_LEXX D TL,BL Q
16DISE(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
23FIL(LEXX) ; Filter name
24 N LEXS S LEXS="3. Filter: "_LEXX D TL,BL Q
25FIE(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
30CON(LEXX) ; Shortcut Context name
31 N LEXS S LEXS="4. Shortcuts: "_LEXX D TL,BL Q
32TL Q:'$D(LEXS) N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)=LEXS,LEX(0)=LEXLN Q
33BL N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)="",LEX(0)=LEXLN Q
Note: See TracBrowser for help on using the repository browser.