DGMTXC1 ; ;12/20/02
 S X=DG(DQ),DIC=DIE
 D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)