37 lines
1.4 KiB
Mathematica
37 lines
1.4 KiB
Mathematica
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
|