IBXSC118.m

IBXSC118 ; ;11/29/04

 S X=DG(DQ),DIC=DIE

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

IBXSC118  ; ;11/29/04

 +1        SET X=DG(DQ)

           SET DIC=DIE

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