|
Last change
on this file since 846 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.
