ONCIPC3B ;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 (continued)
RT W @IOF
W !," RADIATION THERAPY"
W !," -----------------"
I RAD=0 D G RFNR
.F PIECE=51,52,53,54,60 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
.S $P(^ONCO(165.5,IE,"BLA2"),U,16)="0000000"
.F PIECE=55,56,57,58,59 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
.W !," 50. RADIATION THERAPY.............: None"
.W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
.W !," 52. DATE RADIATION ENDED..........: 00/00/0000"
.W !," 53. TOTAL RADIATION DOSE (cGy)....: No radiation administered"
.W !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
.W !," 55. TYPE OF EXT BEAM RADIATION....: No radiation therapy"
.W !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: None, brachytherapy not given"
.W !," 57. STEREOTACTIC RADIOSURGERY.....: None, not administered"
.W !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
.W !
.W !," 59. RADIATION COMPLICATIONS:"
.W !," SKIN REACTIONS...............: NA, radiation tx not administered"
.W !," ANOREXIA.....................: NA, radiation tx not administered"
.W !," NAUSEA OR VOMITING...........: NA, radiation tx not administered"
.W !," FATIGUE......................: NA, radiation tx not administered"
.W !," NEUROLOGIC WORSENING.........: NA, radiation tx not administered"
I RAD=9 D G RFNR
.F PIECE=51,52,53,54,60 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
.S $P(^ONCO(165.5,IE,"BLA2"),U,16)="9999999"
.F PIECE=55,56,57,58,59 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
.W !," 50. RADIATION THERAPY.............: Unk, death cert cases only"
.W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
.W !," 52. DATE RADIATION ENDED..........: 99/99/9999"
.W !," 53. TOTAL RADIATION DOSE (cGy)....: Dose unknown"
.W !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
.W !," 55. TYPE OF EXT BEAM RADIATION....: Unknown"
.W !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: Unknown"
.W !," 57. STEREOTACTIC RADIOSURGERY.....: Unknown"
.W !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
.W !
.W !," 59. RADIATION COMPLICATIONS:"
.W !," SKIN REACTIONS...............: Unknown"
.W !," ANOREXIA.....................: Unknown"
.W !," NAUSEA OR VOMITING...........: Unknown"
.W !," FATIGUE......................: Unknown"
.W !," NEUROLOGIC WORSENING.........: Unknown"
S DR="1345 50. RADIATION THERAPY............." D ^DIE G:$D(Y) JUMP
DRS W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
DRE S DR="361 52. DATE RADIATION ENDED.........." D ^DIE G:$D(Y) JUMP
TRD S DR="1336 53. TOTAL RADIATION DOSE (cGy)...." D ^DIE G:$D(Y) JUMP
NTTV S DR="56 54. NUMBER OF TREATMENTS TO THIS VOLUME...................... " D ^DIE G:$D(Y) JUMP
TEBR S DR="1337 55. TYPE OF EXT BEAM RADIATION...." D ^DIE G:$D(Y) JUMP
IRB S DR="1338 56. INTERSTITIAL RAD/BRACHYTHERAPY" D ^DIE G:$D(Y) JUMP
SR S DR="1339 57. STEREOTACTIC RADIOSURGERY....." D ^DIE G:$D(Y) JUMP
RC W !!," 59. RADIATION COMPLICATIONS:"
S DR="1340 SKIN REACTIONS..............." D ^DIE G:$D(Y) JUMP
S DR="1341 ANOREXIA....................." D ^DIE G:$D(Y) JUMP
S DR="1342 NAUSEA OR VOMITING..........." D ^DIE G:$D(Y) JUMP
S DR="1343 FATIGUE......................" D ^DIE G:$D(Y) JUMP
S DR="1344 NEUROLOGIC WORSENING........." D ^DIE G:$D(Y) JUMP
RFNR W ! S DR="75 60. REASON FOR NO RADIATION......." D ^DIE G:$D(Y) JUMP
C G C^ONCIPC3C
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:$D(DIRUT) EXIT G JUMP
.W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 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=18 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"
G EXIT^ONCIPC3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC3B 4486 printed Dec 13, 2024@02:23:22 Page 2
ONCIPC3B ;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 (continued)
RT WRITE @IOF
+1 WRITE !," RADIATION THERAPY"
+2 WRITE !," -----------------"
+3 IF RAD=0
Begin DoDot:1
+4 FOR PIECE=51,52,53,54,60
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
+5 SET $PIECE(^ONCO(165.5,IE,"BLA2"),U,16)="0000000"
+6 FOR PIECE=55,56,57,58,59
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
+7 WRITE !," 50. RADIATION THERAPY.............: None"
+8 WRITE !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
+9 WRITE !," 52. DATE RADIATION ENDED..........: 00/00/0000"
+10 WRITE !," 53. TOTAL RADIATION DOSE (cGy)....: No radiation administered"
+11 WRITE !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
+12 WRITE !," 55. TYPE OF EXT BEAM RADIATION....: No radiation therapy"
+13 WRITE !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: None, brachytherapy not given"
+14 WRITE !," 57. STEREOTACTIC RADIOSURGERY.....: None, not administered"
+15 WRITE !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
+16 WRITE !
+17 WRITE !," 59. RADIATION COMPLICATIONS:"
+18 WRITE !," SKIN REACTIONS...............: NA, radiation tx not administered"
+19 WRITE !," ANOREXIA.....................: NA, radiation tx not administered"
+20 WRITE !," NAUSEA OR VOMITING...........: NA, radiation tx not administered"
+21 WRITE !," FATIGUE......................: NA, radiation tx not administered"
+22 WRITE !," NEUROLOGIC WORSENING.........: NA, radiation tx not administered"
End DoDot:1
GOTO RFNR
+23 IF RAD=9
Begin DoDot:1
+24 FOR PIECE=51,52,53,54,60
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
+25 SET $PIECE(^ONCO(165.5,IE,"BLA2"),U,16)="9999999"
+26 FOR PIECE=55,56,57,58,59
SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
+27 WRITE !," 50. RADIATION THERAPY.............: Unk, death cert cases only"
+28 WRITE !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
+29 WRITE !," 52. DATE RADIATION ENDED..........: 99/99/9999"
+30 WRITE !," 53. TOTAL RADIATION DOSE (cGy)....: Dose unknown"
+31 WRITE !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
+32 WRITE !," 55. TYPE OF EXT BEAM RADIATION....: Unknown"
+33 WRITE !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: Unknown"
+34 WRITE !," 57. STEREOTACTIC RADIOSURGERY.....: Unknown"
+35 WRITE !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
+36 WRITE !
+37 WRITE !," 59. RADIATION COMPLICATIONS:"
+38 WRITE !," SKIN REACTIONS...............: Unknown"
+39 WRITE !," ANOREXIA.....................: Unknown"
+40 WRITE !," NAUSEA OR VOMITING...........: Unknown"
+41 WRITE !," FATIGUE......................: Unknown"
+42 WRITE !," NEUROLOGIC WORSENING.........: Unknown"
End DoDot:1
GOTO RFNR
+43 SET DR="1345 50. RADIATION THERAPY............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DRS WRITE !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
DRE SET DR="361 52. DATE RADIATION ENDED.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
TRD SET DR="1336 53. TOTAL RADIATION DOSE (cGy)...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
NTTV SET DR="56 54. NUMBER OF TREATMENTS TO THIS VOLUME...................... "
DO ^DIE
if $DATA(Y)
GOTO JUMP
TEBR SET DR="1337 55. TYPE OF EXT BEAM RADIATION...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
IRB SET DR="1338 56. INTERSTITIAL RAD/BRACHYTHERAPY"
DO ^DIE
if $DATA(Y)
GOTO JUMP
SR SET DR="1339 57. STEREOTACTIC RADIOSURGERY....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DO ^DIE
if $DATA(Y)
GOTO JUMP
RC WRITE !!," 59. RADIATION COMPLICATIONS:"
+1 SET DR="1340 SKIN REACTIONS..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="1341 ANOREXIA....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="1342 NAUSEA OR VOMITING..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="1343 FATIGUE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="1344 NEUROLOGIC WORSENING........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RFNR WRITE !
SET DR="75 60. REASON FOR NO RADIATION......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
C GOTO C^ONCIPC3C
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE @IOF,!," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
IF I=18
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF,!," CHOOSE FROM:"
End DoDot:1
if $DATA(DIRUT)
GOTO EXIT
GOTO JUMP
+4 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
+5 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
IF I=18
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF,!," CHOOSE FROM:"
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT^ONCIPC3
