RACTRG4.m

RACTRG4 ; ;07/06/13

 S X=DG(DQ),DIC=DIE

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

 S X=DG(DQ),DIC=DIE

 ;

RACTRG4   ; ;07/06/13

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4       ;