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

LEXDMGS.m

Go to the documentation of this file.
  1. LEXDMGS ;ISL/KER - Defaults - Manager/Search Threshold ;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. ; ^DIC ICR 10006
  1. ; ^DIE ICR 10018
  1. ;
  1. Q
  1. EN ;
  1. W !!," Coding System Search Threshold Edit",!
  1. W !," This is the default number of records that should be inspected"
  1. W !," during a search before the user is prompted to either continue"
  1. W !," or refine the search. The search threshold is set for a coding"
  1. W !," system. The use of this default parameter is optional.",!
  1. N LEXCS,LEXN,LEXNM,LEXO,X,Y
  1. S LEXCS=$$CS I +LEXCS'>0 W !!," Coding System not selected" Q
  1. S LEXNM=$P($G(^LEX(757.03,+LEXCS,0)),"^",2)
  1. S LEXO=$P($G(^LEX(757.03,+LEXCS,2)),"^",2) D ST(LEXCS)
  1. S LEXN=$P($G(^LEX(757.03,+LEXCS,2)),"^",2)
  1. I '$L(LEXO),+LEXN>0 W !!," Search Threshold added" W:$L(LEXNM) " for ",LEXNM W ! Q
  1. I +LEXO>0,+LEXN>0,LEXN'=LEXO W !!," Search Threshold changed" W:$L(LEXNM) " for ",LEXNM W ! Q
  1. I $L(LEXO),'$L(LEXN) W !!," Search Threshold deleted" W:$L(LEXNM) " for ",LEXNM W ! Q
  1. I $L(LEXO)=$L(LEXN) W !!," Search Threshold no change made" W:$L(LEXNM) " for ",LEXNM W ! Q
  1. Q
  1. ST(X) ; Edit Search Threshold
  1. N DIE,DA,DIC,DR
  1. S DIE="^LEX(757.03,",DA=+($G(X)) Q:'$D(^LEX(757.03,+DA,0))
  1. S DIE("A")=" SEARCH THRESHOLD: "
  1. S DR="12//20000" W ! D ^DIE
  1. Q
  1. CS(X) ; Coding System
  1. N DIC,DTOUT,DUOUT
  1. S DIC="^LEX(757.03,",DIC("A")=" Select a Coding System: ",DIC(0)="AEQM"
  1. S DIC("W")="W ?29,"" "",$P($G(^LEX(757.03,+Y,0)),""^"",2),?51,$S($L($P($G(^LEX(757.03,+Y,2)),""^"",2)):"" THRESHOLD:"",1:""""),$J($P($G(^LEX(757.03,+Y,2)),""^"",2),7)"
  1. D ^DIC
  1. Q Y
  1. W !,"W ?51,$S($L($P($G(^LEX(757.03,+Y,2)),""^"",2)):"" THRESHOLD:"",1:""""),$J($P($G(^LEX(757.03,+Y,2)),""^"",2),7)"
  1. W ?51,$S($L($P($G(^LEX(757.03,+Y,2)),"^",2)):" THRESHOLD:",1:""),$J($P($G(^LEX(757.03,+Y,2)),"^",2),7)
  1. W ?51," THRESHOLD:",$J($P($G(^LEX(757.03,+Y,2)),"^",2),7)