LEXDMGS ;ISL/KER - Defaults - Manager/Search Threshold ;04/21/2014
;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
;
; Global Variables
; None
;
; External References
; ^DIC ICR 10006
; ^DIE ICR 10018
;
Q
EN ;
W !!," Coding System Search Threshold Edit",!
W !," This is the default number of records that should be inspected"
W !," during a search before the user is prompted to either continue"
W !," or refine the search. The search threshold is set for a coding"
W !," system. The use of this default parameter is optional.",!
N LEXCS,LEXN,LEXNM,LEXO,X,Y
S LEXCS=$$CS I +LEXCS'>0 W !!," Coding System not selected" Q
S LEXNM=$P($G(^LEX(757.03,+LEXCS,0)),"^",2)
S LEXO=$P($G(^LEX(757.03,+LEXCS,2)),"^",2) D ST(LEXCS)
S LEXN=$P($G(^LEX(757.03,+LEXCS,2)),"^",2)
I '$L(LEXO),+LEXN>0 W !!," Search Threshold added" W:$L(LEXNM) " for ",LEXNM W ! Q
I +LEXO>0,+LEXN>0,LEXN'=LEXO W !!," Search Threshold changed" W:$L(LEXNM) " for ",LEXNM W ! Q
I $L(LEXO),'$L(LEXN) W !!," Search Threshold deleted" W:$L(LEXNM) " for ",LEXNM W ! Q
I $L(LEXO)=$L(LEXN) W !!," Search Threshold no change made" W:$L(LEXNM) " for ",LEXNM W ! Q
Q
ST(X) ; Edit Search Threshold
N DIE,DA,DIC,DR
S DIE="^LEX(757.03,",DA=+($G(X)) Q:'$D(^LEX(757.03,+DA,0))
S DIE("A")=" SEARCH THRESHOLD: "
S DR="12//20000" W ! D ^DIE
Q
CS(X) ; Coding System
N DIC,DTOUT,DUOUT
S DIC="^LEX(757.03,",DIC("A")=" Select a Coding System: ",DIC(0)="AEQM"
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)"
D ^DIC
Q Y
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)"
W ?51,$S($L($P($G(^LEX(757.03,+Y,2)),"^",2)):" THRESHOLD:",1:""),$J($P($G(^LEX(757.03,+Y,2)),"^",2),7)
W ?51," THRESHOLD:",$J($P($G(^LEX(757.03,+Y,2)),"^",2),7)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDMGS 2038 printed Dec 13, 2024@02:07:52 Page 2
LEXDMGS ;ISL/KER - Defaults - Manager/Search Threshold ;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 ; ^DIC ICR 10006
+8 ; ^DIE ICR 10018
+9 ;
+10 QUIT
EN ;
+1 WRITE !!," Coding System Search Threshold Edit",!
+2 WRITE !," This is the default number of records that should be inspected"
+3 WRITE !," during a search before the user is prompted to either continue"
+4 WRITE !," or refine the search. The search threshold is set for a coding"
+5 WRITE !," system. The use of this default parameter is optional.",!
+6 NEW LEXCS,LEXN,LEXNM,LEXO,X,Y
+7 SET LEXCS=$$CS
IF +LEXCS'>0
WRITE !!," Coding System not selected"
QUIT
+8 SET LEXNM=$PIECE($GET(^LEX(757.03,+LEXCS,0)),"^",2)
+9 SET LEXO=$PIECE($GET(^LEX(757.03,+LEXCS,2)),"^",2)
DO ST(LEXCS)
+10 SET LEXN=$PIECE($GET(^LEX(757.03,+LEXCS,2)),"^",2)
+11 IF '$LENGTH(LEXO)
IF +LEXN>0
WRITE !!," Search Threshold added"
if $LENGTH(LEXNM)
WRITE " for ",LEXNM
WRITE !
QUIT
+12 IF +LEXO>0
IF +LEXN>0
IF LEXN'=LEXO
WRITE !!," Search Threshold changed"
if $LENGTH(LEXNM)
WRITE " for ",LEXNM
WRITE !
QUIT
+13 IF $LENGTH(LEXO)
IF '$LENGTH(LEXN)
WRITE !!," Search Threshold deleted"
if $LENGTH(LEXNM)
WRITE " for ",LEXNM
WRITE !
QUIT
+14 IF $LENGTH(LEXO)=$LENGTH(LEXN)
WRITE !!," Search Threshold no change made"
if $LENGTH(LEXNM)
WRITE " for ",LEXNM
WRITE !
QUIT
+15 QUIT
ST(X) ; Edit Search Threshold
+1 NEW DIE,DA,DIC,DR
+2 SET DIE="^LEX(757.03,"
SET DA=+($GET(X))
if '$DATA(^LEX(757.03,+DA,0))
QUIT
+3 SET DIE("A")=" SEARCH THRESHOLD: "
+4 SET DR="12//20000"
WRITE !
DO ^DIE
+5 QUIT
CS(X) ; Coding System
+1 NEW DIC,DTOUT,DUOUT
+2 SET DIC="^LEX(757.03,"
SET DIC("A")=" Select a Coding System: "
SET DIC(0)="AEQM"
+3 SET 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)"
+4 DO ^DIC
+5 QUIT Y
+6 WRITE !,"W ?51,$S($L($P($G(^LEX(757.03,+Y,2)),""^"",2)):"" THRESHOLD:"",1:""""),$J($P($G(^LEX(757.03,+Y,2)),""^"",2),7)"
+7 WRITE ?51,$SELECT($LENGTH($PIECE($GET(^LEX(757.03,+Y,2)),"^",2)):" THRESHOLD:",1:""),$JUSTIFY($PIECE($GET(^LEX(757.03,+Y,2)),"^",2),7)
+8 WRITE ?51," THRESHOLD:",$JUSTIFY($PIECE($GET(^LEX(757.03,+Y,2)),"^",2),7)
