VistA-FOIAVistA/r/FEE_BASIS-FB/FBCTAU4.m

4 lines
56 B
Mathematica

FBCTAU4 ; ;06/28/03
S X=DG(DQ),DIC=DIE
D ADD^FBAAUTL2