IBXSC117.m

IBXSC117 ; ;11/29/04

 S X=DE(15),DIC=DIE

 D KILL^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))

IBXSC117  ; ;11/29/04

 +1        SET X=DE(15)

           SET DIC=DIE

 +2        DO KILL^DGREGDD1(DA,.1216,.121,6,$EXTRACT(X,1,5))