ONCIPC3.m

ONCIPC3 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00

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

 ;First Course of Treatment

 K TABLE,HTABLE

 S TABLE("36. PROTOCOL PARTICIPATION")="PP^ONCIPC3"

 S TABLE("37. PROTOCOL PHASE")="PPH^ONCIPC3"

 S TABLE("38. DATE OF FIRST COURSE TREATMENT")="DFCT^ONCIPC3"

 S TABLE("39. DATE OF INPATIENT ADMISSION")="DIA^ONCIPC3"

 S TABLE("40. DATE OF INPATIENT DISCHARGE")="DID^ONCIPC3"

 S TABLE("SURGERY")="S^ONCIPC3A"

 S TABLE("41. DATE OF NON CA-DIRECTED SURGERY")="DNCDS^ONCIPC3A"

 S TABLE("42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY")="DEPS^ONCIPC3A"

 S TABLE("43. DATE OF CA-DIRECTED SURGERY")="DCDS^ONCIPC3A"

 S TABLE("44. SURGICAL APPROACH")="SA^ONCIPC3A"

 S TABLE("45. EXTENT OF SURGICAL RESECTION")="ESR^ONCIPC3A"

 S TABLE("46. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY")="SRPT^ONCIPC3A"

 S TABLE("47. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY (SOURCE)")="SRPTS^ONCIPC3A"

 S TABLE("48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS")="SCPSE^ONCIPC3A"

 S TABLE("49. REASON FOR NO SURGERY")="RFNS^ONCIPC3A"

 S TABLE("RADIATION THERAPY")="RT^ONCIPC3B"

 S TABLE("50. RADIATION THERAPY")="RT^ONCIPC3B"

 S TABLE("51. DATE RADIATION STARTED")="DRS^ONCIPC3B"

 S TABLE("52. DATE RADIATION ENDED")="DRE^ONCIPC3B"

 S TABLE("53. TOTAL RADIATION DOSE (cGy)")="TRD^ONCIPC3B"

 S TABLE("54. NUMBER OF TREATMENTS TO THIS VOLUME")="NTTV^ONCIPC3B"

 S TABLE("55. TYPE OF EXTERNAL BEAM RADIATION")="TEBR^ONCIPC3B"

 S TABLE("56. INTERSTITIAL RADIATION/BRACHYTHERAPY")="IRB^ONCIPC3B"

 S TABLE("57. STEREOTACTIC RADIOSURGERY")="SR^ONCIPC3B"

 S TABLE("58. RADIATION/SURGERY SEQUENCE")="RSS^ONCIPC3B"

 S TABLE("59. RADIATION COMPLICATIONS")="RC^ONCIPC3B"

 S TABLE("60. REASON FOR NO RADIATION")="RFNR^ONCIPC3B"

 S TABLE("CHEMOTHERAPY")="C^ONCIPC3C"

 S TABLE("61. DATE CHEMOTHERAPY STARTED")="DCS^ONCIPC3C"

 S TABLE("62. CHEMOTHERAPY")="CT^ONCIPC3C"

 S TABLE("63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED")="TCAA^ONCIPC3C"

 S TABLE("64. CHEMOTHERAPEUTIC ROUTE")="CR^ONCIPC3C"

 S TABLE("65. CHEMOTHERAPY COMPLICATIONS")="CC^ONCIPC3C"

 S TABLE("66. REASON FOR NO CHEMOTHERAPY")="RFNC^ONCIPC3C"

 S TABLE("OTHER THERAPY")="O^ONCIPC3C"

 S TABLE("67. DATE OTHER TREATMENT STARTED")="DOTS^ONCIPC3C"

 S TABLE("68. OTHER TREATMENT")="OT^ONCIPC3C"

 S TABLE("69. KARNOFSKY'S RATING AT TIME OF DISCHARGE/TRANSFER")="KRTDT^ONCIPC3C"

 S HTABLE(1)="36. PROTOCOL PARTICIPATION"

 S HTABLE(2)="37. PROTOCOL PHASE"

 S HTABLE(3)="38. DATE OF FIRST COURSE TREATMENT"

 S HTABLE(4)="39. DATE OF INPATIENT ADMISSION"

 S HTABLE(5)="40. DATE OF INPATIENT DISCHARGE"

 S HTABLE(6)=""

 S HTABLE(7)="SURGERY"

 S HTABLE(8)=""

 S HTABLE(9)="41. DATE OF NON CA-DIRECTED SURGERY"

 S HTABLE(10)="42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY"

 S HTABLE(11)="43. DATE OF CA-DIRECTED SURGERY"

 S HTABLE(12)="44. SURGICAL APPROACH"

 S HTABLE(13)="45. EXTENT OF SURGICAL RESECTION"

 S HTABLE(14)="46. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY"

 S HTABLE(15)="47. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY (SOURCE)"

 S HTABLE(16)="48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS"

 S HTABLE(17)="49. REASON FOR NO SURGERY"

 S HTABLE(18)="RADIATION THERAPY"

 S HTABLE(19)=""

 S HTABLE(20)="50. RADIATION THERAPY"

 S HTABLE(21)="51. DATE RADIATION STARTED"

 S HTABLE(22)="52. DATE RADIATION ENDED"

 S HTABLE(23)="53. TOTAL RADIATION DOSE (cGy)"

 S HTABLE(24)="54. NUMBER OF TREATMENTS TO THIS VOLUME"

 S HTABLE(25)="55. TYPE OF EXTERNAL BEAM RADIATION"

 S HTABLE(26)="56. INTERSTITIAL RADIATION/BRACHYTHERAPY"

 S HTABLE(27)="57. STEREOTACTIC RADIOSURGERY"

 S HTABLE(28)="58. RADIATION/SURGERY SEQUENCE"

 S HTABLE(29)="59. RADIATION COMPLICATIONS"

 S HTABLE(30)="60. REASON FOR NO RADIATION"

 S HTABLE(31)=""

 S HTABLE(32)="CHEMOTHERAPY"

 S HTABLE(33)=""

 S HTABLE(34)="61. DATE CHEMOTHERAPY STARTED"

 S HTABLE(35)="62. CHEMOTHERAPY"

 S HTABLE(36)="63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED"

 S HTABLE(37)="64. CHEMOTHERAPEUTIC ROUTE"

 S HTABLE(38)="65. CHEMOTHERAPY COMPLICATIONS"

 S HTABLE(39)="66. REASON FOR NO CHEMOTHERAPY"

 S HTABLE(40)=""

 S HTABLE(41)="OTHER THERAPY"

 S HTABLE(42)=""

 S HTABLE(43)="67. DATE OTHER TREATMENT STARTED"

 S HTABLE(44)="68. OTHER TREATMENT"

 S HTABLE(45)="69. KARNOFSKY'S RATING AT TIME OF DISCHARGE/TRANSFER"

 S CHOICES=45

 S IE=ONCONUM

 W @IOF D HEAD^ONCIPC0

 W !," FIRST COURSE OF TREATMENT"

 W !," -------------------------"

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

 S NCDS=$$GET1^DIQ(165.5,IE,58.1)

 S CDS=$$GET1^DIQ(165.5,IE,58.2)

 S RAD=$P($G(^ONCO(165.5,IE,3)),U,6)

 S CHE=$P($G(^ONCO(165.5,IE,3)),U,13)

PP S DR="1312 36. PROTOCOL PARTICIPATION........" D ^DIE G:$D(Y) JUMP

 I X="00" D  G DFCT

 .S $P(^ONCO(165.5,IE,"CNS2"),U,28)=0

 .W !," 37. PROTOCOL PHASE................: Not on"

PPH S DR="1313 37. PROTOCOL PHASE................" D ^DIE G:$D(Y) JUMP

DFCT W !," 38. DATE OF FIRST COURSE TREATMENT: ",$$GET1^DIQ(165.5,IE,49)

DIA S DR="1 39. DATE OF INPATIENT ADMISSION..." D ^DIE G:$D(Y) JUMP

DID S DR="1.1 40. DATE OF INPATIENT DISCHARGE..." D ^DIE G:$D(Y) JUMP

 G S^ONCIPC3A

JUMP ;Jump to prompts

 S XX="" R !!," GO TO ITEM: ",X:DTIME

 I (X="")!(X[U) S OUT="Y" G EXIT

 I X["?" D  G JUMP

 .W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I (I=17)!(I=31) W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  W @IOF,!," CHOOSE FROM:"

 I '$D(TABLE(X)) S:X?1.2N X=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) I (I=17)!(I=31) W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  W @IOF,!," CHOOSE FROM:"

 S X=TABLE(X)

 G @X

EXIT S:$D(DIRUT) OUT="Y"

 K CHOICES,HTABLE,IE,PIECE,TABLE

 K CDS,NCDS,RAD,CHE

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCIPC3   5898     printed  Nov 22, 2024@17:33:22                                                                                                                                                                                                     Page 2

ONCIPC3   ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00

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

 +2       ;First Course of Treatment

 +3        KILL TABLE,HTABLE

 +4        SET TABLE("36. PROTOCOL PARTICIPATION")="PP^ONCIPC3"

 +5        SET TABLE("37. PROTOCOL PHASE")="PPH^ONCIPC3"

 +6        SET TABLE("38. DATE OF FIRST COURSE TREATMENT")="DFCT^ONCIPC3"

 +7        SET TABLE("39. DATE OF INPATIENT ADMISSION")="DIA^ONCIPC3"

 +8        SET TABLE("40. DATE OF INPATIENT DISCHARGE")="DID^ONCIPC3"

 +9        SET TABLE("SURGERY")="S^ONCIPC3A"

 +10       SET TABLE("41. DATE OF NON CA-DIRECTED SURGERY")="DNCDS^ONCIPC3A"

 +11       SET TABLE("42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY")="DEPS^ONCIPC3A"

 +12       SET TABLE("43. DATE OF CA-DIRECTED SURGERY")="DCDS^ONCIPC3A"

 +13       SET TABLE("44. SURGICAL APPROACH")="SA^ONCIPC3A"

 +14       SET TABLE("45. EXTENT OF SURGICAL RESECTION")="ESR^ONCIPC3A"

 +15       SET TABLE("46. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY")="SRPT^ONCIPC3A"

 +16       SET TABLE("47. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY (SOURCE)")="SRPTS^ONCIPC3A"

 +17       SET TABLE("48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS")="SCPSE^ONCIPC3A"

 +18       SET TABLE("49. REASON FOR NO SURGERY")="RFNS^ONCIPC3A"

 +19       SET TABLE("RADIATION THERAPY")="RT^ONCIPC3B"

 +20       SET TABLE("50. RADIATION THERAPY")="RT^ONCIPC3B"

 +21       SET TABLE("51. DATE RADIATION STARTED")="DRS^ONCIPC3B"

 +22       SET TABLE("52. DATE RADIATION ENDED")="DRE^ONCIPC3B"

 +23       SET TABLE("53. TOTAL RADIATION DOSE (cGy)")="TRD^ONCIPC3B"

 +24       SET TABLE("54. NUMBER OF TREATMENTS TO THIS VOLUME")="NTTV^ONCIPC3B"

 +25       SET TABLE("55. TYPE OF EXTERNAL BEAM RADIATION")="TEBR^ONCIPC3B"

 +26       SET TABLE("56. INTERSTITIAL RADIATION/BRACHYTHERAPY")="IRB^ONCIPC3B"

 +27       SET TABLE("57. STEREOTACTIC RADIOSURGERY")="SR^ONCIPC3B"

 +28       SET TABLE("58. RADIATION/SURGERY SEQUENCE")="RSS^ONCIPC3B"

 +29       SET TABLE("59. RADIATION COMPLICATIONS")="RC^ONCIPC3B"

 +30       SET TABLE("60. REASON FOR NO RADIATION")="RFNR^ONCIPC3B"

 +31       SET TABLE("CHEMOTHERAPY")="C^ONCIPC3C"

 +32       SET TABLE("61. DATE CHEMOTHERAPY STARTED")="DCS^ONCIPC3C"

 +33       SET TABLE("62. CHEMOTHERAPY")="CT^ONCIPC3C"

 +34       SET TABLE("63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED")="TCAA^ONCIPC3C"

 +35       SET TABLE("64. CHEMOTHERAPEUTIC ROUTE")="CR^ONCIPC3C"

 +36       SET TABLE("65. CHEMOTHERAPY COMPLICATIONS")="CC^ONCIPC3C"

 +37       SET TABLE("66. REASON FOR NO CHEMOTHERAPY")="RFNC^ONCIPC3C"

 +38       SET TABLE("OTHER THERAPY")="O^ONCIPC3C"

 +39       SET TABLE("67. DATE OTHER TREATMENT STARTED")="DOTS^ONCIPC3C"

 +40       SET TABLE("68. OTHER TREATMENT")="OT^ONCIPC3C"

 +41       SET TABLE("69. KARNOFSKY'S RATING AT TIME OF DISCHARGE/TRANSFER")="KRTDT^ONCIPC3C"

 +42       SET HTABLE(1)="36. PROTOCOL PARTICIPATION"

 +43       SET HTABLE(2)="37. PROTOCOL PHASE"

 +44       SET HTABLE(3)="38. DATE OF FIRST COURSE TREATMENT"

 +45       SET HTABLE(4)="39. DATE OF INPATIENT ADMISSION"

 +46       SET HTABLE(5)="40. DATE OF INPATIENT DISCHARGE"

 +47       SET HTABLE(6)=""

 +48       SET HTABLE(7)="SURGERY"

 +49       SET HTABLE(8)=""

 +50       SET HTABLE(9)="41. DATE OF NON CA-DIRECTED SURGERY"

 +51       SET HTABLE(10)="42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY"

 +52       SET HTABLE(11)="43. DATE OF CA-DIRECTED SURGERY"

 +53       SET HTABLE(12)="44. SURGICAL APPROACH"

 +54       SET HTABLE(13)="45. EXTENT OF SURGICAL RESECTION"

 +55       SET HTABLE(14)="46. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY"

 +56       SET HTABLE(15)="47. SIZE OF RESIDUAL PRIMARY TUMOR FOLLOWING CA-DIRECTED SURGERY (SOURCE)"

 +57       SET HTABLE(16)="48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS"

 +58       SET HTABLE(17)="49. REASON FOR NO SURGERY"

 +59       SET HTABLE(18)="RADIATION THERAPY"

 +60       SET HTABLE(19)=""

 +61       SET HTABLE(20)="50. RADIATION THERAPY"

 +62       SET HTABLE(21)="51. DATE RADIATION STARTED"

 +63       SET HTABLE(22)="52. DATE RADIATION ENDED"

 +64       SET HTABLE(23)="53. TOTAL RADIATION DOSE (cGy)"

 +65       SET HTABLE(24)="54. NUMBER OF TREATMENTS TO THIS VOLUME"

 +66       SET HTABLE(25)="55. TYPE OF EXTERNAL BEAM RADIATION"

 +67       SET HTABLE(26)="56. INTERSTITIAL RADIATION/BRACHYTHERAPY"

 +68       SET HTABLE(27)="57. STEREOTACTIC RADIOSURGERY"

 +69       SET HTABLE(28)="58. RADIATION/SURGERY SEQUENCE"

 +70       SET HTABLE(29)="59. RADIATION COMPLICATIONS"

 +71       SET HTABLE(30)="60. REASON FOR NO RADIATION"

 +72       SET HTABLE(31)=""

 +73       SET HTABLE(32)="CHEMOTHERAPY"

 +74       SET HTABLE(33)=""

 +75       SET HTABLE(34)="61. DATE CHEMOTHERAPY STARTED"

 +76       SET HTABLE(35)="62. CHEMOTHERAPY"

 +77       SET HTABLE(36)="63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED"

 +78       SET HTABLE(37)="64. CHEMOTHERAPEUTIC ROUTE"

 +79       SET HTABLE(38)="65. CHEMOTHERAPY COMPLICATIONS"

 +80       SET HTABLE(39)="66. REASON FOR NO CHEMOTHERAPY"

 +81       SET HTABLE(40)=""

 +82       SET HTABLE(41)="OTHER THERAPY"

 +83       SET HTABLE(42)=""

 +84       SET HTABLE(43)="67. DATE OTHER TREATMENT STARTED"

 +85       SET HTABLE(44)="68. OTHER TREATMENT"

 +86       SET HTABLE(45)="69. KARNOFSKY'S RATING AT TIME OF DISCHARGE/TRANSFER"

 +87       SET CHOICES=45

 +88       SET IE=ONCONUM

 +89       WRITE @IOF

           DO HEAD^ONCIPC0

 +90       WRITE !," FIRST COURSE OF TREATMENT"

 +91       WRITE !," -------------------------"

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

           SET DA=ONCONUM

 +93       SET NCDS=$$GET1^DIQ(165.5,IE,58.1)

 +94       SET CDS=$$GET1^DIQ(165.5,IE,58.2)

 +95       SET RAD=$PIECE($GET(^ONCO(165.5,IE,3)),U,6)

 +96       SET CHE=$PIECE($GET(^ONCO(165.5,IE,3)),U,13)

PP         SET DR="1312 36. PROTOCOL PARTICIPATION........"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        IF X="00"

               Begin DoDot:1

 +2                SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,28)=0

 +3                WRITE !," 37. PROTOCOL PHASE................: Not on"

               End DoDot:1

               GOTO DFCT

PPH        SET DR="1313 37. PROTOCOL PHASE................"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

DFCT       WRITE !," 38. DATE OF FIRST COURSE TREATMENT: ",$$GET1^DIQ(165.5,IE,49)

DIA        SET DR="1 39. DATE OF INPATIENT ADMISSION..."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

DID        SET DR="1.1 40. DATE OF INPATIENT DISCHARGE..."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +1        GOTO S^ONCIPC3A

JUMP      ;Jump to prompts

 +1        SET XX=""

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

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

               SET OUT="Y"

               GOTO EXIT

 +3        IF X["?"

               Begin DoDot:1

 +4                WRITE @IOF,!," CHOOSE FROM:"

                   FOR I=1:1:CHOICES

                       WRITE !,?5,HTABLE(I)

                       IF (I=17)!(I=31)

                           WRITE !

                           KILL DIR

                           SET DIR(0)="E"

                           DO ^DIR

                           if $DATA(DIRUT)

                               QUIT 

                           WRITE @IOF,!," CHOOSE FROM:"

               End DoDot:1

               GOTO JUMP

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

               if X?1.2N

                   SET X=X_"."

               SET XX=X

               SET X=$ORDER(TABLE(X))

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

                   WRITE *7,"??"

                   Begin DoDot:1

 +6                    WRITE !," CHOOSE FROM:"

                       FOR I=1:1:CHOICES

                           WRITE !,?5,HTABLE(I)

                           IF (I=17)!(I=31)

                               WRITE !

                               KILL DIR

                               SET DIR(0)="E"

                               DO ^DIR

                               if $DATA(DIRUT)

                                   QUIT 

                               WRITE @IOF,!," CHOOSE FROM:"

                   End DoDot:1

                   GOTO JUMP

 +7        SET X=TABLE(X)

 +8        GOTO @X

EXIT       if $DATA(DIRUT)

               SET OUT="Y"

 +1        KILL CHOICES,HTABLE,IE,PIECE,TABLE

 +2        KILL CDS,NCDS,RAD,CHE

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

 +4        QUIT