Last change
on this file since 770 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
792 bytes
|
Line | |
---|
1 | LEXDFLC ; ISL Default Filter - Create ; 09-23-96
|
---|
2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
---|
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 | ;
|
---|
20 | EN(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.