| 1 | LEXDM3 ; ISL Default Misc - Name Default ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; LEXFIL Flag for Filter v.s. Display
|
|---|
| 5 | ; LEXX Value returned
|
|---|
| 6 | ; LEXY Local Value of Y
|
|---|
| 7 | ;
|
|---|
| 8 | NAME(LEXX) ; Filter/Display name - S X=$$NAME^LEXDM3
|
|---|
| 9 | N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT W !!
|
|---|
| 10 | S LEXX=$S($D(LEXFIL):"User defined filter",1:"User defined display")
|
|---|
| 11 | S DIR("A")=$S($D(LEXFIL):"Filter name: ",1:"Display name: ")
|
|---|
| 12 | S (DIR("?"),DIR("??"))="^D NH^LEXDM3"
|
|---|
| 13 | S DIR(0)="FAO^2:30" D ^DIR,NR
|
|---|
| 14 | Q LEXX
|
|---|
| 15 | NH ; Name Help
|
|---|
| 16 | W !!,"You may give a name to the ",$S($D(LEXFIL):"filter",1:"display")," you have created. This name is"
|
|---|
| 17 | W !,"informational and will only be used if you elect to display your"
|
|---|
| 18 | W !,"current defaults. This name should represent the purpose of the"
|
|---|
| 19 | W !,$S($D(LEXFIL):"filter",1:"display"),", and must be 2-30 characters in length."
|
|---|
| 20 | Q
|
|---|
| 21 | NR ; Name Reformat
|
|---|
| 22 | N LEXY S LEXY=Y S:Y["^^" LEXX=LEXY Q:LEXY[U
|
|---|
| 23 | I $$UP^XLFSTR(Y)'[$$UP^XLFSTR(LEXX) D
|
|---|
| 24 | . S LEXY=$$UP^XLFSTR($E(Y,1))_$$LOW^XLFSTR($E(Y,2,$L(Y)))
|
|---|
| 25 | . S:LEXY'="" LEXX=LEXX_"/"_LEXY
|
|---|
| 26 | Q
|
|---|
