Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCESMFDV

MCESMFDV.m

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