[613] | 1 | ONCSPC4 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
|
---|
| 2 | ;;2.11;ONCOLOGY;**6,11,15,16**;Mar 07, 1995
|
---|
| 3 | K ONC,TABLE,HTABLE
|
---|
| 4 | S TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCSPC4"
|
---|
| 5 | S TABLE("SURGERY")="S^ONCSPC4"
|
---|
| 6 | S TABLE("RADIATION THERAPY")="R^ONCSPC4"
|
---|
| 7 | S TABLE("CHEMOTHERAPY")="C^ONCSPC4A"
|
---|
| 8 | S HTABLE(1)="DATE OF FIRST COURSE TREATMENT"
|
---|
| 9 | S HTABLE(2)="SURGERY"
|
---|
| 10 | S HTABLE(3)="RADIATION THERAPY"
|
---|
| 11 | S HTABLE(4)="CHEMOTHERAPY"
|
---|
| 12 | S CHOICES=4
|
---|
| 13 | S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
|
---|
| 14 | S DIC="^ONCO(165.5,",DR="50;51.2;53;53.2;58.1;58.2;58.3",DA=ONCONUM
|
---|
| 15 | S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
|
---|
| 16 | W @IOF D HEAD^ONCSPC0 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
|
---|
| 17 | S DIE="^ONCO(165.5,",DA=ONCONUM
|
---|
| 18 | DOFCT W !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
|
---|
| 19 | S W !!,"SURGERY:",!
|
---|
| 20 | S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
|
---|
| 21 | S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
|
---|
| 22 | S NCDS=ONC(165.5,ONCONUM,58.1,"E")
|
---|
| 23 | S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<42 S NCDS1=NCDS G CDSDT
|
---|
| 24 | S NOP=$L($E(NCDS,1,41)," ")
|
---|
| 25 | S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
|
---|
| 26 | CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
|
---|
| 27 | S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
|
---|
| 28 | S CDS=ONC(165.5,ONCONUM,58.2,"E")
|
---|
| 29 | S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<42 S CDS1=CDS G NCDS
|
---|
| 30 | S NOP=$L($E(CDS,1,41)," ")
|
---|
| 31 | S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
|
---|
| 32 | NCDS W !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
|
---|
| 33 | W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2
|
---|
| 34 | W !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
|
---|
| 35 | CDS W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
|
---|
| 36 | I (CDS="")!($E(CDS,1,2)="00") D W @IOF G R
|
---|
| 37 | .S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
|
---|
| 38 | .W !," RESIDUAL PRIMARY TUMOR..........: NA"
|
---|
| 39 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,1)=8
|
---|
| 40 | .W !," TREATING SURGEON................: Not applicable, no surgery"
|
---|
| 41 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,2)=9
|
---|
| 42 | .W !," ASA CLASS.......................: Class unknown or not applicable"
|
---|
| 43 | .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
|
---|
| 44 | .W !," POSTOPERATIVE DEATH.............: Not applicable, no surgery"
|
---|
| 45 | .W ! K DIR S DIR(0)="E" D ^DIR
|
---|
| 46 | S DR="59 RESIDUAL PRIMARY TUMOR.........." D ^DIE G:$D(Y) JUMP
|
---|
| 47 | S DR="526 TREATING SURGEON................" D ^DIE G:$D(Y) JUMP
|
---|
| 48 | S DR="527 ASA CLASS......................." D ^DIE G:$D(Y) JUMP
|
---|
| 49 | S DR="441 POSTOPERATIVE DEATH............." D ^DIE G:$D(Y) JUMP
|
---|
| 50 | R W !!,"RADIATION THERAPY:",!
|
---|
| 51 | S RAD=ONC(165.5,ONCONUM,51.2,"I")
|
---|
| 52 | I RAD=0 D W !," EXTERNAL BEAM RADIATION.........: No" D EB0 W !!," INTRAOPERATIVE RADIATION........: No" D IR0 W !!," BRACHYTHERAPY...................: No" D B0 G RSS
|
---|
| 53 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=0
|
---|
| 54 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=0
|
---|
| 55 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=0
|
---|
| 56 | I RAD=9 D W !," EXTERNAL BEAM RADIATION.........: Unknown" D EB9 W !!," INTRAOPERATIVE RADIATION........: Unknown" D IR9 W !!," BRACHYTHERAPY...................: Unknown" D B9 G RSS
|
---|
| 57 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=9
|
---|
| 58 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=9
|
---|
| 59 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=9
|
---|
| 60 | S DR="532 EXTERNAL BEAM RADIATION........." D ^DIE G:$D(Y) JUMP
|
---|
| 61 | I X=0 D EB0 G IR
|
---|
| 62 | I X=9 D EB9 G IR
|
---|
| 63 | S DR="533 NUMBER OF FRACTIONS..........." D ^DIE G:$D(Y) JUMP
|
---|
| 64 | S DR="362 DOSE.........................." D ^DIE G:$D(Y) JUMP
|
---|
| 65 | S DR="534 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
|
---|
| 66 | S DR="567 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
|
---|
| 67 | S DR="361 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
|
---|
| 68 | IR W ! S DR="535 INTRAOPERATIVE RADIATION........" D ^DIE G:$D(Y) JUMP
|
---|
| 69 | I X=0 D IR0 G B
|
---|
| 70 | I X=9 D IR9 G B
|
---|
| 71 | S DR="536 DOSE.........................." D ^DIE G:$D(Y) JUMP
|
---|
| 72 | S DR="537 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
|
---|
| 73 | B W ! S DR="538 BRACHYTHERAPY..................." D ^DIE G:$D(Y) JUMP
|
---|
| 74 | I X=0 D B0 G RSS
|
---|
| 75 | I X=9 D B9 G RSS
|
---|
| 76 | S DR="539 NUMBER OF DAYS GIVEN.........." D ^DIE G:$D(Y) JUMP
|
---|
| 77 | S DR="540 DOSE.........................." D ^DIE G:$D(Y) JUMP
|
---|
| 78 | S DR="541 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
|
---|
| 79 | S DR="542 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
|
---|
| 80 | RSS W ! S DR="51.3 RADIATION/SURGERY SEQUENCE......" D ^DIE G:$D(Y) JUMP
|
---|
| 81 | D ^ONCSPC4A
|
---|
| 82 | I $G(OUT)'="Y" W ! K DIR S DIR(0)="E" D ^DIR
|
---|
| 83 | G EXIT
|
---|
| 84 | JUMP ;Jump to prompts
|
---|
| 85 | S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
|
---|
| 86 | I X["?" D G JUMP
|
---|
| 87 | .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
---|
| 88 | I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
|
---|
| 89 | .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
---|
| 90 | S X=TABLE(X)
|
---|
| 91 | G @X
|
---|
| 92 | EXIT K CHOICES,HTABLE,TABLE
|
---|
| 93 | K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
|
---|
| 94 | K RADDT
|
---|
| 95 | Q
|
---|
| 96 | EB0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=0
|
---|
| 97 | W !," NUMBER OF FRACTIONS...........: 000"
|
---|
| 98 | S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
|
---|
| 99 | W !," DOSE..........................: 00000"
|
---|
| 100 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=0
|
---|
| 101 | W !," RADIATION ENERGY (MV).........: 00"
|
---|
| 102 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)="0000000"
|
---|
| 103 | W !," DATE THERAPY STARTED..........: 00/00/0000"
|
---|
| 104 | S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
|
---|
| 105 | W !," DATE THERAPY ENDED............: 00/00/0000"
|
---|
| 106 | Q
|
---|
| 107 | EB9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=999
|
---|
| 108 | W !," NUMBER OF FRACTIONS...........: 999"
|
---|
| 109 | S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
|
---|
| 110 | W !," DOSE..........................: 99999"
|
---|
| 111 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=99
|
---|
| 112 | W !," RADIATION ENERGY (MV).........: 99"
|
---|
| 113 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)=9999999
|
---|
| 114 | W !," DATE THERAPY STARTED..........: 99/99/9999"
|
---|
| 115 | S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
|
---|
| 116 | W !," DATE THERAPY ENDED............: 99/99/9999"
|
---|
| 117 | Q
|
---|
| 118 | IR0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=0
|
---|
| 119 | W !," DOSE..........................: 00000"
|
---|
| 120 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=0
|
---|
| 121 | W !," RADIATION ENERGY (MV).........: 00"
|
---|
| 122 | Q
|
---|
| 123 | IR9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=99999
|
---|
| 124 | W !," DOSE..........................: 99999"
|
---|
| 125 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=99
|
---|
| 126 | W !," RADIATION ENERGY (MV).........: 99"
|
---|
| 127 | Q
|
---|
| 128 | B0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=0
|
---|
| 129 | W !," NUMBER OF DAYS GIVEN..........: 000"
|
---|
| 130 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=0
|
---|
| 131 | W !," DOSE..........................: 00000"
|
---|
| 132 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)="0000000"
|
---|
| 133 | W !," DATE THERAPY STARTED..........: 00/00/0000"
|
---|
| 134 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)="0000000"
|
---|
| 135 | W !," DATE THERAPY ENDED............: 00/00/0000"
|
---|
| 136 | Q
|
---|
| 137 | B9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=999
|
---|
| 138 | W !," NUMBER OF DAYS GIVEN..........: 999"
|
---|
| 139 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=99999
|
---|
| 140 | W !," DOSE..........................: 99999"
|
---|
| 141 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)=9999999
|
---|
| 142 | W !," DATE THERAPY STARTED..........: 99/99/9999"
|
---|
| 143 | S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)=9999999
|
---|
| 144 | W !," DATE THERAPY ENDED............: 99/99/9999"
|
---|
| 145 | Q
|
---|