Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEXDDSS

LEXDDSS.m

Go to the documentation of this file.
  1. LEXDDSS ;ISL/KER - Display Defaults - Single User Save ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; None
  1. ;
  1. ; Saves default elements into the local array LEX
  1. ;
  1. BLB(LEXX) ; General blank - line - blank
  1. N LEXS S LEXS=LEXX D BL,TL,BL Q
  1. LB(LEXX) ; General line - blank
  1. N LEXS S LEXS=LEXX D TL,BL Q
  1. NAME(LEXX) ; Name
  1. N LEXS S LEXS="User defaults for: "_LEXX D BL,TL,BL Q
  1. VOC(LEXX) ; Vocabulary name
  1. N LEXS S LEXS="1. Vocabulary: "_LEXX D TL,BL Q
  1. DIS(LEXX) ; Display name
  1. N LEXS S LEXS="2. Display: "_LEXX D TL,BL Q
  1. DISE(LEXX) ; Display element
  1. N LEXS,LEXCTL,LEXN S LEXCTL=LEXX Q:'$L(LEXCTL)
  1. S LEXN=$O(^LEX(757.03,"B",LEXCTL,0))
  1. S:+LEXN'>0 LEXN=$O(^LEX(757.03,"ASAB",$E(LEXCTL,1,3),0))
  1. Q:LEXN'>0 S LEXN=$E($P($G(^LEX(757.03,LEXN,0)),"^",3),1,63)
  1. S LEXS=" "_LEXX_" "_LEXN D TL
  1. Q
  1. FIL(LEXX) ; Filter name
  1. N LEXS S LEXS="3. Filter: "_LEXX D TL,BL Q
  1. FIE(LEXI,LEXE) ; Filter element (include/exclude)
  1. N LEXS,LEXSPC S LEXSPC=" "
  1. S LEXS=" "_$G(LEXI)
  1. I $L($G(LEXE)) S LEXS=LEXS_$E(LEXSPC,$L(LEXS),$L(LEXSPC))_LEXXE
  1. D TL Q
  1. CON(LEXX) ; Shortcut Context name
  1. N LEXS S LEXS="4. Shortcuts: "_LEXX D TL,BL Q
  1. TL Q:'$D(LEXS) N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)=LEXS,LEX(0)=LEXLN Q
  1. BL N LEXLN S LEXLN=+($G(LEX(0))),LEXLN=LEXLN+1,LEX(LEXLN)="",LEX(0)=LEXLN Q