DGRPTX13.m

DGRPTX13 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

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

 S X=DG(DQ),DIC=DIE

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

DGRPTX13  ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

               SET VAFCF=".219;"

               DO AVAFC^VAFCDD01(DA)

 +3        SET X=DG(DQ)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)