RACTEX10.m

RACTEX10 ; ;05/20/15

 S X=DG(DQ),DIC=DIE

 I $P($G(^RA(78.1,+X,0)),U,2)="Y",$$RADD^GMRARAD(DA(2),"o","Y")

RACTEX10  ; ;05/20/15

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        IF $PIECE($GET(^RA(78.1,+X,0)),U,2)="Y"

               IF $$RADD^GMRARAD(DA(2),"o","Y")