- 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 Jan 18, 2025@03:16:20 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