VistA-FOIAVistA/r/AUTOMATED_MED_INFO_EXCHANGE.../DVBAXA2.m

4 lines
96 B
Mathematica

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