DGPMX65 ; ;11/06/06
 S X=DE(17),DIC=DIE
 S DGPMDDF=19,DGPMDDT=0 D ^DGPMDDCN