DGJXE4.m

DGJXE4 ; ;12/15/03

 S X=DE(13),DIC=DIE

 S DGJFREV=1 D PHYDEF^DGJTUTL

DGJXE4    ; ;12/15/03

 +1        SET X=DE(13)

           SET DIC=DIE

 +2        SET DGJFREV=1

           DO PHYDEF^DGJTUTL