LEXDCX.m

LEXDCX ;ISL/KER - Default Shortcut Context ;04/21/2014

 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    $$GET1^DIQ          ICR   2056

 ;    $$UP^XLFSTR         ICR  10103

 ;               

 ; Entry:  D EN^LEXDCX              LEXAP is unknown

 ;

 ; Entry:  D EN1^LEXDCX(LEXAP)     LEXAP is known

 ;

 ; Single user entry point - Saves Default Shortcut 

 ;                           Context in file 757.2

 ;

 ; Where 

 ;

 ;      LEXAP     Pointer to file 757.2

 ;      LEXCA     Action (modify/delete)

 ;      LEXDEL    Flag default for Deletion

 ;      LEXDNAM   Default Name

 ;      LEXDVAL   Default Value

 ;      LEXFIL    Flag for Filter

 ;      LEXFLD    Default field (1-4) in file 757.201

 ;      LEXUSER   DUZ of user

 ;      LEXX      Returned value

 ;

EN ; Single user, LEXAP is unknown

 N LEXAP,X,Y S LEXAP=$$DFI^LEXDM4 Q:+LEXAP=0  W ! D EN1(LEXAP) Q

EN1(LEXAP) ; Single user, LEXAP is known

 N LEXUSER,LEXX S LEXUSER=$G(DUZ) Q:+LEXUSER'>0  Q:'$L($$GET1^DIQ(200,+($G(DUZ)),.01))

 ;

 S LEXAP=$G(LEXAP) Q:LEXAP=""

 I '$D(^LEXT(757.2,+LEXAP,0))&('$D(^LEXT(757.2,"B",LEXAP)))&('$D(^LEXT(757.2,"C",$$UP^XLFSTR(LEXAP))))&('$D(^LEXT(757.2,"AN",LEXAP))) Q

 S:+LEXAP'>0 LEXAP=$$AP^LEXDFN2(LEXAP)

 ;

 Q:+($G(LEXAP))'>0  Q:+($P($G(^LEXT(757.2,+LEXAP,5)),"^",3))'>0

 K LEXFIL N LEXDVAL,LEXDNAM,LEXFLD S LEXFLD=4

 S LEXDVAL=$$EN^LEXDCXS Q:LEXDVAL="^^"

 S LEXDNAM=$P(LEXDVAL,"^",2),LEXDVAL=$P(LEXDVAL,"^",1)

 Q:LEXDVAL=""&(LEXDNAM="")  I LEXDVAL="",LEXDNAM'="" D  Q

 . N LEXDEL S LEXDEL=$$EN^LEXDM2(LEXUSER,LEXAP,4) I +LEXDEL>0 D KILL

 D SET

 Q

MGR(LEXX) ; Multi-user (for Manager options)

 ; Do not save display, return value to manager option

 N LEXCA,LEXDVAL S LEXCA=$$MOD^LEXDM(4) Q:LEXCA=0 "^" Q:(LEXCA="^^") "^^"

 Q:LEXCA="@" "@^Delete Shortcut Context" W ! S LEXDVAL=$$EN^LEXDCXS Q:LEXDVAL="^^" "^^"

 S LEXX=LEXDVAL Q LEXX

SET ; Set default Shortcut Context

 D SET^LEXDSV(LEXUSER,LEXAP,LEXDVAL,LEXDNAM,LEXFLD) Q

KILL ; Kill default Shortcut Context

 D SET^LEXDSV(LEXUSER,LEXAP,"@","Delete",LEXFLD) Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEXDCX   2156     printed  Feb 18, 2025@23:33:24                                                                                                                                                                                                      Page 2

LEXDCX    ;ISL/KER - Default Shortcut Context ;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       ;    $$GET1^DIQ          ICR   2056

 +8       ;    $$UP^XLFSTR         ICR  10103

 +9       ;               

 +10      ; Entry:  D EN^LEXDCX              LEXAP is unknown

 +11      ;

 +12      ; Entry:  D EN1^LEXDCX(LEXAP)     LEXAP is known

 +13      ;

 +14      ; Single user entry point - Saves Default Shortcut 

 +15      ;                           Context in file 757.2

 +16      ;

 +17      ; Where 

 +18      ;

 +19      ;      LEXAP     Pointer to file 757.2

 +20      ;      LEXCA     Action (modify/delete)

 +21      ;      LEXDEL    Flag default for Deletion

 +22      ;      LEXDNAM   Default Name

 +23      ;      LEXDVAL   Default Value

 +24      ;      LEXFIL    Flag for Filter

 +25      ;      LEXFLD    Default field (1-4) in file 757.201

 +26      ;      LEXUSER   DUZ of user

 +27      ;      LEXX      Returned value

 +28      ;

EN        ; Single user, LEXAP is unknown

 +1        NEW LEXAP,X,Y

           SET LEXAP=$$DFI^LEXDM4

           if +LEXAP=0

               QUIT 

           WRITE !

           DO EN1(LEXAP)

           QUIT 

EN1(LEXAP) ; Single user, LEXAP is known

 +1        NEW LEXUSER,LEXX

           SET LEXUSER=$GET(DUZ)

           if +LEXUSER'>0

               QUIT 

           if '$LENGTH($$GET1^DIQ(200,+($GET(DUZ)),.01))

               QUIT 

 +2       ;

 +3        SET LEXAP=$GET(LEXAP)

           if LEXAP=""

               QUIT 

 +4        IF '$DATA(^LEXT(757.2,+LEXAP,0))&('$DATA(^LEXT(757.2,"B",LEXAP)))&('$DATA(^LEXT(757.2,"C",$$UP^XLFSTR(LEXAP))))&('$DATA(^LEXT(757.2,"AN",LEXAP)))

               QUIT 

 +5        if +LEXAP'>0

               SET LEXAP=$$AP^LEXDFN2(LEXAP)

 +6       ;

 +7        if +($GET(LEXAP))'>0

               QUIT 

           if +($PIECE($GET(^LEXT(757.2,+LEXAP,5)),"^",3))'>0

               QUIT 

 +8        KILL LEXFIL

           NEW LEXDVAL,LEXDNAM,LEXFLD

           SET LEXFLD=4

 +9        SET LEXDVAL=$$EN^LEXDCXS

           if LEXDVAL="^^"

               QUIT 

 +10       SET LEXDNAM=$PIECE(LEXDVAL,"^",2)

           SET LEXDVAL=$PIECE(LEXDVAL,"^",1)

 +11       if LEXDVAL=""&(LEXDNAM="")

               QUIT 

           IF LEXDVAL=""

               IF LEXDNAM'=""

                   Begin DoDot:1

 +12                   NEW LEXDEL

                       SET LEXDEL=$$EN^LEXDM2(LEXUSER,LEXAP,4)

                       IF +LEXDEL>0

                           DO KILL

                   End DoDot:1

                   QUIT 

 +13       DO SET

 +14       QUIT 

MGR(LEXX) ; Multi-user (for Manager options)

 +1       ; Do not save display, return value to manager option

 +2        NEW LEXCA,LEXDVAL

           SET LEXCA=$$MOD^LEXDM(4)

           if LEXCA=0

               QUIT "^"

           if (LEXCA="^^")

               QUIT "^^"

 +3        if LEXCA="@"

               QUIT "@^Delete Shortcut Context"

           WRITE !

           SET LEXDVAL=$$EN^LEXDCXS

           if LEXDVAL="^^"

               QUIT "^^"

 +4        SET LEXX=LEXDVAL

           QUIT LEXX

SET       ; Set default Shortcut Context

 +1        DO SET^LEXDSV(LEXUSER,LEXAP,LEXDVAL,LEXDNAM,LEXFLD)

           QUIT 

KILL      ; Kill default Shortcut Context

 +1        DO SET^LEXDSV(LEXUSER,LEXAP,"@","Delete",LEXFLD)

           QUIT