LEXDFST.m

LEXDFST ;ISL/KER - Default Filter - Semantic Types ;04/21/2014

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

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    ^DIR                ICR  10026

 ;               

 ; Entry:  S X=$$EN^LEXDFST

 ;

 ; LEXFIL    Filter (executable)

 ; LEXNAM    Filter Name

 ; LEXPRO    Y/N response to proceed with building filter

 ; LEXSTR    Filter parameters (string)

 ; LEXX      Filter returned

 ;

EN(LEXX) ; Entry point S X=$$EN^LEXDFST

 N LEXFIL,LEXPRO S LEXFIL=0 D INTRO S LEXPRO=$$PRO

 Q:LEXPRO["^" LEXPRO Q:LEXPRO'=1 "^No filter selected"

 S LEXX=$$EN^LEXDFSB Q:LEXX["^^" "^^"

 Q:$P(LEXX,"^",1)="" "^No filter selected"

 D:$P(LEXX,"^",1)'="" ASSEM

 Q LEXX

INTRO ; Introduction/Proceed

 W @IOF

 W !!,"You will be provided with ",($P(^LEX(757.11,0),U,4))-1," semantic classes.  By selecting a semantic"

 W !,"class, each term which is found during a search of the Lexicon, and belongs"

 W !,"to that class will be displayed for your selection.  Additionally, each"

 W !,"semantic class contains semantic types (or sub-category) which may be excluded"

 W !,"during the search.  Terms belonging to an ""included"" semantic class will be"

 W !,"displayed unless they also belong to an ""excluded"" semantic type."

 Q

PRO(LEXX) ; OK to proceed Y/N

 N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT W !!

 S DIR("A")="Do you wish to continue:  ",DIR("B")="YES"

 S DIR("?")="Answer Yes or No",DIR("??")="^D PROH^LEXDFST"

 S DIR(0)="YAO" D ^DIR S LEXX=Y Q LEXX

PROH ; Proceed help

 W !!,?2,"Answer"

 W !!,?4,"Yes     Continue to build a filter based on Semantic Types"

 W !,?4,"No      Exit without building a filter",! Q

ASSEM ; Assemble the return value FILTER^NAME

 N LEXNAM,LEXFIL S (LEXNAM,LEXFIL)="",LEXFIL=$P(LEXX,"^",1)

 I $L($G(LEXFIL)) S LEXFIL="I $$SC^LEXU(Y,"_""""_LEXFIL_""""_")"

 I LEXFIL[U S LEXNAM=$$NAME^LEXDM3 I LEXNAM="^^" S LEXX="^^"

 S:LEXX["^^" LEXFIL="",LEXNAM="^" S LEXX=LEXFIL_"^"_LEXNAM Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEXDFST   2023     printed  Apr 09, 2024@21:14:24                                                                                                                                                                                                     Page 2

LEXDFST   ;ISL/KER - Default Filter - Semantic Types ;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       ;    ^DIR                ICR  10026

 +8       ;               

 +9       ; Entry:  S X=$$EN^LEXDFST

 +10      ;

 +11      ; LEXFIL    Filter (executable)

 +12      ; LEXNAM    Filter Name

 +13      ; LEXPRO    Y/N response to proceed with building filter

 +14      ; LEXSTR    Filter parameters (string)

 +15      ; LEXX      Filter returned

 +16      ;

EN(LEXX)  ; Entry point S X=$$EN^LEXDFST

 +1        NEW LEXFIL,LEXPRO

           SET LEXFIL=0

           DO INTRO

           SET LEXPRO=$$PRO

 +2        if LEXPRO["^"

               QUIT LEXPRO

           if LEXPRO'=1

               QUIT "^No filter selected"

 +3        SET LEXX=$$EN^LEXDFSB

           if LEXX["^^"

               QUIT "^^"

 +4        if $PIECE(LEXX,"^",1)=""

               QUIT "^No filter selected"

 +5        if $PIECE(LEXX,"^",1)'=""

               DO ASSEM

 +6        QUIT LEXX

INTRO     ; Introduction/Proceed

 +1        WRITE @IOF

 +2        WRITE !!,"You will be provided with ",($PIECE(^LEX(757.11,0),U,4))-1," semantic classes.  By selecting a semantic"

 +3        WRITE !,"class, each term which is found during a search of the Lexicon, and belongs"

 +4        WRITE !,"to that class will be displayed for your selection.  Additionally, each"

 +5        WRITE !,"semantic class contains semantic types (or sub-category) which may be excluded"

 +6        WRITE !,"during the search.  Terms belonging to an ""included"" semantic class will be"

 +7        WRITE !,"displayed unless they also belong to an ""excluded"" semantic type."

 +8        QUIT 

PRO(LEXX) ; OK to proceed Y/N

 +1        NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT

           WRITE !!

 +2        SET DIR("A")="Do you wish to continue:  "

           SET DIR("B")="YES"

 +3        SET DIR("?")="Answer Yes or No"

           SET DIR("??")="^D PROH^LEXDFST"

 +4        SET DIR(0)="YAO"

           DO ^DIR

           SET LEXX=Y

           QUIT LEXX

PROH      ; Proceed help

 +1        WRITE !!,?2,"Answer"

 +2        WRITE !!,?4,"Yes     Continue to build a filter based on Semantic Types"

 +3        WRITE !,?4,"No      Exit without building a filter",!

           QUIT 

ASSEM     ; Assemble the return value FILTER^NAME

 +1        NEW LEXNAM,LEXFIL

           SET (LEXNAM,LEXFIL)=""

           SET LEXFIL=$PIECE(LEXX,"^",1)

 +2        IF $LENGTH($GET(LEXFIL))

               SET LEXFIL="I $$SC^LEXU(Y,"_""""_LEXFIL_""""_")"

 +3        IF LEXFIL[U

               SET LEXNAM=$$NAME^LEXDM3

               IF LEXNAM="^^"

                   SET LEXX="^^"

 +4        if LEXX["^^"

               SET LEXFIL=""

               SET LEXNAM="^"

           SET LEXX=LEXFIL_"^"_LEXNAM

           QUIT