source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDM3.m@ 1789

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1LEXDM3 ; ISL Default Misc - Name Default ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4 ; LEXFIL Flag for Filter v.s. Display
5 ; LEXX Value returned
6 ; LEXY Local Value of Y
7 ;
8NAME(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
15NH ; 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
21NR ; 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
Note: See TracBrowser for help on using the repository browser.