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