Last change
on this file since 1074 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
859 bytes
|
Rev | Line | |
---|
[628] | 1 | LEXDFLT ; ISL Default Filter - Filter Type ; 09-23-96
|
---|
[636] | 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
---|
[628] | 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 | ;
|
---|
| 15 | EN(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.