- LEXDMGV ;ISL/KER - Defaults - Manager/Verify ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- ;
- ; Global Variables
- ; None
- ;
- ; External References
- ; ^DIR ICR 10026
- ;
- ; LEXDICS Filter
- ; LEXDICS(0) Filter name
- ; LEXDICS(1) Filter - Add, Delete, No Change
- ; LEXSHOW Display
- ; LEXSHOW(0) Display name
- ; LEXSHOW(1) Display - Add, Delete, No Change
- ; LEXSUB Vocabulary
- ; LEXSUB(0) Vocabulary name
- ; LEXSUB(1) Vocabulary - Add, Delete, No Change
- ; LEXCTX Shortcut Context
- ; LEXCTX(0) Shortcut Context name
- ; LEXCTX(1) Shortcut Context - Add, Delete, No Change
- ;
- ; LEXUSER User (text, not pointer)
- ; LEXX Returned value
- ; LEXLIM Limits (parameter for LEXMETH)
- ; LEXMETH Method, singel user, by service or all users
- ;
- VER(LEXX) ; Verify defaults before commiting to the global
- W @IOF
- D DDEF,DDU,OVRCHG^LEXDMGO
- W ! N DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
- S DIR("A")="Is this correct? "
- S DIR("B")="Yes"
- S (DIR("?"),DIR("??"))="^D VERH^LEXDMGV"
- S DIR(0)="YAO" D ^DIR K DIR I X["^^" Q "^^"
- Q:X[U U S LEXX=+Y Q LEXX
- VERH ; Verify help
- W !!,"By answering ""Yes"" you will be setting the look-up defaults for the Clinical"
- W !,"Lexicon for the selected applications and users."
- W !!,"Is this correct"
- Q
- DDEF ; Display defaults
- N LEXC S LEXC=0
- I (+($$ACT)) D
- . W !,"Set user defaults:",!
- I $D(LEXDICS(1)) D
- . S LEXC=LEXC+1 W !," ",LEXC," Filter ",LEXDICS(1)
- . W:$G(LEXDICS(1))["Add" ", ",$P($G(LEXDICS(0))," (",1)
- I $D(LEXSHOW(1)) D
- . S LEXC=LEXC+1 W !," ",LEXC," Display ",$G(LEXSHOW(1))
- . W:$G(LEXSHOW(1))["Add" ", ",$P($G(LEXSHOW(0))," (",1)
- I $D(LEXSUB(1)) D
- . S LEXC=LEXC+1 W !," ",LEXC," Vocabulary ",$G(LEXSUB(1))
- . W:$G(LEXSUB(1))["Add" ", ",$P($G(LEXSUB(0))," (",1)
- I $D(LEXCTX(1)) D
- . S LEXC=LEXC+1 W !," ",LEXC," Shortcuts ",$G(LEXCTX(1))
- . W:$G(LEXCTX(1))["Add" ", ",$P($G(LEXCTX(0))," (",1)
- W:(+($$ACT)) !
- Q
- ACT(LEXX) ; Check for Default Action
- I $D(LEXDICS(1))!($D(LEXSHOW(1))) Q 1
- I $D(LEXSUB(1))!($D(LEXCTX(1))) Q 1
- Q 0
- NAM(LEXX) ; Check for Default Names
- I $D(LEXDICS(0))!($D(LEXSHOW(0))) Q 1
- I $D(LEXSUB(0))!($D(LEXCTX(0))) Q 1
- Q 0
- VAL(LEXX) ; Check for Default Values
- I $D(LEXDICS)!($D(LEXSHOW)) Q 1
- I $D(LEXSUB)!($D(LEXCTX)) Q 1
- Q 0
- DDU ; Display users
- Q:'$D(LEXMETH) N LEXUSER S LEXUSER=$P(LEXMETH,U,2) Q:'$L(LEXUSER)
- W !,"For ",LEXUSER,! Q
- DEFCK ; Check defaults
- S LEXDICS(1)=$S($G(LEXDICS)="":"No Change",$G(LEXDICS)="@":"Deleted",1:"Added")
- S LEXSHOW(1)=$S($G(LEXSHOW)="":"No Change",$G(LEXSHOW)="@":"Deleted",1:"Added")
- S LEXSUB(1)=$S($G(LEXSUB)="":"No Change",$G(LEXSUB)="@":"Deleted",1:"Added")
- S LEXCTX(1)=$S($G(LEXCTX)="":"No Change",$G(LEXCTX)="@":"Deleted",1:"Added")
- Q
- USERCK ; Check user
- I LEXMETH="ONE",+LEXLIM>0 S $P(LEXMETH,U,2)="user: "_$P(LEXLIM,U,2)
- I LEXMETH="SEV",+LEXLIM>0 S $P(LEXMETH,U,2)="users in Service/Section: "_$P(LEXLIM,U,2)
- I LEXMETH="ALL",+LEXLIM>0 S $P(LEXMETH,U,2)="users: All Users"
- Q
- LEXDMGV ;ISL/KER - Defaults - Manager/Verify ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- +2 ;
- +3 ; Global Variables
- +4 ; None
- +5 ;
- +6 ; External References
- +7 ; ^DIR ICR 10026
- +8 ;
- +9 ; LEXDICS Filter
- +10 ; LEXDICS(0) Filter name
- +11 ; LEXDICS(1) Filter - Add, Delete, No Change
- +12 ; LEXSHOW Display
- +13 ; LEXSHOW(0) Display name
- +14 ; LEXSHOW(1) Display - Add, Delete, No Change
- +15 ; LEXSUB Vocabulary
- +16 ; LEXSUB(0) Vocabulary name
- +17 ; LEXSUB(1) Vocabulary - Add, Delete, No Change
- +18 ; LEXCTX Shortcut Context
- +19 ; LEXCTX(0) Shortcut Context name
- +20 ; LEXCTX(1) Shortcut Context - Add, Delete, No Change
- +21 ;
- +22 ; LEXUSER User (text, not pointer)
- +23 ; LEXX Returned value
- +24 ; LEXLIM Limits (parameter for LEXMETH)
- +25 ; LEXMETH Method, singel user, by service or all users
- +26 ;
- VER(LEXX) ; Verify defaults before commiting to the global
- +1 WRITE @IOF
- +2 DO DDEF
- DO DDU
- DO OVRCHG^LEXDMGO
- +3 WRITE !
- NEW DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
- +4 SET DIR("A")="Is this correct? "
- +5 SET DIR("B")="Yes"
- +6 SET (DIR("?"),DIR("??"))="^D VERH^LEXDMGV"
- +7 SET DIR(0)="YAO"
- DO ^DIR
- KILL DIR
- IF X["^^"
- QUIT "^^"
- +8 IF X[U
- QUIT U
- SET LEXX=+Y
- QUIT LEXX
- VERH ; Verify help
- +1 WRITE !!,"By answering ""Yes"" you will be setting the look-up defaults for the Clinical"
- +2 WRITE !,"Lexicon for the selected applications and users."
- +3 WRITE !!,"Is this correct"
- +4 QUIT
- DDEF ; Display defaults
- +1 NEW LEXC
- SET LEXC=0
- +2 IF (+($$ACT))
- Begin DoDot:1
- +3 WRITE !,"Set user defaults:",!
- End DoDot:1
- +4 IF $DATA(LEXDICS(1))
- Begin DoDot:1
- +5 SET LEXC=LEXC+1
- WRITE !," ",LEXC," Filter ",LEXDICS(1)
- +6 IF $GET(LEXDICS(1))["Add"
- WRITE ", ",$PIECE($GET(LEXDICS(0))," (",1)
- End DoDot:1
- +7 IF $DATA(LEXSHOW(1))
- Begin DoDot:1
- +8 SET LEXC=LEXC+1
- WRITE !," ",LEXC," Display ",$GET(LEXSHOW(1))
- +9 IF $GET(LEXSHOW(1))["Add"
- WRITE ", ",$PIECE($GET(LEXSHOW(0))," (",1)
- End DoDot:1
- +10 IF $DATA(LEXSUB(1))
- Begin DoDot:1
- +11 SET LEXC=LEXC+1
- WRITE !," ",LEXC," Vocabulary ",$GET(LEXSUB(1))
- +12 IF $GET(LEXSUB(1))["Add"
- WRITE ", ",$PIECE($GET(LEXSUB(0))," (",1)
- End DoDot:1
- +13 IF $DATA(LEXCTX(1))
- Begin DoDot:1
- +14 SET LEXC=LEXC+1
- WRITE !," ",LEXC," Shortcuts ",$GET(LEXCTX(1))
- +15 IF $GET(LEXCTX(1))["Add"
- WRITE ", ",$PIECE($GET(LEXCTX(0))," (",1)
- End DoDot:1
- +16 IF (+($$ACT))
- WRITE !
- +17 QUIT
- ACT(LEXX) ; Check for Default Action
- +1 IF $DATA(LEXDICS(1))!($DATA(LEXSHOW(1)))
- QUIT 1
- +2 IF $DATA(LEXSUB(1))!($DATA(LEXCTX(1)))
- QUIT 1
- +3 QUIT 0
- NAM(LEXX) ; Check for Default Names
- +1 IF $DATA(LEXDICS(0))!($DATA(LEXSHOW(0)))
- QUIT 1
- +2 IF $DATA(LEXSUB(0))!($DATA(LEXCTX(0)))
- QUIT 1
- +3 QUIT 0
- VAL(LEXX) ; Check for Default Values
- +1 IF $DATA(LEXDICS)!($DATA(LEXSHOW))
- QUIT 1
- +2 IF $DATA(LEXSUB)!($DATA(LEXCTX))
- QUIT 1
- +3 QUIT 0
- DDU ; Display users
- +1 IF '$DATA(LEXMETH)
- QUIT
- NEW LEXUSER
- SET LEXUSER=$PIECE(LEXMETH,U,2)
- IF '$LENGTH(LEXUSER)
- QUIT
- +2 WRITE !,"For ",LEXUSER,!
- QUIT
- DEFCK ; Check defaults
- +1 SET LEXDICS(1)=$SELECT($GET(LEXDICS)="":"No Change",$GET(LEXDICS)="@":"Deleted",1:"Added")
- +2 SET LEXSHOW(1)=$SELECT($GET(LEXSHOW)="":"No Change",$GET(LEXSHOW)="@":"Deleted",1:"Added")
- +3 SET LEXSUB(1)=$SELECT($GET(LEXSUB)="":"No Change",$GET(LEXSUB)="@":"Deleted",1:"Added")
- +4 SET LEXCTX(1)=$SELECT($GET(LEXCTX)="":"No Change",$GET(LEXCTX)="@":"Deleted",1:"Added")
- +5 QUIT
- USERCK ; Check user
- +1 IF LEXMETH="ONE"
- IF +LEXLIM>0
- SET $PIECE(LEXMETH,U,2)="user: "_$PIECE(LEXLIM,U,2)
- +2 IF LEXMETH="SEV"
- IF +LEXLIM>0
- SET $PIECE(LEXMETH,U,2)="users in Service/Section: "_$PIECE(LEXLIM,U,2)
- +3 IF LEXMETH="ALL"
- IF +LEXLIM>0
- SET $PIECE(LEXMETH,U,2)="users: All Users"
- +4 QUIT
