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