DGJXE5.m

DGJXE5 ; ;12/15/03

 S X=DG(DQ),DIC=DIE

 S DGJFREV=1 D PHYDEF^DGJTUTL

DGJXE5    ; ;12/15/03

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET DGJFREV=1

           DO PHYDEF^DGJTUTL