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 Oct 16, 2024@18:07:37 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
