| 1 | ONCSTX ;HINES CIOFO/RTK;SUBSEQUENT COURSE OF THERAPY STUFFING; 02/12/98
|
|---|
| 2 | ;;2.11;ONCOLOGY;**15,16,36,37**;Mar 07, 1995
|
|---|
| 3 | NO ;
|
|---|
| 4 | N DA,DR,DIQ,DIC,DI
|
|---|
| 5 | S SCTIEN=D1
|
|---|
| 6 | S $P(^ONCO(165.5,D0,4,D1,0),U,11)="0000000"
|
|---|
| 7 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,30)=$S(DATEDX>2971231:1,1:"")
|
|---|
| 8 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:"0000000",1:"")
|
|---|
| 9 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:1,1:"")
|
|---|
| 10 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:0,1:"")
|
|---|
| 11 | D WRITE
|
|---|
| 12 | S Y=.05
|
|---|
| 13 | Q
|
|---|
| 14 | UNK ;
|
|---|
| 15 | N DA,DR,DIQ,DIC,DI
|
|---|
| 16 | S SCTIEN=D1
|
|---|
| 17 | S $P(^ONCO(165.5,D0,4,D1,0),U,11)=9999999
|
|---|
| 18 | ;F RR=0:0 S RR=$O(^ONCO(164,SSTOP,"RR5",RR)) Q:RR="B" S LASTRR=RR
|
|---|
| 19 | ;F SC=0:0 S SC=$O(^ONCO(164,SSTOP,"SC5",SC)) Q:SC="B" S LASTSC=SC
|
|---|
| 20 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,30)=$S(DATEDX>2971231:LASTRR,1:"")
|
|---|
| 21 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:9999999,1:"")
|
|---|
| 22 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:LASTSC,1:"")
|
|---|
| 23 | ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:99,1:"")
|
|---|
| 24 | D WRITE
|
|---|
| 25 | S Y=.05
|
|---|
| 26 | K SCTIEN,RR,LASTRR,SC,LASTSC Q
|
|---|
| 27 | WRITE ;
|
|---|
| 28 | K ONC,DIQ S DIC="^ONCO(165.5,"
|
|---|
| 29 | S DR=60,DA=D0,DR(165.51)=".041",DA(165.51)=SCTIEN
|
|---|
| 30 | S DIQ="ONC" D EN^DIQ1
|
|---|
| 31 | W !?2,"SURGERY OF PRIMARY SITE DATE...: "_ONC(165.51,SCTIEN,.041)
|
|---|
| 32 | ;I DATEDX>2971231 D
|
|---|
| 33 | ;.W !?2,"SCOPE OF LYMPH NODE SURGERY...: "_ONC(165.51,SCTIEN,35)
|
|---|
| 34 | ;.W !?2,"RECON/RESTORE - DELAYED.......: "_ONC(165.51,SCTIEN,33)
|
|---|
| 35 | ;.W !?2,"RECON/RESTORE - DELAYED DATE..: "_ONC(165.51,SCTIEN,34)
|
|---|
| 36 | K ONC,SCTIEN
|
|---|
