[613] | 1 | MCESMFDV ;WISC/DCB-Manager Options for Mark for Deletion ;3/9/93
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | LOOKUP ; Check to see if the user has proper keys.
|
---|
| 4 | ;
|
---|
| 5 | D MCPPROC^MCARP
|
---|
| 6 | I 'MCESON W !,"Release Control is not turned on." D EXIT Q
|
---|
| 7 | I '$D(^XUSEC("MCMANAGER",DUZ)) W !,"You do not have the Medicine Manager Key" D EXIT Q
|
---|
| 8 | I 'MCESSEC W !,"You do not have the require key for ",MCROUT D EXIT Q
|
---|
| 9 | S:XQY0["MFD" MCESMFD=1 S:XQY0["SUP" MCESSUP=1
|
---|
| 10 | D @MCPRTRTN W @IOF D EXIT Q
|
---|
| 11 | EXIT ;
|
---|
| 12 | K MCTEMP,MCESMFD,MCESSUP,MCKEY,MCROUT2,DIC,MCOUNT
|
---|
| 13 | K MCESON,MCESKEY,MCROUT,MCARCODE,MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS,MCSUP
|
---|
| 14 | Q
|
---|
| 15 | SUPON ;
|
---|
| 16 | D MCPPROC^MCARP
|
---|
| 17 | I 'MCESON W !,"Release Control is not turned on." D EXIT Q
|
---|
| 18 | I '$D(^XUSEC("MCMANAGER",DUZ)) W !,"You do not have the Medicine Manager Key" D EXIT Q
|
---|
| 19 | I 'MCESSEC W !,"You do not have the '"_MCESKEY_"' KEY." D EXIT Q
|
---|
| 20 | W !,$S(MCSUP=1:"Superseded View (by non-manager) turned off",1:"Superseded View (by non-manager) turn on")
|
---|
| 21 | S $P(^MCAR(697.2,MCARP,0),U,16)=$S(MCSUP=0:1,1:0)
|
---|
| 22 | Q
|
---|