RACTVR3 ; ;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 ---[H[J[2J[HRACTVR3 406 printed Nov 22, 2024@17:44:27 Page 2
RACTVR3 ; ;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)=""
