| 1 | ONCIPC3B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|---|
| 3 | ;First Course of Treatment (continued)
|
|---|
| 4 | RT W @IOF
|
|---|
| 5 | W !," RADIATION THERAPY"
|
|---|
| 6 | W !," -----------------"
|
|---|
| 7 | I RAD=0 D G RFNR
|
|---|
| 8 | .F PIECE=51,52,53,54,60 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
|
|---|
| 9 | .S $P(^ONCO(165.5,IE,"BLA2"),U,16)="0000000"
|
|---|
| 10 | .F PIECE=55,56,57,58,59 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
|
|---|
| 11 | .W !," 50. RADIATION THERAPY.............: None"
|
|---|
| 12 | .W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
|
|---|
| 13 | .W !," 52. DATE RADIATION ENDED..........: 00/00/0000"
|
|---|
| 14 | .W !," 53. TOTAL RADIATION DOSE (cGy)....: No radiation administered"
|
|---|
| 15 | .W !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
|
|---|
| 16 | .W !," 55. TYPE OF EXT BEAM RADIATION....: No radiation therapy"
|
|---|
| 17 | .W !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: None, brachytherapy not given"
|
|---|
| 18 | .W !," 57. STEREOTACTIC RADIOSURGERY.....: None, not administered"
|
|---|
| 19 | .W !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
|
|---|
| 20 | .W !
|
|---|
| 21 | .W !," 59. RADIATION COMPLICATIONS:"
|
|---|
| 22 | .W !," SKIN REACTIONS...............: NA, radiation tx not administered"
|
|---|
| 23 | .W !," ANOREXIA.....................: NA, radiation tx not administered"
|
|---|
| 24 | .W !," NAUSEA OR VOMITING...........: NA, radiation tx not administered"
|
|---|
| 25 | .W !," FATIGUE......................: NA, radiation tx not administered"
|
|---|
| 26 | .W !," NEUROLOGIC WORSENING.........: NA, radiation tx not administered"
|
|---|
| 27 | I RAD=9 D G RFNR
|
|---|
| 28 | .F PIECE=51,52,53,54,60 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
|
|---|
| 29 | .S $P(^ONCO(165.5,IE,"BLA2"),U,16)="9999999"
|
|---|
| 30 | .F PIECE=55,56,57,58,59 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
|
|---|
| 31 | .W !," 50. RADIATION THERAPY.............: Unk, death cert cases only"
|
|---|
| 32 | .W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
|
|---|
| 33 | .W !," 52. DATE RADIATION ENDED..........: 99/99/9999"
|
|---|
| 34 | .W !," 53. TOTAL RADIATION DOSE (cGy)....: Dose unknown"
|
|---|
| 35 | .W !," 54. NUMBER OF TREATMENTS TO THIS VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
|
|---|
| 36 | .W !," 55. TYPE OF EXT BEAM RADIATION....: Unknown"
|
|---|
| 37 | .W !," 56. INTERSTITIAL RAD/BRACHYTHERAPY: Unknown"
|
|---|
| 38 | .W !," 57. STEREOTACTIC RADIOSURGERY.....: Unknown"
|
|---|
| 39 | .W !," 58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
|
|---|
| 40 | .W !
|
|---|
| 41 | .W !," 59. RADIATION COMPLICATIONS:"
|
|---|
| 42 | .W !," SKIN REACTIONS...............: Unknown"
|
|---|
| 43 | .W !," ANOREXIA.....................: Unknown"
|
|---|
| 44 | .W !," NAUSEA OR VOMITING...........: Unknown"
|
|---|
| 45 | .W !," FATIGUE......................: Unknown"
|
|---|
| 46 | .W !," NEUROLOGIC WORSENING.........: Unknown"
|
|---|
| 47 | S DR="1345 50. RADIATION THERAPY............." D ^DIE G:$D(Y) JUMP
|
|---|
| 48 | DRS W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
|
|---|
| 49 | DRE S DR="361 52. DATE RADIATION ENDED.........." D ^DIE G:$D(Y) JUMP
|
|---|
| 50 | TRD S DR="1336 53. TOTAL RADIATION DOSE (cGy)...." D ^DIE G:$D(Y) JUMP
|
|---|
| 51 | NTTV S DR="56 54. NUMBER OF TREATMENTS TO THIS VOLUME...................... " D ^DIE G:$D(Y) JUMP
|
|---|
| 52 | TEBR S DR="1337 55. TYPE OF EXT BEAM RADIATION...." D ^DIE G:$D(Y) JUMP
|
|---|
| 53 | IRB S DR="1338 56. INTERSTITIAL RAD/BRACHYTHERAPY" D ^DIE G:$D(Y) JUMP
|
|---|
| 54 | SR S DR="1339 57. STEREOTACTIC RADIOSURGERY....." D ^DIE G:$D(Y) JUMP
|
|---|
| 55 | RSS S DR="51.3 58. RADIATION/SURGERY SEQUENCE...." D ^DIE G:$D(Y) JUMP
|
|---|
| 56 | RC W !!," 59. RADIATION COMPLICATIONS:"
|
|---|
| 57 | S DR="1340 SKIN REACTIONS..............." D ^DIE G:$D(Y) JUMP
|
|---|
| 58 | S DR="1341 ANOREXIA....................." D ^DIE G:$D(Y) JUMP
|
|---|
| 59 | S DR="1342 NAUSEA OR VOMITING..........." D ^DIE G:$D(Y) JUMP
|
|---|
| 60 | S DR="1343 FATIGUE......................" D ^DIE G:$D(Y) JUMP
|
|---|
| 61 | S DR="1344 NEUROLOGIC WORSENING........." D ^DIE G:$D(Y) JUMP
|
|---|
| 62 | RFNR W ! S DR="75 60. REASON FOR NO RADIATION......." D ^DIE G:$D(Y) JUMP
|
|---|
| 63 | C G C^ONCIPC3C
|
|---|
| 64 | JUMP ;Jump to prompts
|
|---|
| 65 | S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
|
|---|
| 66 | I X["?" D G:$D(DIRUT) EXIT G JUMP
|
|---|
| 67 | .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:"
|
|---|
| 68 | 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
|
|---|
| 69 | .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:"
|
|---|
| 70 | S X=TABLE(X)
|
|---|
| 71 | G @X
|
|---|
| 72 | EXIT S:$D(DIRUT) OUT="Y"
|
|---|
| 73 | G EXIT^ONCIPC3
|
|---|
