DGMTXC1.m

DGMTXC1 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)

DGMTXC1   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        IF $GET(DGMTYPT)<3

               DO AUTOUPD^DGENA2(+$PIECE(^DGMT(408.31,DA,0),U,2),2)