source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBPC8A.m@ 789

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

initial load of WorldVistAEHR
File size: 6.5 KB
RevLine 
[613]1ONCBPC8A ;HIRMFO/GWB -PCE Study of Cancers of the Urinary Bladder -Print (continued) ;8/15/96
2 ;;2.11;ONCOLOGY;**6,11,16**;Mar 07, 1995
3IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
4 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
5 W !?15,TABLE,! D P Q:EX=U
6 S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
7 W !,"DATE OF INITIAL TREATMENT...........: ",DOIT D P Q:EX=U
8 W !,"PROTOCOL ELIGIBILITY STATUS.........: ",ONC(165.5,IEN,346) D P Q:EX=U
9 W !!,"MANAGING PHYSICIANS:",! D P Q:EX=U
10 W !," PRIMARY PHYSICIAN.................: ",ONC(165.5,IEN,347) D P Q:EX=U
11 W !," SECONDARY PHYSICIAN...............: ",ONC(165.5,IEN,348) D P Q:EX=U
12 W !!,"SURGERY:",! D P Q:EX=U
13 S NCDS=$E(ONC(165.5,IEN,58.1),1,2),NCDSOT=ONC(165.5,IEN,58.1)
14 S CDS=$E(ONC(165.5,IEN,58.2),1,2),CDSOT=ONC(165.5,IEN,58.2)
15 I (CDS="")!(CDS="00") D
16 .S SURG=NCDSOT,SURGDT=ONC(165.5,IEN,58.3)
17 I ((CDS'="")&(CDS'="00"))!(NCDS="") D
18 .S SURG=CDSOT,SURGDT=ONC(165.5,IEN,50)
19 S (SURG1,SURG2)=""
20 S LOS=$L(SURG) I LOS<56 S SURG1=SURG G SURG
21 S NOP=$L($E(SURG,1,42)," ")
22 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
23SURG I (SURG1="")!($E(SURG1,1,2)="00") S SURGDT="00/00/0000"
24 W !," DATE OF SURGERY...................: ",SURGDT D P Q:EX=U
25 W !," TYPE OF SURGERY...................: ",SURG1 D P Q:EX=U
26 W:SURG2'="" !,?41,SURG2 D P Q:EX=U
27 W !," TUMOR RESECTION DURING TURB.......: ",ONC(165.5,IEN,349) D P Q:EX=U
28 W !," TYPE OF URINARY DIVERSION.........: ",ONC(165.5,IEN,350) ;D P Q:EX=U
29 W !," PELVIC LYMPH NODE DISSECTION......: ",ONC(165.5,IEN,351)
30 I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
31SC W !!," SURGICAL COMPLICATIONS:",! D P Q:EX=U
32 W !," BLEEDING REQUIRING TRANSFUSION..: ",ONC(165.5,IEN,352) D P Q:EX=U
33 W !," DEEP VENOUS THROMBOSIS..........: ",ONC(165.5,IEN,353) D P Q:EX=U
34 W !," MYOCARDIAL INFARCTION/ARRHYTHMIA: ",ONC(165.5,IEN,354) D P Q:EX=U
35 W !," PELVIC ABSCESS..................: ",ONC(165.5,IEN,355) D P Q:EX=U
36 W !," PNEUMONIA REQUIRING ANTIBIOTICS.: ",ONC(165.5,IEN,356) D P Q:EX=U
37 W !," POST-OPERATIVE DEATH (30 DAYS)..: ",ONC(165.5,IEN,357) D P Q:EX=U
38 W !," PULMONARY EMBOLISM/THROMBOSIS...: ",ONC(165.5,IEN,358) D P Q:EX=U
39 W !," REOPERATION.....................: ",ONC(165.5,IEN,359) D P Q:EX=U
40 W !," OTHER...........................: ",ONC(165.5,IEN,360)
41 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
42RT W !!,"RADIATION THERAPY:",! D P Q:EX=U
43 W !," RADIATION THERAPY.................: ",ONC(165.5,IEN,51.2) D P Q:EX=U
44 W !," DATE RADIATION THERAPY STARTED....: ",ONC(165.5,IEN,51) D P Q:EX=U
45 W !," DATE RADIATION THERAPY ENDED......: ",ONC(165.5,IEN,361) D P Q:EX=U
46 W !," TOTAL RAD (cGy/rad) DOSE..........: ",ONC(165.5,IEN,362) D P Q:EX=U
47 W !," REGIONAL TREATMENT MODALITY.......: ",ONC(165.5,IEN,363) D P Q:EX=U
48 W !!," RADIATION COMPLICATIONS:",! D P Q:EX=U
49 W !," URINARY INCONTINENCE............: ",ONC(165.5,IEN,364) D P Q:EX=U
50 W !," HEMATURIA.......................: ",ONC(165.5,IEN,365) D P Q:EX=U
51 W !," RADIATION BOWEL INJURY..........: ",ONC(165.5,IEN,366) D P Q:EX=U
52 W ! D P Q:EX=U
53 W !,"CHEMOTHERAPY:",! D P Q:EX=U
54 W !," CHEMOTHERAPY......................: ",ONC(165.5,IEN,53.2) D P Q:EX=U
55 W !," DATE CHEMOTHERAPY STARTED.........: ",ONC(165.5,IEN,53) D P Q:EX=U
56 W !," DATE CHEMOTHERAPY ENDED...........: ",ONC(165.5,IEN,367) D P Q:EX=U
57 W !," ROUTE CHEMOTHERAPY ADMINISTERED...: ",ONC(165.5,IEN,368) D P Q:EX=U
58 W !!," TYPES OF AGENTS ADMINISTERED:",! D P Q:EX=U
59 W !," ADRIAMYCIN......: ",ONC(165.5,IEN,369),?33,"IFOSFAMIDE......: ",ONC(165.5,IEN,375) D P Q:EX=U
60 W !," CARBOPLATINUM...: ",ONC(165.5,IEN,370),?33,"METHOTREXATE....: ",ONC(165.5,IEN,376) D P Q:EX=U
61 W !," CISPLATIN.......: ",ONC(165.5,IEN,371),?33,"TAXOL...........: ",ONC(165.5,IEN,377) D P Q:EX=U
62 W !," CYCLOPHOSPHAMIDE: ",ONC(165.5,IEN,372),?33,"THIOTEPA........: ",ONC(165.5,IEN,378) D P Q:EX=U
63 W !," 5-FLUOROURACIL..: ",ONC(165.5,IEN,373),?33,"VINBLASTINE.....: ",ONC(165.5,IEN,379) ;D P Q:EX=U
64 W !," GALLIUM NITRATE.: ",ONC(165.5,IEN,374),?33,"OTHER...........: ",ONC(165.5,IEN,380)
65 I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
66IFAOA W !!," INDICATION FOR ADMIN OF AGENTS...: ",ONC(165.5,IEN,381) D P Q:EX=U
67 W !," REASON CHEMOTHERAPY STOPPED......: ",ONC(165.5,IEN,382) D P Q:EX=U
68 W !!,"IMMUNOTHERAPY:",! D P Q:EX=U
69 W !," IMMUNOTHERAPY (BRM)...............: ",ONC(165.5,IEN,55.2) D P Q:EX=U
70 W !!," TYPE OF IMMUNOTHERAPY (BRM):",! D P Q:EX=U
71 W !," BCG.............................: ",ONC(165.5,IEN,383) D P Q:EX=U
72 W !," INTERFERON......................: ",ONC(165.5,IEN,384) D P Q:EX=U
73 W !," INTERLEUKIN-II..................: ",ONC(165.5,IEN,385) D P Q:EX=U
74 W !," OTHER...........................: ",ONC(165.5,IEN,386)
75 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 G V
76 D P Q:EX=U
77V S TABLE="TABLE V - FIRST RECURRENCE"
78 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
79 W !?15,TABLE,! D P Q:EX=U
80 W !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,387) D P Q:EX=U
81 W !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70) D P Q:EX=U
82 W !,"DISTANT SITE OF FIRST RECURRENCE 1..: ",ONC(165.5,IEN,71.1) D P Q:EX=U
83 W !,"DISTANT SITE OF FIRST RECURRENCE 2..: ",ONC(165.5,IEN,71.2) D P Q:EX=U
84 W !,"DISTANT SITE OF FIRST RECURRENCE 3..: ",ONC(165.5,IEN,71.3) D P Q:EX=U
85 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 G VI
86 D P Q:EX=U
87VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
88 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
89 W !?15,TABLE,! D P Q:EX=U
90 S DLC=""
91 I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
92 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
93 W !,"DATE OF LAST CONTACT OR DEATH......: ",DLC
94 W !,"VITAL STATUS.......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
95 S CS="" I $D(^ONCO(165.5,ONCONUM,"TS","AA")) D
96 .S CSDAT=$O(^ONCO(165.5,ONCONUM,"TS","AA",""))
97 .S CSIEN=$O(^ONCO(165.5,ONCONUM,"TS","AA",CSDAT,""))
98 .S CSPNT=$P(^ONCO(165.5,ONCONUM,"TS",CSIEN,0),U,2)
99 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
100 W !,"CANCER STATUS......................: ",CS
101 W !,"COMPLETED BY.......................: ",ONC(165.5,IEN,81) D P Q:EX=U
102 W !,"REVIEWED BY CANCER COMMITTEE.......: ",ONC(165.5,IEN,82)
103 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
104KILL ;Kill Variables and Exit
105 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,LP,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
106 Q
107P ;Display Data
108 I ($Y'<(LIN-2)) D Q:EX=U W !?15,TABLE_" (continued)",!
109 .I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
110 .D HDR^ONCBPC8 Q
111 Q
Note: See TracBrowser for help on using the repository browser.