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.
  1. LEXDFLC ;ISL/KER - Default Filter - Create ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; None
  1. ;
  1. ; Entry: S X=$$EN^LEXDFLC
  1. ;
  1. ; Function returns a multi piece string
  1. ;
  1. ; $Piece 1-X
  1. ;
  1. ; Executable MUMPS code to be used as
  1. ; a filter (screen DIC("S") during
  1. ; searches
  1. ;
  1. ; $Piece Last piece
  1. ;
  1. ; Name of the filter selected i.e.,
  1. ; "Problem List" This will be null only
  1. ; when user input is "^^"
  1. ;
  1. EN(LEXX) ; Entry point S X=$$EN^LEXDFLC
  1. N LEXFLT S LEXFLT=$$EN^LEXDFLT,LEXX=""
  1. Q:LEXFLT["^^" "^^" Q:LEXFLT["^" "^"
  1. Q:LEXFLT=0 "^No filter created"
  1. S:LEXFLT=1 LEXX=$$EN^LEXDFST
  1. S:LEXFLT=2 LEXX=$$EN^LEXDFSO
  1. S:LEXFLT=3 LEXX=$$EN^LEXDFSS
  1. Q:LEXX["^^" "^No filter created"
  1. Q:LEXX="" "I 1^User Defined"
  1. Q LEXX