RACTRG3.m

RACTRG3 ; ;07/06/13

 S X=DE(18),DIC=DIE

 K ^RADPT(DA(2),"DT","AP",$E(X,1,30),DA(1),DA)

 S X=DE(18),DIC=DIE

 D DW^RACPTMSC

RACTRG3   ; ;07/06/13

 +1        SET X=DE(18)

           SET DIC=DIE

 +2        KILL ^RADPT(DA(2),"DT","AP",$EXTRACT(X,1,30),DA(1),DA)

 +3        SET X=DE(18)

           SET DIC=DIE

 +4        DO DW^RACPTMSC