DVBHCE6 ; ;12/13/08
 S X=DE(16),DIC=DIE
 D EVENT^IVMPLOG(DA)