source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPPC9B.m@ 1800

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

initial load of WorldVistAEHR
File size: 5.7 KB
RevLine 
[613]1ONCPPC9B ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
2 ;;2.11;ONCOLOGY;**6,16,24**;Mar 07, 1995
3VI S TABLE="TABLE VI - SUBSEQUENT TREATMENT"
4 I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
5 W !?25,TABLE,! D P Q:EX=U
6 W !,"REASON FOR SECOND COURSE OF THERAPY: ",ONC(165.5,IEN,656) D P Q:EX=U
7ST I $D(^ONCO(165.5,ONCONUM,4,0)) S SCTIEN=0 F S SCTIEN=$O(^ONCO(165.5,ONCONUM,4,SCTIEN)) Q:SCTIEN'>0 D SCT I IOST?1"C".E Q:'Y
8 I IOST?1"C".E G:'Y KILL
9 G PRTC
10SCT S DIC="^ONCO(165.5,",DR=60,DA=ONCONUM,DIQ="ONC"
11 S DR(165.51)=".01:32",DA(165.51)=SCTIEN D EN^DIQ1
12 S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
13 S LOS=$L(SURG) I LOS<43 S SURG1=SURG G SS
14 S NOP=$L($E(SURG,1,42)," ")
15 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
16 I IOST?1"C".E,SCTIEN>1 W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G SS
17 D P Q:EX=U
18SS W !!,"SUBSEQUENT SURGERY #",SCTIEN,":",! D P Q:EX=U
19 W !,"TYPE OF SURGERY....................: ",SURG1 D P Q:EX=U
20 W:SURG2'="" !,?40,SURG2 D P Q:EX=U
21 W !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041) D P Q:EX=U
22 W !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",! D P Q:EX=U
23 W !,"RADIATION THERAPY..................: ",ONC(165.51,SCTIEN,16) D P Q:EX=U
24 W !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
25 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G IR
26 D P Q:EX=U
27IR W !,"INTERSTITIAL RADIATION.............: ",ONC(165.51,SCTIEN,4) D P Q:EX=U
28 W !!," INTERSTITIAL RADIATION ADMINISTERED:",! D P Q:EX=U
29 W !," IODINE 125.....................: ",ONC(165.51,SCTIEN,5) D P Q:EX=U
30 W !," GOLD 198.......................: ",ONC(165.51,SCTIEN,6) D P Q:EX=U
31 W !," PALLADIUM 103..................: ",ONC(165.51,SCTIEN,7) D P Q:EX=U
32 W !," IRIDIUM 192....................: ",ONC(165.51,SCTIEN,8) D P Q:EX=U
33 W !," OTHER INTERSTITIAL, NOS........: ",ONC(165.51,SCTIEN,9)
34 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G ER
35 D P Q:EX=U
36ER W !,"EXTERNAL RADIATION.................: ",ONC(165.51,SCTIEN,10) D P Q:EX=U
37 W !!," EXTERNAL RADIATION ADMINISTERED:",! D P Q:EX=U
38 W !," PROSTATE REGION ONLY...........: ",ONC(165.51,SCTIEN,11) D P Q:EX=U
39 W !," PROSTATE & PELVIC NODES........: ",ONC(165.51,SCTIEN,12) D P Q:EX=U
40 W !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,13) D P Q:EX=U
41 W !," DISTANT METASTATIC SITES.......: ",ONC(165.51,SCTIEN,14) D P Q:EX=U
42 W !," OTHER EXTERNAL, NOS............: ",ONC(165.51,SCTIEN,15)
43 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G TRD
44 D P Q:EX=U
45TRD W !!," TOTAL RAD DOSE:",! D P Q:EX=U
46 W !," PROSTATE.......................: ",ONC(165.51,SCTIEN,17) D P Q:EX=U
47 W !," PELVIC NODES...................: ",ONC(165.51,SCTIEN,18) D P Q:EX=U
48 W !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,19)
49 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G SC
50 D P Q:EX=U
51SC W !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",! D P Q:EX=U
52 W !,"CHEMOTHERAPY.......................: ",ONC(165.51,SCTIEN,20) D P Q:EX=U
53 W !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061) D P Q:EX=U
54 W !!," DRUGS ADMINISTERED:",! D P Q:EX=U
55 W !," ADRIAMYCIN.....................: ",ONC(165.51,SCTIEN,21) D P Q:EX=U
56 W !," CYTOXAN........................: ",ONC(165.51,SCTIEN,22) D P Q:EX=U
57 W !," METHOTREXATE...................: ",ONC(165.51,SCTIEN,23) D P Q:EX=U
58 W !," FLUOROURACIL...................: ",ONC(165.51,SCTIEN,24) D P Q:EX=U
59 W !," OTHER..........................: ",ONC(165.51,SCTIEN,25)
60 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G SHT
61 D P Q:EX=U
62SHT W !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",! D P Q:EX=U
63 W !,"HORMONE THERAPY....................: ",ONC(165.51,SCTIEN,26) D P Q:EX=U
64 W !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071) D P Q:EX=U
65 W !!," HORMONES ADMINISTERED:",! D P Q:EX=U
66 W !," ESTROGENS......................: ",ONC(165.51,SCTIEN,27) D P Q:EX=U
67 W !," ANTIANDROGENS..................: ",ONC(165.51,SCTIEN,28) D P Q:EX=U
68 W !," PROGESTATIONAL AGENTS..........: ",ONC(165.51,SCTIEN,29) D P Q:EX=U
69 W !," LUTEINIZING HORMONE-RELEASING..: ",ONC(165.51,SCTIEN,30) D P Q:EX=U
70 W !," ORCHIECTOMY....................: ",ONC(165.51,SCTIEN,31) D P Q:EX=U
71 W !," OTHER..........................: ",ONC(165.51,SCTIEN,32)
72 Q
73PRTC I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G VII
74 S EOT="Y" D P Q:EX=U
75VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
76 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCPPC9
77 W !?15,TABLE,! D P Q:EX=U
78 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
79 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
80 W !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
81 W !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
82 S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
83 .S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
84 .S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
85 .S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
86 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
87 W !,"CANCER STATUS.....................: ",CS
88 W !,"AUTOPSY...........................: ",$E(ONC(160,ONCOPA,22.9),1,43) D P Q:EX=U
89 W !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81) D P Q:EX=U
90 W !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82)
91 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
92KILL ;Kill Variables and Exit
93 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
94 Q
95P ;Display Data
96 I ($Y'<(LIN-2)) D Q:EX=U W:EOT="N" !?25,TABLE_" (continued)",!
97 .I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
98 .D HDR^ONCPPC9 Q
99 S EOT="N" Q
Note: See TracBrowser for help on using the repository browser.