DVBHCE24 ; ;12/27/07
 S X=DE(19),DIC=DIE
 D KILL^DGREGDD(DA)