source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOAIP2.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1ONCOAIP2 ;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 ;
4LEUKEMIA(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 ;
12MO ;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 ;
23BLOOD ;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 ;
30PGPE ;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 ;
38LN ;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
Note: See TracBrowser for help on using the repository browser.