source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDFLT.m@ 1683

Last change on this file since 1683 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 851 bytes
Line 
1LEXDFLT ; ISL Default Filter - Filter Type ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996
3 ;
4 ; Entry: S X=$$EN^LEXDFLT
5 ;
6 ; Function returns
7 ;
8 ; "^" Up-arrow
9 ; "^^" Double up-arrow
10 ; 0 None
11 ; 1 Filter by Semantic Types
12 ; 2 Filter by Classification Codes
13 ; 3 Filter by Semantic Types and Classification Codes
14 ;
15EN(LEXX) ;
16 ;
17 N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
18 S DIR("A",1)="Filter based on:"
19 S DIR("A",3)=" 1. Semantic Types"
20 S DIR("A",4)=" 2. Classification Coding Systems"
21 S DIR("A",5)=" 3. Semantic Types and Classification Codes"
22 S (DIR("A",2),DIR("A",6))=" "
23 S DIR(0)="SAO^1:Filter on Semantic Types;2:Filter on Classification Codes;3:Filter on both Semantic Types and Classification Codes"
24 S DIR("A")="Select: "
25 D ^DIR S LEXX=+X S:Y["^" LEXX=Y Q LEXX
Note: See TracBrowser for help on using the repository browser.