DGRPTX15 ; ;04/21/06
 S X=DG(DQ),DIC=DIE
 D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))