DGRPTX15.m

DGRPTX15 ; ;10/15/12

 S X=DE(16),DIC=DIE

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

DGRPTX15  ; ;10/15/12

 +1        SET X=DE(16)

           SET DIC=DIE

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