Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEXDFLC

LEXDFLC.m

Go to the documentation of this file.
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