LEXDDSS.m

LEXDDSS ;ISL/KER - Display Defaults - Single User Save ;04/21/2014

 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 ;               

 ; 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

LEXDDSS   ;ISL/KER - Display Defaults - Single User Save ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 +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