RACTTK18.m

RACTTK18 ; ;07/06/13

 ;;

1 N X,X1,X2 S DIXR=84 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X

 I $G(X(1))]"" D

 . D KRAD^RAPXRM(.X,.DA)

 K X M X=X2 I $G(X(1))]"" D

 . D SRAD^RAPXRM(.X,.DA)

 Q

X1(DION) K X

 S X(1)=$G(@DIEZTMP@("V",70.03,DIIENS,2,DION),$P($G(^RADPT(DA(2),"DT",DA(1),"P",DA,0)),U,2))

 S X=$G(X(1))

 Q

RACTTK18  ; ;07/06/13

 +1       ;;

1          NEW X,X1,X2

           SET DIXR=84

           DO X1(U)

           KILL X2

           MERGE X2=X

           DO X1("F")

           KILL X1

           MERGE X1=X

 +1        IF $GET(X(1))]""

               Begin DoDot:1

 +2                DO KRAD^RAPXRM(.X,.DA)

               End DoDot:1

 +3        KILL X

           MERGE X=X2

           IF $GET(X(1))]""

               Begin DoDot:1

 +4                DO SRAD^RAPXRM(.X,.DA)

               End DoDot:1

 +5        QUIT 

X1(DION)   KILL X

 +1        SET X(1)=$GET(@DIEZTMP@("V",70.03,DIIENS,2,DION),$PIECE($GET(^RADPT(DA(2),"DT",DA(1),"P",DA,0)),U,2))

 +2        SET X=$GET(X(1))

 +3        QUIT