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

MCDUPE.m

Go to the documentation of this file.

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCDUPE   162     printed  Apr 09, 2024@21:14:27                                                                                                                                                                                                       Page 2

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