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