DGRPX79 ; ;03/21/13
S X=DG(DQ),DIC=DIE
X "S DFN=DA D EN^DGMTR K DGREQF"
D AUTOUPD^DGENA2(DA)
+1 SET X=DG(DQ)
SET DIC=DIE
+2 XECUTE "S DFN=DA D EN^DGMTR K DGREQF"
+3 SET X=DG(DQ)
+4 DO AUTOUPD^DGENA2(DA)