Last change
on this file since 1710 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
792 bytes
|
Rev | Line | |
---|
[613] | 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.