DVBAXA2 ; ;06/08/01
 S X=DG(DQ),DIC=DIE
 N DGX D CFL4^DGREGDD D SET^DGREGDD1(DA,.312,.31,2,DGX)