- LEXDFLC ;ISL/KER - Default Filter - Create ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- ;
- ; 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
- LEXDFLC ;ISL/KER - Default Filter - Create ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- +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