LEXDDTC ;ISL/KER - Display Defaults - Shortcut Context ;04/21/2014
;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
;
; Global Variables
; ^LEX(757.41) N/A
;
; External References
; None
;
CON ; Shortcut Context
; Required LEXCTX
N LEXTCTR,LEXTD,LEXTI,LEXTIC,LEXTL,LEXTN,LEXTSTR,LEXT,LEXTV
K LEX Q:'$L($G(LEXCTX)) S LEXCTX=+LEXCTX
Q:LEXCTX'>0 Q:'$D(^LEX(757.41,LEXCTX))
S LEX=LEXCTX S:'$D(LEXSTLN) LEXSTLN=56
S LEXTI=0,(LEXTIC,LEXTN,LEXTV,LEXTD)="" D INT
K:LEXSTLN=56 LEXSTLN Q
INT ; Interpret string
; LEXCTX
S LEXTIC=1
S LEXTN=LEXTN_$P($G(^LEX(757.41,+LEXCTX,0)),"^",1)
S LEXTN=LEXTN_" shortcut set"
; Build temporary phrase
S LEX("V",1)="Use the "_LEXTN
; Process phrase
S LEX("V",0)=1,LEXT="V",LEXTCTR=0,LEXTSTR=""
D CONCAT^LEXDDT2 K LEX("V")
I $E(LEXTSTR,$L(LEXTSTR))?1P S LEXTSTR=$E(LEXTSTR,1,($L(LEXTSTR)-1))
I $E(LEXTSTR,$L(LEXTSTR))?1P S LEXTSTR=$E(LEXTSTR,1,($L(LEXTSTR)-1))
D EOC^LEXDDT2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDDTC 1030 printed Oct 16, 2024@18:08:13 Page 2
LEXDDTC ;ISL/KER - Display Defaults - Shortcut Context ;04/21/2014
+1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
+2 ;
+3 ; Global Variables
+4 ; ^LEX(757.41) N/A
+5 ;
+6 ; External References
+7 ; None
+8 ;
CON ; Shortcut Context
+1 ; Required LEXCTX
+2 NEW LEXTCTR,LEXTD,LEXTI,LEXTIC,LEXTL,LEXTN,LEXTSTR,LEXT,LEXTV
+3 KILL LEX
if '$LENGTH($GET(LEXCTX))
QUIT
SET LEXCTX=+LEXCTX
+4 if LEXCTX'>0
QUIT
if '$DATA(^LEX(757.41,LEXCTX))
QUIT
+5 SET LEX=LEXCTX
if '$DATA(LEXSTLN)
SET LEXSTLN=56
+6 SET LEXTI=0
SET (LEXTIC,LEXTN,LEXTV,LEXTD)=""
DO INT
+7 if LEXSTLN=56
KILL LEXSTLN
QUIT
INT ; Interpret string
+1 ; LEXCTX
+2 SET LEXTIC=1
+3 SET LEXTN=LEXTN_$PIECE($GET(^LEX(757.41,+LEXCTX,0)),"^",1)
+4 SET LEXTN=LEXTN_" shortcut set"
+5 ; Build temporary phrase
+6 SET LEX("V",1)="Use the "_LEXTN
+7 ; Process phrase
+8 SET LEX("V",0)=1
SET LEXT="V"
SET LEXTCTR=0
SET LEXTSTR=""
+9 DO CONCAT^LEXDDT2
KILL LEX("V")
+10 IF $EXTRACT(LEXTSTR,$LENGTH(LEXTSTR))?1P
SET LEXTSTR=$EXTRACT(LEXTSTR,1,($LENGTH(LEXTSTR)-1))
+11 IF $EXTRACT(LEXTSTR,$LENGTH(LEXTSTR))?1P
SET LEXTSTR=$EXTRACT(LEXTSTR,1,($LENGTH(LEXTSTR)-1))
+12 DO EOC^LEXDDT2
+13 QUIT
