- LEXDM3 ;ISL/KER - Default Misc - Name Default ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- ;
- ; Global Variables
- ; None
- ;
- ; External References
- ; $$LOW^XLFSTR ICR 10103
- ; $$UP^XLFSTR ICR 10103
- ; ^DIR ICR 10026
- ;
- ; LEXFIL Flag for Filter v.s. Display
- ; LEXX Value returned
- ; LEXY Local Value of Y
- ;
- NAME(LEXX) ; Filter/Display name - S X=$$NAME^LEXDM3
- N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT W !!
- S LEXX=$S($D(LEXFIL):"User defined filter",1:"User defined display")
- S DIR("A")=$S($D(LEXFIL):"Filter name: ",1:"Display name: ")
- S (DIR("?"),DIR("??"))="^D NH^LEXDM3"
- S DIR(0)="FAO^2:30" D ^DIR,NR
- Q LEXX
- NH ; Name Help
- W !!,"You may give a name to the ",$S($D(LEXFIL):"filter",1:"display")," you have created. This name is"
- W !,"informational and will only be used if you elect to display your"
- W !,"current defaults. This name should represent the purpose of the"
- W !,$S($D(LEXFIL):"filter",1:"display"),", and must be 2-30 characters in length."
- Q
- NR ; Name Reformat
- N LEXY S LEXY=Y S:Y["^^" LEXX=LEXY Q:LEXY[U
- I $$UP^XLFSTR(Y)'[$$UP^XLFSTR(LEXX) D
- . S LEXY=$$UP^XLFSTR($E(Y,1))_$$LOW^XLFSTR($E(Y,2,$L(Y)))
- . S:LEXY'="" LEXX=LEXX_"/"_LEXY
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDM3 1322 printed Feb 18, 2025@23:33:53 Page 2
- LEXDM3 ;ISL/KER - Default Misc - Name Default ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- +2 ;
- +3 ; Global Variables
- +4 ; None
- +5 ;
- +6 ; External References
- +7 ; $$LOW^XLFSTR ICR 10103
- +8 ; $$UP^XLFSTR ICR 10103
- +9 ; ^DIR ICR 10026
- +10 ;
- +11 ; LEXFIL Flag for Filter v.s. Display
- +12 ; LEXX Value returned
- +13 ; LEXY Local Value of Y
- +14 ;
- NAME(LEXX) ; Filter/Display name - S X=$$NAME^LEXDM3
- +1 NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
- WRITE !!
- +2 SET LEXX=$SELECT($DATA(LEXFIL):"User defined filter",1:"User defined display")
- +3 SET DIR("A")=$SELECT($DATA(LEXFIL):"Filter name: ",1:"Display name: ")
- +4 SET (DIR("?"),DIR("??"))="^D NH^LEXDM3"
- +5 SET DIR(0)="FAO^2:30"
- DO ^DIR
- DO NR
- +6 QUIT LEXX
- NH ; Name Help
- +1 WRITE !!,"You may give a name to the ",$SELECT($DATA(LEXFIL):"filter",1:"display")," you have created. This name is"
- +2 WRITE !,"informational and will only be used if you elect to display your"
- +3 WRITE !,"current defaults. This name should represent the purpose of the"
- +4 WRITE !,$SELECT($DATA(LEXFIL):"filter",1:"display"),", and must be 2-30 characters in length."
- +5 QUIT
- NR ; Name Reformat
- +1 NEW LEXY
- SET LEXY=Y
- if Y["^^"
- SET LEXX=LEXY
- if LEXY[U
- QUIT
- +2 IF $$UP^XLFSTR(Y)'[$$UP^XLFSTR(LEXX)
- Begin DoDot:1
- +3 SET LEXY=$$UP^XLFSTR($EXTRACT(Y,1))_$$LOW^XLFSTR($EXTRACT(Y,2,$LENGTH(Y)))
- +4 if LEXY'=""
- SET LEXX=LEXX_"/"_LEXY
- End DoDot:1
- +5 QUIT