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