DGJXA2.m

DGJXA2 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 S DGJREVD=1 D PHYDEF^DGJTUTL

DGJXA2    ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET DGJREVD=1

           DO PHYDEF^DGJTUTL