VistA-WorldVistAEHR/r/AUTOMATED_MED_INFO_EXCHANGE.../DVBAXA18.m

6 lines
109 B
Mathematica
Raw Normal View History

2009-11-29 13:37:14 -05:00
DVBAXA18 ; ;06/08/01
S X=DE(7),DIC=DIE
;
S X=DE(7),DIC=DIE
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)