- 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 ---[H[J[2J[HRACTWR3 406 printed Jan 18, 2025@03:35:33 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)=""