source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDFLC.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 784 bytes
Line 
1LEXDFLC ; ISL Default Filter - Create ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996
3 ;
4 ; Entry: S X=$$EN^LEXDFLC
5 ;
6 ; Function returns a multi piece string
7 ;
8 ; $Piece 1-X
9 ;
10 ; Executable MUMPS code to be used as
11 ; a filter (screen DIC("S") during
12 ; searches
13 ;
14 ; $Piece Last piece
15 ;
16 ; Name of the filter selected i.e.,
17 ; "Problem List" This will be null only
18 ; when user input is "^^"
19 ;
20EN(LEXX) ; Entry point S X=$$EN^LEXDFLC
21 N LEXFLT S LEXFLT=$$EN^LEXDFLT,LEXX=""
22 Q:LEXFLT["^^" "^^" Q:LEXFLT["^" "^"
23 Q:LEXFLT=0 "^No filter created"
24 S:LEXFLT=1 LEXX=$$EN^LEXDFST
25 S:LEXFLT=2 LEXX=$$EN^LEXDFSO
26 S:LEXFLT=3 LEXX=$$EN^LEXDFSS
27 Q:LEXX["^^" "^No filter created"
28 Q:LEXX="" "I 1^User Defined"
29 Q LEXX
Note: See TracBrowser for help on using the repository browser.