- 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 Feb 18, 2025@23:55:01 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
