MCDUPE.m

MCDUPE ;WASH/DCB-Executed routine for dupr. ;Nov 3, 1993

 ;;2.3;Medicine;;09/13/1996

START ;

 K ^TMP($J,"DUP")

 D ^MCDUPM

 D ^MCDUPP

 K ^TMP($J,"DUP")

 Q

MCDUPE    ;WASH/DCB-Executed routine for dupr. ;Nov 3, 1993

 +1       ;;2.3;Medicine;;09/13/1996

START     ;

 +1        KILL ^TMP($JOB,"DUP")

 +2        DO ^MCDUPM

 +3        DO ^MCDUPP

 +4        KILL ^TMP($JOB,"DUP")

 +5        QUIT