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 Oct 16, 2024@18:08:30 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
