source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBRP5A.m@ 808

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

initial load of WorldVistAEHR
File size: 4.9 KB
Line 
1ONCBRP5A ;HINES CIOFO/GWB - 1998 Breast Cancer Study - Table V (continued) ;6/1/98
2 ;;2.11;ONCOLOGY;**18**;Mar 07, 1995
3RT W @IOF D HEAD^ONCBRP0
4 W !," RADIATION THERAPY"
5 W !," -----------------"
6RT1 W !," 67. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2)
7 I RAD=0 D G DRS
8 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,53)=0
9 .W !," 68. PRE-RADIATION THERAPY"
10 .W !," MAMMOGRAM OF PATIENT..........: Not done"
11 I RAD=9 D G DRS
12 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,53)=9
13 .W !," 68. PRE-RADIATION THERAPY"
14 .W !," MAMMOGRAM OF PATIENT..........: Unknown if done"
15PRTMP S DR="952 68. PRE-RADIATION THERAPY MAMMOGRAM OF PATIENT.........." D ^DIE G:$D(Y) JUMP
16DRS W !," 69. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51)
17 I RAD=0 D G RADWRT
18 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
19 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,54)=0
20 .I $$GET1^DIQ(160,ONCOPA,10,"I")=2 S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,55)="00000",$P(^ONCO(165.5,ONCONUM,"THY1"),U,44)="00000"
21 .E S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,55)="",$P(^ONCO(165.5,ONCONUM,"THY1"),U,44)=""
22 I RAD=9 D G RADWRT
23 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="9999999"
24 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,54)=9
25 .I $$GET1^DIQ(160,ONCOPA,10,"I")=2 S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,55)="99999",$P(^ONCO(165.5,ONCONUM,"THY1"),U,44)="99999"
26 .E S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,55)="",$P(^ONCO(165.5,ONCONUM,"THY1"),U,44)=""
27RADWRT I (RAD=0)!(RAD=9) D G:$D(DIRUT) EXIT G RFNR
28 .K DIQ S DIC="^ONCO(165.5,",DR="361;953;954;443",DA=ONCONUM,DIQ="ONC"
29 .D EN^DIQ1
30 .W !," 70. DATE RADIATION ENDED..........: ",ONC(165.5,ONCONUM,361)
31 .W !," 71. SITES IRRADIATED..............: ",ONC(165.5,ONCONUM,953)
32 .W !," 72. (F) cGy DOSE TO WHOLE BREAST"
33 .W !," OR CHEST WALL.................: ",ONC(165.5,ONCONUM,954)
34 .W !," 73. (F) BOOST RADIATION...........: ",ONC(165.5,ONCONUM,443)
35DRE S DR="361 70. DATE RADIATION ENDED.........." D ^DIE G:$D(Y) JUMP
36SI S DR="953 71. SITES IRRADIATED.............." D ^DIE G:$D(Y) JUMP
37DWBCW I $$GET1^DIQ(160,ONCOPA,10,"I")=1 D W ! G RFNR
38 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,55)=""
39 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,44)=""
40 .W !," 72. (F) cGy DOSE TO WHOLE BREAST"
41 .W !," OR CHEST WALL.................: (Data Item for Females Only)"
42 .W !," 73. (F) BOOST RADIATION...........: (Data Item for Females Only)"
43 S DR="954 72. (F) cGy DOSE TO WHOLE BREAST OR CHEST WALL................." D ^DIE G:$D(Y) JUMP
44BR S DR="443 73. (F) BOOST RADIATION..........." D ^DIE G:$D(Y) JUMP
45RFNR W !," 74. REASON FOR NO RADIATION ......: ",ONC(165.5,ONCONUM,75)
46 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
47HOT W @IOF D HEAD^ONCBRP0
48 W !," HORMONE THERAPY"
49 W !," ---------------"
50HT W !," 75. HORMONE THERAPY...............: ",ONC(165.5,ONCONUM,54.2)
51DEHTB W !," 76. DATE HORMONE THERAPY STARTED..: ",ONC(165.5,ONCONUM,54)
52SHT I $$GET1^DIQ(160,ONCOPA,10,"I")=2 D G:$D(DIRUT) EXIT W ! G CT
53 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,56)=""
54 .W !," 77. (M) SPECIFIC HORMONE THERAPY..: (Data Item for Males Only)"
55 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) D HEAD^ONCBRP0
56 I HOR=0 D G:$D(DIRUT) EXIT G CT
57 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,56)=0
58 .W !," 77. (M) SPECIFIC HORMONE THERAPY...: None"
59 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) D HEAD^ONCBRP0
60 I HOR=9 D G:$D(DIRUT) EXIT G CT
61 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,56)=9
62 .W !," 77. (M) SPECIFIC HORMONE THERAPY...: Unknown"
63 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) D HEAD^ONCBRP0
64 S DR="955 77. (M) SPECIFIC HORMONE THERAPY.." D ^DIE G:$D(Y) JUMP
65 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
66CT W @IOF D HEAD^ONCBRP0
67 W !," CHEMOTHERAPY"
68 W !," ------------"
69C W !," 78. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2)
70DCS W !," 79. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53)
71CRCD I CHE=0 D G PRTC
72 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,57)=8
73 .W !," 80. CHEMOTHERAPEUTIC REGIME"
74 .W !," CONTAINING DOXORUBICIN.......: NA, no chemotherapy"
75 I CHE=9 D G PRTC
76 .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,57)=9
77 .W !," 80. CHEMOTHERAPEUTIC REGIME"
78 .W !," CONTAINING DOXORUBICIN.......: Unknown"
79 S DR="956 80. CHEMOTHERAPEUTIC REGIME CONTAINING DOXORUBICIN........" D ^DIE G:$D(Y) JUMP
80PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
81 G EXIT
82JUMP ;Jump to prompts
83 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
84 I X["?" D G JUMP
85 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
86 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
87 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
88 S X=TABLE(X)
89 G @X
90EXIT S:$D(DIRUT) OUT="Y"
91 K CHOICES,PIECE,HTABLE,TABLE
92 K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
93 K SM,SM1,SM2,SOORS,SOORS1,SOORS2,HOR,RAD
94 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
95 Q
Note: See TracBrowser for help on using the repository browser.