MCESMFDV.m

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 ---MCESMFDV   1032     printed  Apr 09, 2024@21:17:12                                                                                                                                                                                                    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