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