DGRPTX12.m

DGRPTX12 ; ;10/15/12

 S X=DE(13),DIC=DIE

 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".219;" D AVAFC^VAFCDD01(DA)

 S X=DE(13),DIC=DIE

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

DGRPTX12  ; ;10/15/12

 +1        SET X=DE(13)

           SET DIC=DIE

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

               SET VAFCF=".219;"

               DO AVAFC^VAFCDD01(DA)

 +3        SET X=DE(13)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)