- 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 Feb 18, 2025@23:49:43 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
