LEXDM3.m

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 ---LEXDM3   1322     printed  Apr 09, 2024@21:07:50                                                                                                                                                                                                      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