DGRPTX42.m

DGRPTX42 ; ;05/27/04

 S X=DE(4),DIC=DIE

 K ^DPT("APOS",$E(X,1,30),DA)

 S X=DE(4),DIC=DIE

 ;

 S X=DE(4),DIC=DIE

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

DGRPTX42  ; ;05/27/04

 +1        SET X=DE(4)

           SET DIC=DIE

 +2        KILL ^DPT("APOS",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(4)

           SET DIC=DIE

 +4       ;

 +5        SET X=DE(4)

           SET DIC=DIE

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

               SET VAFCF=".323;"

               DO AVAFC^VAFCDD01(DA)