source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC3B.m@ 1789

Last change on this file since 1789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.3 KB
Line 
1ONCIPC3B ;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)
4RT 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
48DRS W !," 51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
49DRE S DR="361 52. DATE RADIATION ENDED.........." D ^DIE G:$D(Y) JUMP
50TRD S DR="1336 53. TOTAL RADIATION DOSE (cGy)...." D ^DIE G:$D(Y) JUMP
51NTTV S DR="56 54. NUMBER OF TREATMENTS TO THIS VOLUME...................... " D ^DIE G:$D(Y) JUMP
52TEBR S DR="1337 55. TYPE OF EXT BEAM RADIATION...." D ^DIE G:$D(Y) JUMP
53IRB S DR="1338 56. INTERSTITIAL RAD/BRACHYTHERAPY" D ^DIE G:$D(Y) JUMP
54SR S DR="1339 57. STEREOTACTIC RADIOSURGERY....." D ^DIE G:$D(Y) JUMP
55RSS S DR="51.3 58. RADIATION/SURGERY SEQUENCE...." D ^DIE G:$D(Y) JUMP
56RC 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
62RFNR W ! S DR="75 60. REASON FOR NO RADIATION......." D ^DIE G:$D(Y) JUMP
63C G C^ONCIPC3C
64JUMP ;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
72EXIT S:$D(DIRUT) OUT="Y"
73 G EXIT^ONCIPC3
Note: See TracBrowser for help on using the repository browser.