- LEXAFIL ;ISL/KER - Lookup Filter ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- ;
- ; 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXAFIL 429 printed Feb 18, 2025@23:32:59 Page 2
- LEXAFIL ;ISL/KER - Lookup Filter ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- +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