LEXDFLT.m

LEXDFLT ;ISL-KER - Default Filter - Filter Type ;04/21/2014

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

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    ^DIR                ICR  10026

 ;               

 ; Entry:  S X=$$EN^LEXDFLT

 ;

 ; Function returns

 ;

 ;     "^"     Up-arrow

 ;     "^^"    Double up-arrow

 ;      0      None

 ;      1      Filter by Semantic Types

 ;      2      Filter by Classification Codes

 ;      3      Filter by Semantic Types and Classification Codes

 ;

EN(LEXX) ;

 ;

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

 S DIR("A",1)="Filter based on:"

 S DIR("A",3)="   1.  Semantic Types"

 S DIR("A",4)="   2.  Classification Coding Systems"

 S DIR("A",5)="   3.  Semantic Types and Classification Codes"

 S (DIR("A",2),DIR("A",6))="  "

 S DIR(0)="SAO^1:Filter on Semantic Types;2:Filter on Classification Codes;3:Filter on both Semantic Types and Classification Codes"

 S DIR("A")="Select:  "

 D ^DIR S LEXX=+X S:Y["^" LEXX=Y Q LEXX

LEXDFLT   ;ISL-KER - Default Filter - Filter Type ;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       ;    ^DIR                ICR  10026

 +8       ;               

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

 +10      ;

 +11      ; Function returns

 +12      ;

 +13      ;     "^"     Up-arrow

 +14      ;     "^^"    Double up-arrow

 +15      ;      0      None

 +16      ;      1      Filter by Semantic Types

 +17      ;      2      Filter by Classification Codes

 +18      ;      3      Filter by Semantic Types and Classification Codes

 +19      ;

EN(LEXX)  ;

 +1       ;

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

 +3        SET DIR("A",1)="Filter based on:"

 +4        SET DIR("A",3)="   1.  Semantic Types"

 +5        SET DIR("A",4)="   2.  Classification Coding Systems"

 +6        SET DIR("A",5)="   3.  Semantic Types and Classification Codes"

 +7        SET (DIR("A",2),DIR("A",6))="  "

 +8        SET DIR(0)="SAO^1:Filter on Semantic Types;2:Filter on Classification Codes;3:Filter on both Semantic Types and Classification Codes"

 +9        SET DIR("A")="Select:  "

 +10       DO ^DIR

           SET LEXX=+X

           IF Y["^"

               SET LEXX=Y

           QUIT LEXX