LEXAFIL.m

LEXAFIL ;ISL/KER - Lookup Filter ;04/21/2014

 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 ;

 ; S LEXFILR=$$EN^LEXAFIL(LEXFIL,LEXE)

 ;

 ;   LEXE    Internal Entry Number (IEN) for an Expression in #757.01

 ;   LEXFIL  DIC("S")

 ;

 ; Returns 1 (true) or 0 (false)

 ;

EN(LEXFIL,Y) ; Process Search Filter

 S LEXFIL=$G(LEXFIL),Y=+($G(Y))

 Q:'$L(LEXFIL) 1 Q:Y=0 0 Q:'$D(^LEX(757.01,Y,0)) 0

 X LEXFIL S Y=$T

 Q Y

LEXAFIL   ;ISL/KER - Lookup Filter ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 +2       ;

 +3       ; S LEXFILR=$$EN^LEXAFIL(LEXFIL,LEXE)

 +4       ;

 +5       ;   LEXE    Internal Entry Number (IEN) for an Expression in #757.01

 +6       ;   LEXFIL  DIC("S")

 +7       ;

 +8       ; Returns 1 (true) or 0 (false)

 +9       ;

EN(LEXFIL,Y) ; Process Search Filter

 +1        SET LEXFIL=$GET(LEXFIL)

           SET Y=+($GET(Y))

 +2        IF '$LENGTH(LEXFIL)

               QUIT 1

           IF Y=0

               QUIT 0

           IF '$DATA(^LEX(757.01,Y,0))

               QUIT 0

 +3        XECUTE LEXFIL

           SET Y=$TEST

 +4        QUIT Y