ONCSTX ;HINES CIOFO/RTK;SUBSEQUENT COURSE OF THERAPY STUFFING; 02/12/98
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSTX 1458 printed Nov 22, 2024@17:38:56 Page 2
ONCSTX ;HINES CIOFO/RTK;SUBSEQUENT COURSE OF THERAPY STUFFING; 02/12/98
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
NO ;
+1 NEW DA,DR,DIQ,DIC,DI
+2 SET SCTIEN=D1
+3 SET $PIECE(^ONCO(165.5,D0,4,D1,0),U,11)="0000000"
+4 ;S $P(^ONCO(165.5,D0,4,D1,2),U,30)=$S(DATEDX>2971231:1,1:"")
+5 ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:"0000000",1:"")
+6 ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:1,1:"")
+7 ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:0,1:"")
+8 DO WRITE
+9 SET Y=.05
+10 QUIT
UNK ;
+1 NEW DA,DR,DIQ,DIC,DI
+2 SET SCTIEN=D1
+3 SET $PIECE(^ONCO(165.5,D0,4,D1,0),U,11)=9999999
+4 ;F RR=0:0 S RR=$O(^ONCO(164,SSTOP,"RR5",RR)) Q:RR="B" S LASTRR=RR
+5 ;F SC=0:0 S SC=$O(^ONCO(164,SSTOP,"SC5",SC)) Q:SC="B" S LASTSC=SC
+6 ;S $P(^ONCO(165.5,D0,4,D1,2),U,30)=$S(DATEDX>2971231:LASTRR,1:"")
+7 ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:9999999,1:"")
+8 ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:LASTSC,1:"")
+9 ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:99,1:"")
+10 DO WRITE
+11 SET Y=.05
+12 KILL SCTIEN,RR,LASTRR,SC,LASTSC
QUIT
WRITE ;
+1 KILL ONC,DIQ
SET DIC="^ONCO(165.5,"
+2 SET DR=60
SET DA=D0
SET DR(165.51)=".041"
SET DA(165.51)=SCTIEN
+3 SET DIQ="ONC"
DO EN^DIQ1
+4 WRITE !?2,"SURGERY OF PRIMARY SITE DATE...: "_ONC(165.51,SCTIEN,.041)
+5 ;I DATEDX>2971231 D
+6 ;.W !?2,"SCOPE OF LYMPH NODE SURGERY...: "_ONC(165.51,SCTIEN,35)
+7 ;.W !?2,"RECON/RESTORE - DELAYED.......: "_ONC(165.51,SCTIEN,33)
+8 ;.W !?2,"RECON/RESTORE - DELAYED DATE..: "_ONC(165.51,SCTIEN,34)
+9 KILL ONC,SCTIEN
