ONCCPC3.m

ONCCPC3 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table III;2/20/97

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 K TABLE,HTABLE

 S TABLE("SIZE OF TUMOR (mm)")="SOT"

 S TABLE("REGIONAL NODES EXAMINED")="RNE"

 S TABLE("REGIONAL NODES POSITIVE")="RNP"

 S TABLE("AJCC CLINICAL STAGE (cTNM)")="ACS"

 S TABLE("AJCC PATHOLOGIC STAGE (pTNM)")="APS"

 S TABLE("CLINICAL STAGED BY")="CSB"

 S TABLE("PATHOLOGIC STAGED BY")="PSB"

 S TABLE("MARGIN OF RESECTION")="MOR"

 S TABLE("DISTANCE TO CLOSEST MUCOSAL MARGIN")="DTCMM"

 S TABLE("DISTANCE TO CLOSEST RADIAL MARGIN")="DTCRM"

 S TABLE("BLOOD VESSEL OR LYMPHATIC INVASION")="BVOLI"

 S TABLE("EXTRAMURAL VENOUS INVASION")="EVI"

 S TABLE("PROMINENT LYMPHOID INFILTRATE")="PLI"

 S HTABLE(1)="SIZE OF TUMOR (mm)"

 S HTABLE(2)="REGIONAL NODES EXAMINED"

 S HTABLE(3)="REGIONAL NODES POSITIVE"

 S HTABLE(4)="AJCC CLINICAL STAGE (cTNM)"

 S HTABLE(5)="AJCC PATHOLOGIC STAGE (pTNM)"

 S HTABLE(6)="CLINICAL STAGED BY"

 S HTABLE(7)="PATHOLOGIC STAGED BY"

 S HTABLE(8)="MARGIN OF RESECTION"

 S HTABLE(9)="DISTANCE TO CLOSEST MUCOSAL MARGIN"

 S HTABLE(10)="DISTANCE TO CLOSEST RADIAL MARGIN"

 S HTABLE(11)="BLOOD VESSEL OR LYMPHATIC INVASION"

 S HTABLE(12)="EXTRAMURAL VENOUS INVASION"

 S HTABLE(13)="PROMINENT LYMPHOID INFILTRATE"

 S CHOICES=13

 W @IOF D HEAD^ONCCPC0

 W !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE"

 W !?18,"-------------------------------------------"

 S DIE="^ONCO(165.5,",DA=ONCONUM

SOT S DR="29SIZE OF TUMOR (mm)............." D ^DIE G:$D(Y) JUMP

RNE S DR="33REGIONAL NODES EXAMINED........" D ^DIE G:$D(Y) JUMP

RNP S DR="32REGIONAL NODES POSITIVE........" D ^DIE G:$D(Y) JUMP

ACS W !!,"AJCC CLINICAL STAGE (cTNM):",!

CTCODE S DR="37.1  T-CODE......................." D ^DIE G:$D(Y) JUMP

 D CN1^ONCOTN,CN2^ONCOTN

CNCODE S DR="37.2  N-CODE......................." D ^DIE G:$D(Y) JUMP

CMCODE S DR="37.3  M-CODE......................." D ^DIE G:$D(Y) JUMP

 I '$D(SKAJCC) D CN1^ONCOTN

 S STGIND="C" D ES^ONCOTN

CSTAGE ;W ! S DR="38  AJCC STAGE..................." D ^DIE G:$D(Y) JUMP

CSB S DR="19  CLINICAL STAGED BY..........." D ^DIE G:$D(Y) JUMP

APS W !!,"AJCC PATHOLOGIC STAGE (pTNM):",!

PTCODE S DR="85  T-CODE......................." D ^DIE G:$D(Y) JUMP

 D CN3^ONCOTN,CN4^ONCOTN

PNCODE S DR="86  N-CODE......................." D ^DIE G:$D(Y) JUMP

PMCODE S DR="87  M-CODE......................." D ^DIE G:$D(Y) JUMP

 I '$D(SKAJCC) D CN3^ONCOTN

 S STGIND="P" D ES^ONCOTN

PSTAGE ;W ! S DR="88  AJCC STAGE..................." D ^DIE G:$D(Y) JUMP

PSB S DR="89  PATHOLOGIC STAGED BY........." D ^DIE G:$D(Y) JUMP

MOR W !!,"MARGIN OF RESECTION:",!

 S DR="754  PROXIMAL MARGIN.............." D ^DIE G:$D(Y) JUMP

 S DR="755  DISTAL MARGIN................" D ^DIE G:$D(Y) JUMP

 S DR="756  RADIAL MARGIN................" D ^DIE G:$D(Y) JUMP

 W !

DTCMM S DR="757DISTANCE TO MUCOSAL MARGIN....." D ^DIE G:$D(Y) JUMP

DTCRM S DR="758DISTANCE TO RADIAL MARGIN......" D ^DIE G:$D(Y) JUMP

BVOLI S DR="759BLOOD VESSEL/LYMPHATIC INVASION" D ^DIE G:$D(Y) JUMP

EVI S DR="760EXTRAMURAL VENOUS INVASION....." D ^DIE G:$D(Y) JUMP

PLI S DR="761PROMINENT LYMPHOID INFILTRATE.." D ^DIE G:$D(Y) JUMP

 W ! K DIR S DIR(0)="E" D ^DIR

 G EXIT

JUMP ;Jump to prompts

 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT

 I X["?" D  G JUMP

 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)

 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D  G JUMP

 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)

 S X=TABLE(X)

 G @X

EXIT K HTABLE,TABLE,CHOICES

 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCCPC3   3643     printed  Apr 23, 2025@18:37                                                                                                                                                                                                        Page 2

ONCCPC3   ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table III;2/20/97

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2        KILL TABLE,HTABLE

 +3        SET TABLE("SIZE OF TUMOR (mm)")="SOT"

 +4        SET TABLE("REGIONAL NODES EXAMINED")="RNE"

 +5        SET TABLE("REGIONAL NODES POSITIVE")="RNP"

 +6        SET TABLE("AJCC CLINICAL STAGE (cTNM)")="ACS"

 +7        SET TABLE("AJCC PATHOLOGIC STAGE (pTNM)")="APS"

 +8        SET TABLE("CLINICAL STAGED BY")="CSB"

 +9        SET TABLE("PATHOLOGIC STAGED BY")="PSB"

 +10       SET TABLE("MARGIN OF RESECTION")="MOR"

 +11       SET TABLE("DISTANCE TO CLOSEST MUCOSAL MARGIN")="DTCMM"

 +12       SET TABLE("DISTANCE TO CLOSEST RADIAL MARGIN")="DTCRM"

 +13       SET TABLE("BLOOD VESSEL OR LYMPHATIC INVASION")="BVOLI"

 +14       SET TABLE("EXTRAMURAL VENOUS INVASION")="EVI"

 +15       SET TABLE("PROMINENT LYMPHOID INFILTRATE")="PLI"

 +16       SET HTABLE(1)="SIZE OF TUMOR (mm)"

 +17       SET HTABLE(2)="REGIONAL NODES EXAMINED"

 +18       SET HTABLE(3)="REGIONAL NODES POSITIVE"

 +19       SET HTABLE(4)="AJCC CLINICAL STAGE (cTNM)"

 +20       SET HTABLE(5)="AJCC PATHOLOGIC STAGE (pTNM)"

 +21       SET HTABLE(6)="CLINICAL STAGED BY"

 +22       SET HTABLE(7)="PATHOLOGIC STAGED BY"

 +23       SET HTABLE(8)="MARGIN OF RESECTION"

 +24       SET HTABLE(9)="DISTANCE TO CLOSEST MUCOSAL MARGIN"

 +25       SET HTABLE(10)="DISTANCE TO CLOSEST RADIAL MARGIN"

 +26       SET HTABLE(11)="BLOOD VESSEL OR LYMPHATIC INVASION"

 +27       SET HTABLE(12)="EXTRAMURAL VENOUS INVASION"

 +28       SET HTABLE(13)="PROMINENT LYMPHOID INFILTRATE"

 +29       SET CHOICES=13

 +30       WRITE @IOF

           DO HEAD^ONCCPC0

 +31       WRITE !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE"

 +32       WRITE !?18,"-------------------------------------------"

 +33       SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

SOT        SET DR="29SIZE OF TUMOR (mm)............."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

RNE        SET DR="33REGIONAL NODES EXAMINED........"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

RNP        SET DR="32REGIONAL NODES POSITIVE........"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

ACS        WRITE !!,"AJCC CLINICAL STAGE (cTNM):",!

CTCODE     SET DR="37.1  T-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        DO CN1^ONCOTN

           DO CN2^ONCOTN

CNCODE     SET DR="37.2  N-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

CMCODE     SET DR="37.3  M-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        IF '$DATA(SKAJCC)

               DO CN1^ONCOTN

 +2        SET STGIND="C"

           DO ES^ONCOTN

CSTAGE    ;W ! S DR="38  AJCC STAGE..................." D ^DIE G:$D(Y) JUMP

CSB        SET DR="19  CLINICAL STAGED BY..........."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

APS        WRITE !!,"AJCC PATHOLOGIC STAGE (pTNM):",!

PTCODE     SET DR="85  T-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        DO CN3^ONCOTN

           DO CN4^ONCOTN

PNCODE     SET DR="86  N-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

PMCODE     SET DR="87  M-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        IF '$DATA(SKAJCC)

               DO CN3^ONCOTN

 +2        SET STGIND="P"

           DO ES^ONCOTN

PSTAGE    ;W ! S DR="88  AJCC STAGE..................." D ^DIE G:$D(Y) JUMP

PSB        SET DR="89  PATHOLOGIC STAGED BY........."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

MOR        WRITE !!,"MARGIN OF RESECTION:",!

 +1        SET DR="754  PROXIMAL MARGIN.............."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        SET DR="755  DISTAL MARGIN................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +3        SET DR="756  RADIAL MARGIN................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +4        WRITE !

DTCMM      SET DR="757DISTANCE TO MUCOSAL MARGIN....."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

DTCRM      SET DR="758DISTANCE TO RADIAL MARGIN......"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

BVOLI      SET DR="759BLOOD VESSEL/LYMPHATIC INVASION"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

EVI        SET DR="760EXTRAMURAL VENOUS INVASION....."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

PLI        SET DR="761PROMINENT LYMPHOID INFILTRATE.."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +2        GOTO EXIT

JUMP      ;Jump to prompts

 +1        SET XX=""

           READ !!,"GO TO: ",X:DTIME

           IF (X="")!(X[U)

               SET OUT="Y"

               GOTO EXIT

 +2        IF X["?"

               Begin DoDot:1

 +3                WRITE !,"CHOOSE FROM:"

                   FOR I=1:1:CHOICES

                       WRITE !,?5,HTABLE(I)

               End DoDot:1

               GOTO JUMP

 +4        IF '$DATA(TABLE(X))

               SET XX=X

               SET X=$ORDER(TABLE(X))

               IF ($PIECE(X,XX,1)'="")!(X="")

                   WRITE *7,"??"

                   Begin DoDot:1

 +5                    WRITE !,"CHOOSE FROM:"

                       FOR I=1:1:CHOICES

                           WRITE !,?5,HTABLE(I)

                   End DoDot:1

                   GOTO JUMP

 +6        SET X=TABLE(X)

 +7        GOTO @X

EXIT       KILL HTABLE,TABLE,CHOICES

 +1        KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 +2        QUIT