DGRPTX20.m

DGRPTX20 ; ;10/15/12

 S X=DE(10),DIC=DIE

 ;

 S X=DE(10),DIC=DIE

 D AUTOUPD^DGENA2(DA)

 S X=DE(10),DIC=DIE

 ;

 S X=DE(10),DIC=DIE

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

 S X=DE(10),DIC=DIE

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

DGRPTX20  ; ;10/15/12

 +1        SET X=DE(10)

           SET DIC=DIE

 +2       ;

 +3        SET X=DE(10)

           SET DIC=DIE

 +4        DO AUTOUPD^DGENA2(DA)

 +5        SET X=DE(10)

           SET DIC=DIE

 +6       ;

 +7        SET X=DE(10)

           SET DIC=DIE

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

               DO AVAFC^VAFCDD01(DA)

 +9        SET X=DE(10)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)