source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCMPC9A.m@ 949

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

initial load of WorldVistAEHR
File size: 7.3 KB
Line 
1ONCMPC9A ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;2/18/99
2 ;;2.11;ONCOLOGY;**22,24**;Mar 07, 1995
3III S TABLE="TABLE III - EXTENT AND STAGE OF DISEASE"
4 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
5 W !?4,TABLE,!?4,"---------------------------------------" D P Q:EX=U
6 K LINE S $P(LINE,"-",51)="-"
7 W !,"23. SIZE OF TUMOR (mm)..............: ",ONC(165.5,IE,1132) D P Q:EX=U
8 W !,"24. REGIONAL NODES EXAMINED.........: ",ONC(165.5,IE,33) D P Q:EX=U
9 W !,"25. REGIONAL NODES POSITIVE.........: ",ONC(165.5,IE,32) D P Q:EX=U
10 W !,"26. EXTRANODAL EXTENSION............: ",ONC(165.5,IE,1110) D P Q:EX=U
11 W !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
12 W !,"27. MICROSATELLITOSIS...............: ",ONC(165.5,IE,1111) D P Q:EX=U
13 W !,"28. NUMBER OF SATELLITE NODULES.....: ",ONC(165.5,IE,1112) D P Q:EX=U
14 W !,"29. LOCATION OF IN-TRANSIT NODULES..: ",ONC(165.5,IE,1113) D P Q:EX=U
15 W !,"30. BRESLOW'S THICKNESS.............: ",ONC(165.5,IE,1114) D P Q:EX=U
16 W !,"31. CLARK'S LEVEL OF INVASION.......: ",ONC(165.5,IE,1115) D P Q:EX=U
17 W !,"32. ANGIOLYMPHATIC INVASION.........: ",ONC(165.5,IE,1116) D P Q:EX=U
18 W !,"33. PERINEURAL INVASION.............: ",ONC(165.5,IE,1117) D P Q:EX=U
19 W !,"34. GENERAL SUMMARY STAGE...........: ",ONC(165.5,IE,35) D P Q:EX=U
20ACS W !!,"35. AJCC CLINICAL STAGE (cTNM):" D P Q:EX=U
21 W !," T-CODE.........................: ",ONC(165.5,IE,37.1) D P Q:EX=U
22 W !," N-CODE.........................: ",ONC(165.5,IE,37.2) D P Q:EX=U
23 W !," M-CODE.........................: ",ONC(165.5,IE,37.3) D P Q:EX=U
24 W !," AJCC STAGE.....................: ",ONC(165.5,IE,38) D P Q:EX=U
25 W ! D P Q:EX=U
26 W !,"36. ULCERATION......................: ",ONC(165.5,IE,1118) D P Q:EX=U
27 W !,"37. CLINICALLY AMELANOTIC...........: ",ONC(165.5,IE,1119) D P Q:EX=U
28 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G APS
29 I IOST'?1"C".E W !
30APS W !,"38. AJCC PATHOLOGIC STAGE (pTNM):" D P Q:EX=U
31 W !," T-CODE.........................: ",ONC(165.5,IE,85) D P Q:EX=U
32 W !," N-CODE.........................: ",ONC(165.5,IE,86) D P Q:EX=U
33 W !," M-CODE.........................: ",ONC(165.5,IE,87)
34 W !," AJCC STAGE.....................: ",ONC(165.5,IE,88)
35 W ! D P Q:EX=U
36SB W !,"39. STAGED BY:" D P Q:EX=U
37 W !," CLINICAL STAGE.................: ",ONC(165.5,IE,19) D P Q:EX=U
38 W !," PATHOLOGIC STAGE...............: ",ONC(165.5,IE,89) D P Q:EX=U
39 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 G IV
40 D P Q:EX=U
41IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
42 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
43 K LINE S $P(LINE,"-",36)="-"
44 W !?4,TABLE,!?4,LINE D P Q:EX=U
45 K LINE S $P(LINE,"-",48)="-"
46 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
47 W !,"40. PROTOCOL ELIGIBILITY STATUS.....: ",ONC(165.5,IE,346) D P Q:EX=U
48 W !,"41. PROTOCOL PARTICIPATION..........: ",ONC(165.5,IE,560) D P Q:EX=U
49 W !,"42. DATE OF FIRST COURSE TREATMENT..: ",DOFCT D P Q:EX=U
50 W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
51 W !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------" D P Q:EX=U
52 S NCDS=ONC(165.5,IE,58.1)
53 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<44 S NCDS1=NCDS G NCDS
54 S NOP=$L($E(NCDS,1,42)," ")
55 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
56NCDS S CDS=ONC(165.5,IE,58.2)
57 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<44 S CDS1=CDS G S
58 S NOP=$L($E(CDS,1,42)," ")
59 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
60S W !,"43. DATE OF NON CA-DIRECTED SURGERY.: ",ONC(165.5,IE,58.3) D P Q:EX=U
61 W !,"44. NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?38,NCDS2 D P Q:EX=U
62 W !,"45. TYPE OF BIOSPY..................: ",ONC(165.5,IE,1109) D P Q:EX=U
63 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G CDS
64 W ! D P Q:EX=U
65CDS W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------" D P Q:EX=U
66 W !,"46. DATE OF CANCER-DIRECTED SURGERY.: ",ONC(165.5,IE,50) D P Q:EX=U
67 W !,"47. SURGICAL APPROACH...............: ",ONC(165.5,IE,74) D P Q:EX=U
68 W !,"48. SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?38,CDS2
69 S SM=ONC(165.5,IE,59)
70 S (SM1,SM2)="",LOS=$L(SM) I LOS<44 S SM1=SM G SM
71 S NOP=$L($E(SM,1,42)," "),SM1=$P(SM," ",1,NOP-1),SM2=$P(SM," ",NOP,999)
72SM W !,"49. SURGICAL MARGINS................: ",SM1 W:SM2'="" !,?38,SM2 D P Q:EX=U
73 W !,"50. DISTANCE FROM TUMOR TO EDGE OF"
74 W !," SPECIMEN........................: ",ONC(165.5,IE,1120) D P Q:EX=U
75 W !,"51. SCOPE OF LYMPH NODE SURGERY.....: ",ONC(165.5,IE,138) D P Q:EX=U
76 W !,"52. NUMBER OF LYMPH NODES REMOVED...: ",ONC(165.5,IE,140) D P Q:EX=U
77 S SORS=ONC(165.5,ONCONUM,139)
78 S (SORS1,SORS2)="",LOS=$L(SORS) I LOS<44 S SORS1=SORS G SORS
79 S NOP=$L($E(SORS,1,42)," ")
80 S SORS1=$P(SORS," ",1,NOP-1),SORS2=$P(SORS," ",NOP,999)
81SORS W !,"53. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
82 W !," OR DISTANT LYMPH NODE(S)........: ",SORS1 W:SORS2'="" !,?38,SORS2 D P Q:EX=U
83 W !,"54. RECONSTRUCTION/RESTORATION......: ",ONC(165.5,IE,23) D P Q:EX=U
84 W !,"55. SURGICAL CLOSURE................: ",ONC(165.5,IE,1121) D P Q:EX=U
85 W !,"56. REASON FOR NO SURGERY...........: ",ONC(165.5,IE,58) D P Q:EX=U
86 W !!?4,"SENTINEL NODES",!?4,"--------------" D P Q:EX=U
87 W !,"57. PRE-OP LYMPHOSCINTIGRAPHY.......: ",ONC(165.5,IE,1122) D P Q:EX=U
88 W !,"58. SENTINEL NODES DETECTED BY......: ",ONC(165.5,IE,1123) D P Q:EX=U
89 W !,"59. SENTINEL NODE BIOPSY............: ",ONC(165.5,IE,943) D P Q:EX=U
90 W !,"60. SENTINEL NODES EXAMINED.........: ",ONC(165.5,IE,1124) D P Q:EX=U
91 W !,"61. SENTINEL NODES POSITIVE.........: ",ONC(165.5,IE,1125) D P Q:EX=U
92 W !,"62. HOW WAS SENTINEL NODE"
93 W !," PATHOLOGICALLY EXAMINED.........: ",ONC(165.5,IE,1126) D P Q:EX=U
94 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G ISNP
95 W ! D P Q:EX=U
96ISNP W !,"63. IF SENTINEL NODE(S) POSITIVE:"
97 W !," WAS COMPLETE LYMPH NODE"
98 W !," DISSECTION PERFORMED..........: ",ONC(165.5,IE,1127) D P Q:EX=U
99 W !," NUMBER OF BASINS DETECTED.....: ",ONC(165.5,IE,1128) D P Q:EX=U
100 W !," NUMBER OF BASINS POSITIVE.....: ",ONC(165.5,IE,1129) D P Q:EX=U
101 W ! D P Q:EX=U
102R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
103 W !,"64. DATE RADIATION STARTED..........: ",ONC(165.5,IE,51) D P Q:EX=U
104 W !,"65. RADIATION THERAPY...............: ",ONC(165.5,IE,51.2) D P Q:EX=U
105 W !,"66. REASON FOR NO RADIATION ........: ",ONC(165.5,IE,75) D P Q:EX=U
106 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G C
107 W ! D P Q:EX=U
108C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
109 W !,"67. DATE CHEMOTHERAPY STARTED.......: ",ONC(165.5,IE,53) D P Q:EX=U
110 W !,"68. CHEMOTHERAPY....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
111 W !,"69. INTRAVENOUS THERAPY.............: ",ONC(165.5,IE,1130) D P Q:EX=U
112 W ! D P Q:EX=U
113H W !," HORMONE THERAPY"
114 W !," ---------------"
115 W !,"70. DATE HORMONE THERAPY STARTED....: ",ONC(165.5,IE,54) D P Q:EX=U
116 W !,"71. HORMONE THERAPY.................: ",ONC(165.5,IE,54.2) D P Q:EX=U
117 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 G V
118 W ! D P Q:EX=U
119V D ^ONCMPC9B
120KILL ;Kill Variables and Exit
121 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
122 Q
123P ;Display Data
124 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
125 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
126 .D HEAD^ONCMPC0 Q
127 Q
Note: See TracBrowser for help on using the repository browser.