74 lines
4.3 KiB
Mathematica
74 lines
4.3 KiB
Mathematica
ONCIPC3B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
|
|
;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|
;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
|
|
RSS S DR="51.3 58. RADIATION/SURGERY SEQUENCE...." 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
|