source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPPC6.m@ 808

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

initial load of WorldVistAEHR
File size: 4.2 KB
Line 
1ONCPPC6 ;HIRMFO/GWB - PCE Studies of Prostate Cancer - Table VI;7/22/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3 K TABLE,HTABLE,ONCO
4 S TABLE("SURGERY")="SS"
5 S TABLE("RADIATION THERAPY")="SRT"
6 S TABLE("CHEMOTHERAPY")="SC"
7 S TABLE("HORMONE THERAPY")="SHT"
8 S HTABLE(1)="SURGERY"
9 S HTABLE(2)="RADIATION THERAPY"
10 S HTABLE(3)="CHEMOTHERAPY"
11 S HTABLE(4)="HORMONE THERAPY"
12 S CHOICES=4
13 W @IOF D HEAD^ONCPPC0 W !?24,"TABLE VI - SUBSEQUENT TREATMENT",!
14RFSCOT S DIE="^ONCO(165.5,",DA=ONCONUM
15 S DR="656REASON FOR SECOND COURSE OF THERAPY" D ^DIE G:$D(Y) PRTC
16ST 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 SS Q:$D(Y)
17 K SCTIEN G PRTC
18SS K ONC S DIC="^ONCO(165.5,",DR="60",DA=ONCONUM,DIQ="ONC"
19 S DR(165.51)=".04;.041;.051;.061;.071",DA(165.51)=SCTIEN D EN^DIQ1
20 S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
21 S LOS=$L(SURG) I LOS<43 S SURG1=SURG G TOS
22 S NOP=$L($E(SURG,1,42)," ")
23 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
24TOS W !!,"SUBSEQUENT SURGERY #",SCTIEN,":",!
25 W !,"TYPE OF SURGERY....................: ",SURG1
26 W:SURG2'="" !,?40,SURG2
27 W !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041)
28SRT W !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",!
29 S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
30 S DR="16RADIATION THERAPY.................." D ^DIE G:$D(Y) JUMP
31 W !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
32 W !
33 S DR="4INTERSTITIAL RADIATION............." D ^DIE G:$D(Y) JUMP
34 W !!," INTERSTITIAL RADIATION ADMINISTERED:",!
35 S DR="5 IODINE 125....................." D ^DIE G:$D(Y) JUMP
36 S DR="6 GOLD 198......................." D ^DIE G:$D(Y) JUMP
37 S DR="7 PALLADIUM 103.................." D ^DIE G:$D(Y) JUMP
38 S DR="8 IRIDIUM 192...................." D ^DIE G:$D(Y) JUMP
39 S DR="9 OTHER INTERSTITIAL, NOS........" D ^DIE G:$D(Y) JUMP
40 W !
41 S DR="10EXTERNAL RADIATION................." D ^DIE G:$D(Y) JUMP
42 W !!," EXTERNAL RADIATION ADMINISTERED:",!
43 S DR="11 PROSTATE REGION ONLY..........." D ^DIE G:$D(Y) JUMP
44 S DR="12 PROSTATE & PELVIC NODES........" D ^DIE G:$D(Y) JUMP
45 S DR="13 PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
46 S DR="14 DISTANT METASTATIC SITES......." D ^DIE G:$D(Y) JUMP
47 S DR="15 OTHER EXTERNAL, NOS............" D ^DIE G:$D(Y) JUMP
48 W !!," TOTAL RAD DOSE:",!
49 S DR="17 PROSTATE......................." D ^DIE G:$D(Y) JUMP
50 S DR="18 PELVIC NODES..................." D ^DIE G:$D(Y) JUMP
51 S DR="19 PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
52SC W !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",!
53 S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
54 S DR="20CHEMOTHERAPY......................." D ^DIE G:$D(Y) JUMP
55 W !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061)
56 W !!," DRUGS ADMINISTERED:",!
57 S DR="21 ADRIAMYCIN....................." D ^DIE G:$D(Y) JUMP
58 S DR="22 CYTOXAN........................" D ^DIE G:$D(Y) JUMP
59 S DR="23 METHOTREXATE..................." D ^DIE G:$D(Y) JUMP
60 S DR="24 FLUOROURACIL..................." D ^DIE G:$D(Y) JUMP
61 S DR="25 OTHER.........................." D ^DIE G:$D(Y) JUMP
62SHT W !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",!
63 S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
64 S DR="26HORMONE THERAPY...................." D ^DIE G:$D(Y) JUMP
65 W !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071)
66 W !!," HORMONES ADMINISTERED:",!
67 S DR="27 ESTROGENS......................" D ^DIE G:$D(Y) JUMP
68 S DR="28 ANTIANDROGENS.................." D ^DIE G:$D(Y) JUMP
69 S DR="29 PROGESTATIONAL AGENTS.........." D ^DIE G:$D(Y) JUMP
70 S DR="30 LUTEINIZING HORMONE-RELEASING.." D ^DIE G:$D(Y) JUMP
71 S DR="31 ORCHIECTOMY...................." D ^DIE G:$D(Y) JUMP
72 S DR="32 OTHER.........................." D ^DIE G:$D(Y) JUMP
73 Q
74PRTC W ! K DIR S DIR(0)="E" D ^DIR
75 G EXIT
76JUMP ;Jump to prompts
77 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S Y(1)="",OUT="Y" Q
78 I X["?" D G JUMP
79 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
80 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
81 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
82 S X=TABLE(X)
83 G @X
84EXIT K CHOICES,HTABLE,TABLE
85 K LOS,NOP,SURG,SURG1,SURG2
86 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
87 Q
Note: See TracBrowser for help on using the repository browser.