[628] | 1 | ONCTPC8A ;HIRMFO/GWB -PCE Study of Thyroid Cancer -Print (continued) ;8/15/96
|
---|
| 2 | ;;2.11;ONCOLOGY;**6,15,16,24**;Mar 07, 1995
|
---|
| 3 | S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
|
---|
| 4 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCTPC8
|
---|
| 5 | W !?15,TABLE,! D P Q:EX=U
|
---|
| 6 | S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
|
---|
| 7 | W !,"FIRST COURSE TREATMENT DATE.......: ",DOIT D P Q:EX=U
|
---|
| 8 | W !!,"SURGERY:",! D P Q:EX=U
|
---|
| 9 | S NCDS=ONC(165.5,IEN,58.1)
|
---|
| 10 | S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 S NCDS1=NCDS G CDS
|
---|
| 11 | S NOP=$L($E(NCDS,1,41)," ")
|
---|
| 12 | S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
|
---|
| 13 | CDS S CDS=ONC(165.5,IEN,58.2)
|
---|
| 14 | S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
|
---|
| 15 | S NOP=$L($E(CDS,1,41)," ")
|
---|
| 16 | S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
|
---|
| 17 | S W !," NON CANCER-DIRECTED SURGERY DATE: ",ONC(165.5,IEN,58.3) D P Q:EX=U
|
---|
| 18 | W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
|
---|
| 19 | W !," SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50) D P Q:EX=U
|
---|
| 20 | W !," DISCHARGE AFTER SURGERY DATE....: ",ONC(165.5,IEN,435) D P Q:EX=U
|
---|
| 21 | W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
|
---|
| 22 | W !," RESIDUAL PRIMARY TUMOR..........: ",ONC(165.5,IEN,59)
|
---|
| 23 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 W !?15,TABLE_" (continued)" G SC
|
---|
| 24 | D P Q:EX=U
|
---|
| 25 | SC W !!," SURGICAL COMPLICATIONS:",! D P Q:EX=U
|
---|
| 26 | W !," AIRWAY PROBLEM W TRACHEOSTOMY.: ",ONC(165.5,IEN,436) D P Q:EX=U
|
---|
| 27 | W !," BLEEDING HEMOTOMA.............: ",ONC(165.5,IEN,437) D P Q:EX=U
|
---|
| 28 | W !," HYPOCALCEMIA..................: ",ONC(165.5,IEN,438) D P Q:EX=U
|
---|
| 29 | W !," RECURRENT NERVE INJURY........: ",ONC(165.5,IEN,439) D P Q:EX=U
|
---|
| 30 | W !," WOUND INFECTION...............: ",ONC(165.5,IEN,440) D P Q:EX=U
|
---|
| 31 | W !!," POSTOPERATIVE DEATH W/I 30 DAYS.: ",ONC(165.5,IEN,441)
|
---|
| 32 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 W !?15,TABLE_" (continued)" G R
|
---|
| 33 | D P Q:EX=U
|
---|
| 34 | R W !!,"RADIATION:",! D P Q:EX=U
|
---|
| 35 | W !," DATE RADIATION STARTED..........: ",ONC(165.5,IEN,51) D P Q:EX=U
|
---|
| 36 | W !," RADIATION ......................: ",ONC(165.5,IEN,51.2) D P Q:EX=U
|
---|
| 37 | W !," REGIONAL RAD (cGy) DOSE.........: ",ONC(165.5,IEN,442) D P Q:EX=U
|
---|
| 38 | W !," BOOST DOSAGE....................: ",ONC(165.5,IEN,443) D P Q:EX=U
|
---|
| 39 | W !!," TOTAL MILLICURIES (mCi) OF RADIOIODINE:",! D P Q:EX=U
|
---|
| 40 | W !," INITIAL DOSE..................: ",ONC(165.5,IEN,444) D P Q:EX=U
|
---|
| 41 | W !," SECOND DOSE...................: ",ONC(165.5,IEN,445)
|
---|
| 42 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 W !?15,TABLE_" (continued)" G C
|
---|
| 43 | D P Q:EX=U
|
---|
| 44 | C W !!,"CHEMOTHERAPY:",! D P Q:EX=U
|
---|
| 45 | W !," CHEMOTHERAPY....................: ",ONC(165.5,IEN,53.2) D P Q:EX=U
|
---|
| 46 | W !," ADJUVANT CHEMO W BEAM RADIATION.: ",ONC(165.5,IEN,446) D P Q:EX=U
|
---|
| 47 | W !!,"HORMONE THERAPY:",! D P Q:EX=U
|
---|
| 48 | W !," THYROID HORMONE THERAPY.........: ",ONC(165.5,IEN,54.2)
|
---|
| 49 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 G V
|
---|
| 50 | D P Q:EX=U
|
---|
| 51 | V S TABLE="TABLE V - FIRST RECURRENCE AND SUBSEQUENT TREATMENT"
|
---|
| 52 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCTPC8
|
---|
| 53 | W !?15,TABLE,! D P Q:EX=U
|
---|
| 54 | W !,"DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,70) D P Q:EX=U
|
---|
| 55 | W !,"TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,71) D P Q:EX=U
|
---|
| 56 | W !,"OTHER TYPE OF FIRST RECURRENCE....: ",ONC(165.5,IEN,71.4) D P Q:EX=U
|
---|
| 57 | ST I $D(^ONCO(165.5,IEN,4,0)) S SCTIEN=0 F CRSE=1:1 S SCTIEN=$O(^ONCO(165.5,IEN,4,SCTIEN)) Q:(SCTIEN'>0)!(CRSE=4)!(EX=U) D SCT
|
---|
| 58 | G:EX=U KILL G DSOFR
|
---|
| 59 | SCT S DIC="^ONCO(165.5,",DR=60,DA=IEN,DIQ="ONC"
|
---|
| 60 | S DR(165.51)=".01:32",DA(165.51)=SCTIEN D EN^DIQ1
|
---|
| 61 | S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
|
---|
| 62 | S LOS=$L(SURG) I LOS<62 S SURG1=SURG G TOS
|
---|
| 63 | S NOP=$L($E(SURG,1,61)," ")
|
---|
| 64 | S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
|
---|
| 65 | TOS S COURSE=$S(CRSE=1:"SECOND",CRSE=2:"THIRD",CRSE=3:"FOURTH",1:"")
|
---|
| 66 | W !!," ",COURSE," COURSE:",! D P Q:EX=U
|
---|
| 67 | W !," DATE...........: ",ONC(165.51,SCTIEN,.01) D P Q:EX=U
|
---|
| 68 | W !," SURGERY........: ",SURG1 W:SURG2'="" !,?22,SURG2 D P Q:EX=U
|
---|
| 69 | D P Q:EX=U
|
---|
| 70 | W !," RADIATION......: ",ONC(165.51,SCTIEN,.05) D P Q:EX=U
|
---|
| 71 | W !," CHEMOTHERAPY...: ",ONC(165.51,SCTIEN,.06) D P Q:EX=U
|
---|
| 72 | W !," HORMONE THERAPY: ",ONC(165.51,SCTIEN,.07)
|
---|
| 73 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 W !?15,TABLE_" (continued)" Q
|
---|
| 74 | D P Q:EX=U
|
---|
| 75 | Q
|
---|
| 76 | DSOFR W !!,"DISTANT SITE(S) OF FIRST RECURRENCE:",!
|
---|
| 77 | W !,"RECURRENCE SITE 1.................: ",ONC(165.5,IEN,71.1) D P Q:EX=U
|
---|
| 78 | W !,"RECURRENCE SITE 2.................: ",ONC(165.5,IEN,71.2) D P Q:EX=U
|
---|
| 79 | W !,"RECURRENCE SITE 3.................: ",ONC(165.5,IEN,71.3)
|
---|
| 80 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCTPC8 G VI
|
---|
| 81 | D P Q:EX=U
|
---|
| 82 | VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
|
---|
| 83 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCTPC8
|
---|
| 84 | W !?15,TABLE,! D P Q:EX=U
|
---|
| 85 | S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
|
---|
| 86 | I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
|
---|
| 87 | W !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
|
---|
| 88 | W !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
|
---|
| 89 | S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
|
---|
| 90 | .S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
|
---|
| 91 | .S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
|
---|
| 92 | .S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
|
---|
| 93 | .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
|
---|
| 94 | W !,"CANCER STATUS.....................: ",CS
|
---|
| 95 | W !,"AUTOPSY...........................: ",$E(ONC(160,ONCOPA,22.9),1,43) D P Q:EX=U
|
---|
| 96 | W !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81) D P Q:EX=U
|
---|
| 97 | W !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82) D P Q:EX=U
|
---|
| 98 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
|
---|
| 99 | KILL ;Kill Variables and Exit
|
---|
| 100 | K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
|
---|
| 101 | Q
|
---|
| 102 | P ;Display Data
|
---|
| 103 | I ($Y'<(LIN-4)) D Q:EX=U W !?15,TABLE_" (continued)",!
|
---|
| 104 | .I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
|
---|
| 105 | .D HDR^ONCTPC8 Q
|
---|
| 106 | Q
|
---|