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

LEXDMG.m

Go to the documentation of this file.
  1. LEXDMG ;ISL/KER - Defaults - Manager Options ;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. ; ^DIR ICR 10026
  1. ;
  1. ; LEXDICS Filter
  1. ; LEXDICS(0) Filter name
  1. ; LEXSHOW Display
  1. ; LEXSHOW(0) Display name
  1. ; LEXSUB Vocabulary
  1. ; LEXSUB(0) Vocabulary name
  1. ; LEXCTX Shortcut Context
  1. ; LEXCTX(0) Shortcut Context name
  1. ;
  1. ; LEXAP Application
  1. ; LEXCHG Flag for 1) defaults changed 0) not changed
  1. ; LEXDNAM Default name
  1. ; LEXDVAL Default value
  1. ; LEXGET Executable code which gets the default values
  1. ; LEXMAX Maximum number of defaults
  1. ; LEXMGR Flag - Manager
  1. ; LEXRTN Routine name which sets the defaults values
  1. ; LEXSEL User input/selection
  1. ;
  1. W @IOF
  1. N LEXDICS,LEXSHOW,LEXSUB,LEXCTX,LEXMAX
  1. N LEXAP,LEXCHG,LEXDNAM,LEXDVAL,LEXGET
  1. N LEXRTN,LEXSEL,LEXMGR
  1. S (LEXMGR,LEXSEL,LEXDICS,LEXDICS(0),LEXSHOW,LEXSHOW(0))=""
  1. S (LEXSUB,LEXSUB(0),LEXCTX,LEXCTX(0))="",LEXMAX=4
  1. APPS ; Defaults for an application
  1. S LEXCHG=0
  1. APP ; Get the application(s) - $$FI^LEXDM4
  1. S LEXAP=$$FI^LEXDM4
  1. I LEXAP="" W !!,"No application(s) selected",! G EXIT
  1. D DEFMENU G DEFOPT
  1. DEFMENU ; Edit Defaults Menu
  1. W !!,"Lexicon Defaults:"
  1. W !!," 1 Filter "
  1. W $S($L($G(LEXDICS(0))):"- ",1:""),$G(LEXDICS(0))
  1. W:'$L($G(LEXDICS(0))) " Unselected"
  1. W !," 2 Display "
  1. W $S($L($G(LEXSHOW(0))):"- ",1:""),$G(LEXSHOW(0))
  1. W:'$L($G(LEXSHOW(0))) " Unselected"
  1. W !," 3 Vocabulary "
  1. W $S($L($G(LEXSUB(0))):"- ",1:""),$G(LEXSUB(0))
  1. W:'$L($G(LEXSUB(0))) " Unselected"
  1. W !," 4 Shortcuts "
  1. W $S($L($G(LEXCTX(0))):"- ",1:""),$G(LEXCTX(0))
  1. W:'$L($G(LEXCTX(0))) " Unselected"
  1. W ! Q
  1. DEFOPT ; Get user input LEXSEL from ^DIR
  1. N DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
  1. G:$G(LEXSEL)["^^" EXIT
  1. S DIR("A")="Select default to modify (1-"_LEXMAX_"): "
  1. S DIR("?")="^D DEFHLP^LEXDMG"
  1. S DIR(0)="NAO^1:"_LEXMAX_":0" D ^DIR
  1. S LEXSEL=$S($D(DTOUT):"",X["^^":"^^",X[U&(X'["^^"):U,1:X) K DIR
  1. G:LEXSEL=U APPS G:LEXSEL="^^" EXIT
  1. G:+LEXSEL=0&(LEXCHG=0) EXIT G:+LEXSEL=0&(LEXCHG>0) USR
  1. ; Get Filter - $$MGR^LEXDFL
  1. I +LEXSEL=1 D G DEFOPT
  1. . D GETDEF("LEXDICS","LEXDICS(0)","$$MGR^LEXDFL")
  1. ; Get Display - $$MGR^LEXDCC
  1. I +LEXSEL=2 D G DEFOPT
  1. . D GETDEF("LEXSHOW","LEXSHOW(0)","$$MGR^LEXDCC")
  1. ; Get Vocabulary - $$MGR^LEXDVO
  1. I +LEXSEL=3 D G DEFOPT
  1. . D GETDEF("LEXSUB","LEXSUB(0)","$$MGR^LEXDVO")
  1. ; Get Shortcut Context - $$MGR^LEXDCX
  1. I +LEXSEL=4 D G DEFOPT
  1. . D GETDEF("LEXCTX","LEXCTX(0)","$$MGR^LEXDCX")
  1. Q
  1. DEFHLP ; Help
  1. W !!,"Enter 1-",LEXMAX," to modify defaults, ""^"" for previous menu,"
  1. W:'LEXCHG " or ""^^""/<Return> to exit"
  1. W:LEXCHG " ""^^"" to exit, or",!,"<Return> to continue."
  1. D DEFMENU Q
  1. GETDEF(LEXDVAL,LEXDNAM,LEXRTN) ; Get the default values - X LEXGET
  1. N LEXGET S LEXGET="S "_LEXDVAL_"="_LEXRTN X LEXGET
  1. S:@LEXDVAL="^^" LEXSEL="^^"
  1. S @LEXDNAM=$P(@LEXDVAL,U,$L(@LEXDVAL,U))
  1. S @LEXDVAL=$P(@LEXDVAL,U,1,($L(@LEXDVAL,U)-1))
  1. S:@LEXDVAL="" @LEXDNAM="No Change"
  1. S:@LEXDVAL'="" LEXCHG=1 D:LEXSEL'["^^" DEFMENU Q
  1. USR ; Set defaults for a User or User Group - $$USER^LEXDMGU
  1. S LEXSEL=$$USER^LEXDMGU
  1. I $D(LEXSEL),LEXSEL=U D DEFMENU G DEFOPT
  1. EXIT ; Cleanup and quit
  1. Q