| 1 | ONCPPC6 ;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",!
|
|---|
| 14 | RFSCOT S DIE="^ONCO(165.5,",DA=ONCONUM
|
|---|
| 15 | S DR="656REASON FOR SECOND COURSE OF THERAPY" D ^DIE G:$D(Y) PRTC
|
|---|
| 16 | ST 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
|
|---|
| 18 | SS 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)
|
|---|
| 24 | TOS 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)
|
|---|
| 28 | SRT 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
|
|---|
| 52 | SC 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
|
|---|
| 62 | SHT 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
|
|---|
| 74 | PRTC W ! K DIR S DIR(0)="E" D ^DIR
|
|---|
| 75 | G EXIT
|
|---|
| 76 | JUMP ;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
|
|---|
| 84 | EXIT 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
|
|---|
