MCESMFDV ;WISC/DCB-Manager Options for Mark for Deletion ;3/9/93
;;2.3;Medicine;;09/13/1996
LOOKUP ; Check to see if the user has proper keys.
;
D MCPPROC^MCARP
I 'MCESON W !,"Release Control is not turned on." D EXIT Q
I '$D(^XUSEC("MCMANAGER",DUZ)) W !,"You do not have the Medicine Manager Key" D EXIT Q
I 'MCESSEC W !,"You do not have the require key for ",MCROUT D EXIT Q
S:XQY0["MFD" MCESMFD=1 S:XQY0["SUP" MCESSUP=1
D @MCPRTRTN W @IOF D EXIT Q
EXIT ;
K MCTEMP,MCESMFD,MCESSUP,MCKEY,MCROUT2,DIC,MCOUNT
K MCESON,MCESKEY,MCROUT,MCARCODE,MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS,MCSUP
Q
SUPON ;
D MCPPROC^MCARP
I 'MCESON W !,"Release Control is not turned on." D EXIT Q
I '$D(^XUSEC("MCMANAGER",DUZ)) W !,"You do not have the Medicine Manager Key" D EXIT Q
I 'MCESSEC W !,"You do not have the '"_MCESKEY_"' KEY." D EXIT Q
W !,$S(MCSUP=1:"Superseded View (by non-manager) turned off",1:"Superseded View (by non-manager) turn on")
S $P(^MCAR(697.2,MCARP,0),U,16)=$S(MCSUP=0:1,1:0)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCESMFDV 1032 printed Dec 13, 2024@02:15:09 Page 2
MCESMFDV ;WISC/DCB-Manager Options for Mark for Deletion ;3/9/93
+1 ;;2.3;Medicine;;09/13/1996
LOOKUP ; Check to see if the user has proper keys.
+1 ;
+2 DO MCPPROC^MCARP
+3 IF 'MCESON
WRITE !,"Release Control is not turned on."
DO EXIT
QUIT
+4 IF '$DATA(^XUSEC("MCMANAGER",DUZ))
WRITE !,"You do not have the Medicine Manager Key"
DO EXIT
QUIT
+5 IF 'MCESSEC
WRITE !,"You do not have the require key for ",MCROUT
DO EXIT
QUIT
+6 if XQY0["MFD"
SET MCESMFD=1
if XQY0["SUP"
SET MCESSUP=1
+7 DO @MCPRTRTN
WRITE @IOF
DO EXIT
QUIT
EXIT ;
+1 KILL MCTEMP,MCESMFD,MCESSUP,MCKEY,MCROUT2,DIC,MCOUNT
+2 KILL MCESON,MCESKEY,MCROUT,MCARCODE,MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS,MCSUP
+3 QUIT
SUPON ;
+1 DO MCPPROC^MCARP
+2 IF 'MCESON
WRITE !,"Release Control is not turned on."
DO EXIT
QUIT
+3 IF '$DATA(^XUSEC("MCMANAGER",DUZ))
WRITE !,"You do not have the Medicine Manager Key"
DO EXIT
QUIT
+4 IF 'MCESSEC
WRITE !,"You do not have the '"_MCESKEY_"' KEY."
DO EXIT
QUIT
+5 WRITE !,$SELECT(MCSUP=1:"Superseded View (by non-manager) turned off",1:"Superseded View (by non-manager) turn on")
+6 SET $PIECE(^MCAR(697.2,MCARP,0),U,16)=$SELECT(MCSUP=0:1,1:0)
+7 QUIT
