source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSTX.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ONCSTX ;HINES CIOFO/RTK;SUBSEQUENT COURSE OF THERAPY STUFFING; 02/12/98
2 ;;2.11;ONCOLOGY;**15,16,36,37**;Mar 07, 1995
3NO ;
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
14UNK ;
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
27WRITE ;
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
Note: See TracBrowser for help on using the repository browser.