- LEXDDSS ;ISL/KER - Display Defaults - Single User Save ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- ;
- ; Global Variables
- ; None
- ;
- ; External References
- ; None
- ;
- ; Saves default elements into the local array LEX
- ;
- BLB(LEXX) ; General blank - line - blank
- N LEXS S LEXS=LEXX D BL,TL,BL Q
- LB(LEXX) ; General line - blank
- N LEXS S LEXS=LEXX D TL,BL Q
- NAME(LEXX) ; Name
- N LEXS S LEXS="User defaults for: "_LEXX D BL,TL,BL Q
- VOC(LEXX) ; Vocabulary name
- N LEXS S LEXS="1. Vocabulary: "_LEXX D TL,BL Q
- DIS(LEXX) ; Display name
- N LEXS S LEXS="2. Display: "_LEXX D TL,BL Q
- DISE(LEXX) ; Display element
- N LEXS,LEXCTL,LEXN S LEXCTL=LEXX Q:'$L(LEXCTL)
- S LEXN=$O(^LEX(757.03,"B",LEXCTL,0))
- S:+LEXN'>0 LEXN=$O(^LEX(757.03,"ASAB",$E(LEXCTL,1,3),0))
- Q:LEXN'>0 S LEXN=$E($P($G(^LEX(757.03,LEXN,0)),"^",3),1,63)
- S LEXS=" "_LEXX_" "_LEXN D TL
- Q
- FIL(LEXX) ; Filter name
- N LEXS S LEXS="3. Filter: "_LEXX D TL,BL Q
- FIE(LEXI,LEXE) ; Filter element (include/exclude)
- N LEXS,LEXSPC S LEXSPC=" "
- S LEXS=" "_$G(LEXI)
- I $L($G(LEXE)) S LEXS=LEXS_$E(LEXSPC,$L(LEXS),$L(LEXSPC))_LEXXE
- D TL Q
- CON(LEXX) ; Shortcut Context name
- N LEXS S LEXS="4. Shortcuts: "_LEXX D TL,BL Q
- TL Q:'$D(LEXS) N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)=LEXS,LEX(0)=LEXLN Q
- BL N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)="",LEX(0)=LEXLN Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDDSS 1501 printed Feb 18, 2025@23:33:33 Page 2
- LEXDDSS ;ISL/KER - Display Defaults - Single User Save ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- +2 ;
- +3 ; Global Variables
- +4 ; None
- +5 ;
- +6 ; External References
- +7 ; None
- +8 ;
- +9 ; Saves default elements into the local array LEX
- +10 ;
- BLB(LEXX) ; General blank - line - blank
- +1 NEW LEXS
- SET LEXS=LEXX
- DO BL
- DO TL
- DO BL
- QUIT
- LB(LEXX) ; General line - blank
- +1 NEW LEXS
- SET LEXS=LEXX
- DO TL
- DO BL
- QUIT
- NAME(LEXX) ; Name
- +1 NEW LEXS
- SET LEXS="User defaults for: "_LEXX
- DO BL
- DO TL
- DO BL
- QUIT
- VOC(LEXX) ; Vocabulary name
- +1 NEW LEXS
- SET LEXS="1. Vocabulary: "_LEXX
- DO TL
- DO BL
- QUIT
- DIS(LEXX) ; Display name
- +1 NEW LEXS
- SET LEXS="2. Display: "_LEXX
- DO TL
- DO BL
- QUIT
- DISE(LEXX) ; Display element
- +1 NEW LEXS,LEXCTL,LEXN
- SET LEXCTL=LEXX
- if '$LENGTH(LEXCTL)
- QUIT
- +2 SET LEXN=$ORDER(^LEX(757.03,"B",LEXCTL,0))
- +3 if +LEXN'>0
- SET LEXN=$ORDER(^LEX(757.03,"ASAB",$EXTRACT(LEXCTL,1,3),0))
- +4 if LEXN'>0
- QUIT
- SET LEXN=$EXTRACT($PIECE($GET(^LEX(757.03,LEXN,0)),"^",3),1,63)
- +5 SET LEXS=" "_LEXX_" "_LEXN
- DO TL
- +6 QUIT
- FIL(LEXX) ; Filter name
- +1 NEW LEXS
- SET LEXS="3. Filter: "_LEXX
- DO TL
- DO BL
- QUIT
- FIE(LEXI,LEXE) ; Filter element (include/exclude)
- +1 NEW LEXS,LEXSPC
- SET LEXSPC=" "
- +2 SET LEXS=" "_$GET(LEXI)
- +3 IF $LENGTH($GET(LEXE))
- SET LEXS=LEXS_$EXTRACT(LEXSPC,$LENGTH(LEXS),$LENGTH(LEXSPC))_LEXXE
- +4 DO TL
- QUIT
- CON(LEXX) ; Shortcut Context name
- +1 NEW LEXS
- SET LEXS="4. Shortcuts: "_LEXX
- DO TL
- DO BL
- QUIT
- TL if '$DATA(LEXS)
- QUIT
- NEW LEXLN
- SET LEXLN=+($GET(LEX(0)))
- SET LEXLN=LEXLN+1
- SET LEX(LEXLN)=LEXS
- SET LEX(0)=LEXLN
- QUIT
- BL NEW LEXLN
- SET LEXLN=+($GET(LEX(0)))
- SET LEXLN=LEXLN+1
- SET LEX(LEXLN)=""
- SET LEX(0)=LEXLN
- QUIT