| [613] | 1 | ONCOCOFA ;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 | ;
|
|---|
| 4 | MTS ;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 | ;
|
|---|
| 13 | MTSWLP ;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 | ;
|
|---|
| 26 | EX ;EXIT
|
|---|
| 27 | K PA,PB,PC,PD,PE,PL,X0
|
|---|
| 28 | Q
|
|---|
