RACTVR2.m

RACTVR2 ; ;09/24/03

 S X=DE(18),DIC=DIE

 X "D ^RABUL2 Q"

 S X=DE(18),DIC=DIE

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

 S X=DE(18),DIC=DIE

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

 S X=DE(18),DIC=DIE

 K ^RARPT("ASTAT",$E(X,1,30),DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RACTVR2   389     printed  Apr 09, 2024@21:37:48                                                                                                                                                                                                      Page 2

RACTVR2   ; ;09/24/03

 +1        SET X=DE(18)

           SET DIC=DIE

 +2        XECUTE "D ^RABUL2 Q"

 +3        SET X=DE(18)

           SET DIC=DIE

 +4        NEW RAXREF

           KILL RASET

           SET RAXREF="ARES"

           SET RARAD=12

           SET RAKILL=""

           DO XREF^RAUTL2

           SET RASECOND="SRR"

           DO SECXREF^RADD1

           KILL RAKILL,RARAD

 +5        SET X=DE(18)

           SET DIC=DIE

 +6        NEW RAXREF

           KILL RASET

           SET RAXREF="ASTF"

           SET RARAD=15

           SET RAKILL=""

           DO XREF^RAUTL2

           SET RASECOND="SSR"

           DO SECXREF^RADD1

           KILL RAKILL,RARAD

 +7        SET X=DE(18)

           SET DIC=DIE

 +8        KILL ^RARPT("ASTAT",$EXTRACT(X,1,30),DA)