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