source: FOIAVistA/tag/r/MEDICINE-MC/MCESMFDV.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1010 bytes
Line 
1MCESMFDV ;WISC/DCB-Manager Options for Mark for Deletion ;3/9/93
2 ;;2.3;Medicine;;09/13/1996
3LOOKUP ; 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
11EXIT ;
12 K MCTEMP,MCESMFD,MCESSUP,MCKEY,MCROUT2,DIC,MCOUNT
13 K MCESON,MCESKEY,MCROUT,MCARCODE,MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS,MCSUP
14 Q
15SUPON ;
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
Note: See TracBrowser for help on using the repository browser.