source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPPC9A.m@ 1259

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

initial load of WorldVistAEHR
File size: 5.0 KB
Line 
1ONCPPC9A ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
2 ;;2.11;ONCOLOGY;**6,16**;Mar 07, 1995
3IV S TABLE="TABLE IV - FIRST COURSE OF 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 S DIC="^ONCO(165.5,",DR=""
7 W !,"SURGERY:",! D P Q:EX=U
8 S NCDS=$E(ONC(165.5,IEN,58.1),1,2),NCDSOT=ONC(165.5,IEN,58.1)
9 S CDS=$E(ONC(165.5,IEN,58.2),1,2),CDSOT=ONC(165.5,IEN,58.2)
10 I (CDS="")!(CDS="00") D
11 .S SURG=NCDSOT,SURGDT=ONC(165.5,IEN,58.3)
12 I ((CDS'="")&(CDS'="00"))!(NCDS="") D
13 .S SURG=CDSOT,SURGDT=ONC(165.5,IEN,50)
14 S (SURG1,SURG2)=""
15 S LOS=$L(SURG) I LOS<56 S SURG1=SURG G TOS
16 S NOP=$L($E(SURG,1,42)," ")
17 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
18TOS W !," TYPE OF SURGERY...................: ",SURG1 D P Q:EX=U
19 W:SURG2'="" !,?41,SURG2 D P Q:EX=U
20 I (SURG1="")!($E(SURG1,1,2)="00") S SURGDT="88/88"
21 W !," DATE OF SURGERY...................: ",SURGDT D P Q:EX=U
22 W !," REASON FOR NO SURGERY.............: ",ONC(165.5,IEN,58) D P Q:EX=U
23 W !," SURGICAL APPROACH.................: ",ONC(165.5,IEN,74) D P Q:EX=U
24 W !," RESEARCH PROTOCOL.................: ",ONC(165.5,IEN,624) D P Q:EX=U
25 W !!,"RADIATION THERAPY:",! D P Q:EX=U
26 W !," RADIATION THERAPY.................: ",ONC(165.5,IEN,625) D P Q:EX=U
27 W !," DATE RADIATION THERAPY BEGAN......: ",ONC(165.5,IEN,51)
28 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
29 D P Q:EX=U
30IR W !," INTERSTITIAL RADIATION............: ",ONC(165.5,IEN,626) D P Q:EX=U
31 W !!," INTERSTITIAL RADIATION ADMINISTERED:",! D P Q:EX=U
32 W !," IODINE 125......................: ",ONC(165.5,IEN,627) D P Q:EX=U
33 W !," GOLD 198........................: ",ONC(165.5,IEN,628) D P Q:EX=U
34 W !," PALLADIUM 103...................: ",ONC(165.5,IEN,629) D P Q:EX=U
35 W !," IRIDIUM 192.....................: ",ONC(165.5,IEN,630) D P Q:EX=U
36 W !," OTHER INTERSTITIAL, NOS.........: ",ONC(165.5,IEN,631)
37 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
38 D P Q:EX=U
39ER W !," EXTERNAL RADIATION................: ",ONC(165.5,IEN,632) D P Q:EX=U
40 W !!," EXTERNAL RADIATION ADMINISTERED:",! D P Q:EX=U
41 W !," PROSTATE REGION ONLY............: ",ONC(165.5,IEN,633) D P Q:EX=U
42 W !," PROSTATE/PELVIC NODES...........: ",ONC(165.5,IEN,634) D P Q:EX=U
43 W !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,635) D P Q:EX=U
44 W !," DISTANT METASTATIC SITES........: ",ONC(165.5,IEN,636) D P Q:EX=U
45 W !," OTHER EXTERNAL SITES, NOS.......: ",ONC(165.5,IEN,637)
46 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
47 D P Q:EX=U
48TRD W !!," TOTAL RAD DOSE:",! D P Q:EX=U
49 W !," PROSTATE........................: ",ONC(165.5,IEN,638) D P Q:EX=U
50 W !," PELVIC NODES....................: ",ONC(165.5,IEN,639) D P Q:EX=U
51 W !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,640) D P Q:EX=U
52 W !," RESEARCH PROTOCOL...............: ",ONC(165.5,IEN,641)
53 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G HT
54 D P Q:EX=U
55HT W !!,"HORMONE THERAPY:",! D P Q:EX=U
56 W !," HORMONE THERAPY...................: ",ONC(165.5,IEN,642) D P Q:EX=U
57 W !," DATE HORMONE THERAPY BEGAN........: ",ONC(165.5,IEN,54) D P Q:EX=U
58 W !!," HORMONES ADMINISTERED:" D P Q:EX=U
59 W ! D P Q:EX=U
60 W !," ESTROGENS.......................: ",ONC(165.5,IEN,643) D P Q:EX=U
61 W !," ANTIANDROGENS...................: ",ONC(165.5,IEN,644) D P Q:EX=U
62 W !," PROGESTATIONAL AGENTS...........: ",ONC(165.5,IEN,645) D P Q:EX=U
63 W !," LUTEINIZING HORMONE-RELEASING...: ",ONC(165.5,IEN,646) D P Q:EX=U
64 W !," ORCHIECTOMY.....................: ",ONC(165.5,IEN,647) D P Q:EX=U
65 W !," OTHER...........................: ",ONC(165.5,IEN,648)
66 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G V
67 S EOT="Y" D P Q:EX=U
68V S TABLE="TABLE V - FIRST RECURRENCE"
69 I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
70 W !?25,TABLE,! D P Q:EX=U
71 W !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,71) D P Q:EX=U
72 W !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70) D P Q:EX=U
73 W !!,"METHODS USED TO DIAGNOSE FIRST RECURRENCE:",! D P Q:EX=U
74 W !," BACKACHE..........................: ",ONC(165.5,IEN,649) D P Q:EX=U
75 W !," BONE SCAN.........................: ",ONC(165.5,IEN,650) D P Q:EX=U
76 W !," LETHARGY..........................: ",ONC(165.5,IEN,651) D P Q:EX=U
77 W !," RECTAL EXAM WITH NEEDLE BIOSPY....: ",ONC(165.5,IEN,652) D P Q:EX=U
78 W !," TUMOR MARKER ELEVATION............: ",ONC(165.5,IEN,653) D P Q:EX=U
79 W !," WEIGHT LOSS.......................: ",ONC(165.5,IEN,654) D P Q:EX=U
80 W !," OTHER.............................: ",ONC(165.5,IEN,655)
81 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G VI
82 S EOT="Y" D P Q:EX=U
83VI D ^ONCPPC9B
84KILL ;Kill Variables and Exit
85 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN,EOT
86 Q
87P ;Display Data
88 I ($Y'<(LIN-2)) D Q:EX=U W:EOT="N" !?25,TABLE_" (continued)",!
89 .I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
90 .D HDR^ONCPPC9 Q
91 S EOT="N" Q
Note: See TracBrowser for help on using the repository browser.