LEXDFLC ;ISL/KER - Default Filter - Create ;04/21/2014
;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
;
; Global Variables
; None
;
; External References
; None
;
; Entry: S X=$$EN^LEXDFLC
;
; Function returns a multi piece string
;
; $Piece 1-X
;
; Executable MUMPS code to be used as
; a filter (screen DIC("S") during
; searches
;
; $Piece Last piece
;
; Name of the filter selected i.e.,
; "Problem List" This will be null only
; when user input is "^^"
;
EN(LEXX) ; Entry point S X=$$EN^LEXDFLC
N LEXFLT S LEXFLT=$$EN^LEXDFLT,LEXX=""
Q:LEXFLT["^^" "^^" Q:LEXFLT["^" "^"
Q:LEXFLT=0 "^No filter created"
S:LEXFLT=1 LEXX=$$EN^LEXDFST
S:LEXFLT=2 LEXX=$$EN^LEXDFSO
S:LEXFLT=3 LEXX=$$EN^LEXDFSS
Q:LEXX["^^" "^No filter created"
Q:LEXX="" "I 1^User Defined"
Q LEXX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDFLC 942 printed Dec 13, 2024@02:07:36 Page 2
LEXDFLC ;ISL/KER - Default Filter - Create ;04/21/2014
+1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
+2 ;
+3 ; Global Variables
+4 ; None
+5 ;
+6 ; External References
+7 ; None
+8 ;
+9 ; Entry: S X=$$EN^LEXDFLC
+10 ;
+11 ; Function returns a multi piece string
+12 ;
+13 ; $Piece 1-X
+14 ;
+15 ; Executable MUMPS code to be used as
+16 ; a filter (screen DIC("S") during
+17 ; searches
+18 ;
+19 ; $Piece Last piece
+20 ;
+21 ; Name of the filter selected i.e.,
+22 ; "Problem List" This will be null only
+23 ; when user input is "^^"
+24 ;
EN(LEXX) ; Entry point S X=$$EN^LEXDFLC
+1 NEW LEXFLT
SET LEXFLT=$$EN^LEXDFLT
SET LEXX=""
+2 if LEXFLT["^^"
QUIT "^^"
if LEXFLT["^"
QUIT "^"
+3 if LEXFLT=0
QUIT "^No filter created"
+4 if LEXFLT=1
SET LEXX=$$EN^LEXDFST
+5 if LEXFLT=2
SET LEXX=$$EN^LEXDFSO
+6 if LEXFLT=3
SET LEXX=$$EN^LEXDFSS
+7 if LEXX["^^"
QUIT "^No filter created"
+8 if LEXX=""
QUIT "I 1^User Defined"
+9 QUIT LEXX
