LEXDFLC.m

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