|
Last change
on this file since 636 was 636, checked in by George Lilly, 14 years ago |
|
WorldVistAEHR overlayed on FOIAVistA
|
|
File size:
424 bytes
|
| Rev | Line | |
|---|
| [628] | 1 | LEXAFIL ; ISL Lookup Filter ; 09-23-96
|
|---|
| [636] | 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| [628] | 3 | ;
|
|---|
| 4 | ; S LEXFILR=$$EN^LEXAFIL(LEXFIL,LEXE)
|
|---|
| 5 | ;
|
|---|
| 6 | ; LEXE Internal Entry Number (IEN) for an Expression in #757.01
|
|---|
| 7 | ; LEXFIL DIC("S")
|
|---|
| 8 | ;
|
|---|
| 9 | ; Returns 1 (true) or 0 (false)
|
|---|
| 10 | ;
|
|---|
| 11 | EN(LEXFIL,Y) ; Process Search Filter
|
|---|
| 12 | S LEXFIL=$G(LEXFIL),Y=+($G(Y))
|
|---|
| 13 | Q:'$L(LEXFIL) 1 Q:Y=0 0 Q:'$D(^LEX(757.01,Y,0)) 0
|
|---|
| 14 | X LEXFIL S Y=$T Q Y
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
