| [613] | 1 | ONCOAIP2 ;Hines OIFO/GWB,RTK - ONCO ABSTRACT-I SUB-ROUTINES ;04/12/01
|
|---|
| 2 | ;;2.11;ONCOLOGY;**19,24,28,32,35,36**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | LEUKEMIA(REC) ;Systemic diseases
|
|---|
| 5 | N H
|
|---|
| 6 | S L=0
|
|---|
| 7 | S H=$E($$HIST^ONCFUNC(REC),1,4)
|
|---|
| 8 | I ICDNUM=2 I ((H'<9720)&(H'>9732))!((H'<9760)&(H'>9989)) S L=1
|
|---|
| 9 | I ICDNUM=3 I ((H'<9731)&(H'>9734))!((H'<9750)&(H'>9989)) S L=1
|
|---|
| 10 | Q L
|
|---|
| 11 | ;
|
|---|
| 12 | MO ;ASSOCIATED WITH HIV (165.5,41)
|
|---|
| 13 | S M=$$HIST^ONCFUNC(D0)
|
|---|
| 14 | S AWHFLG=0
|
|---|
| 15 | I $$LYMPHOMA^ONCFUNC(D0) S Y=41,AWHFLG=1 Q
|
|---|
| 16 | S M=$E(M,1,4)
|
|---|
| 17 | I M=9140 S Y=41
|
|---|
| 18 | E S Y=29
|
|---|
| 19 | Q:Y=29 S $P(^ONCO(165.5,D0,2),U,9)=999
|
|---|
| 20 | K M
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | BLOOD ;PERIPHERAL BLOOD INVOLVEMENT (165.5,30.5)
|
|---|
| 24 | ;Mycosis fungoides and Sezary's Disease (9700-9701)
|
|---|
| 25 | N TMP
|
|---|
| 26 | S TMP=$$HIST^ONCFUNC(DA),Y="@301"
|
|---|
| 27 | F CHK="97002","97003","97012","97013" I CHK=TMP S Y=30.5 Q
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | PGPE ;PATHOLOGIC EXTENSION (165.5,30.1)
|
|---|
| 31 | ;Prostate C61.9
|
|---|
| 32 | S Y="@231"
|
|---|
| 33 | N TMP S TMP=$P($G(^ONCO(165.5,DA,2)),U,1)
|
|---|
| 34 | I TMP=67619 S Y=30.1 Q
|
|---|
| 35 | S $P(^ONCO(165.5,DA,2.2),U,2)=""
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | LN ;BRAIN AND CEREBRAL MENINGES (SEER EOD)
|
|---|
| 39 | ;OTHER PARTS OF CENTRAL NERVOUS SYSTEM (SEER EOD)
|
|---|
| 40 | S T=$P($G(^ONCO(165.5,D0,2)),U,1)
|
|---|
| 41 | I (T=67700)!($E(T,3,4)=71)!($E(T,3,4)=72) D S Y="@26" Q
|
|---|
| 42 | .S $P(^ONCO(165.5,D0,2),U,11)=9 ;Lymph Nodes
|
|---|
| 43 | .S $P(^ONCO(165.5,D0,2),U,12)=99 ;Regional Nodes Positive
|
|---|
| 44 | .S $P(^ONCO(165.5,D0,2),U,13)=99 ;Regional Nodes Examined
|
|---|
| 45 | .W !,"LYMPH NODES............: Not Applicable"
|
|---|
| 46 | .W !,"REGIONAL NODES EXAMINED: Unk; not stated; death cert only"
|
|---|
| 47 | .W !,"REGIONAL NODES POSITIVE: Unk if nodes + or -, NA"
|
|---|
| 48 | S Y=31
|
|---|
| 49 | Q
|
|---|
