source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCP36F.m@ 949

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

initial load of FOIAVistA 6/30/08 version
File size: 8.3 KB
Line 
1ONCP36F ;HINES OIFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*36
2 ;;2.11;ONCOLOGY;**36**;Mar 07, 1995
3 ;
4 Q:$P($G(^ONCO(165.5,IEN,27)),U,6)="Y"
5TEST S TFR=$$GET1^DIQ(165.5,IEN,71,"I")
6 S:TFR'="" TFR=$$GET1^DIQ(160.12,TFR,.01,"I")
7 S OTFR=$$GET1^DIQ(165.5,IEN,71.4,"I")
8 S:OTFR'="" OTFR=$$GET1^DIQ(160.12,OTFR,.01,"1")
9 G:(TFR="")&(OTFR="") EXIT
10 S (DS1,DS11)=$$GET1^DIQ(165.5,IEN,71.1,"I")
11 S (DS2,DS22)=$$GET1^DIQ(165.5,IEN,71.2,"I")
12 S (DS3,DS33)=$$GET1^DIQ(165.5,IEN,71.3,"I")
13 S:DS11=0 DS11=""
14 S:DS22=0 DS22=""
15 S:DS33=0 DS33=""
16 S DS=DS11_DS22_DS33
17 S DSFLAG=""
18 I $L(DS)=2 D
19 .S DSFLAG="YES"
20 .I (DS=11)!(DS=22)!(DS=33)!(DS=44)!(DS=55)!(DS=66)!(DS=77)!(DS=88)!(DS=99) S DSFLAG="NO"
21 I $L(DS)=3 D
22 .S DSFLAG="YES"
23 .I (DS=111)!(DS=222)!(DS=333)!(DS=444)!(DS=555)!(DS=666)!(DS=777)!(DS=888)!(DS=999) S DSFLAG="NO"
24 S HSTI=$$HIST^ONCFUNC(IEN)
25 S HIST=$E(HSTI,1,4)
26 S BEHAV=$E(HSTI,5)
27 S FORDS=""
28 D TABLE,TFR
29 ;
30EXIT S $P(^ONCO(165.5,IEN,27),U,6)="Y"
31 K TFR,OTFR,DS,DS1,DS2,DS3,DS11,DS22,DS33,DSFLAG,HSTI,HIST,BEHAV
32 Q
33 ;
34TABLE ;TYPE OF FIRST RECURRENCE ROADS to FORDS conversion table
35 ;
36 ;First pass
37 ;
38 I TFR="00",(OTFR="00")!(OTFR="") S FORDS=5 Q
39 ;
40 I (TFR="01")!(TFR="06"),(OTFR="00")!(OTFR="01")!(OTFR="06")!(OTFR=""),BEHAV=2 S FORDS=15 Q
41 I (TFR="01")!(TFR="06"),(OTFR="00")!(OTFR="01")!(OTFR="06")!(OTFR=""),BEHAV=3 S FORDS=22 Q
42 ;
43 I (+TFR>9)&(+TFR<41),$$LEUKEMIA^ONCOAIP2(IEN) S FORDS=33 Q
44 ;
45 I (TFR=10)!(TFR=16),(OTFR="00")!(OTFR=10)!(OTFR=16)!(OTFR=""),BEHAV'=2,BEHAV'=3 S FORDS=1 Q
46 I (TFR=10)!(TFR=16),(OTFR="00")!(OTFR=10)!(OTFR=16)!(OTFR=""),BEHAV=3 S FORDS=23 Q
47 ;
48 I TFR=11,(OTFR="00")!(OTFR=11)!(OTFR=""),BEHAV=3 S FORDS=24 Q
49 ;
50 I (TFR=15)!(TFR=17),(OTFR="00")!(OTFR=15)!(OTFR=17)!(OTFR=""),BEHAV=3 S FORDS=7 Q
51 ;
52 I (TFR=10)!(TFR=11)!(TFR=15)!(TFR=16),(OTFR="00")!(OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=16)!(OTFR=""),BEHAV=2 S FORDS=16 Q
53 ;
54 I (TFR=15)!(TFR=17),(OTFR="00")!(OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=16)!(OTFR=17)!(OTFR=""),BEHAV=2 S FORDS=17 Q
55 ;
56 I TFR=10,OTFR=11,BEHAV=3 S FORDS=7 Q
57 ;
58 I TFR=20,(OTFR="00")!(OTFR=20)!(OTFR=""),BEHAV'=2 S FORDS=2 Q
59 ;
60 I TFR=21,(OTFR="00")!(OTFR=21)!(OTFR=""),BEHAV=3 S FORDS=8 Q
61 ;
62 I TFR=22,(OTFR="00")!(OTFR=22)!(OTFR=""),BEHAV=3 S FORDS=10 Q
63 ;
64 I TFR=25,(OTFR="00")!(OTFR=25)!(OTFR=""),BEHAV=3 S FORDS=11 Q
65 ;
66 I TFR=21,OTFR=22,BEHAV=3 S FORDS=11 Q
67 ;
68 I (TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26),(OTFR="00")!(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=""),BEHAV=2 S FORDS=18 Q
69 ;
70 I (TFR=25)!(TFR=27),(OTFR="00")!(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=27)!(OTFR=""),BEHAV=2 S FORDS=19 Q
71 ;
72 I TFR=30,(OTFR="00")!(OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=30)!(OTFR=""),BEHAV=3 S FORDS=12 Q
73 ;
74 I (TFR=10)!(TFR=11)!(TFR=15)!(TFR=16)!(TFR=17),(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=27),BEHAV=3 S FORDS=12 Q
75 ;
76 I (TFR=10)!(TFR=11)!(TFR=15)!(TFR=16)!(TFR=17)!(TFR=36),(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=27)!(OTFR=36),BEHAV=2 S FORDS=20 Q
77 ;
78 I TFR=40,(OTFR="00")!(OTFR=40)!(OTFR=""),(DS11="")&(DS22="")&(DS33="") S FORDS=3 Q
79 ;
80 I TFR=40,(OTFR="00")!(OTFR=40)!(OTFR=""),BEHAV'=2,BEHAV'=3 S FORDS=3 Q
81 ;
82 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),BEHAV=2 S FORDS=21 Q
83 ;
84 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=1)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=25 Q
85 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=2)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=26 Q
86 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=3)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=27 Q
87 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=4)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=28 Q
88 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=5)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=29 Q
89 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=6)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=30 Q
90 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=7)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=31 Q
91 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=8)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=32 Q
92 I (TFR=40)!(TFR=46),(OTFR="00")!(OTFR=40)!(OTFR=46)!(OTFR=""),(DS11=9)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=33 Q
93 I (TFR=40)!(TFR=46),(OTFR=10)!(OTFR=13)!(OTFR=14)!(OTFR=15)!(OTFR=16)!(OTFR=17)!(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=27),(DS11>0)&(DS11<9)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=34 Q
94 I (TFR=40)!(TFR=46),(OTFR=10)!(OTFR=13)!(OTFR=14)!(OTFR=15)!(OTFR=16)!(OTFR=17)!(OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26)!(OTFR=27),DS?1.3"9",BEHAV=3 S FORDS=3 Q
95 I (TFR=40)!(TFR=46),DSFLAG="YES",BEHAV=3 S FORDS=35 Q
96 ;
97 I TFR=70 S FORDS=4 Q
98 ;
99 I TFR=88 S FORDS=13 Q
100 ;
101 I TFR=99 S FORDS=9 Q
102 ;
103 ;Second pass
104 ;
105 I OTFR="00",(TFR="00")!(TFR="") S FORDS=5 Q
106 ;
107 I (OTFR="01")!(OTFR="06"),(TFR="00")!(TFR="01")!(TFR="06")!(TFR=""),BEHAV=2 S FORDS=15 Q
108 I (OTFR="01")!(OTFR="06"),(TFR="00")!(TFR="01")!(TFR="06")!(TFR=""),BEHAV=3 S FORDS=22 Q
109 ;
110 I (+OTFR>9)&(+OTFR<41),$$LEUKEMIA^ONCOAIP2(IEN) S FORDS=33 Q
111 ;
112 I (OTFR=10)!(OTFR=16),(TFR="00")!(TFR=10)!(TFR=16)!(TFR=""),BEHAV'=2,BEHAV'=3 S FORDS=1 Q
113 I (OTFR=10)!(OTFR=16),(TFR="00")!(TFR=10)!(TFR=16)!(TFR=""),BEHAV=3 S FORDS=23 Q
114 ;
115 I OTFR=11,(TFR="00")!(TFR=11)!(TFR=""),BEHAV=3 S FORDS=24 Q
116 ;
117 I (OTFR=15)!(OTFR=17),(TFR="00")!(TFR=15)!(TFR=17)!(TFR=""),BEHAV=3 S FORDS=7 Q
118 ;
119 I (OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=16),(TFR="00")!(TFR=10)!(TFR=11)!(TFR=15)!(TFR=16)!(TFR=""),BEHAV=2 S FORDS=16 Q
120 ;
121 I (OTFR=15)!(OTFR=17),(TFR="00")!(TFR=10)!(TFR=11)!(TFR=15)!(TFR=16)!(TFR=17)!(TFR=""),BEHAV=2 S FORDS=17 Q
122 ;
123 I OTFR=10,TFR=11,BEHAV=3 S FORDS=7 Q
124 ;
125 I OTFR=20,(TFR="00")!(TFR=20)!(TFR=""),BEHAV'=2 S FORDS=2 Q
126 ;
127 I OTFR=21,(TFR="00")!(TFR=21)!(TFR=""),BEHAV=3 S FORDS=8 Q
128 ;
129 I OTFR=22,(TFR="00")!(TFR=22)!(TFR=""),BEHAV=3 S FORDS=10 Q
130 ;
131 I OTFR=25,(TFR="00")!(TFR=25)!(TFR=""),BEHAV=3 S FORDS=11 Q
132 ;
133 I OTFR=21,TFR=22,BEHAV=3 S FORDS=11 Q
134 ;
135 I (OTFR=20)!(OTFR=21)!(OTFR=22)!(OTFR=25)!(OTFR=26),(TFR="00")!(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=""),BEHAV=2 S FORDS=18 Q
136 ;
137 I (OTFR=25)!(OTFR=27),(TFR="00")!(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=27)!(TFR=""),BEHAV=2 S FORDS=19 Q
138 ;
139 I OTFR=30,(TFR="00")!(TFR=10)!(TFR=11)!(TFR=15)!(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=30)!(TFR=""),BEHAV=3 S FORDS=12 Q
140 ;
141 I (OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=16)!(OTFR=17),(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=27),BEHAV=3 S FORDS=12 Q
142 ;
143 I (OTFR=10)!(OTFR=11)!(OTFR=15)!(OTFR=16)!(OTFR=17)!(OTFR=36),(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=27)!(TFR=36),BEHAV=2 S FORDS=20 Q
144 ;
145 I OTFR=40,(TFR="00")!(TFR=40)!(TFR=""),(DS11="")&(DS22="")&(DS33="") S FORDS=3 Q
146 ;
147 I OTFR=40,(TFR="00")!(TFR=40)!(TFR=""),BEHAV'=2,BEHAV'=3 S FORDS=3 Q
148 ;
149 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),BEHAV=2 S FORDS=21 Q
150 ;
151 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=1)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=25 Q
152 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=2)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=26 Q
153 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=3)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=27 Q
154 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=4)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=28 Q
155 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=5)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=29 Q
156 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=6)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=30 Q
157 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=7)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=31 Q
158 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=8)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=32 Q
159 I (OTFR=40)!(OTFR=46),(TFR="00")!(TFR=40)!(TFR=46)!(TFR=""),(DS11=9)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=33 Q
160 I (OTFR=40)!(OTFR=46),(TFR=10)!(TFR=13)!(TFR=14)!(TFR=15)!(TFR=16)!(TFR=17)!(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=27),(DS11>0)&(DS11<9)&(DS22="")&(DS33=""),BEHAV=3 S FORDS=34 Q
161 I (OTFR=40)!(OTFR=46),(TFR=10)!(TFR=13)!(TFR=14)!(TFR=15)!(TFR=16)!(TFR=17)!(TFR=20)!(TFR=21)!(TFR=22)!(TFR=25)!(TFR=26)!(TFR=27),DS?1.3"9",BEHAV=3 S FORDS=3 Q
162 I (OTFR=40)!(OTFR=46),DSFLAG="YES",BEHAV=3 S FORDS=35 Q
163 ;
164 I OTFR=70 S FORDS=4 Q
165 ;
166 I OTFR=88 S FORDS=13 Q
167 ;
168 I OTFR=99 S FORDS=9 Q
169 ;
170 Q
171 ;
172TFR I FORDS'="" D
173 .S $P(^ONCO(165.5,IEN,5),U,2)=FORDS
174 Q
Note: See TracBrowser for help on using the repository browser.