source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCMPC4.m@ 1270

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

initial load of WorldVistAEHR
File size: 4.9 KB
RevLine 
[613]1ONCMPC4 ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV ; 1/22/99
2 ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("SURGERY")="S^ONCMPC4"
5 S TABLE("NON CANCER-DIRECTED SURGERY")="NCS^ONCMPC4"
6 S TABLE("CANCER-DIRECTED SURGERY")="CS^ONCMPC4"
7 S TABLE("SENTINEL NODES")="SN^ONCMPC4A"
8 S TABLE("RADIATION THERAPY")="RT^ONCMPC4A"
9 S TABLE("CHEMOTHERAPY")="C^ONCMPC4A"
10 S TABLE("HORMONE THERAPY")="HT^ONCMPC4A"
11 S TABLE("IMMUNOTHERAPY")="I^ONCMPC4"
12 S TABLE("OTHER THERAPY")="OT^ONCMPC4"
13 S HTABLE(1)="SURGERY"
14 S HTABLE(2)="NON CANCER-DIRECTED SURGERY"
15 S HTABLE(3)="CANCER-DIRECTED SURGERY"
16 S HTABLE(4)="SENTINEL NODES"
17 S HTABLE(5)="RADIATION THERAPY"
18 S HTABLE(6)="CHEMOTHERAPY"
19 S HTABLE(7)="HORMONE THERAPY"
20 S HTABLE(8)="IMMUNOTHERAPY"
21 S HTABLE(9)="OTHER THERAPY"
22 S CHOICES=9
23 W @IOF D HEAD^ONCMPC0
24 W !," TABLE IV - FIRST COURSE OF TREATMENT"
25 W !," ------------------------------------"
26 K DIQ,ONC S DIC="^ONCO(165.5,"
27 S DR="23;49;50;51;51.2;53;53.2;54;54.2;55;55.2;57;57.2;58;58.1;58.2;58.3;58;59;74;75;138;139;140;346;560"
28 S DA=ONCONUM,DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
29 S DIE="^ONCO(165.5,",DA=ONCONUM
30 S CDS=ONC(165.5,ONCONUM,58.2,"E")
31 S RAD=$P($G(^ONCO(165.5,ONCONUM,3)),U,6)
32 S HOR=$P($G(^ONCO(165.5,ONCONUM,3)),U,16)
33PES S DR="346 40. PROTOCOL ELIGIBILITY STATUS..." D ^DIE G:$D(Y) JUMP
34 I (X'=1)&(X'=9) D G DFCT
35 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,31)="00"
36 .W !," 41. PROTOCOL PARTICIPATION........: Not on/NA"
37 I X=9 D G DFCT
38 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,31)=99
39 .W !," 41. PROTOCOL PARTICIPATION........: Unknown"
40PP S DR="560 41. PROTOCOL PARTICIPATION........" D ^DIE G:$D(Y) JUMP
41DFCT W !," 42. DATE OF FIRST COURSE TREATMENT: ",ONC(165.5,ONCONUM,49,"E")
42 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
43S W !," SURGERY",!
44 W " -------"
45NCS W !," NON CANCER-DIRECTED SURGERY",!
46DNCDS W !," 43. DATE OF NON CA-DIR SURGERY....: ",ONC(165.5,ONCONUM,58.3,"E")
47NCDS S NCDS=ONC(165.5,ONCONUM,58.1,"E")
48 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<42 S NCDS1=NCDS G NCDS1
49 S NOP=$L($E(NCDS,1,41)," ")
50 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
51NCDS1 W !," 44. NON CANCER-DIRECTED SURGERY...: ",NCDS1 W:NCDS2'="" !,?37,NCDS2
52TOB S DR="1109 45. TYPE OF BIOPSY................" D ^DIE G:$D(Y) JUMP
53CS W !!," CANCER-DIRECTED SURGERY",!
54DCDS W !," 46. DATE OF CANCER-DIR SURGERY....: ",ONC(165.5,ONCONUM,50,"E")
55SA S SA=ONC(165.5,ONCONUM,74,"E")
56 S (SA1,SA2)="",LOS=$L(SA) I LOS<42 S SA1=SA G SA1
57 S NOP=$L($E(SA,1,41)," "),SA1=$P(SA," ",1,NOP-1),SA2=$P(SA," ",NOP,999)
58SA1 W !," 47. SURGICAL APPROACH.............: ",SA1 W:SA2'="" !,?37,SA2
59SOPS S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<42 S CDS1=CDS G SOPS1
60 S NOP=$L($E(CDS,1,41)," ")
61 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
62SOPS1 W !," 48. SURGERY OF PRIMARY SITE.......: ",CDS1 W:CDS2'="" !,?37,CDS2
63SM S SM=ONC(165.5,ONCONUM,59,"E")
64 S (SM1,SM2)="",LOS=$L(SM) I LOS<42 S SM1=SM G SM1
65 S NOP=$L($E(SM,1,41)," "),SM1=$P(SM," ",1,NOP-1),SM2=$P(SM," ",NOP,999)
66SM1 W !," 49. SURGICAL MARGINS..............: ",SM1 W:SM2'="" !,?37,SM2
67 I $E(CDS,1,2)="00" D G SLNS
68 .S $P(^ONCO(165.5,D0,"MEL1"),U,21)=998
69 .W !," 50. DISTANCE FROM TUMOR TO EDGE OF SPECIMEN......................: 998 NA, surgery not performed"
70MD S DR="1120 50. DISTANCE FROM TUMOR TO EDGE OF SPECIMEN......................" D ^DIE G:$D(Y) JUMP
71SLNS W !," 51. SCOPE OF LYMPH NODE SURGERY...: ",ONC(165.5,ONCONUM,138,"E")
72 W !
73NLNR W !," 52. NUMBER OF LYMPH NODES REMOVED.: ",ONC(165.5,ONCONUM,140,"E")
74SORS S SORS=ONC(165.5,ONCONUM,139,"E")
75 S (SORS1,SORS2)="",LOS=$L(SORS) I LOS<42 S SORS1=SORS G SORS1
76 S NOP=$L($E(SORS,1,41)," ")
77 S SORS1=$P(SORS," ",1,NOP-1),SORS2=$P(SORS," ",NOP,999)
78SORS1 W !!," 53. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
79 W !," OR DISTANT LYMPH NODE(S)......: ",SORS1 W:SORS2'="" !,?37,SORS2
80RR W !," 54. RECONSTRUCTION/RESTORATION....: ",ONC(165.5,ONCONUM,23,"E")
81 I $E(CDS,1,2)="00" D G RFNS
82 .S $P(^ONCO(165.5,D0,"MEL1"),U,22)=8
83 .W !," 55. SURGICAL CLOSURE..............: NA, surgery not performed"
84 I $E(CDS,1,2)=99 D G RFNS
85 .S $P(^ONCO(165.5,D0,"MEL1"),U,22)=9
86 .W !," 55. SURGICAL CLOSURE..............: Unknown"
87SC S DR="1121 55. SURGICAL CLOSURE.............." D ^DIE G:$D(Y) JUMP
88RFNS W !," 56. REASON FOR NO SURGERY.........: ",ONC(165.5,ONCONUM,58,"E")
89 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
90 G SN^ONCMPC4A
91JUMP ;Jump to prompts
92 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
93 I X["?" D G JUMP
94 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
95 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
96 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
97 S X=TABLE(X)
98 G @X
99EXIT S:$D(DIRUT) OUT="Y"
100 K CHOICES,PIECE,HTABLE,TABLE
101 K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
102 K SM,SM1,SM2,SOORS,SOORS1,SOORS2,PL,SNE
103 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
104 Q
Note: See TracBrowser for help on using the repository browser.