source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXAFIL.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 416 bytes
Line 
1LEXAFIL ; ISL Lookup Filter ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996
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 ;
11EN(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.