BDMFEXIT.m

BDMFEXIT ; cmi/anch/maw - EXIT UTILITY TO KILL LOCAL VARIABLES ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006

 ;;ROUTINE CALLED TO KILL VARIABLES

EXIT ;EP;TO KILL ALL LOCAL VARIABLES

 K ^TMP("BDMVR",$J)

 K ^TMP("BDMTMP",$J)

 Q

BDMFEXIT  ; cmi/anch/maw - EXIT UTILITY TO KILL LOCAL VARIABLES ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;;AUG 11, 2006

 +2       ;;ROUTINE CALLED TO KILL VARIABLES

EXIT      ;EP;TO KILL ALL LOCAL VARIABLES

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

 +2        KILL ^TMP("BDMTMP",$JOB)

 +3        QUIT