IBXST3 ; ;04/08/05
 S X=DE(19),DIC=DIE
 K ^DGCR(399,"ALEX",$E(X,1,30),DA)