DGPMX66 ; ;11/22/06
 S X=DG(DQ),DIC=DIE
 S DGPMDDF=19,DGPMDDT=1 D ^DGPMDDCN