ONCSGA8X ;Hines OIFO/RTK - AJCC 8th Ed Automatic Staging Tables ;01/16/19
;;2.2;ONCOLOGY;**10**;Jul 31, 2013;Build 20
;
;
1 ;
I G=1,HER2="P",ER="P",PR="P" S SG="1A"
I G=1,HER2="P",ER="P",PR="N" S SG="1A"
I G=1,HER2="P",ER="N",PR="P" S SG="1A"
I G=1,HER2="P",ER="N",PR="N" S SG="1A"
I G=1,HER2="N",ER="P",PR="P" S SG="1A"
I G=1,HER2="N",ER="P",PR="N" S SG="1A"
I G=1,HER2="N",ER="N",PR="P" S SG="1A"
I G=1,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"1B",1:"1A")
I G=2,HER2="P",ER="P",PR="P" S SG="1A"
I G=2,HER2="P",ER="P",PR="N" S SG="1A"
I G=2,HER2="P",ER="N",PR="P" S SG="1A"
I G=2,HER2="P",ER="N",PR="N" S SG="1A"
I G=2,HER2="N",ER="P",PR="P" S SG="1A"
I G=2,HER2="N",ER="P",PR="N" S SG="1A"
I G=2,HER2="N",ER="N",PR="P" S SG="1A"
I G=2,HER2="N",ER="N",PR="N" S SG="1A"
I G=3,HER2="P",ER="P",PR="P" S SG="1A"
I G=3,HER2="P",ER="P",PR="N" S SG="1A"
I G=3,HER2="P",ER="N",PR="P" S SG="1A"
I G=3,HER2="P",ER="N",PR="N" S SG="1A"
I G=3,HER2="N",ER="P",PR="P" S SG="1A"
I G=3,HER2="N",ER="P",PR="N" S SG=$S(STGIND="C":"1B",1:"1A")
I G=3,HER2="N",ER="N",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=3,HER2="N",ER="N",PR="N" S SG="1B"
Q
;
2 ;
I G=1,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=1,HER2="P",ER="P",PR="N" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="P",ER="N",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="P",ER="N",PR="N" S SG="2A"
I G=1,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=1,HER2="N",ER="P",PR="N" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="N",ER="N",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="N",ER="N",PR="N" S SG="2A"
I G=2,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=2,HER2="P",ER="P",PR="N" S SG=$S(STGIND="C":"2A",1:"1B")
I G=2,HER2="P",ER="N",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=2,HER2="P",ER="N",PR="N" S SG="2A"
I G=2,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=2,HER2="N",ER="P",PR="N" S SG="2A"
I G=2,HER2="N",ER="N",PR="P" S SG="2A"
I G=2,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"2B",1:"2A")
I G=3,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=3,HER2="P",ER="P",PR="N" S SG="2A"
I G=3,HER2="P",ER="N",PR="P" S SG="2A"
I G=3,HER2="P",ER="N",PR="N" S SG="2A"
I G=3,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=3,HER2="N",ER="P",PR="N" S SG=$S(STGIND="C":"2B",1:"2A")
I G=3,HER2="N",ER="N",PR="P" S SG=$S(STGIND="C":"2B",1:"2A")
I G=3,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"2B",1:"2A")
Q
3 ;
I G=1,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"1B",1:"1A")
I G=1,HER2="P",ER="P",PR="N" S SG=$S(STGIND="C":"2A",1:"2B")
I G=1,HER2="P",ER="N",PR="P" S SG=$S(STGIND="C":"2A",1:"2B")
I G=1,HER2="P",ER="N",PR="N" S SG="2B"
I G=1,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1A")
I G=1,HER2="N",ER="P",PR="N" S SG="2B"
I G=1,HER2="N",ER="N",PR="P" S SG="2B"
I G=1,HER2="N",ER="N",PR="N" S SG="2B"
I G=2,HER2="P",ER="P",PR="P" S SG="1B"
I G=2,HER2="P",ER="P",PR="N" S SG=$S(STGIND="C":"2A",1:"2B")
I G=2,HER2="P",ER="N",PR="P" S SG=$S(STGIND="C":"2A",1:"2B")
I G=2,HER2="P",ER="N",PR="N" S SG="2B"
I G=2,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=2,HER2="N",ER="P",PR="N" S SG="2B"
I G=2,HER2="N",ER="N",PR="P" S SG="2B"
I G=2,HER2="N",ER="N",PR="N" S SG="2B"
I G=3,HER2="P",ER="P",PR="P" S SG="1B"
I G=3,HER2="P",ER="P",PR="N" S SG="2B"
I G=3,HER2="P",ER="N",PR="P" S SG="2B"
I G=3,HER2="P",ER="N",PR="N" S SG="2B"
I G=3,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2B",1:"2A")
I G=3,HER2="N",ER="P",PR="N" S SG=$S(STGIND="C":"3A",1:"2B")
I G=3,HER2="N",ER="N",PR="P" S SG=$S(STGIND="C":"3A",1:"2B")
I G=3,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"3B",1:"3A")
Q
4 ;
I G=1,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="P",ER="P",PR="N" S SG="3A"
I G=1,HER2="P",ER="N",PR="P" S SG="3A"
I G=1,HER2="P",ER="N",PR="N" S SG="3A"
I G=1,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=1,HER2="N",ER="P",PR="N" S SG="3A"
I G=1,HER2="N",ER="N",PR="P" S SG="3A"
I G=1,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"2B",1:"3A")
I G=2,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=2,HER2="P",ER="P",PR="N" S SG="3A"
I G=2,HER2="P",ER="N",PR="P" S SG="3A"
I G=2,HER2="P",ER="N",PR="N" S SG="3A"
I G=2,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"2A",1:"1B")
I G=2,HER2="N",ER="P",PR="N" S SG="3A"
I G=2,HER2="N",ER="N",PR="P" S SG="3A"
I G=2,HER2="N",ER="N",PR="N" S SG="3B"
I G=3,HER2="P",ER="P",PR="P" S SG=$S(STGIND="C":"2B",1:"2A")
I G=3,HER2="P",ER="P",PR="N" S SG="3A"
I G=3,HER2="P",ER="N",PR="P" S SG="3A"
I G=3,HER2="P",ER="N",PR="N" S SG="3A"
I G=3,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"3A",1:"2B")
I G=3,HER2="N",ER="P",PR="N" S SG=$S(STGIND="C":"3B",1:"3A")
I G=3,HER2="N",ER="N",PR="P" S SG=$S(STGIND="C":"3B",1:"3A")
I G=3,HER2="N",ER="N",PR="N" S SG="3C"
Q
5 ;
I G=1,HER2="P",ER="P",PR="P" S SG="3A"
I G=1,HER2="P",ER="P",PR="N" S SG="3B"
I G=1,HER2="P",ER="N",PR="P" S SG="3B"
I G=1,HER2="P",ER="N",PR="N" S SG="3B"
I G=1,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"3B",1:"3A")
I G=1,HER2="N",ER="P",PR="N" S SG="3B"
I G=1,HER2="N",ER="N",PR="P" S SG="3B"
I G=1,HER2="N",ER="N",PR="N" S SG=$S(STGIND="C":"3C",1:"3B")
I G=2,HER2="P",ER="P",PR="P" S SG="3A"
I G=2,HER2="P",ER="P",PR="N" S SG="3B"
I G=2,HER2="P",ER="N",PR="P" S SG="3B"
I G=2,HER2="P",ER="N",PR="N" S SG="3B"
I G=2,HER2="N",ER="P",PR="P" S SG=$S(STGIND="C":"3B",1:"3A")
I G=2,HER2="N",ER="P",PR="N" S SG="3B"
I G=2,HER2="N",ER="N",PR="P" S SG="3B"
I G=2,HER2="N",ER="N",PR="N" S SG="3C"
I G=3,HER2="P",ER="P",PR="P" S SG="3B"
I G=3,HER2="P",ER="P",PR="N" S SG="3B"
I G=3,HER2="P",ER="N",PR="P" S SG="3B"
I G=3,HER2="P",ER="N",PR="N" S SG="3B"
I G=3,HER2="N",ER="P",PR="P" S SG="3B"
I G=3,HER2="N",ER="P",PR="N" S SG="3C"
I G=3,HER2="N",ER="N",PR="P" S SG="3C"
I G=3,HER2="N",ER="N",PR="N" S SG="3C"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSGA8X 6022 printed Dec 13, 2024@02:28:32 Page 2
ONCSGA8X ;Hines OIFO/RTK - AJCC 8th Ed Automatic Staging Tables ;01/16/19
+1 ;;2.2;ONCOLOGY;**10**;Jul 31, 2013;Build 20
+2 ;
+3 ;
1 ;
+1 IF G=1
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="1A"
+2 IF G=1
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="1A"
+3 IF G=1
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="1A"
+4 IF G=1
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="1A"
+5 IF G=1
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG="1A"
+6 IF G=1
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="1A"
+7 IF G=1
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="1A"
+8 IF G=1
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+9 IF G=2
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="1A"
+10 IF G=2
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="1A"
+11 IF G=2
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="1A"
+12 IF G=2
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="1A"
+13 IF G=2
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG="1A"
+14 IF G=2
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="1A"
+15 IF G=2
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="1A"
+16 IF G=2
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="1A"
+17 IF G=3
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="1A"
+18 IF G=3
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="1A"
+19 IF G=3
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="1A"
+20 IF G=3
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="1A"
+21 IF G=3
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG="1A"
+22 IF G=3
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+23 IF G=3
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+24 IF G=3
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="1B"
+25 QUIT
+26 ;
2 ;
+1 IF G=1
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+2 IF G=1
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+3 IF G=1
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+4 IF G=1
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2A"
+5 IF G=1
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+6 IF G=1
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+7 IF G=1
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+8 IF G=1
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="2A"
+9 IF G=2
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+10 IF G=2
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+11 IF G=2
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+12 IF G=2
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2A"
+13 IF G=2
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+14 IF G=2
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="2A"
+15 IF G=2
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="2A"
+16 IF G=2
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+17 IF G=3
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+18 IF G=3
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="2A"
+19 IF G=3
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="2A"
+20 IF G=3
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2A"
+21 IF G=3
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+22 IF G=3
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+23 IF G=3
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+24 IF G=3
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+25 QUIT
3 ;
+1 IF G=1
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"1B",1:"1A")
+2 IF G=1
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2A",1:"2B")
+3 IF G=1
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"2B")
+4 IF G=1
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2B"
+5 IF G=1
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1A")
+6 IF G=1
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="2B"
+7 IF G=1
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="2B"
+8 IF G=1
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="2B"
+9 IF G=2
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="1B"
+10 IF G=2
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2A",1:"2B")
+11 IF G=2
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"2B")
+12 IF G=2
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2B"
+13 IF G=2
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+14 IF G=2
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="2B"
+15 IF G=2
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="2B"
+16 IF G=2
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="2B"
+17 IF G=3
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="1B"
+18 IF G=3
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="2B"
+19 IF G=3
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="2B"
+20 IF G=3
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="2B"
+21 IF G=3
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+22 IF G=3
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"3A",1:"2B")
+23 IF G=3
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"3A",1:"2B")
+24 IF G=3
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"3B",1:"3A")
+25 QUIT
4 ;
+1 IF G=1
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+2 IF G=1
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3A"
+3 IF G=1
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3A"
+4 IF G=1
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3A"
+5 IF G=1
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+6 IF G=1
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="3A"
+7 IF G=1
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="3A"
+8 IF G=1
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"2B",1:"3A")
+9 IF G=2
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+10 IF G=2
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3A"
+11 IF G=2
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3A"
+12 IF G=2
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3A"
+13 IF G=2
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2A",1:"1B")
+14 IF G=2
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="3A"
+15 IF G=2
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="3A"
+16 IF G=2
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="3B"
+17 IF G=3
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"2B",1:"2A")
+18 IF G=3
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3A"
+19 IF G=3
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3A"
+20 IF G=3
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3A"
+21 IF G=3
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"3A",1:"2B")
+22 IF G=3
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG=$SELECT(STGIND="C":"3B",1:"3A")
+23 IF G=3
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG=$SELECT(STGIND="C":"3B",1:"3A")
+24 IF G=3
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="3C"
+25 QUIT
5 ;
+1 IF G=1
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="3A"
+2 IF G=1
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3B"
+3 IF G=1
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3B"
+4 IF G=1
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3B"
+5 IF G=1
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"3B",1:"3A")
+6 IF G=1
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="3B"
+7 IF G=1
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="3B"
+8 IF G=1
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG=$SELECT(STGIND="C":"3C",1:"3B")
+9 IF G=2
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="3A"
+10 IF G=2
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3B"
+11 IF G=2
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3B"
+12 IF G=2
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3B"
+13 IF G=2
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG=$SELECT(STGIND="C":"3B",1:"3A")
+14 IF G=2
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="3B"
+15 IF G=2
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="3B"
+16 IF G=2
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="3C"
+17 IF G=3
IF HER2="P"
IF ER="P"
IF PR="P"
SET SG="3B"
+18 IF G=3
IF HER2="P"
IF ER="P"
IF PR="N"
SET SG="3B"
+19 IF G=3
IF HER2="P"
IF ER="N"
IF PR="P"
SET SG="3B"
+20 IF G=3
IF HER2="P"
IF ER="N"
IF PR="N"
SET SG="3B"
+21 IF G=3
IF HER2="N"
IF ER="P"
IF PR="P"
SET SG="3B"
+22 IF G=3
IF HER2="N"
IF ER="P"
IF PR="N"
SET SG="3C"
+23 IF G=3
IF HER2="N"
IF ER="N"
IF PR="P"
SET SG="3C"
+24 IF G=3
IF HER2="N"
IF ER="N"
IF PR="N"
SET SG="3C"
+25 QUIT
