RACTWR3.m

RACTWR3 ; ;09/24/03

 S X=DG(DQ),DIC=DIE

 ;

 S X=DG(DQ),DIC=DIE

 N RAXREF K RAKILL I X'="V" S RAXREF="ARES",RARAD=12,RASET="" D XREF^RAUTL2 S RASECOND="SRR" D SECXREF^RADD1 K RARAD,RASET

 S X=DG(DQ),DIC=DIE

 N RAXREF K RAKILL I X'="V" S RAXREF="ASTF",RARAD=15,RASET="" D XREF^RAUTL2 S RASECOND="SSR" D SECXREF^RADD1 K RARAD,RASEC

 S X=DG(DQ),DIC=DIE

 S:"Vv"'[$E(X) ^RARPT("ASTAT",$E(X,1,30),DA)=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RACTWR3   406     printed  Apr 09, 2024@21:39:50                                                                                                                                                                                                      Page 2

RACTWR3   ; ;09/24/03

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2       ;

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        NEW RAXREF

           KILL RAKILL

           IF X'="V"

               SET RAXREF="ARES"

               SET RARAD=12

               SET RASET=""

               DO XREF^RAUTL2

               SET RASECOND="SRR"

               DO SECXREF^RADD1

               KILL RARAD,RASET

 +5        SET X=DG(DQ)

           SET DIC=DIE

 +6        NEW RAXREF

           KILL RAKILL

           IF X'="V"

               SET RAXREF="ASTF"

               SET RARAD=15

               SET RASET=""

               DO XREF^RAUTL2

               SET RASECOND="SSR"

               DO SECXREF^RADD1

               KILL RARAD,RASEC

 +7        SET X=DG(DQ)

           SET DIC=DIE

 +8        if "Vv"'[$EXTRACT(X)

               SET ^RARPT("ASTAT",$EXTRACT(X,1,30),DA)=""