source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOCOFA.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: 993 bytes
Line 
1ONCOCOFA ;Hines OIFO - COMPUTED FIELDS FOR FOLLOW-UP ;6/23/93 09:59
2 ;;2.11;ONCOLOGY;**25,44,46**;Mar 07, 1995;Build 39
3 ;
4MTS ;Multiple TUMOR STATUS within FOLLOWUP
5 ;Called by FHC^ONCODLF,FHP^ONCODLF
6 N JTOT,JACT,K,XY,PDIAGDT
7 I '$D(^ONCO(165.5,"C",D0)) W ?30,"NO Primaries Defined",! Q
8 S PD0=0,(JTOT,JACT)=0
9 F S PD0=$O(^ONCO(165.5,"C",D0,PD0)) Q:PD0'>0 I $$DIV^ONCFUNC(PD0)=DUZ(2) S PDIAGDT=$P($G(^ONCO(165.5,PD0,0)),U,16) S JTOT=JTOT+1 I PDIAGDT,PDIAGDT'>FDAT S JACT=JACT+1,XY(JACT)=PD0
10 D MTSWLP
11 Q
12 ;
13MTSWLP ;Multiple tumor status write loop - called from MTS if >1 primary
14 N K
15 F K=1:1:JACT D
16 .N PD0,ST,ST1,TD1,TS
17 .S PD0=XY(K)
18 .S ST=$$GETVAL^ONCOU(165.5,PD0,.01)
19 .S ST1=$$GETVAL^ONCOU(165.5,PD0,20) S:ST1'="" ST=ST1
20 .S TD1=+$O(^ONCO(165.5,PD0,"TS","B",+FDAT,0))
21 .S TS="" S:TD1 TS=$$GETVAL^ONCOU(165.5,PD0,73,TD1,.02)
22 .K DOTS S $P(DOTS,".",30-$L(ST))="."
23 .W !?2,ST,$G(DOTS),": ",$S(TS="":"Tumor Status not stated",1:TS) W:K=JACT !
24 Q
25 ;
26EX ;EXIT
27 K PA,PB,PC,PD,PE,PL,X0
28 Q
Note: See TracBrowser for help on using the repository browser.