LEXDDTC.m

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 ---LEXDDTC   1030     printed  Apr 09, 2024@21:07:55                                                                                                                                                                                                     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