DGRPTX16.m

DGRPTX16 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))

DGRPTX16  ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        DO SET^DGREGDD1(DA,.338,.33,8,$EXTRACT(X,1,5))