LEXDM ;ISL/KER - Default Misc - Mod/Del Sel/Create ;04/21/2014
;;2.0;LEXICON UTILITY;**81,80**;Sep 23, 1996;Build 1
;
; Global Variables
; None
;
; External References
; ^DIR ICR 10026
;
; Entry: S X=$$MOD^LEXDM(X)
; Input X 1=Filter, 2=Display, 3=Vocabulary or 4=Context
; Returns "^^" Double up-arrow, 0 no action taken, 1 Modify
; default entry or "@" delete default entry
;
MOD(LEXX) ; Modify or Delete
;
S LEXX=+($G(LEXX)) Q:LEXX<0 0 S LEXX=LEXX\1 Q:LEXX>4 0
N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
S:LEXX=1 DIR("A",1)="search filter" S:LEXX=2 DIR("A",1)="display format"
S:LEXX=3 DIR("A",1)="vocabulary" S:LEXX=4 DIR("A",1)="shortcut context"
S:$L($G(DIR("A",1))) DIR("A",1)="User default "_DIR("A",1)
S DIR("A",3)=" 1 Modify",DIR("A",4)=" 2 Delete"
S (DIR("A",2),DIR("A",5))=" "
S:LEXX=1 DIR(0)="SAO^1:Modify Default Filter;2:Delete Default Filter"
S:LEXX=2 DIR(0)="SAO^1:Modify Default Display;2:Delete Default Display"
S:LEXX=3 DIR(0)="SAO^1:Modify Default Vocabulary;2:Delete Default Vocabulary"
S:LEXX=4 DIR(0)="SAO^1:Modify Default Shortcut Context;2:Delete Default Shortcut Context"
S DIR("A")="Select: ",DIR("B")="1"
D ^DIR S LEXX=$S(X=1:1,X=2:"@",X="@":"@",1:0) S:Y="^^" LEXX=Y Q LEXX
;
;-----------------------------------------------------------------
; Entry: S X=$$MTH^LEXDM(X)
; Input X 1=Filter, 2=Display
; Returns "^^" Timeout or Double-uparrow, "^" Method not
; selected, 1 Select default from a predefined list
; or 2 Create a user defined default
;
; LEXM Method of building string
; LEXF Flag, indicates the default type
;
MTH(LEXX) ; Method - Select a predefined or Create new
Q:'$L($G(LEXX)) "" Q:+LEXX'>0 "" Q:+LEXX'<3 ""
N LEXF,LEXM S LEXF=+LEXX,LEXM=$$METH W:+LEXM=1!(+LEXM=2) !!
S LEXX=LEXM S:"12"[LEXM LEXX=LEXM
S:'$L($G(LEXM))!(LEXM="^") LEXX="^" S:LEXM="^^" LEXX="^^"
Q LEXX
METH(LEXX) ; Select method
N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
I +LEXF=1 D
. S DIR("A",1)="Search filters (screens) to limit the response"
. S DIR("A",3)=" 1 Select from predefined filters"
. S DIR("A",4)=" 2 Create your own filter"
. S DIR("??")="^D HF^LEXDM"
I +LEXF=2 D
. S DIR("A",1)="Display format to be used during look-up"
. S DIR("A",3)=" 1 Select from predefined display formats"
. S DIR("A",4)=" 2 Create your own display format"
. S DIR("??")="^D HD^LEXDM"
S (DIR("A",2),DIR("A",5))=" "
S DIR(0)="SAO^1:Predefined Set;2:Create your own set"
S DIR("A")="Select: ",DIR("B")="1"
D ^DIR S LEXX=$S(+Y>0:+Y,1:Y) S:$D(DTOUT) LEXX="^^" Q LEXX
HF ; Help for filters - DIC("S")
W !!,"When conducting searches in the Lexicon, you may find that many of the"
W !,"expressions found are not reasonable in the context of intended use."
W !,"Many of these ""unreasonable"" expressions can be filtered out during the"
W !,"search, providing a much smaller and more meaningful list of expressions"
W !,"to select from. Several of these filters have been predefined and made "
W !,"available. You may select from this list of predefined filters or create"
W !,"your own." Q
HD ; Help for display - LEXSHOW
W !!,"When conducting searches in the Lexicon, you may alter the display format"
W !,"of the selection list. There are several commonly used displays which"
W !,"have been predefined and made available. You may select from this list or"
W !,"create your own." Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDM 3536 printed Nov 22, 2024@17:17:53 Page 2
LEXDM ;ISL/KER - Default Misc - Mod/Del Sel/Create ;04/21/2014
+1 ;;2.0;LEXICON UTILITY;**81,80**;Sep 23, 1996;Build 1
+2 ;
+3 ; Global Variables
+4 ; None
+5 ;
+6 ; External References
+7 ; ^DIR ICR 10026
+8 ;
+9 ; Entry: S X=$$MOD^LEXDM(X)
+10 ; Input X 1=Filter, 2=Display, 3=Vocabulary or 4=Context
+11 ; Returns "^^" Double up-arrow, 0 no action taken, 1 Modify
+12 ; default entry or "@" delete default entry
+13 ;
MOD(LEXX) ; Modify or Delete
+1 ;
+2 SET LEXX=+($GET(LEXX))
if LEXX<0
QUIT 0
SET LEXX=LEXX\1
if LEXX>4
QUIT 0
+3 NEW DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
+4 if LEXX=1
SET DIR("A",1)="search filter"
if LEXX=2
SET DIR("A",1)="display format"
+5 if LEXX=3
SET DIR("A",1)="vocabulary"
if LEXX=4
SET DIR("A",1)="shortcut context"
+6 if $LENGTH($GET(DIR("A",1)))
SET DIR("A",1)="User default "_DIR("A",1)
+7 SET DIR("A",3)=" 1 Modify"
SET DIR("A",4)=" 2 Delete"
+8 SET (DIR("A",2),DIR("A",5))=" "
+9 if LEXX=1
SET DIR(0)="SAO^1:Modify Default Filter;2:Delete Default Filter"
+10 if LEXX=2
SET DIR(0)="SAO^1:Modify Default Display;2:Delete Default Display"
+11 if LEXX=3
SET DIR(0)="SAO^1:Modify Default Vocabulary;2:Delete Default Vocabulary"
+12 if LEXX=4
SET DIR(0)="SAO^1:Modify Default Shortcut Context;2:Delete Default Shortcut Context"
+13 SET DIR("A")="Select: "
SET DIR("B")="1"
+14 DO ^DIR
SET LEXX=$SELECT(X=1:1,X=2:"@",X="@":"@",1:0)
if Y="^^"
SET LEXX=Y
QUIT LEXX
+15 ;
+16 ;-----------------------------------------------------------------
+17 ; Entry: S X=$$MTH^LEXDM(X)
+18 ; Input X 1=Filter, 2=Display
+19 ; Returns "^^" Timeout or Double-uparrow, "^" Method not
+20 ; selected, 1 Select default from a predefined list
+21 ; or 2 Create a user defined default
+22 ;
+23 ; LEXM Method of building string
+24 ; LEXF Flag, indicates the default type
+25 ;
MTH(LEXX) ; Method - Select a predefined or Create new
+1 if '$LENGTH($GET(LEXX))
QUIT ""
if +LEXX'>0
QUIT ""
if +LEXX'<3
QUIT ""
+2 NEW LEXF,LEXM
SET LEXF=+LEXX
SET LEXM=$$METH
if +LEXM=1!(+LEXM=2)
WRITE !!
+3 SET LEXX=LEXM
if "12"[LEXM
SET LEXX=LEXM
+4 if '$LENGTH($GET(LEXM))!(LEXM="^")
SET LEXX="^"
if LEXM="^^"
SET LEXX="^^"
+5 QUIT LEXX
METH(LEXX) ; Select method
+1 NEW DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
+2 IF +LEXF=1
Begin DoDot:1
+3 SET DIR("A",1)="Search filters (screens) to limit the response"
+4 SET DIR("A",3)=" 1 Select from predefined filters"
+5 SET DIR("A",4)=" 2 Create your own filter"
+6 SET DIR("??")="^D HF^LEXDM"
End DoDot:1
+7 IF +LEXF=2
Begin DoDot:1
+8 SET DIR("A",1)="Display format to be used during look-up"
+9 SET DIR("A",3)=" 1 Select from predefined display formats"
+10 SET DIR("A",4)=" 2 Create your own display format"
+11 SET DIR("??")="^D HD^LEXDM"
End DoDot:1
+12 SET (DIR("A",2),DIR("A",5))=" "
+13 SET DIR(0)="SAO^1:Predefined Set;2:Create your own set"
+14 SET DIR("A")="Select: "
SET DIR("B")="1"
+15 DO ^DIR
SET LEXX=$SELECT(+Y>0:+Y,1:Y)
if $DATA(DTOUT)
SET LEXX="^^"
QUIT LEXX
HF ; Help for filters - DIC("S")
+1 WRITE !!,"When conducting searches in the Lexicon, you may find that many of the"
+2 WRITE !,"expressions found are not reasonable in the context of intended use."
+3 WRITE !,"Many of these ""unreasonable"" expressions can be filtered out during the"
+4 WRITE !,"search, providing a much smaller and more meaningful list of expressions"
+5 WRITE !,"to select from. Several of these filters have been predefined and made "
+6 WRITE !,"available. You may select from this list of predefined filters or create"
+7 WRITE !,"your own."
QUIT
HD ; Help for display - LEXSHOW
+1 WRITE !!,"When conducting searches in the Lexicon, you may alter the display format"
+2 WRITE !,"of the selection list. There are several commonly used displays which"
+3 WRITE !,"have been predefined and made available. You may select from this list or"
+4 WRITE !,"create your own."
QUIT
