IBXST4 ; ;04/08/05
 S X=DG(DQ),DIC=DIE
 S ^DGCR(399,"ALEX",$E(X,1,30),DA)=""