Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEXDM3

LEXDM3.m

Go to the documentation of this file.
  1. LEXDM3 ;ISL/KER - Default Misc - Name Default ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; $$LOW^XLFSTR ICR 10103
  1. ; $$UP^XLFSTR ICR 10103
  1. ; ^DIR ICR 10026
  1. ;
  1. ; LEXFIL Flag for Filter v.s. Display
  1. ; LEXX Value returned
  1. ; LEXY Local Value of Y
  1. ;
  1. NAME(LEXX) ; Filter/Display name - S X=$$NAME^LEXDM3
  1. N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT W !!
  1. S LEXX=$S($D(LEXFIL):"User defined filter",1:"User defined display")
  1. S DIR("A")=$S($D(LEXFIL):"Filter name: ",1:"Display name: ")
  1. S (DIR("?"),DIR("??"))="^D NH^LEXDM3"
  1. S DIR(0)="FAO^2:30" D ^DIR,NR
  1. Q LEXX
  1. NH ; Name Help
  1. W !!,"You may give a name to the ",$S($D(LEXFIL):"filter",1:"display")," you have created. This name is"
  1. W !,"informational and will only be used if you elect to display your"
  1. W !,"current defaults. This name should represent the purpose of the"
  1. W !,$S($D(LEXFIL):"filter",1:"display"),", and must be 2-30 characters in length."
  1. Q
  1. NR ; Name Reformat
  1. N LEXY S LEXY=Y S:Y["^^" LEXX=LEXY Q:LEXY[U
  1. I $$UP^XLFSTR(Y)'[$$UP^XLFSTR(LEXX) D
  1. . S LEXY=$$UP^XLFSTR($E(Y,1))_$$LOW^XLFSTR($E(Y,2,$L(Y)))
  1. . S:LEXY'="" LEXX=LEXX_"/"_LEXY
  1. Q