source:
WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXAFIL.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 424 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | LEXAFIL ; ISL Lookup Filter ; 09-23-96 |
2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1 | |
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.