ONCBPC3.m

ONCBPC3 ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table III;6/19/96

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

 K TABLE,HTABLE

 S TABLE("STAGING PROCEDURES")="STA"

 S TABLE("PRESENCE OF HYDRONEPHROSIS")="POH"

 S TABLE("TUMOR SIZE (mm)")="TUM"

 S TABLE("PRESENCE OF MULTIPLE TUMORS")="POMT"

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

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

 S TABLE("SITES OF DISTANT METASTASIS")="SODM"

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

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

 S TABLE("STAGED BY")="SB"

 S HTABLE(1)="STAGING PROCEDURES"

 S HTABLE(2)="PRESENCE OF HYDRONEPHROSIS"

 S HTABLE(3)="TUMOR SIZE (mm)"

 S HTABLE(4)="PRESENCE OF MULTIPLE TUMORS"

 S HTABLE(5)="REGIONAL NODES EXAMINED"

 S HTABLE(6)="REGIONAL NODES POSITIVE"

 S HTABLE(7)="SITES OF DISTANT METASTASIS"

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

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

 S HTABLE(10)="STAGED BY"

 S CHOICES=10

 W @IOF D HEAD^ONCBPC0

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

STA W !,"STAGING PROCEDURES:",!

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

 S DR="335  ABDOMINAL ULTRASOUND........." D ^DIE G:$D(Y) JUMP

 S DR="336  BONE IMAGING................." D ^DIE G:$D(Y) JUMP

 S DR="337  CHEST X-RAY.................." D ^DIE G:$D(Y) JUMP

 S DR="338  CT CHEST/LUNG................" D ^DIE G:$D(Y) JUMP

 S DR="339  CT ABDOMEN/PELVIS............" D ^DIE G:$D(Y) JUMP

 S DR="340  CT OTHER....................." D ^DIE G:$D(Y) JUMP

 S DR="341  MRI PELVIS/ABDOMEN..........." D ^DIE G:$D(Y) JUMP

 S DR="342  MRI OTHER...................." D ^DIE G:$D(Y) JUMP

 S DR="343  OTHER........................" D ^DIE G:$D(Y) JUMP

 W !

POH S DR="344PRESENCE OF HYDRONEPHROSIS....." D ^DIE G:$D(Y) JUMP

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

POMT S DR="345PRESENCE OF MULTIPLE TUMORS...." 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

SODM W !!,"SITES OF DISTANT METASTASIS:",!

 S DR="34  SITE OF DISTANT METASTASIS #1" D ^DIE G:$D(Y) JUMP

 I X=0 D  G ACS

 .S $P(^ONCO(165.5,ONCONUM,2),U,15)=0

 .W !,"  SITE OF DISTANT METASTASIS #2: None"

 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0

 .W !,"  SITE OF DISTANT METASTASIS #3: None"

 S DR="34.1  SITE OF DISTANT METASTASIS #2" D ^DIE G:$D(Y) JUMP

 I X=0 D  G ACS

 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0

 .W !,"  SITE OF DISTANT METASTASIS #3: None"

 S DR="34.2  SITE OF DISTANT METASTASIS #3" D ^DIE G:$D(Y) JUMP

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

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

 D CN1^ONCOTN,CN2^ONCOTN

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

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

 I '$D(SKAJCC) D CN1^ONCOTN

 S STGIND="C" D ES^ONCOTN

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

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

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

 D CN3^ONCOTN,CN4^ONCOTN

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

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

 I '$D(SKAJCC) D CN3^ONCOTN

 S STGIND="P" D ES^ONCOTN

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

SB W !,"STAGED BY:",!

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

 S DR="89  PATHOLOGIC STAGE.................." 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 ---ONCBPC3   3947     printed  Feb 18, 2025@23:48:31                                                                                                                                                                                                     Page 2

ONCBPC3   ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table III;6/19/96

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

 +2        KILL TABLE,HTABLE

 +3        SET TABLE("STAGING PROCEDURES")="STA"

 +4        SET TABLE("PRESENCE OF HYDRONEPHROSIS")="POH"

 +5        SET TABLE("TUMOR SIZE (mm)")="TUM"

 +6        SET TABLE("PRESENCE OF MULTIPLE TUMORS")="POMT"

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

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

 +9        SET TABLE("SITES OF DISTANT METASTASIS")="SODM"

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

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

 +12       SET TABLE("STAGED BY")="SB"

 +13       SET HTABLE(1)="STAGING PROCEDURES"

 +14       SET HTABLE(2)="PRESENCE OF HYDRONEPHROSIS"

 +15       SET HTABLE(3)="TUMOR SIZE (mm)"

 +16       SET HTABLE(4)="PRESENCE OF MULTIPLE TUMORS"

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

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

 +19       SET HTABLE(7)="SITES OF DISTANT METASTASIS"

 +20       SET HTABLE(8)="AJCC CLINICAL STAGE (cTNM)"

 +21       SET HTABLE(9)="AJCC PATHOLOGIC STAGE (pTNM)"

 +22       SET HTABLE(10)="STAGED BY"

 +23       SET CHOICES=10

 +24       WRITE @IOF

           DO HEAD^ONCBPC0

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

STA        WRITE !,"STAGING PROCEDURES:",!

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

           SET DA=ONCONUM

 +2        SET DR="335  ABDOMINAL ULTRASOUND........."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +3        SET DR="336  BONE IMAGING................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +4        SET DR="337  CHEST X-RAY.................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +5        SET DR="338  CT CHEST/LUNG................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +6        SET DR="339  CT ABDOMEN/PELVIS............"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +7        SET DR="340  CT OTHER....................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +8        SET DR="341  MRI PELVIS/ABDOMEN..........."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +9        SET DR="342  MRI OTHER...................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +10       SET DR="343  OTHER........................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +11       WRITE !

POH        SET DR="344PRESENCE OF HYDRONEPHROSIS....."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

TUM        SET DR="29TUMOR SIZE (mm)................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

POMT       SET DR="345PRESENCE OF MULTIPLE TUMORS...."

           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

SODM       WRITE !!,"SITES OF DISTANT METASTASIS:",!

 +1        SET DR="34  SITE OF DISTANT METASTASIS #1"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        IF X=0

               Begin DoDot:1

 +3                SET $PIECE(^ONCO(165.5,ONCONUM,2),U,15)=0

 +4                WRITE !,"  SITE OF DISTANT METASTASIS #2: None"

 +5                SET $PIECE(^ONCO(165.5,ONCONUM,2),U,16)=0

 +6                WRITE !,"  SITE OF DISTANT METASTASIS #3: None"

               End DoDot:1

               GOTO ACS

 +7        SET DR="34.1  SITE OF DISTANT METASTASIS #2"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +8        IF X=0

               Begin DoDot:1

 +9                SET $PIECE(^ONCO(165.5,ONCONUM,2),U,16)=0

 +10               WRITE !,"  SITE OF DISTANT METASTASIS #3: None"

               End DoDot:1

               GOTO ACS

 +11       SET DR="34.2  SITE OF DISTANT METASTASIS #3"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

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

 +1        SET DR="37.1  T-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        DO CN1^ONCOTN

           DO CN2^ONCOTN

 +3        SET DR="37.2  N-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +4        SET DR="37.3  M-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +5        IF '$DATA(SKAJCC)

               DO CN1^ONCOTN

 +6        SET STGIND="C"

           DO ES^ONCOTN

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

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

 +1        SET DR="85  T-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        DO CN3^ONCOTN

           DO CN4^ONCOTN

 +3        SET DR="86  N-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +4        SET DR="87  M-CODE......................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +5        IF '$DATA(SKAJCC)

               DO CN3^ONCOTN

 +6        SET STGIND="P"

           DO ES^ONCOTN

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

SB         WRITE !,"STAGED BY:",!

 +1        SET DR="19  CLINICAL STAGE...................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        SET DR="89  PATHOLOGIC STAGE.................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +3        WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +4        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