ONCSTX.m

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 ---ONCSTX   1458     printed  Apr 09, 2024@21:29:16                                                                                                                                                                                                      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