DGRPTX21.m

DGRPTX21 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 ;

 S X=DG(DQ),DIC=DIE

 D AUTOUPD^DGENA2(DA)

 S X=DG(DQ),DIC=DIE

 X "S DFN=DA D EN^DGMTR K DGREQF"

 S X=DG(DQ),DIC=DIE

 D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)

 S X=DG(DQ),DIC=DIE

 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)

DGRPTX21  ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2       ;

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        DO AUTOUPD^DGENA2(DA)

 +5        SET X=DG(DQ)

           SET DIC=DIE

 +6        XECUTE "S DFN=DA D EN^DGMTR K DGREQF"

 +7        SET X=DG(DQ)

           SET DIC=DIE

 +8        IF ($TEXT(AVAFC^VAFCDD01)'="")

               DO AVAFC^VAFCDD01(DA)

 +9        SET X=DG(DQ)

           SET DIC=DIE

 +10       IF ($TEXT(ADGRU^DGRUDD01)'="")

               DO ADGRU^DGRUDD01(DA)