source: WorldVistAEHR/trunk/g/ICM.zwr@ 1144

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

initial load of WorldVistAEHR

File size: 91.8 KB
Line 
1FirstRelease WVEHR VER VOE1.0
2Cache 31-Jan-2008 23:07:04 ZWR
3^ICM="0"
4^ICM(0)="MAJOR DIAGNOSTIC CATEGORY^80.3^99^30"
5^ICM(1,0)="NERVOUS SYSTEM"
6^ICM(1,1,0)="^80.31A^19^19"
7^ICM(1,1,1,0)="CRANOITOMY^1^1^2^3"
8^ICM(1,1,1,1,0)="^80.32A^4^4"
9^ICM(1,1,1,1,1,0)="R:'$D(AGE) !,""AGE: "",AGE:60 S:AGE<0!(AGE>120) BAD=1 S:AGE<18 DRG=3,FIN=1"
10^ICM(1,1,1,1,2,0)="W !,""PRINCIPAL DIAGNOSIS OF TRAUMA (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:1,1:2),FIN=1"
11^ICM(1,1,1,1,3,0)="R:'$D(AGE) !,""AGE: "",AGE:60 S:AGE<0!(AGE>120) BAD=1 S:AGE<18 DRG=3,FIN=1"
12^ICM(1,1,1,1,4,0)="W !,""PRINCIPAL DIAGNOSIS OF TRAUMA (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:1,1:2),FIN=1"
13^ICM(1,1,2,0)="SPINAL SURGERY^1^4"
14^ICM(1,1,3,0)="EXTRACRANIAL VASCULAR^1^5"
15^ICM(1,1,4,0)="CARPAL TUNNEL RELEASE^1^6"
16^ICM(1,1,5,0)="PERPHERIAL,CRANIAL NRV & OTHER^1^7^8"
17^ICM(1,1,5,1,0)="^80.32A^2^2"
18^ICM(1,1,5,1,1,0)="D AGE S DRG=$S(AGE>69:7,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:7,1:8)"
19^ICM(1,1,5,1,2,0)="D AGE S DRG=$S(AGE>69:7,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:7,1:8)"
20^ICM(1,1,6,0)="SPINAL DISORDER/INJURY^^9"
21^ICM(1,1,7,0)="NEOPLASM^^10^11"
22^ICM(1,1,7,1,0)="^80.32A^2^2"
23^ICM(1,1,7,1,1,0)="D AGE S DRG=$S(AGE>69:10,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:10,1:11)"
24^ICM(1,1,7,1,2,0)="D AGE S DRG=$S(AGE>69:10,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:10,1:11)"
25^ICM(1,1,8,0)="DEGENERATIVE DISORDERS^^12"
26^ICM(1,1,9,0)="M SCLEROSIS,CEREBELLAR ATAXIA^^13"
27^ICM(1,1,10,0)="SPECIFIC CEREBROVASC DISORDER^^14^15"
28^ICM(1,1,10,1,0)="^80.32A^2^2"
29^ICM(1,1,10,1,1,0)="W !,""PRINCIPAL DIAGNOSIS OF TIA (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:14,1:15),FIN=1"
30^ICM(1,1,10,1,2,0)="W !,""PRINCIPAL DIAGNOSIS OF TIA (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:14,1:15),FIN=1"
31^ICM(1,1,11,0)="NONSPECIFIC CEREBROVASC DISORD^^16^17"
32^ICM(1,1,11,1,0)="^80.32A^2^2"
33^ICM(1,1,11,1,1,0)="D COM S DRG=$S(X?1""Y"".E:16,1:17),FIN=1"
34^ICM(1,1,11,1,2,0)="D COM S DRG=$S(X?1""Y"".E:16,1:17),FIN=1"
35^ICM(1,1,12,0)="CRANIAL,PERPHERIAL NERVE^^18^19"
36^ICM(1,1,12,1,0)="^80.32A^2^2"
37^ICM(1,1,12,1,1,0)="D AGE S DRG=$S(AGE>69:18,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:18,1:19)"
38^ICM(1,1,12,1,2,0)="D AGE S DRG=$S(AGE>69:18,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:18,1:19)"
39^ICM(1,1,13,0)="INFECTION^^20^21"
40^ICM(1,1,13,1,0)="^80.32A^2^2"
41^ICM(1,1,13,1,1,0)="W !,""PRINCIPAL DX OF VIRAL MENINGITIS (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:20,1:21),FIN=1"
42^ICM(1,1,13,1,2,0)="W !,""PRINCIPAL DX OF VIRAL MENINGITIS (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:20,1:21),FIN=1"
43^ICM(1,1,14,0)="HYPERTENSIVE ENCEPHALOPATHY^^22"
44^ICM(1,1,15,0)="NONTRAUMATIC STUPOR & COMA^^23"
45^ICM(1,1,16,0)="SEIZURE & HEADACHE^^24^25^26"
46^ICM(1,1,16,1,0)="^80.32A^2^2"
47^ICM(1,1,16,1,1,0)="D AGE S DRG=$S(AGE<18:26,AGE>69:24,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:24,1:25)"
48^ICM(1,1,16,1,2,0)="D AGE S DRG=$S(AGE<18:26,AGE>69:24,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:24,1:25)"
49^ICM(1,1,17,0)="TRAUMATIC STUPOR & COMA^^27^28^29^30"
50^ICM(1,1,17,1,0)="^80.32A^4^4"
51^ICM(1,1,17,1,1,0)="W !,""COMA ONE HOUR OR MORE (Y/N) ? "" D YN S:YN?1""Y"".E DRG=27,FIN=1"
52^ICM(1,1,17,1,2,0)="D AGE S DRG=$S(AGE<18:30,AGE>69:28,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:28,1:29)"
53^ICM(1,1,17,1,3,0)="W !,""COMA ONE HOUR OR MORE (Y/N) ? "" D YN S:YN?1""Y"".E DRG=27,FIN=1"
54^ICM(1,1,17,1,4,0)="D AGE S DRG=$S(AGE<18:30,AGE>69:28,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:28,1:29)"
55^ICM(1,1,18,0)="CONCUSSION^^31^32^33"
56^ICM(1,1,18,1,0)="^80.32A^2^2"
57^ICM(1,1,18,1,1,0)="D AGE S DRG=$S(AGE<18:33,AGE>69:31,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:31,1:32)"
58^ICM(1,1,18,1,2,0)="D AGE S DRG=$S(AGE<18:33,AGE>69:31,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:31,1:32)"
59^ICM(1,1,19,0)="OTHER DIAGNOSIS^^34^35"
60^ICM(1,1,19,1,0)="^80.32A^2^2"
61^ICM(1,1,19,1,1,0)="D AGE S DRG=$S(AGE>69:34,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:34,1:35)"
62^ICM(1,1,19,1,2,0)="D AGE S DRG=$S(AGE>69:34,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:34,1:35)"
63^ICM(1,1,"B","CARPAL TUNNEL RELEASE",4)=""
64^ICM(1,1,"B","CONCUSSION",18)=""
65^ICM(1,1,"B","CRANIAL,PERPHERIAL NERVE",12)=""
66^ICM(1,1,"B","CRANOITOMY",1)=""
67^ICM(1,1,"B","DEGENERATIVE DISORDERS",8)=""
68^ICM(1,1,"B","EXTRACRANIAL VASCULAR",3)=""
69^ICM(1,1,"B","HYPERTENSIVE ENCEPHALOPATHY",14)=""
70^ICM(1,1,"B","INFECTION",13)=""
71^ICM(1,1,"B","M SCLEROSIS,CEREBELLAR ATAXIA",9)=""
72^ICM(1,1,"B","NEOPLASM",7)=""
73^ICM(1,1,"B","NONSPECIFIC CEREBROVASC DISORD",11)=""
74^ICM(1,1,"B","NONTRAUMATIC STUPOR & COMA",15)=""
75^ICM(1,1,"B","OTHER DIAGNOSIS",19)=""
76^ICM(1,1,"B","PERPHERIAL,CRANIAL NRV & OTHER",5)=""
77^ICM(1,1,"B","SEIZURE & HEADACHE",16)=""
78^ICM(1,1,"B","SPECIFIC CEREBROVASC DISORDER",10)=""
79^ICM(1,1,"B","SPINAL DISORDER/INJURY",6)=""
80^ICM(1,1,"B","SPINAL SURGERY",2)=""
81^ICM(1,1,"B","TRAUMATIC STUPOR & COMA",17)=""
82^ICM(2,0)="EYE"
83^ICM(2,1,0)="^80.31A^10^10"
84^ICM(2,1,1,0)="RETINA SURGERY^1^36"
85^ICM(2,1,2,0)="ORBIT SURGERY^1^37"
86^ICM(2,1,3,0)="PRIMARY IRIS SURGERY^1^38"
87^ICM(2,1,4,0)="LENS SURGERY^1^39"
88^ICM(2,1,5,0)="OTHER EXTRAOCULAR SURGERY^1^40^41"
89^ICM(2,1,5,1,0)="^80.32A^2^2"
90^ICM(2,1,5,1,1,0)="R:'$D(AGE) !,""AGE: "",AGE:60 S:AGE<0!(AGE>120) BAD=1 S DRG=$S(AGE<18:41,1:40),FIN=1"
91^ICM(2,1,5,1,2,0)="R:'$D(AGE) !,""AGE: "",AGE:60 S:AGE<0!(AGE>120) BAD=1 S DRG=$S(AGE<18:41,1:40),FIN=1"
92^ICM(2,1,6,0)="OTHER INTRAOCULAR SURGERY^1^42"
93^ICM(2,1,7,0)="HYPHEMA^^43"
94^ICM(2,1,8,0)="ACUTE MAJOR INFECTION^^44"
95^ICM(2,1,9,0)="EYE NEUROLOGICAL DISORDERS^^45"
96^ICM(2,1,10,0)="OTHER EYE DIAGNOSES^^46^47^48"
97^ICM(2,1,10,1,0)="^80.32A^2^2"
98^ICM(2,1,10,1,1,0)="D AGE S DRG=$S(AGE<18:48,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:46,1:47)"
99^ICM(2,1,10,1,2,0)="D AGE S DRG=$S(AGE<18:48,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:46,1:47)"
100^ICM(2,1,"B","ACUTE MAJOR INFECTION",8)=""
101^ICM(2,1,"B","EYE NEUROLOGICAL DISORDERS",9)=""
102^ICM(2,1,"B","HYPHEMA",7)=""
103^ICM(2,1,"B","LENS SURGERY",4)=""
104^ICM(2,1,"B","ORBIT SURGERY",2)=""
105^ICM(2,1,"B","OTHER EXTRAOCULAR SURGERY",5)=""
106^ICM(2,1,"B","OTHER EYE DIAGNOSES",10)=""
107^ICM(2,1,"B","OTHER INTRAOCULAR SURGERY",6)=""
108^ICM(2,1,"B","PRIMARY IRIS SURGERY",3)=""
109^ICM(2,1,"B","RETINA SURGERY",1)=""
110^ICM(3,0)="EAR, NOSE, MOUTH & THROAT"
111^ICM(3,1,0)="^80.31A^18^18"
112^ICM(3,1,1,0)="MAJOR HEAD & NECK SURGERY^1^49"
113^ICM(3,1,2,0)="SALIVARY GLAND SURGERY^1^50^51"
114^ICM(3,1,2,1,0)="^80.32A^2^2"
115^ICM(3,1,2,1,1,0)="W !,""SIALOADENECTOMY (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:50,1:51),FIN=1"
116^ICM(3,1,2,1,2,0)="W !,""SIALOADENECTOMY (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:50,1:51),FIN=1"
117^ICM(3,1,3,0)="CLEFT LIP,PALATE REPAIR^1^52"
118^ICM(3,1,4,0)="SINUS & MASTOID SURGERY^1^53^54"
119^ICM(3,1,4,1,0)="^80.32A^2^2"
120^ICM(3,1,4,1,1,0)="D AGE S DRG=$S(AGE<18:54,1:53),FIN=1"
121^ICM(3,1,4,1,2,0)="D AGE S DRG=$S(AGE<18:54,1:53),FIN=1"
122^ICM(3,1,5,0)="MISC NOSE,THROAT,EAR SURGERY^1^55"
123^ICM(3,1,6,0)="RHINOPLASTY^1^56"
124^ICM(3,1,7,0)="TONSIL & ADENOID SURGERY^1^59^60"
125^ICM(3,1,7,1,0)="^80.32A^2^2"
126^ICM(3,1,7,1,1,0)="D AGE S DRG=$S(AGE<18:60,1:59),FIN=1"
127^ICM(3,1,7,1,2,0)="D AGE S DRG=$S(AGE<18:60,1:59),FIN=1"
128^ICM(3,1,8,0)="TONSIL & ADENOID SURGERY,OTHER^1^57^58"
129^ICM(3,1,8,1,0)="^80.32A^2^2"
130^ICM(3,1,8,1,1,0)="D AGE S DRG=$S(AGE<18:58,1:57),FIN=1"
131^ICM(3,1,8,1,2,0)="D AGE S DRG=$S(AGE<18:58,1:57),FIN=1"
132^ICM(3,1,9,0)="MYRINGOTOMY^1^61^62"
133^ICM(3,1,9,1,0)="^80.32A^2^2"
134^ICM(3,1,9,1,1,0)="D AGE S DRG=$S(AGE<18:62,1:61),FIN=1"
135^ICM(3,1,9,1,2,0)="D AGE S DRG=$S(AGE<18:62,1:61),FIN=1"
136^ICM(3,1,10,0)="OTHER OR PROCEDURES,ENT^1^63"
137^ICM(3,1,11,0)="MALIGNANCY^^64"
138^ICM(3,1,12,0)="DYSEQUILIBRIUM^^65"
139^ICM(3,1,13,0)="EPISTAXIS^^66"
140^ICM(3,1,14,0)="EPIGLOTTITIS^^67"
141^ICM(3,1,15,0)="OTITIS MEDIA & URI^^68^69^70"
142^ICM(3,1,15,1,0)="^80.32A^2^2"
143^ICM(3,1,15,1,1,0)="D AGE S DRG=$S(AGE<18:70,AGE>69:68,1:69),FIN=1"
144^ICM(3,1,15,1,2,0)="D AGE S DRG=$S(AGE<18:70,AGE>69:68,1:69),FIN=1"
145^ICM(3,1,16,0)="LARYNGOTRACHEITIS^^71"
146^ICM(3,1,17,0)="NASAL TRAUMA & DEFORMITY^^72"
147^ICM(3,1,18,0)="OTHER DIAGNOSES,ENT^^73^74"
148^ICM(3,1,18,1,0)="^80.32A^2^2"
149^ICM(3,1,18,1,1,0)="D AGE S DRG=$S(AGE<18:74,1:73),FIN=1"
150^ICM(3,1,18,1,2,0)="D AGE S DRG=$S(AGE<18:74,1:73),FIN=1"
151^ICM(3,1,"B","CLEFT LIP,PALATE REPAIR",3)=""
152^ICM(3,1,"B","DYSEQUILIBRIUM",12)=""
153^ICM(3,1,"B","EPIGLOTTITIS",14)=""
154^ICM(3,1,"B","EPISTAXIS",13)=""
155^ICM(3,1,"B","LARYNGOTRACHEITIS",16)=""
156^ICM(3,1,"B","MAJOR HEAD & NECK SURGERY",1)=""
157^ICM(3,1,"B","MALIGNANCY",11)=""
158^ICM(3,1,"B","MISC NOSE,THROAT,EAR SURGERY",5)=""
159^ICM(3,1,"B","MYRINGOTOMY",9)=""
160^ICM(3,1,"B","NASAL TRAUMA & DEFORMITY",17)=""
161^ICM(3,1,"B","OTHER DIAGNOSES,ENT",18)=""
162^ICM(3,1,"B","OTHER OR PROCEDURES,ENT",10)=""
163^ICM(3,1,"B","OTITIS MEDIA & URI",15)=""
164^ICM(3,1,"B","RHINOPLASTY",6)=""
165^ICM(3,1,"B","SALIVARY GLAND SURGERY",2)=""
166^ICM(3,1,"B","SINUS & MASTOID SURGERY",4)=""
167^ICM(3,1,"B","TONSIL & ADENOID SURGERY",7)=""
168^ICM(3,1,"B","TONSIL & ADENOID SURGERY,OTHER",8)=""
169^ICM(4,0)="RESPIRATORY SYSTEM"
170^ICM(4,1,0)="^80.31A^15^15"
171^ICM(4,1,1,0)="MAJOR CHEST SURGERY^1^75"
172^ICM(4,1,2,0)="OTHER OR PROCEDURES^1^76^77"
173^ICM(4,1,2,1,0)="^80.32A^2^2"
174^ICM(4,1,2,1,1,0)="D COM S DRG=$S(X?1""Y"".E:76,1:77),FIN=1"
175^ICM(4,1,2,1,2,0)="D COM S DRG=$S(X?1""Y"".E:76,1:77),FIN=1"
176^ICM(4,1,3,0)="PULMONARY EMBOLISM^^78"
177^ICM(4,1,4,0)="INFECTIONS & INFLAMMATIONS^^79^80^81"
178^ICM(4,1,4,1,0)="^80.32A^2^2"
179^ICM(4,1,4,1,1,0)="D AGE S DRG=$S(AGE<18:81,AGE>69:79,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:79,1:80)"
180^ICM(4,1,4,1,2,0)="D AGE S DRG=$S(AGE<18:81,AGE>69:79,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:79,1:80)"
181^ICM(4,1,5,0)="NEOPLASM^^82"
182^ICM(4,1,6,0)="MAJOR CHEST TRAUMA^^83^84"
183^ICM(4,1,6,1,0)="^80.32A^2^2"
184^ICM(4,1,6,1,1,0)="D AGE S DRG=$S(AGE>69:83,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:83,1:84)"
185^ICM(4,1,6,1,2,0)="D AGE S DRG=$S(AGE>69:83,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:83,1:84)"
186^ICM(4,1,7,0)="PLEURAL EFFUSION^^85^86"
187^ICM(4,1,7,1,0)="^80.32A^2^2"
188^ICM(4,1,7,1,1,0)="D AGE S DRG=$S(AGE>69:85,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:85,1:86)"
189^ICM(4,1,7,1,2,0)="D AGE S DRG=$S(AGE>69:85,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:85,1:86)"
190^ICM(4,1,8,0)="PULMONARY EDEMA & RESP FAILURE^^87"
191^ICM(4,1,9,0)="CHR OBSTRUCTIVE PULMONARY DIS^^88"
192^ICM(4,1,10,0)="SIMPLE PNEUMONIA & PLEURISY^^89^90^91"
193^ICM(4,1,10,1,0)="^80.32A^2^2"
194^ICM(4,1,10,1,1,0)="D AGE S DRG=$S(AGE<18:91,AGE>69:89,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:89,1:90)"
195^ICM(4,1,10,1,2,0)="D AGE S DRG=$S(AGE<18:91,AGE>69:89,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:89,1:90)"
196^ICM(4,1,11,0)="INTERSTITIAL LUNG DISEASE^^92^93"
197^ICM(4,1,11,1,0)="^80.32A^2^2"
198^ICM(4,1,11,1,1,0)="D AGE S DRG=$S(AGE>69:92,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:92,1:93)"
199^ICM(4,1,11,1,2,0)="D AGE S DRG=$S(AGE>69:92,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:92,1:93)"
200^ICM(4,1,12,0)="PNEUMOTHORAX^^94^95"
201^ICM(4,1,12,1,0)="^80.32A^2^2"
202^ICM(4,1,12,1,1,0)="D AGE S DRG=$S(AGE>69:94,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:94,1:95)"
203^ICM(4,1,12,1,2,0)="D AGE S DRG=$S(AGE>69:94,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:94,1:95)"
204^ICM(4,1,13,0)="BRONCHITIS & ASTHMA^^96^97^98"
205^ICM(4,1,13,1,0)="^80.32A^2^2"
206^ICM(4,1,13,1,1,0)="D AGE S DRG=$S(AGE<18:98,AGE>69:96,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:96,1:97)"
207^ICM(4,1,13,1,2,0)="D AGE S DRG=$S(AGE<18:98,AGE>69:96,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:96,1:97)"
208^ICM(4,1,14,0)="SIGNS & SYMPTOMS,RESPIRATORY^^99^100"
209^ICM(4,1,14,1,0)="^80.32A^2^2"
210^ICM(4,1,14,1,1,0)="D AGE S DRG=$S(AGE>69:99,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:99,1:100)"
211^ICM(4,1,14,1,2,0)="D AGE S DRG=$S(AGE>69:99,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:99,1:100)"
212^ICM(4,1,15,0)="OTHER DIAGNOSES,RESPIRATORY^^101^102"
213^ICM(4,1,15,1,0)="^80.32A^2^2"
214^ICM(4,1,15,1,1,0)="D AGE S DRG=$S(AGE>69:101,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:101,1:102)"
215^ICM(4,1,15,1,2,0)="D AGE S DRG=$S(AGE>69:101,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:101,1:102)"
216^ICM(4,1,"B","BRONCHITIS & ASTHMA",13)=""
217^ICM(4,1,"B","CHR OBSTRUCTIVE PULMONARY DIS",9)=""
218^ICM(4,1,"B","INFECTIONS & INFLAMMATIONS",4)=""
219^ICM(4,1,"B","INTERSTITIAL LUNG DISEASE",11)=""
220^ICM(4,1,"B","MAJOR CHEST SURGERY",1)=""
221^ICM(4,1,"B","MAJOR CHEST TRAUMA",6)=""
222^ICM(4,1,"B","NEOPLASM",5)=""
223^ICM(4,1,"B","OTHER DIAGNOSES,RESPIRATORY",15)=""
224^ICM(4,1,"B","OTHER OR PROCEDURES",2)=""
225^ICM(4,1,"B","PLEURAL EFFUSION",7)=""
226^ICM(4,1,"B","PNEUMOTHORAX",12)=""
227^ICM(4,1,"B","PULMONARY EDEMA & RESP FAILURE",8)=""
228^ICM(4,1,"B","PULMONARY EMBOLISM",3)=""
229^ICM(4,1,"B","SIGNS & SYMPTOMS,RESPIRATORY",14)=""
230^ICM(4,1,"B","SIMPLE PNEUMONIA & PLEURISY",10)=""
231^ICM(5,0)="CIRCULATORY SYSTEM"
232^ICM(5,1,0)="^80.31A^26^26"
233^ICM(5,1,1,0)="HEART TRANSPLANT^1^103"
234^ICM(5,1,2,0)="VALVE SURGERY WITH PUMP^1^104^105"
235^ICM(5,1,2,1,0)="^80.32A^2^2"
236^ICM(5,1,2,1,1,0)="W !,""WITH CARDIAC CATHETERIZATION (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:104,1:105),FIN=1"
237^ICM(5,1,2,1,2,0)="W !,""WITH CARDIAC CATHETERIZATION (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:104,1:105),FIN=1"
238^ICM(5,1,3,0)="CORONARY BYPASS^1^106^107"
239^ICM(5,1,3,1,0)="^80.32A^2^2"
240^ICM(5,1,3,1,1,0)="W !,""WITH CARDIAC CATHETERIZATION (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:106,1:107),FIN=1"
241^ICM(5,1,3,1,2,0)="W !,""WITH CARDIAC CATHETERIZATION (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:106,1:107),FIN=1"
242^ICM(5,1,4,0)="CARDIOTHORAC SURG,OTHER w/PUMP^1^108"
243^ICM(5,1,5,0)="CARDIOTHORAC SURG,OTHER noPUMP^1^109"
244^ICM(5,1,6,0)="VASCULAR SURGERY^1^110^111^112"
245^ICM(5,1,6,1,0)="^80.32A^2^2"
246^ICM(5,1,6,1,1,0)="W !,""MAJOR RECONSTRUCTION (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:112,1:""""),FIN=1 I 'DRG D AGE S DRG=$S(AGE>69:110,1:"""") I 'DRG D COM S DRG=$S(X?1""Y"".E:110,1:111)"
247^ICM(5,1,6,1,2,0)="W !,""MAJOR RECONSTRUCTION (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:112,1:""""),FIN=1 I 'DRG D AGE S DRG=$S(AGE>69:110,1:"""") I 'DRG D COM S DRG=$S(X?1""Y"".E:110,1:111)"
248^ICM(5,1,7,0)="AMPUTATION^1^113^114"
249^ICM(5,1,7,1,0)="^80.32A^2^2"
250^ICM(5,1,7,1,1,0)="W !,""AMPUTATION OF UPPER LIMB or TOE (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:113,1:114),FIN=1"
251^ICM(5,1,7,1,2,0)="W !,""AMPUTATION OF UPPER LIMB or TOE (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:113,1:114),FIN=1"
252^ICM(5,1,8,0)="PERMANENT PACEMAKER IMPLANT^1^115^116"
253^ICM(5,1,8,1,0)="^80.32A^2^2"
254^ICM(5,1,8,1,1,0)="W !,""PRINCIPAL DX of AMI or CHF (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:115,1:116),FIN=1"
255^ICM(5,1,8,1,2,0)="W !,""PRINCIPAL DX of AMI or CHF (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:115,1:116),FIN=1"
256^ICM(5,1,9,0)="PACEMAKER REPLACEMENT &/OR REV^1^117^118"
257^ICM(5,1,9,1,0)="^80.32A^2^2"
258^ICM(5,1,9,1,1,0)="W !,""PULSE GENERATOR REPLACEMENT ONLY (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:117,1:118),FIN=1"
259^ICM(5,1,9,1,2,0)="W !,""PULSE GENERATOR REPLACEMENT ONLY (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:117,1:118),FIN=1"
260^ICM(5,1,10,0)="VEIN LIGATION & STRIPPING^1^119"
261^ICM(5,1,11,0)="OTHER OR PROCEDURE,CIRCULATORY^1^120"
262^ICM(5,1,12,0)="ACUTE MYOCARDIAL INFARCTION^^121^122^123"
263^ICM(5,1,12,1,0)="^80.32A^2^2"
264^ICM(5,1,12,1,1,0)="W !,""PATIENT ALIVE (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:123,1:""""),FIN=1 I 'DRG W !,""CARDIOVASCULAR COMPLICATIONS (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:121,1:122)"
265^ICM(5,1,12,1,2,0)="W !,""PATIENT ALIVE (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:123,1:""""),FIN=1 I 'DRG W !,""CARDIOVASCULAR COMPLICATIONS (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:121,1:122)"
266^ICM(5,1,13,0)="CARDIAC CATHETERIZATION^^124^125"
267^ICM(5,1,13,1,0)="^80.32A^2^2"
268^ICM(5,1,13,1,1,0)="W !,""COMPLEX DIAGNOSIS (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:124,1:125),FIN=1"
269^ICM(5,1,13,1,2,0)="W !,""COMPLEX DIAGNOSIS (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:124,1:125),FIN=1"
270^ICM(5,1,14,0)="ENDOCARDITIS,ACUTE & SUBACUTE^^126"
271^ICM(5,1,15,0)="HEART FAILURE & SHOCK^^127"
272^ICM(5,1,16,0)="DEEP VEIN THROBOPHLEBITIS^^128"
273^ICM(5,1,17,0)="CARDIAC ARREST^^129"
274^ICM(5,1,18,0)="PERPHERIAL VASCULAR DISEASE^^130^131"
275^ICM(5,1,18,1,0)="^80.32A^2^2"
276^ICM(5,1,18,1,1,0)="D AGE S DRG=$S(AGE>69:130,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:130,1:131)"
277^ICM(5,1,18,1,2,0)="D AGE S DRG=$S(AGE>69:130,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:130,1:131)"
278^ICM(5,1,19,0)="ATHEROSCLEROSIS^^132^133"
279^ICM(5,1,19,1,0)="^80.32A^2^2"
280^ICM(5,1,19,1,1,0)="D AGE S DRG=$S(AGE>69:132,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:132,1:133)"
281^ICM(5,1,19,1,2,0)="D AGE S DRG=$S(AGE>69:132,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:132,1:133)"
282^ICM(5,1,20,0)="HYPERTENSION^^134"
283^ICM(5,1,21,0)="CONGENITAL & VALVULAR,CIRCULAT^^135^136^137"
284^ICM(5,1,21,1,0)="^80.32A^2^2"
285^ICM(5,1,21,1,1,0)="D AGE S DRG=$S(AGE<18:137,AGE>69:135,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:135,1:136)"
286^ICM(5,1,21,1,2,0)="D AGE S DRG=$S(AGE<18:137,AGE>69:135,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:135,1:136)"
287^ICM(5,1,22,0)="ARRHYTHMIA & CONDUCTION,DIS^^138^139"
288^ICM(5,1,22,1,0)="^80.32A^2^2"
289^ICM(5,1,22,1,1,0)="D AGE S DRG=$S(AGE>69:138,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:138,1:139)"
290^ICM(5,1,22,1,2,0)="D AGE S DRG=$S(AGE>69:138,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:138,1:139)"
291^ICM(5,1,23,0)="ANGINA^^140"
292^ICM(5,1,24,0)="SYNCOPE & COLLAPSE^^141^142"
293^ICM(5,1,24,1,0)="^80.32A^2^2"
294^ICM(5,1,24,1,1,0)="D AGE S DRG=$S(AGE>69:141,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:141,1:142)"
295^ICM(5,1,24,1,2,0)="D AGE S DRG=$S(AGE>69:141,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:141,1:142)"
296^ICM(5,1,25,0)="CHEST PAIN^^143"
297^ICM(5,1,26,0)="OTHER DIAGNOSES,CIRCULATORY^^144^145"
298^ICM(5,1,26,1,0)="^80.32A^2^2"
299^ICM(5,1,26,1,1,0)="D COM S DRG=$S(X?1""Y"".E:144,1:145),FIN=1"
300^ICM(5,1,26,1,2,0)="D COM S DRG=$S(X?1""Y"".E:144,1:145),FIN=1"
301^ICM(5,1,"B","ACUTE MYOCARDIAL INFARCTION",12)=""
302^ICM(5,1,"B","AMPUTATION",7)=""
303^ICM(5,1,"B","ANGINA",23)=""
304^ICM(5,1,"B","ARRHYTHMIA & CONDUCTION,DIS",22)=""
305^ICM(5,1,"B","ATHEROSCLEROSIS",19)=""
306^ICM(5,1,"B","CARDIAC ARREST",17)=""
307^ICM(5,1,"B","CARDIAC CATHETERIZATION",13)=""
308^ICM(5,1,"B","CARDIOTHORAC SURG,OTHER noPUMP",5)=""
309^ICM(5,1,"B","CARDIOTHORAC SURG,OTHER w/PUMP",4)=""
310^ICM(5,1,"B","CHEST PAIN",25)=""
311^ICM(5,1,"B","CONGENITAL & VALVULAR,CIRCULAT",21)=""
312^ICM(5,1,"B","CORONARY BYPASS",3)=""
313^ICM(5,1,"B","DEEP VEIN THROBOPHLEBITIS",16)=""
314^ICM(5,1,"B","ENDOCARDITIS,ACUTE & SUBACUTE",14)=""
315^ICM(5,1,"B","HEART FAILURE & SHOCK",15)=""
316^ICM(5,1,"B","HEART TRANSPLANT",1)=""
317^ICM(5,1,"B","HYPERTENSION",20)=""
318^ICM(5,1,"B","OTHER DIAGNOSES,CIRCULATORY",26)=""
319^ICM(5,1,"B","OTHER OR PROCEDURE,CIRCULATORY",11)=""
320^ICM(5,1,"B","PACEMAKER REPLACEMENT &/OR REV",9)=""
321^ICM(5,1,"B","PERMANENT PACEMAKER IMPLANT",8)=""
322^ICM(5,1,"B","PERPHERIAL VASCULAR DISEASE",18)=""
323^ICM(5,1,"B","SYNCOPE & COLLAPSE",24)=""
324^ICM(5,1,"B","VALVE SURGERY WITH PUMP",2)=""
325^ICM(5,1,"B","VASCULAR SURGERY",6)=""
326^ICM(5,1,"B","VEIN LIGATION & STRIPPING",10)=""
327^ICM(6,0)="DIGESTIVE SYSTEM"
328^ICM(6,1,0)="^80.31A^18^18"
329^ICM(6,1,1,0)="RECTAL RESECTION^1^146^147"
330^ICM(6,1,1,1,0)="^80.32A^2^2"
331^ICM(6,1,1,1,1,0)="D AGE S DRG=$S(AGE>69:146,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:146,1:147)"
332^ICM(6,1,1,1,2,0)="D AGE S DRG=$S(AGE>69:146,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:146,1:147)"
333^ICM(6,1,2,0)="MAJOR SM & LG BOWEL SURGERY^1^148^149"
334^ICM(6,1,2,1,0)="^80.32A^2^2"
335^ICM(6,1,2,1,1,0)="D AGE S DRG=$S(AGE>69:148,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:148,1:149)"
336^ICM(6,1,2,1,2,0)="D AGE S DRG=$S(AGE>69:148,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:148,1:149)"
337^ICM(6,1,3,0)="ADHESIOLYSIS^1^150^151"
338^ICM(6,1,3,1,0)="^80.32A^2^2"
339^ICM(6,1,3,1,1,0)="D AGE S DRG=$S(AGE>69:150,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:150,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:150,1:151)"
340^ICM(6,1,3,1,2,0)="D AGE S DRG=$S(AGE>69:150,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:150,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:150,1:151)"
341^ICM(6,1,4,0)="MINOR SM & LG BOWEL SURGERY^1^152^153"
342^ICM(6,1,4,1,0)="^80.32A^2^2"
343^ICM(6,1,4,1,1,0)="D AGE S DRG=$S(AGE>69:152,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:152,1:153)"
344^ICM(6,1,4,1,2,0)="D AGE S DRG=$S(AGE>69:152,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:152,1:153)"
345^ICM(6,1,5,0)="STOMACH,ESO,DUODENUM SURGERY^1^154^155^156"
346^ICM(6,1,5,1,0)="^80.32A^2^2"
347^ICM(6,1,5,1,1,0)="D AGE S DRG=$S(AGE<18:156,AGE>69:154,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:154,1:155)"
348^ICM(6,1,5,1,2,0)="D AGE S DRG=$S(AGE<18:156,AGE>69:154,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:154,1:155)"
349^ICM(6,1,6,0)="ANUS SURGERY^1^157^158"
350^ICM(6,1,6,1,0)="^80.32A^2^2"
351^ICM(6,1,6,1,1,0)="D AGE S DRG=$S(AGE>69:157,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:157,1:158)"
352^ICM(6,1,6,1,2,0)="D AGE S DRG=$S(AGE>69:157,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:157,1:158)"
353^ICM(6,1,7,0)="HERNIA SURGERY^1^159^160^161^162^163"
354^ICM(6,1,7,1,0)="^80.32A^4^4"
355^ICM(6,1,7,1,1,0)="D AGE S DRG=$S(AGE<18:163,1:"""") S:DRG FIN=1 I 'DRG R !,""Ingiunal or Femoral OR Procedure (Y/N) ? "",IF:60 S:IF'?1""Y"".E&(IF'?1""N"".E) BAD=1"
356^ICM(6,1,7,1,2,0)="S DRG=$S(IF?1""N"".E&(AGE>69):159,IF?1""Y"".E&(AGE>69):161,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E&(IF?1""N"".E):159,X?1""N"".E&(IF?1""N""):160,X?1""Y"".E:161,1:162)"
357^ICM(6,1,7,1,3,0)="D AGE S DRG=$S(AGE<18:163,1:"""") S:DRG FIN=1 I 'DRG R !,""Ingiunal or Femoral OR Procedure (Y/N) ? "",IF:60 S:IF'?1""Y"".E&(IF'?1""N"".E) BAD=1"
358^ICM(6,1,7,1,4,0)="S DRG=$S(IF?1""N"".E&(AGE>69):159,IF?1""Y"".E&(AGE>69):161,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E&(IF?1""N"".E):159,X?1""N"".E&(IF?1""N""):160,X?1""Y"".E:161,1:162)"
359^ICM(6,1,8,0)="APPENDECTOMY^1^164^165^166^167"
360^ICM(6,1,8,1,0)="^80.32A^4^4"
361^ICM(6,1,8,1,1,0)="R !,""Complicated Diagnosis (Y/N) ? "",CD:60 S:CD'?1""Y"".E&(CD'?1""N"".E) BAD=1 D AGE"
362^ICM(6,1,8,1,2,0)="S DRG=$S(AGE>69&(CD?1""Y"".E):164,AGE>69&(CD?1""N"".E):166,1:""""),FIN=1 I 'DRG D COM S DRG=$S(CD?1""Y"".E&(X?1""Y"".E):164,CD?1""Y"".E&(X?1""N"".E):165,X?1""Y"".E:166,1:167)"
363^ICM(6,1,8,1,3,0)="R !,""Complicated Diagnosis (Y/N) ? "",CD:60 S:CD'?1""Y"".E&(CD'?1""N"".E) BAD=1 D AGE"
364^ICM(6,1,8,1,4,0)="S DRG=$S(AGE>69&(CD?1""Y"".E):164,AGE>69&(CD?1""N"".E):166,1:""""),FIN=1 I 'DRG D COM S DRG=$S(CD?1""Y"".E&(X?1""Y"".E):164,CD?1""Y"".E&(X?1""N"".E):165,X?1""Y"".E:166,1:167)"
365^ICM(6,1,9,0)="MOUTH SURGERY^1^168^169"
366^ICM(6,1,9,1,0)="^80.32A^2^2"
367^ICM(6,1,9,1,1,0)="D AGE S DRG=$S(AGE>69:168,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:168,1:169)"
368^ICM(6,1,9,1,2,0)="D AGE S DRG=$S(AGE>69:168,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:168,1:169)"
369^ICM(6,1,10,0)="OTHER OR PROCEDURES,DIGESTIVE^1^170^171"
370^ICM(6,1,10,1,0)="^80.32A^2^2"
371^ICM(6,1,10,1,1,0)="D AGE S DRG=$S(AGE>69:170,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:170,1:171)"
372^ICM(6,1,10,1,2,0)="D AGE S DRG=$S(AGE>69:170,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:170,1:171)"
373^ICM(6,1,11,0)="MALIGNANCY,DIGESTIVE SYSTEM^^172^173"
374^ICM(6,1,11,1,0)="^80.32A^2^2"
375^ICM(6,1,11,1,1,0)="D AGE S DRG=$S(AGE>69:172,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:172,1:173)"
376^ICM(6,1,11,1,2,0)="D AGE S DRG=$S(AGE>69:172,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:172,1:173)"
377^ICM(6,1,12,0)="HEMORRHAGE,DIGESTIVE SYSTEM^^174^175"
378^ICM(6,1,12,1,0)="^80.32A^2^2"
379^ICM(6,1,12,1,1,0)="D AGE S DRG=$S(AGE>69:174,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:174,1:175)"
380^ICM(6,1,12,1,2,0)="D AGE S DRG=$S(AGE>69:174,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:174,1:175)"
381^ICM(6,1,13,0)="ULCER,DIGESTIVE SYSTEM^^176^177^178"
382^ICM(6,1,13,1,0)="^80.32A^4^4"
383^ICM(6,1,13,1,1,0)="R !,""Complicated Principal Diagnosis (Y/N) ? "",CD:60 S:CD'?1""Y"".E&(CD'?1""N"".E) BAD=1 S DRG=$S(CD?1""Y"".E:176,1:"""") S:DRG FIN=1"
384^ICM(6,1,13,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:177,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:177,1:178)"
385^ICM(6,1,13,1,3,0)="R !,""Complicated Principal Diagnosis (Y/N) ? "",CD:60 S:CD'?1""Y"".E&(CD'?1""N"".E) BAD=1 S DRG=$S(CD?1""Y"".E:176,1:"""") S:DRG FIN=1"
386^ICM(6,1,13,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:177,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:177,1:178)"
387^ICM(6,1,14,0)="INFLAMMATORY BOWEL DISORDER^^179"
388^ICM(6,1,15,0)="OBSTRUCTION,DIGESTIVE SYSTEM^^180^181"
389^ICM(6,1,15,1,0)="^80.32A^2^2"
390^ICM(6,1,15,1,1,0)="D AGE S DRG=$S(AGE>69:180,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:180,1:181)"
391^ICM(6,1,15,1,2,0)="D AGE S DRG=$S(AGE>69:180,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:180,1:181)"
392^ICM(6,1,16,0)="ESOPHAGITIS & MISC DISORDERS^^182^183^184"
393^ICM(6,1,16,1,0)="^80.32A^2^2"
394^ICM(6,1,16,1,1,0)="D AGE S DRG=$S(AGE<18:184,AGE>69:182,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:182,1:183)"
395^ICM(6,1,16,1,2,0)="D AGE S DRG=$S(AGE<18:184,AGE>69:182,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:182,1:183)"
396^ICM(6,1,17,0)="DENTAL & ORAL DISORDERS^^185^186^187"
397^ICM(6,1,17,1,0)="^80.32A^4^4"
398^ICM(6,1,17,1,1,0)="R !,""Extraction and/or Restoration (Y/N) ? "",X:60 S:X'?1""Y"".E&(X'?1""N"".E) BAD=1"
399^ICM(6,1,17,1,2,0)="S DRG=$S(X?1""Y"".E:187,1:""""),FIN=1 I 'DRG D AGE Q:$D(BAD) S DRG=$S(X?1""Y"".E:187,AGE>17:185,1:186)"
400^ICM(6,1,17,1,3,0)="R !,""Extraction and/or Restoration (Y/N) ? "",X:60 S:X'?1""Y"".E&(X'?1""N"".E) BAD=1"
401^ICM(6,1,17,1,4,0)="S DRG=$S(X?1""Y"".E:187,1:""""),FIN=1 I 'DRG D AGE Q:$D(BAD) S DRG=$S(X?1""Y"".E:187,AGE>17:185,1:186)"
402^ICM(6,1,18,0)="OTHER DIAGNOSES,DIGESTIVE SYS^^188^189^190"
403^ICM(6,1,18,1,0)="^80.32A^2^2"
404^ICM(6,1,18,1,1,0)="D AGE S DRG=$S(AGE<18:190,AGE>69:188,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:188,1:189)"
405^ICM(6,1,18,1,2,0)="D AGE S DRG=$S(AGE<18:190,AGE>69:188,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:188,1:189)"
406^ICM(6,1,"B","ADHESIOLYSIS",3)=""
407^ICM(6,1,"B","ANUS SURGERY",6)=""
408^ICM(6,1,"B","APPENDECTOMY",8)=""
409^ICM(6,1,"B","DENTAL & ORAL DISORDERS",17)=""
410^ICM(6,1,"B","ESOPHAGITIS & MISC DISORDERS",16)=""
411^ICM(6,1,"B","HEMORRHAGE,DIGESTIVE SYSTEM",12)=""
412^ICM(6,1,"B","HERNIA SURGERY",7)=""
413^ICM(6,1,"B","INFLAMMATORY BOWEL DISORDER",14)=""
414^ICM(6,1,"B","MAJOR SM & LG BOWEL SURGERY",2)=""
415^ICM(6,1,"B","MALIGNANCY,DIGESTIVE SYSTEM",11)=""
416^ICM(6,1,"B","MINOR SM & LG BOWEL SURGERY",4)=""
417^ICM(6,1,"B","MOUTH SURGERY",9)=""
418^ICM(6,1,"B","OBSTRUCTION,DIGESTIVE SYSTEM",15)=""
419^ICM(6,1,"B","OTHER DIAGNOSES,DIGESTIVE SYS",18)=""
420^ICM(6,1,"B","OTHER OR PROCEDURES,DIGESTIVE",10)=""
421^ICM(6,1,"B","RECTAL RESECTION",1)=""
422^ICM(6,1,"B","STOMACH,ESO,DUODENUM SURGERY",5)=""
423^ICM(6,1,"B","ULCER,DIGESTIVE SYSTEM",13)=""
424^ICM(7,0)="HEPATOBILIARY & PANCREAS"
425^ICM(7,1,0)="^80.31A^9^9"
426^ICM(7,1,1,0)="PANCREAS,LIVER,SHUNT SURGERY^1^191^192"
427^ICM(7,1,1,1,0)="^80.32A^2^2"
428^ICM(7,1,1,1,1,0)="R !,""Major OR Procedure (Y/N) ? "",X:60 S:X'?1""Y"".E&(X'?1""N"".E) BAD=1 S DRG=$S(X?1""Y"".E:191,1:192),FIN=1"
429^ICM(7,1,1,1,2,0)="R !,""Major OR Procedure (Y/N) ? "",X:60 S:X'?1""Y"".E&(X'?1""N"".E) BAD=1 S DRG=$S(X?1""Y"".E:191,1:192),FIN=1"
430^ICM(7,1,2,0)="BILIARY TRACT SURGERY^1^193^194^195^196^197^198"
431^ICM(7,1,2,1,0)="^80.32A^4^4"
432^ICM(7,1,2,1,1,0)="D AGE Q:$D(BAD) W !,""Total cholecystectomy"",?30,""(Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) S DRG=$S(AGE>69:193,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:193,1:194)"
433^ICM(7,1,2,1,2,0)="W !,""Common Bile Duct Exploration (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E&(AGE>69):195,YN?1""N"".E&(AGE>69):197,1:""""),FIN=1 I 'DRG D COM S DRG=$S(YN?1""Y"".E&(X?1""Y"".E):195,YN?1""Y"".E:196,X?1""Y"".E:197,1:198)"
434^ICM(7,1,2,1,3,0)="D AGE Q:$D(BAD) W !,""Total cholecystectomy"",?30,""(Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) S DRG=$S(AGE>69:193,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:193,1:194)"
435^ICM(7,1,2,1,4,0)="W !,""Common Bile Duct Exploration (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E&(AGE>69):195,YN?1""N"".E&(AGE>69):197,1:""""),FIN=1 I 'DRG D COM S DRG=$S(YN?1""Y"".E&(X?1""Y"".E):195,YN?1""Y"".E:196,X?1""Y"".E:197,1:198)"
436^ICM(7,1,3,0)="EXPLORATORY DIAGNOSTIC WORKUP^1^199^200"
437^ICM(7,1,3,1,0)="^80.32A^2^2"
438^ICM(7,1,3,1,1,0)="R !,""Principal Diagnosis of Malignancy (Y/N) ? "",X:60 Q:X'?1""Y"".E&(X'?1""N"".E) S DRG=$S(X?1""Y"".E:199,1:200),FIN=1"
439^ICM(7,1,3,1,2,0)="R !,""Principal Diagnosis of Malignancy (Y/N) ? "",X:60 Q:X'?1""Y"".E&(X'?1""N"".E) S DRG=$S(X?1""Y"".E:199,1:200),FIN=1"
440^ICM(7,1,4,0)="OTHER OR PROCEDURE LIVER/PANCR^1^201"
441^ICM(7,1,5,0)="CIRRHOSIS,ALCOHOLIC HEPATITIS^^202"
442^ICM(7,1,6,0)="MALIGNANCY,HEPATOBILIARY,PANCR^^203"
443^ICM(7,1,7,0)="OTHER DISORDER,PANCREAS^^204"
444^ICM(7,1,8,0)="OTHER DISORDER,LIVER^^205^206"
445^ICM(7,1,8,1,0)="^80.32A^2^2"
446^ICM(7,1,8,1,1,0)="D AGE S DRG=$S(AGE>69:205,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:205,1:206)"
447^ICM(7,1,8,1,2,0)="D AGE S DRG=$S(AGE>69:205,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:205,1:206)"
448^ICM(7,1,9,0)="OTHER DISORDER,BILIARY TRACT^^207^208"
449^ICM(7,1,9,1,0)="^80.32A^2^2"
450^ICM(7,1,9,1,1,0)="D AGE S DRG=$S(AGE>69:207,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:207,1:208)"
451^ICM(7,1,9,1,2,0)="D AGE S DRG=$S(AGE>69:207,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:207,1:208)"
452^ICM(7,1,"B","BILIARY TRACT SURGERY",2)=""
453^ICM(7,1,"B","CIRRHOSIS,ALCOHOLIC HEPATITIS",5)=""
454^ICM(7,1,"B","EXPLORATORY DIAGNOSTIC WORKUP",3)=""
455^ICM(7,1,"B","MALIGNANCY,HEPATOBILIARY,PANCR",6)=""
456^ICM(7,1,"B","OTHER DISORDER,BILIARY TRACT",9)=""
457^ICM(7,1,"B","OTHER DISORDER,LIVER",8)=""
458^ICM(7,1,"B","OTHER DISORDER,PANCREAS",7)=""
459^ICM(7,1,"B","OTHER OR PROCEDURE LIVER/PANCR",4)=""
460^ICM(7,1,"B","PANCREAS,LIVER,SHUNT SURGERY",1)=""
461^ICM(8,0)="MUSCULOSKELETAL & CONNECTIVE T"
462^ICM(8,1,0)="^80.31A^37^37"
463^ICM(8,1,1,0)="MAJOR JOINT SURGERY^1^209"
464^ICM(8,1,2,0)="OTHER HIP, FEMUR SURGERY^1^210^211^212"
465^ICM(8,1,2,1,0)="^80.32A^2^2"
466^ICM(8,1,2,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:212,AGE>69:210,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:210,1:211)"
467^ICM(8,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:212,AGE>69:210,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:210,1:211)"
468^ICM(8,1,3,0)="AMPUTATION^1^213"
469^ICM(8,1,4,0)="BACK, NECK SURGERY^1^214^215"
470^ICM(8,1,4,1,0)="^80.32A^2^2"
471^ICM(8,1,4,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:214,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:214,1:215)"
472^ICM(8,1,4,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:214,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:214,1:215)"
473^ICM(8,1,5,0)="BIOPSY,MUSCULOSKELETAL,C.T.^1^216"
474^ICM(8,1,6,0)="DEBRIDEMENT,GRAFT EXCEPT HAND^1^217"
475^ICM(8,1,7,0)="OTHER L. EXTREMITY,HUMERUS OPR^1^218^219^220"
476^ICM(8,1,7,1,0)="^80.32A^2^2"
477^ICM(8,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:220,AGE>69:218,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:218,1:219)"
478^ICM(8,1,7,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:220,AGE>69:218,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:218,1:219)"
479^ICM(8,1,8,0)="KNEE SURGERY^1^221^222"
480^ICM(8,1,8,1,0)="^80.32A^2^2"
481^ICM(8,1,8,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:221,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:221,1:222)"
482^ICM(8,1,8,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:221,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:221,1:222)"
483^ICM(8,1,9,0)="OTHER UPPER EXTREMITY SURGERY^1^223^224"
484^ICM(8,1,9,1,0)="^80.32A^2^2"
485^ICM(8,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:223,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:223,1:224)"
486^ICM(8,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:223,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:223,1:224)"
487^ICM(8,1,10,0)="FOOT SURGERY^1^225"
488^ICM(8,1,11,0)="SOFT TISSUE SURGERY^1^226^227"
489^ICM(8,1,11,1,0)="^80.32A^2^2"
490^ICM(8,1,11,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:226,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:226,1:227)"
491^ICM(8,1,11,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:226,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:226,1:227)"
492^ICM(8,1,12,0)="HAND SURGERY^1^228^229"
493^ICM(8,1,12,1,0)="^80.32A^2^2"
494^ICM(8,1,12,1,1,0)="W !,""Principal Diagnosis of Ganglion (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:228,1:229),FIN=1"
495^ICM(8,1,12,1,2,0)="W !,""Principal Diagnosis of Ganglion (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:228,1:229),FIN=1"
496^ICM(8,1,13,0)="REM INT FIX DEV,LOCAL EXCISION^1^230^231"
497^ICM(8,1,13,1,0)="^80.32A^2^2"
498^ICM(8,1,13,1,1,0)="W !!,""Removal of internal fixation device or local excision"",!?10,""Hip or Femur (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:230,1:231),FIN=1"
499^ICM(8,1,13,1,2,0)="W !!,""Removal of internal fixation device or local excision"",!?10,""Hip or Femur (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:230,1:231),FIN=1"
500^ICM(8,1,14,0)="ARTHROSCOPY^1^232"
501^ICM(8,1,15,0)="OTHER OR PROCEDURE,MUSCLE/BONE^1^233^234"
502^ICM(8,1,15,1,0)="^80.32A^2^2"
503^ICM(8,1,15,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:233,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:233,1:234)"
504^ICM(8,1,15,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:233,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:233,1:234)"
505^ICM(8,1,16,0)="FRACTURE OF FEMUR^^235"
506^ICM(8,1,17,0)="FRACTURE OF HIP,PELVIS^^236"
507^ICM(8,1,18,0)="STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH^^237"
508^ICM(8,1,19,0)="OSTEOMYELITIS^^238"
509^ICM(8,1,20,0)="MALIGNANCY &/or PATHOLOGIC FRACTURE^^239"
510^ICM(8,1,21,0)="CONNECTIVE TISSUE DISORDER^^240^241"
511^ICM(8,1,21,1,0)="^80.32A^2^2"
512^ICM(8,1,21,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:240,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:240,1:241)"
513^ICM(8,1,21,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:240,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:240,1:241)"
514^ICM(8,1,22,0)="SEPTIC ARTHRITIS^^242"
515^ICM(8,1,23,0)="BACK DISORDER,NO SURGERY^^243"
516^ICM(8,1,24,0)="BONE DISEASE, SPECIFIC ARTHROPATHY^^244^245"
517^ICM(8,1,24,1,0)="^80.32A^2^2"
518^ICM(8,1,24,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:244,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:244,1:245)"
519^ICM(8,1,24,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:244,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:244,1:245)"
520^ICM(8,1,25,0)="NONSPECIFIC ARTHROPATHY^^246"
521^ICM(8,1,26,0)="SIGN,SYMPTOM:MUSCLE,BONE,C.T.^^247"
522^ICM(8,1,27,0)="TENDONITIS,MYOSITIS,BURSITIS^^248"
523^ICM(8,1,28,0)="AFTERCARE:MUSCULOSKELETAL,C.T.^^249"
524^ICM(8,1,29,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT^^250^251^252"
525^ICM(8,1,29,1,0)="^80.32A^2^2"
526^ICM(8,1,29,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:252,AGE>69:250,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:250,1:251)"
527^ICM(8,1,29,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:252,AGE>69:250,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:250,1:251)"
528^ICM(8,1,30,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG^^253^254^255"
529^ICM(8,1,30,1,0)="^80.32A^2^2"
530^ICM(8,1,30,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:255,AGE>69:253,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:253,1:254)"
531^ICM(8,1,30,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:255,AGE>69:253,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:253,1:254)"
532^ICM(8,1,31,0)="OTHER DISORDER,BONE,MUSCLE,C.T.^^256"
533^ICM(8,1,32,0)="STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH^^237"
534^ICM(8,1,33,0)="MALIGNANCY &/or PATHOLOGIC FRACTURE^^239"
535^ICM(8,1,34,0)="BONE DISEASE, SPECIFIC ARTHROPATHY^^244^245"
536^ICM(8,1,34,1,0)="^80.32A^1^1"
537^ICM(8,1,34,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:244,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:244,1:245)"
538^ICM(8,1,35,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT^^250^251^252"
539^ICM(8,1,35,1,0)="^80.32A^1^1"
540^ICM(8,1,35,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:252,AGE>69:250,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:250,1:251)"
541^ICM(8,1,36,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG^^253^254^255"
542^ICM(8,1,36,1,0)="^80.32A^1^1"
543^ICM(8,1,36,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:255,AGE>69:253,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:253,1:254)"
544^ICM(8,1,37,0)="OTHER DISORDER,BONE,MUSCLE,C.T.^^256"
545^ICM(8,1,"B","AFTERCARE:MUSCULOSKELETAL,C.T.",28)=""
546^ICM(8,1,"B","AMPUTATION",3)=""
547^ICM(8,1,"B","ARTHROSCOPY",14)=""
548^ICM(8,1,"B","BACK DISORDER,NO SURGERY",23)=""
549^ICM(8,1,"B","BACK, NECK SURGERY",4)=""
550^ICM(8,1,"B","BIOPSY,MUSCULOSKELETAL,C.T.",5)=""
551^ICM(8,1,"B","BONE DISEASE, SPECIFIC ARTHROPATHY",24)=""
552^ICM(8,1,"B","BONE DISEASE, SPECIFIC ARTHROPATHY",34)=""
553^ICM(8,1,"B","CONNECTIVE TISSUE DISORDER",21)=""
554^ICM(8,1,"B","DEBRIDEMENT,GRAFT EXCEPT HAND",6)=""
555^ICM(8,1,"B","FOOT SURGERY",10)=""
556^ICM(8,1,"B","FRACTURE OF FEMUR",16)=""
557^ICM(8,1,"B","FRACTURE OF HIP,PELVIS",17)=""
558^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT",29)=""
559^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT",35)=""
560^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG",30)=""
561^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG",36)=""
562^ICM(8,1,"B","HAND SURGERY",12)=""
563^ICM(8,1,"B","KNEE SURGERY",8)=""
564^ICM(8,1,"B","MAJOR JOINT SURGERY",1)=""
565^ICM(8,1,"B","MALIGNANCY &/or PATHOLOGIC FRACTURE",20)=""
566^ICM(8,1,"B","MALIGNANCY &/or PATHOLOGIC FRACTURE",33)=""
567^ICM(8,1,"B","NONSPECIFIC ARTHROPATHY",25)=""
568^ICM(8,1,"B","OSTEOMYELITIS",19)=""
569^ICM(8,1,"B","OTHER DISORDER,BONE,MUSCLE,C.T.",31)=""
570^ICM(8,1,"B","OTHER DISORDER,BONE,MUSCLE,C.T.",37)=""
571^ICM(8,1,"B","OTHER HIP, FEMUR SURGERY",2)=""
572^ICM(8,1,"B","OTHER L. EXTREMITY,HUMERUS OPR",7)=""
573^ICM(8,1,"B","OTHER OR PROCEDURE,MUSCLE/BONE",15)=""
574^ICM(8,1,"B","OTHER UPPER EXTREMITY SURGERY",9)=""
575^ICM(8,1,"B","REM INT FIX DEV,LOCAL EXCISION",13)=""
576^ICM(8,1,"B","SEPTIC ARTHRITIS",22)=""
577^ICM(8,1,"B","SIGN,SYMPTOM:MUSCLE,BONE,C.T.",26)=""
578^ICM(8,1,"B","SOFT TISSUE SURGERY",11)=""
579^ICM(8,1,"B","STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH",18)=""
580^ICM(8,1,"B","STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH",32)=""
581^ICM(8,1,"B","TENDONITIS,MYOSITIS,BURSITIS",27)=""
582^ICM(9,0)="SKIN,BREAST,SUBCUTANEOUS T"
583^ICM(9,1,0)="^80.31A^13^13"
584^ICM(9,1,1,0)="BREAST SURGERY^1^257^258^259^260^261^262"
585^ICM(9,1,1,1,0)="^80.32A^6^6"
586^ICM(9,1,1,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) S:YN?1""N"".E NO=1 Q:$D(NO) W !?7,""Subtotal mastectomy"",?34,""(Y/N) ? "" D YN Q:$D(BAD) D AGE Q:$D(BAD) S DRG=$S(YN?1""N"".E&(AGE>69):257,AGE>69:259,1:"""") S:DRG FIN=1"
587^ICM(9,1,1,1,2,0)="I '$D(NO) D COM S DRG=$S(YN?1""N"".E&(X?1""Y"".E):257,YN?1""N"".E&(X?1""N"".E):258,X?1""Y"".E:259,1:260),FIN=1"
588^ICM(9,1,1,1,3,0)="K NO W !?4,""Biopsy and local excision"",?34,""(Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:261,1:262),FIN=1"
589^ICM(9,1,1,1,4,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) S:YN?1""N"".E NO=1 Q:$D(NO) W !?7,""Subtotal mastectomy"",?34,""(Y/N) ? "" D YN Q:$D(BAD) D AGE Q:$D(BAD) S DRG=$S(YN?1""N"".E&(AGE>69):257,AGE>69:259,1:"""") S:DRG FIN=1"
590^ICM(9,1,1,1,5,0)="I '$D(NO) D COM S DRG=$S(YN?1""N"".E&(X?1""Y"".E):257,YN?1""N"".E&(X?1""N"".E):258,X?1""Y"".E:259,1:260),FIN=1"
591^ICM(9,1,1,1,6,0)="K NO W !?4,""Biopsy and local excision"",?34,""(Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:261,1:262),FIN=1"
592^ICM(9,1,2,0)="SKIN GRAFT^1^263^264^265^266"
593^ICM(9,1,2,1,0)="^80.32A^4^4"
594^ICM(9,1,2,1,1,0)="W !,""Principal diagnosis of skin ulcer or cellulitis (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) D COM S DRG=$S(X?1""Y"".E:265,1:266),FIN=1"
595^ICM(9,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:263,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:263,1:264)"
596^ICM(9,1,2,1,3,0)="W !,""Principal diagnosis of skin ulcer or cellulitis (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) D COM S DRG=$S(X?1""Y"".E:265,1:266),FIN=1"
597^ICM(9,1,2,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:263,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:263,1:264)"
598^ICM(9,1,3,0)="PERIANAL & PILONIDAL CYST SURGERY^1^267"
599^ICM(9,1,4,0)="PLASTIC SURGERY^1^268"
600^ICM(9,1,5,0)="OTHER OR PROCEDURE:SKIN,BREAST,SUBC T^1^269^270"
601^ICM(9,1,5,1,0)="^80.32A^2^2"
602^ICM(9,1,5,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:269,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:269,1:270)"
603^ICM(9,1,5,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:269,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:269,1:270)"
604^ICM(9,1,6,0)="SKIN ULCER^^271"
605^ICM(9,1,7,0)="MAJOR SKIN DISORDER^^272^273"
606^ICM(9,1,7,1,0)="^80.32A^2^2"
607^ICM(9,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:272,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:272,1:273)"
608^ICM(9,1,7,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:272,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:272,1:273)"
609^ICM(9,1,8,0)="BREAST DISORDERS, NO SURGERY^^274^275^276"
610^ICM(9,1,8,1,0)="^80.32A^4^4"
611^ICM(9,1,8,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) I YN?1""N"".E S DRG=276,FIN=1"
612^ICM(9,1,8,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:274,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:274,1:275)"
613^ICM(9,1,8,1,3,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) I YN?1""N"".E S DRG=276,FIN=1"
614^ICM(9,1,8,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:274,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:274,1:275)"
615^ICM(9,1,9,0)="CELLULITIS^^277^278^279"
616^ICM(9,1,9,1,0)="^80.32A^2^2"
617^ICM(9,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:279,AGE>69:277,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:277,1:278)"
618^ICM(9,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:279,AGE>69:277,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:277,1:278)"
619^ICM(9,1,10,0)="TRAUMA^^280^281^282"
620^ICM(9,1,10,1,0)="^80.32A^2^2"
621^ICM(9,1,10,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:282,AGE>69:280,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:280,1:281)"
622^ICM(9,1,10,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:282,AGE>69:280,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:280,1:281)"
623^ICM(9,1,11,0)="MINOR SKIN DISORDER^^283^284"
624^ICM(9,1,11,1,0)="^80.32A^2^2"
625^ICM(9,1,11,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:283,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:283,1:284)"
626^ICM(9,1,11,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:283,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:283,1:284)"
627^ICM(9,1,12,0)="PERIANAL & PILONIDAL CYST SURGERY^1^267"
628^ICM(9,1,13,0)="OTHER OR PROCEDURE:SKIN,BREAST,SUBC T^1^269^270"
629^ICM(9,1,13,1,0)="^80.32A^1^1"
630^ICM(9,1,13,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:269,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:269,1:270)"
631^ICM(9,1,"B","BREAST DISORDERS, NO SURGERY",8)=""
632^ICM(9,1,"B","BREAST SURGERY",1)=""
633^ICM(9,1,"B","CELLULITIS",9)=""
634^ICM(9,1,"B","MAJOR SKIN DISORDER",7)=""
635^ICM(9,1,"B","MINOR SKIN DISORDER",11)=""
636^ICM(9,1,"B","OTHER OR PROCEDURE:SKIN,BREAST,SUBC T",5)=""
637^ICM(9,1,"B","OTHER OR PROCEDURE:SKIN,BREAST,SUBC T",13)=""
638^ICM(9,1,"B","PERIANAL & PILONIDAL CYST SURGERY",3)=""
639^ICM(9,1,"B","PERIANAL & PILONIDAL CYST SURGERY",12)=""
640^ICM(9,1,"B","PLASTIC SURGERY",4)=""
641^ICM(9,1,"B","SKIN GRAFT",2)=""
642^ICM(9,1,"B","SKIN ULCER",6)=""
643^ICM(9,1,"B","TRAUMA",10)=""
644^ICM(10,0)="ENDOCRINE,NUTRIT,METABOLIC"
645^ICM(10,1,0)="^80.31A^12^12"
646^ICM(10,1,1,0)="AMPUTATION^1^285"
647^ICM(10,1,2,0)="ADRENAL OR PITUITARY SURGERY^1^286"
648^ICM(10,1,3,0)="SKIN GRAFT,WOUND DEBRIDEMENT^1^287"
649^ICM(10,1,4,0)="OR PROCEDURE FOR OBESITY^1^288"
650^ICM(10,1,5,0)="PARATHYROID SURGERY^1^289"
651^ICM(10,1,6,0)="THYROID SURGERY^1^290"
652^ICM(10,1,7,0)="THYROGLOSSAL SURGERY^1^291"
653^ICM(10,1,8,0)="OTHER OR PROCEDURE:ENDOCR,NUTR^1^292^293"
654^ICM(10,1,8,1,0)="^80.32A^2^2"
655^ICM(10,1,8,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:292,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:292,1:293)"
656^ICM(10,1,8,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:292,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:292,1:293)"
657^ICM(10,1,9,0)="DIABETES; NO SURGERY^^294^295"
658^ICM(10,1,9,1,0)="^80.32A^2^2"
659^ICM(10,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>35:294,1:295),FIN=1"
660^ICM(10,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>35:294,1:295),FIN=1"
661^ICM(10,1,10,0)="NUTR,MISC METABOLIC DISORDER^^296^297^298"
662^ICM(10,1,10,1,0)="^80.32A^2^2"
663^ICM(10,1,10,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:298,AGE>69:296,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:296,1:297)"
664^ICM(10,1,10,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:298,AGE>69:296,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:296,1:297)"
665^ICM(10,1,11,0)="INBORN ERROR OF METABOLISM^^299"
666^ICM(10,1,12,0)="ENDOCRINE DISORDER^^300^301"
667^ICM(10,1,12,1,0)="^80.32A^2^2"
668^ICM(10,1,12,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:300,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:300,1:301)"
669^ICM(10,1,12,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:300,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:300,1:301)"
670^ICM(10,1,"B","ADRENAL OR PITUITARY SURGERY",2)=""
671^ICM(10,1,"B","AMPUTATION",1)=""
672^ICM(10,1,"B","DIABETES; NO SURGERY",9)=""
673^ICM(10,1,"B","ENDOCRINE DISORDER",12)=""
674^ICM(10,1,"B","INBORN ERROR OF METABOLISM",11)=""
675^ICM(10,1,"B","NUTR,MISC METABOLIC DISORDER",10)=""
676^ICM(10,1,"B","OR PROCEDURE FOR OBESITY",4)=""
677^ICM(10,1,"B","OTHER OR PROCEDURE:ENDOCR,NUTR",8)=""
678^ICM(10,1,"B","PARATHYROID SURGERY",5)=""
679^ICM(10,1,"B","SKIN GRAFT,WOUND DEBRIDEMENT",3)=""
680^ICM(10,1,"B","THYROGLOSSAL SURGERY",7)=""
681^ICM(10,1,"B","THYROID SURGERY",6)=""
682^ICM(11,0)="KIDNEY & URINARY TRACT"
683^ICM(11,1,0)="^80.31A^18^18"
684^ICM(11,1,1,0)="KIDNEY TRANSPLANT^1^302"
685^ICM(11,1,2,0)="KIDNEY,URETER,MAJOR BLADDER SURGERY^1^303^304^305"
686^ICM(11,1,2,1,0)="^80.32A^4^4"
687^ICM(11,1,2,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=303,FIN=1"
688^ICM(11,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:304,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:304,1:305)"
689^ICM(11,1,2,1,3,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=303,FIN=1"
690^ICM(11,1,2,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:304,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:304,1:305)"
691^ICM(11,1,3,0)="PROSTATECTOMY^1^306^307"
692^ICM(11,1,3,1,0)="^80.32A^2^2"
693^ICM(11,1,3,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:306,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:306,1:307)"
694^ICM(11,1,3,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:306,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:306,1:307)"
695^ICM(11,1,4,0)="OTHER URINARY BLADDER SURGERY^1^308^309"
696^ICM(11,1,4,1,0)="^80.32A^2^2"
697^ICM(11,1,4,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:308,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:308,1:309)"
698^ICM(11,1,4,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:308,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:308,1:309)"
699^ICM(11,1,5,0)="TRANSURETHRAL SURGERY^1^310^311"
700^ICM(11,1,5,1,0)="^80.32A^2^2"
701^ICM(11,1,5,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:310,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:310,1:311)"
702^ICM(11,1,5,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:310,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:310,1:311)"
703^ICM(11,1,6,0)="URETHERAL SURGERY^1^312^313^314"
704^ICM(11,1,6,1,0)="^80.32A^2^2"
705^ICM(11,1,6,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:314,AGE>69:312,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:312,1:313)"
706^ICM(11,1,6,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:314,AGE>69:312,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:312,1:313)"
707^ICM(11,1,7,0)="OTHER OR PROCEDURE:KIDNEY,URINARY^1^315"
708^ICM(11,1,8,0)="RENAL FAILURE^^316^317"
709^ICM(11,1,8,1,0)="^80.32A^2^2"
710^ICM(11,1,8,1,1,0)="W !,""Principal diagnosis of dialysis (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:317,1:316),FIN=1"
711^ICM(11,1,8,1,2,0)="W !,""Principal diagnosis of dialysis (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:317,1:316),FIN=1"
712^ICM(11,1,9,0)="NEOPLASM KIDNEY/URINARY TRACT^^318^319"
713^ICM(11,1,9,1,0)="^80.32A^2^2"
714^ICM(11,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:318,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:318,1:319)"
715^ICM(11,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:318,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:318,1:319)"
716^ICM(11,1,10,0)="INFECTION KIDNEY/URINARY TRACT^^320^321^322"
717^ICM(11,1,10,1,0)="^80.32A^2^2"
718^ICM(11,1,10,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:322,AGE>69:320,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:320,1:321)"
719^ICM(11,1,10,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:322,AGE>69:320,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:320,1:321)"
720^ICM(11,1,11,0)="STONE KIDNEY/URINARY TRACT^^323^324"
721^ICM(11,1,11,1,0)="^80.32A^2^2"
722^ICM(11,1,11,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:323,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:323,1:324)"
723^ICM(11,1,11,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:323,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:323,1:324)"
724^ICM(11,1,12,0)="SIGN,SYMPTOM KIDNEY/URINARY TRACT^^325^326^327"
725^ICM(11,1,12,1,0)="^80.32A^2^2"
726^ICM(11,1,12,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:327,AGE>69:325,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:325,1:326)"
727^ICM(11,1,12,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:327,AGE>69:325,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:325,1:326)"
728^ICM(11,1,13,0)="URETHRAL STRICTURE^^328^329^330"
729^ICM(11,1,13,1,0)="^80.32A^2^2"
730^ICM(11,1,13,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:330,AGE>69:328,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:328,1:329)"
731^ICM(11,1,13,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:330,AGE>69:328,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:328,1:329)"
732^ICM(11,1,14,0)="OTHER DISORDER KIDNEY/URINARY TRACT^^331^332^333"
733^ICM(11,1,14,1,0)="^80.32A^2^2"
734^ICM(11,1,14,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:333,AGE>69:331,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:331,1:332)"
735^ICM(11,1,14,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:333,AGE>69:331,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:331,1:332)"
736^ICM(11,1,15,0)="KIDNEY,URETER,MAJOR BLADDER SURGERY^1^303^304^305"
737^ICM(11,1,15,1,0)="^80.32A^2^2"
738^ICM(11,1,15,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=303,FIN=1"
739^ICM(11,1,15,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:304,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:304,1:305)"
740^ICM(11,1,16,0)="OTHER OR PROCEDURE:KIDNEY,URINARY^1^315"
741^ICM(11,1,17,0)="SIGN,SYMPTOM KIDNEY/URINARY TRACT^^325^326^327"
742^ICM(11,1,17,1,0)="^80.32A^1^1"
743^ICM(11,1,17,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:327,AGE>69:325,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:325,1:326)"
744^ICM(11,1,18,0)="OTHER DISORDER KIDNEY/URINARY TRACT^^331^332^333"
745^ICM(11,1,18,1,0)="^80.32A^1^1"
746^ICM(11,1,18,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:333,AGE>69:331,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:331,1:332)"
747^ICM(11,1,"B","INFECTION KIDNEY/URINARY TRACT",10)=""
748^ICM(11,1,"B","KIDNEY TRANSPLANT",1)=""
749^ICM(11,1,"B","KIDNEY,URETER,MAJOR BLADDER SURGERY",2)=""
750^ICM(11,1,"B","KIDNEY,URETER,MAJOR BLADDER SURGERY",15)=""
751^ICM(11,1,"B","NEOPLASM KIDNEY/URINARY TRACT",9)=""
752^ICM(11,1,"B","OTHER DISORDER KIDNEY/URINARY TRACT",14)=""
753^ICM(11,1,"B","OTHER DISORDER KIDNEY/URINARY TRACT",18)=""
754^ICM(11,1,"B","OTHER OR PROCEDURE:KIDNEY,URINARY",7)=""
755^ICM(11,1,"B","OTHER OR PROCEDURE:KIDNEY,URINARY",16)=""
756^ICM(11,1,"B","OTHER URINARY BLADDER SURGERY",4)=""
757^ICM(11,1,"B","PROSTATECTOMY",3)=""
758^ICM(11,1,"B","RENAL FAILURE",8)=""
759^ICM(11,1,"B","SIGN,SYMPTOM KIDNEY/URINARY TRACT",12)=""
760^ICM(11,1,"B","SIGN,SYMPTOM KIDNEY/URINARY TRACT",17)=""
761^ICM(11,1,"B","STONE KIDNEY/URINARY TRACT",11)=""
762^ICM(11,1,"B","TRANSURETHRAL SURGERY",5)=""
763^ICM(11,1,"B","URETHERAL SURGERY",6)=""
764^ICM(11,1,"B","URETHRAL STRICTURE",13)=""
765^ICM(12,0)="MALE REPRODUCTIVE SYSTEM"
766^ICM(12,1,0)="^80.31A^13^13"
767^ICM(12,1,1,0)="MAJOR PELVIC SURGERY,MALE^1^334^335"
768^ICM(12,1,1,1,0)="^80.32A^2^2"
769^ICM(12,1,1,1,1,0)="D COM Q:$D(BAD) S DRG=$S(X?1""Y"".E:334,1:335),FIN=1"
770^ICM(12,1,1,1,2,0)="D COM Q:$D(BAD) S DRG=$S(X?1""Y"".E:334,1:335),FIN=1"
771^ICM(12,1,2,0)="TRANSURETHERAL PROSTATECTOMY^1^336^337"
772^ICM(12,1,2,1,0)="^80.32A^2^2"
773^ICM(12,1,2,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:336,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:336,1:337)"
774^ICM(12,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:336,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:336,1:337)"
775^ICM(12,1,3,0)="TESTICULAR SURGERY^1^338^339^340"
776^ICM(12,1,3,1,0)="^80.32A^4^4"
777^ICM(12,1,3,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=338,FIN=1"
778^ICM(12,1,3,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:340,1:339),FIN=1"
779^ICM(12,1,3,1,3,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=338,FIN=1"
780^ICM(12,1,3,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:340,1:339),FIN=1"
781^ICM(12,1,4,0)="PENIS SURGERY^1^341"
782^ICM(12,1,5,0)="CIRCUMCISION^1^342^343"
783^ICM(12,1,5,1,0)="^80.32A^2^2"
784^ICM(12,1,5,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:343,1:342),FIN=1"
785^ICM(12,1,5,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:343,1:342),FIN=1"
786^ICM(12,1,6,0)="OTHER OR PROCEDURE:MALE REPRODUCTIVE^1^344^345"
787^ICM(12,1,6,1,0)="^80.32A^2^2"
788^ICM(12,1,6,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:344,1:345),FIN=1"
789^ICM(12,1,6,1,2,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:344,1:345),FIN=1"
790^ICM(12,1,7,0)="MALIGNANCY,MALE REPRODUCTIVE^^346^347"
791^ICM(12,1,7,1,0)="^80.32A^2^2"
792^ICM(12,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:346,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:346,1:347)"
793^ICM(12,1,7,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:346,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:346,1:347)"
794^ICM(12,1,8,0)="BENIGN PROSTATIC HYPERTROPHY^^348^349"
795^ICM(12,1,8,1,0)="^80.32A^2^2"
796^ICM(12,1,8,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:348,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:348,1:349)"
797^ICM(12,1,8,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:348,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:348,1:349)"
798^ICM(12,1,9,0)="INFLAMMATION,MALE REPRODUCTIVE^^350"
799^ICM(12,1,10,0)="STERILIZATION, MALE^^351"
800^ICM(12,1,11,0)="OTHER DISORDER,MALE REPRODUCTIVE^^352"
801^ICM(12,1,12,0)="OTHER OR PROCEDURE:MALE REPRODUCTIVE^1^344^345"
802^ICM(12,1,12,1,0)="^80.32A^1^1"
803^ICM(12,1,12,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:344,1:345),FIN=1"
804^ICM(12,1,13,0)="OTHER DISORDER,MALE REPRODUCTIVE^^352"
805^ICM(12,1,"B","BENIGN PROSTATIC HYPERTROPHY",8)=""
806^ICM(12,1,"B","CIRCUMCISION",5)=""
807^ICM(12,1,"B","INFLAMMATION,MALE REPRODUCTIVE",9)=""
808^ICM(12,1,"B","MAJOR PELVIC SURGERY,MALE",1)=""
809^ICM(12,1,"B","MALIGNANCY,MALE REPRODUCTIVE",7)=""
810^ICM(12,1,"B","OTHER DISORDER,MALE REPRODUCTIVE",11)=""
811^ICM(12,1,"B","OTHER DISORDER,MALE REPRODUCTIVE",13)=""
812^ICM(12,1,"B","OTHER OR PROCEDURE:MALE REPRODUCTIVE",6)=""
813^ICM(12,1,"B","OTHER OR PROCEDURE:MALE REPRODUCTIVE",12)=""
814^ICM(12,1,"B","PENIS SURGERY",4)=""
815^ICM(12,1,"B","STERILIZATION, MALE",10)=""
816^ICM(12,1,"B","TESTICULAR SURGERY",3)=""
817^ICM(12,1,"B","TRANSURETHERAL PROSTATECTOMY",2)=""
818^ICM(13,0)="FEMALE REPRODUCTIVE SYSTEM"
819^ICM(13,1,0)="^80.31A^14^14"
820^ICM(13,1,1,0)="PELVIC EVISCERATION,RADICAL SURGERY^1^353"
821^ICM(13,1,2,0)="HYSTERECTOMY OTHER THAN RADICAL^1^354^355"
822^ICM(13,1,2,1,0)="^80.32A^2^2"
823^ICM(13,1,2,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:354,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:354,1:355)"
824^ICM(13,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:354,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:354,1:355)"
825^ICM(13,1,3,0)="RECONSTRUCTIVE SURGERY,FEMALE^1^356"
826^ICM(13,1,4,0)="SURGERY UTERUS,ADNEXA^1^357^358^359"
827^ICM(13,1,4,1,0)="^80.32A^4^4"
828^ICM(13,1,4,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=357,FIN=1"
829^ICM(13,1,4,1,2,0)="W !,""Tubal interruption (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:358,1:359),FIN=1"
830^ICM(13,1,4,1,3,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=357,FIN=1"
831^ICM(13,1,4,1,4,0)="W !,""Tubal interruption (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:358,1:359),FIN=1"
832^ICM(13,1,5,0)="SURGERY VAGINA,CERVIX,VULVA^1^360"
833^ICM(13,1,6,0)="LAPAROSCOPY,ENDOSCOPY^1^361^362"
834^ICM(13,1,6,1,0)="^80.32A^2^2"
835^ICM(13,1,6,1,1,0)="W !,""Tubal interruption (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:361,1:362),FIN=1"
836^ICM(13,1,6,1,2,0)="W !,""Tubal interruption (Y/N) ? "" D YN S DRG=$S(YN?1""N"".E:361,1:362),FIN=1"
837^ICM(13,1,7,0)="D & C,CONIZATION,IMPLANT^1^363^364"
838^ICM(13,1,7,1,0)="^80.32A^2^2"
839^ICM(13,1,7,1,1,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:363,1:364),FIN=1"
840^ICM(13,1,7,1,2,0)="W !,""Principal diagnosis of malignancy (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:363,1:364),FIN=1"
841^ICM(13,1,8,0)="OTHER OR PROCEDURE,FEMALE REPRODUCTIVE^1^365"
842^ICM(13,1,9,0)="MALIGNANCY,FEMALE REPRODUCTIVE^^366^367"
843^ICM(13,1,9,1,0)="^80.32A^2^2"
844^ICM(13,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:366,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:366,1:367)"
845^ICM(13,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:366,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:366,1:367)"
846^ICM(13,1,10,0)="INFECTION,FEMALE REPRODUCTIVE^^368"
847^ICM(13,1,10,1,0)="^80.32A^1^1"
848^ICM(13,1,10,1,1,0)="S DRG=$S(SEX=""F"":368,1:470)"
849^ICM(13,1,11,0)="MENSTRURAL,OTHER DISORDER^^369"
850^ICM(13,1,12,0)="PELVIC EVISCERATION,RADICAL SURGERY^1^353"
851^ICM(13,1,13,0)="HYSTERECTOMY OTHER THAN RADICAL^1^354^355"
852^ICM(13,1,13,1,0)="^80.32A^1^1"
853^ICM(13,1,13,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:354,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:354,1:355)"
854^ICM(13,1,14,0)="OTHER OR PROCEDURE,FEMALE REPRODUCTIVE^1^365"
855^ICM(13,1,"B","D & C,CONIZATION,IMPLANT",7)=""
856^ICM(13,1,"B","HYSTERECTOMY OTHER THAN RADICAL",2)=""
857^ICM(13,1,"B","HYSTERECTOMY OTHER THAN RADICAL",13)=""
858^ICM(13,1,"B","INFECTION,FEMALE REPRODUCTIVE",10)=""
859^ICM(13,1,"B","LAPAROSCOPY,ENDOSCOPY",6)=""
860^ICM(13,1,"B","MALIGNANCY,FEMALE REPRODUCTIVE",9)=""
861^ICM(13,1,"B","MENSTRURAL,OTHER DISORDER",11)=""
862^ICM(13,1,"B","OTHER OR PROCEDURE,FEMALE REPRODUCTIVE",8)=""
863^ICM(13,1,"B","OTHER OR PROCEDURE,FEMALE REPRODUCTIVE",14)=""
864^ICM(13,1,"B","PELVIC EVISCERATION,RADICAL SURGERY",1)=""
865^ICM(13,1,"B","PELVIC EVISCERATION,RADICAL SURGERY",12)=""
866^ICM(13,1,"B","RECONSTRUCTIVE SURGERY,FEMALE",3)=""
867^ICM(13,1,"B","SURGERY UTERUS,ADNEXA",4)=""
868^ICM(13,1,"B","SURGERY VAGINA,CERVIX,VULVA",5)=""
869^ICM(14,0)="PREGNANCY,CHLDBRTH,PUERPERIUM"
870^ICM(14,1,0)="^80.31A^12^12"
871^ICM(14,1,1,0)="CESAREAN SECTION^1^370^371"
872^ICM(14,1,1,1,0)="^80.32A^2^2"
873^ICM(14,1,1,1,1,0)="D COM S DRG=$S(X?1""Y"".E:370,1:371),FIN=1"
874^ICM(14,1,1,1,2,0)="D COM S DRG=$S(X?1""Y"".E:370,1:371),FIN=1"
875^ICM(14,1,2,0)="VAGINAL DELIVERY^1^372^373^374^375"
876^ICM(14,1,2,1,0)="^80.32A^4^4"
877^ICM(14,1,2,1,1,0)="W !,""Complicating OR prodedure (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) W !,""Any diagnosis complicating vaginal delivery (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:372,1:373),FIN=1"
878^ICM(14,1,2,1,2,0)="W !,""Sterilization and Postpartum D&C (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:374,1:375),FIN=1"
879^ICM(14,1,2,1,3,0)="W !,""Complicating OR prodedure (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) W !,""Any diagnosis complicating vaginal delivery (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:372,1:373),FIN=1"
880^ICM(14,1,2,1,4,0)="W !,""Sterilization and Postpartum D&C (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:374,1:375),FIN=1"
881^ICM(14,1,3,0)="POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION^1^377"
882^ICM(14,1,4,0)="POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION^^376"
883^ICM(14,1,5,0)="ECTOPIC PREGNANCY^^378"
884^ICM(14,1,6,0)="THREATENED ABORTION^^379"
885^ICM(14,1,7,0)="ABORTION,NO D&C^^380"
886^ICM(14,1,8,0)="ABORTION, D&C^1^381"
887^ICM(14,1,9,0)="FALSE LABOR^^382"
888^ICM(14,1,10,0)="OTHER ANTEPARTUM DISORDER^^383^384"
889^ICM(14,1,10,1,0)="^80.32A^2^2"
890^ICM(14,1,10,1,1,0)="W !,""Medical complications (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:383,1:384),FIN=1"
891^ICM(14,1,10,1,2,0)="W !,""Medical complications (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:383,1:384),FIN=1"
892^ICM(14,1,11,0)="POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION^1^377"
893^ICM(14,1,12,0)="POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION^^376"
894^ICM(14,1,"B","ABORTION, D&C",8)=""
895^ICM(14,1,"B","ABORTION,NO D&C",7)=""
896^ICM(14,1,"B","CESAREAN SECTION",1)=""
897^ICM(14,1,"B","ECTOPIC PREGNANCY",5)=""
898^ICM(14,1,"B","FALSE LABOR",9)=""
899^ICM(14,1,"B","OTHER ANTEPARTUM DISORDER",10)=""
900^ICM(14,1,"B","POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION",4)=""
901^ICM(14,1,"B","POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION",12)=""
902^ICM(14,1,"B","POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION",3)=""
903^ICM(14,1,"B","POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION",11)=""
904^ICM(14,1,"B","THREATENED ABORTION",6)=""
905^ICM(14,1,"B","VAGINAL DELIVERY",2)=""
906^ICM(15,0)="NEWBORNS & NEONATES"
907^ICM(15,1,0)="^80.31A^6^6"
908^ICM(15,1,1,0)="NEWBORN, TRANSFERRED OR DIED^^385"
909^ICM(15,1,2,0)="NEWBORN, NORMAL^^391"
910^ICM(15,1,3,0)="EXTREME IMMATURITY^^386"
911^ICM(15,1,4,0)="PREMATURITY^^387^388"
912^ICM(15,1,4,1,0)="^80.32A^2^2"
913^ICM(15,1,4,1,1,0)="W !,""Complicating diagnosis (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:387,1:388),FIN=1"
914^ICM(15,1,4,1,2,0)="W !,""Complicating diagnosis (Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""Y"".E:387,1:388),FIN=1"
915^ICM(15,1,5,0)="FULL TERM,MAJOR PROBLEM^^389"
916^ICM(15,1,6,0)="FULL TERM,OTHER DISORDER^^390"
917^ICM(15,1,"B","EXTREME IMMATURITY",3)=""
918^ICM(15,1,"B","FULL TERM,MAJOR PROBLEM",5)=""
919^ICM(15,1,"B","FULL TERM,OTHER DISORDER",6)=""
920^ICM(15,1,"B","NEWBORN, NORMAL",2)=""
921^ICM(15,1,"B","NEWBORN, TRANSFERRED OR DIED",1)=""
922^ICM(15,1,"B","PREMATURITY",4)=""
923^ICM(16,0)="HEMATOPOIETIC,IMMUNITY"
924^ICM(16,1,0)="^80.31A^7^7"
925^ICM(16,1,1,0)="SPLENECTOMY^1^392^393"
926^ICM(16,1,1,1,0)="^80.32A^2^2"
927^ICM(16,1,1,1,1,0)="D AGE S DRG=$S(AGE<18:393,1:392),FIN=1"
928^ICM(16,1,1,1,2,0)="D AGE S DRG=$S(AGE<18:393,1:392),FIN=1"
929^ICM(16,1,2,0)="OTHER OR PROCEDURE:BLOOD,IMMUNITY^1^394"
930^ICM(16,1,3,0)="RED BLOOD CELL DISORDER^^395^396"
931^ICM(16,1,3,1,0)="^80.32A^2^2"
932^ICM(16,1,3,1,1,0)="D AGE S DRG=$S(AGE<18:396,1:395),FIN=1"
933^ICM(16,1,3,1,2,0)="D AGE S DRG=$S(AGE<18:396,1:395),FIN=1"
934^ICM(16,1,4,0)="COAGULATION DISORDER^^397"
935^ICM(16,1,5,0)="BLOOD/BLOOD-FORMING/IMMUNITY DISORDER^^398^399"
936^ICM(16,1,5,1,0)="^80.32A^2^2"
937^ICM(16,1,5,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:398,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:398,1:399)"
938^ICM(16,1,5,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:398,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:398,1:399)"
939^ICM(16,1,6,0)="OTHER OR PROCEDURE:BLOOD,IMMUNITY^1^394"
940^ICM(16,1,7,0)="BLOOD/BLOOD-FORMING/IMMUNITY DISORDER^^398^399"
941^ICM(16,1,7,1,0)="^80.32A^1^1"
942^ICM(16,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:398,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:398,1:399)"
943^ICM(16,1,"B","BLOOD/BLOOD-FORMING/IMMUNITY DISORDER",5)=""
944^ICM(16,1,"B","BLOOD/BLOOD-FORMING/IMMUNITY DISORDER",7)=""
945^ICM(16,1,"B","COAGULATION DISORDER",4)=""
946^ICM(16,1,"B","OTHER OR PROCEDURE:BLOOD,IMMUNITY",2)=""
947^ICM(16,1,"B","OTHER OR PROCEDURE:BLOOD,IMMUNITY",6)=""
948^ICM(16,1,"B","RED BLOOD CELL DISORDER",3)=""
949^ICM(16,1,"B","SPLENECTOMY",1)=""
950^ICM(17,0)="MYELOPROLIFERATIVE,NEOPLASIA"
951^ICM(17,1,0)="^80.31A^13^13"
952^ICM(17,1,1,0)="MAJOR SURGERY:MYELOPROLIF,NEOPLASIA^1^400^406^407"
953^ICM(17,1,1,1,0)="^80.32A^4^4"
954^ICM(17,1,1,1,1,0)="W !,""Principal diagnosis of Lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=400,FIN=1"
955^ICM(17,1,1,1,2,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"
956^ICM(17,1,1,1,3,0)="W !,""Principal diagnosis of Lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=400,FIN=1"
957^ICM(17,1,1,1,4,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"
958^ICM(17,1,2,0)="MINOR SURGERY:MYELOPROLIF,NEOPLASIA^1^401^402^408"
959^ICM(17,1,2,1,0)="^80.32A^4^4"
960^ICM(17,1,2,1,1,0)="W !,""Principal diagnosis of lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) S DRG=408,FIN=1"
961^ICM(17,1,2,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:401,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:401,1:402)"
962^ICM(17,1,2,1,3,0)="W !,""Principal diagnosis of lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) S DRG=408,FIN=1"
963^ICM(17,1,2,1,4,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:401,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:401,1:402)"
964^ICM(17,1,3,0)="LYMPHOMA,LEUKEMIA NO SURGERY^^403^404^405"
965^ICM(17,1,3,1,0)="^80.32A^2^2"
966^ICM(17,1,3,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:405,AGE>69:403,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:403,1:404)"
967^ICM(17,1,3,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:405,AGE>69:403,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:403,1:404)"
968^ICM(17,1,4,0)="RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^409"
969^ICM(17,1,5,0)="CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^410"
970^ICM(17,1,6,0)="HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA^^411^412"
971^ICM(17,1,6,1,0)="^80.32A^2^2"
972^ICM(17,1,6,1,1,0)="W !,""Endoscopy (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:411,1:412),FIN=1"
973^ICM(17,1,6,1,2,0)="W !,""Endoscopy (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:411,1:412),FIN=1"
974^ICM(17,1,7,0)="OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED^^413^414"
975^ICM(17,1,7,1,0)="^80.32A^2^2"
976^ICM(17,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:413,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:413,1:414)"
977^ICM(17,1,7,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:413,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:413,1:414)"
978^ICM(17,1,8,0)="MAJOR SURGERY:MYELOPROLIF,NEOPLASIA^1^400^406^407"
979^ICM(17,1,8,1,0)="^80.32A^2^2"
980^ICM(17,1,8,1,1,0)="W !,""Principal diagnosis of Lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""N"".E) S DRG=400,FIN=1"
981^ICM(17,1,8,1,2,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"
982^ICM(17,1,9,0)="MINOR SURGERY:MYELOPROLIF,NEOPLASIA^1^401^402^408"
983^ICM(17,1,9,1,0)="^80.32A^2^2"
984^ICM(17,1,9,1,1,0)="W !,""Principal diagnosis of lymphoma or Leukemia (Y/N) ? "" D YN Q:$D(BAD)!(YN?1""Y"".E) S DRG=408,FIN=1"
985^ICM(17,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:401,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:401,1:402)"
986^ICM(17,1,10,0)="RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^409"
987^ICM(17,1,11,0)="CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^410"
988^ICM(17,1,12,0)="HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA^^411^412"
989^ICM(17,1,12,1,0)="^80.32A^1^1"
990^ICM(17,1,12,1,1,0)="W !,""Endoscopy (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:411,1:412),FIN=1"
991^ICM(17,1,13,0)="OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED^^413^414"
992^ICM(17,1,13,1,0)="^80.32A^1^1"
993^ICM(17,1,13,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:413,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:413,1:414)"
994^ICM(17,1,"B","CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA",5)=""
995^ICM(17,1,"B","CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA",11)=""
996^ICM(17,1,"B","HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA",6)=""
997^ICM(17,1,"B","HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA",12)=""
998^ICM(17,1,"B","LYMPHOMA,LEUKEMIA NO SURGERY",3)=""
999^ICM(17,1,"B","MAJOR SURGERY:MYELOPROLIF,NEOPLASIA",1)=""
1000^ICM(17,1,"B","MAJOR SURGERY:MYELOPROLIF,NEOPLASIA",8)=""
1001^ICM(17,1,"B","MINOR SURGERY:MYELOPROLIF,NEOPLASIA",2)=""
1002^ICM(17,1,"B","MINOR SURGERY:MYELOPROLIF,NEOPLASIA",9)=""
1003^ICM(17,1,"B","OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED",7)=""
1004^ICM(17,1,"B","OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED",13)=""
1005^ICM(17,1,"B","RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA",4)=""
1006^ICM(17,1,"B","RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA",10)=""
1007^ICM(18,0)="INFECTIOUS & PARASITIC"
1008^ICM(18,1,0)="^80.31A^8^8"
1009^ICM(18,1,1,0)="OR PROCEDURE: INFECTIOUS,PARASITIC^1^415"
1010^ICM(18,1,2,0)="SEPTICEMIA^^416^417"
1011^ICM(18,1,2,1,0)="^80.32A^2^2"
1012^ICM(18,1,2,1,1,0)="D AGE S DRG=$S(AGE<18:417,1:416),FIN=1"
1013^ICM(18,1,2,1,2,0)="D AGE S DRG=$S(AGE<18:417,1:416),FIN=1"
1014^ICM(18,1,3,0)="POST-OP,POSTTRAUMATIC INFECTION^^418"
1015^ICM(18,1,4,0)="VIRAL ILLNESS,FUO^^419^420^421^422"
1016^ICM(18,1,4,1,0)="^80.32A^4^4"
1017^ICM(18,1,4,1,1,0)="D AGE Q:$D(BAD)!(AGE>17) S DRG=422,FIN=1"
1018^ICM(18,1,4,1,2,0)="W !,""Principal diagnosis of Fever of Unknown Origin (FUO)"",!?23,""(Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:421,1:""""),FIN=1 I 'DRG S DRG=$S(AGE>69:419,1:"""") I 'DRG D COM S DRG=$S(X?1""Y"".E:419,1:420)"
1019^ICM(18,1,4,1,3,0)="D AGE Q:$D(BAD)!(AGE>17) S DRG=422,FIN=1"
1020^ICM(18,1,4,1,4,0)="W !,""Principal diagnosis of Fever of Unknown Origin (FUO)"",!?23,""(Y/N) ? "" D YN Q:$D(BAD) S DRG=$S(YN?1""N"".E:421,1:""""),FIN=1 I 'DRG S DRG=$S(AGE>69:419,1:"""") I 'DRG D COM S DRG=$S(X?1""Y"".E:419,1:420)"
1021^ICM(18,1,5,0)="OTHER DISORDER: INFECTIOUS,PARASITIC^^423"
1022^ICM(18,1,6,0)="OR PROCEDURE: INFECTIOUS,PARASITIC^1^415"
1023^ICM(18,1,7,0)="POST-OP,POSTTRAUMATIC INFECTION^^418"
1024^ICM(18,1,8,0)="OTHER DISORDER: INFECTIOUS,PARASITIC^^423"
1025^ICM(18,1,"B","OR PROCEDURE: INFECTIOUS,PARASITIC",1)=""
1026^ICM(18,1,"B","OR PROCEDURE: INFECTIOUS,PARASITIC",6)=""
1027^ICM(18,1,"B","OTHER DISORDER: INFECTIOUS,PARASITIC",5)=""
1028^ICM(18,1,"B","OTHER DISORDER: INFECTIOUS,PARASITIC",8)=""
1029^ICM(18,1,"B","POST-OP,POSTTRAUMATIC INFECTION",3)=""
1030^ICM(18,1,"B","POST-OP,POSTTRAUMATIC INFECTION",7)=""
1031^ICM(18,1,"B","SEPTICEMIA",2)=""
1032^ICM(18,1,"B","VIRAL ILLNESS,FUO",4)=""
1033^ICM(19,0)="MENTAL DISEASES & DISORDERS"
1034^ICM(19,1,0)="^80.31A^11^11"
1035^ICM(19,1,1,0)="OR PROCEDURE, MENTAL DISORDER^1^424"
1036^ICM(19,1,2,0)="ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION^^425"
1037^ICM(19,1,3,0)="NEUROSIS^^426^427"
1038^ICM(19,1,3,1,0)="^80.32A^2^2"
1039^ICM(19,1,3,1,1,0)="W !,""Principal diagnosis of Depressive Neurosis (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:426,1:427),FIN=1"
1040^ICM(19,1,3,1,2,0)="W !,""Principal diagnosis of Depressive Neurosis (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:426,1:427),FIN=1"
1041^ICM(19,1,4,0)="PERSONALITY,IMPULSE CONTROL DISORDER^^428"
1042^ICM(19,1,5,0)="ORGANIC DISTURBANCE,MENTAL RETARDATION^^429"
1043^ICM(19,1,6,0)="PSYCHOSIS^^430"
1044^ICM(19,1,7,0)="CHILDHOOD MENTAL DISORDER^^431"
1045^ICM(19,1,8,0)="OTHER MENTAL DISORDER^^432"
1046^ICM(19,1,9,0)="ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION^^425"
1047^ICM(19,1,10,0)="PERSONALITY,IMPULSE CONTROL DISORDER^^428"
1048^ICM(19,1,11,0)="ORGANIC DISTURBANCE,MENTAL RETARDATION^^429"
1049^ICM(19,1,"B","ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION",2)=""
1050^ICM(19,1,"B","ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION",9)=""
1051^ICM(19,1,"B","CHILDHOOD MENTAL DISORDER",7)=""
1052^ICM(19,1,"B","NEUROSIS",3)=""
1053^ICM(19,1,"B","OR PROCEDURE, MENTAL DISORDER",1)=""
1054^ICM(19,1,"B","ORGANIC DISTURBANCE,MENTAL RETARDATION",5)=""
1055^ICM(19,1,"B","ORGANIC DISTURBANCE,MENTAL RETARDATION",11)=""
1056^ICM(19,1,"B","OTHER MENTAL DISORDER",8)=""
1057^ICM(19,1,"B","PERSONALITY,IMPULSE CONTROL DISORDER",4)=""
1058^ICM(19,1,"B","PERSONALITY,IMPULSE CONTROL DISORDER",10)=""
1059^ICM(19,1,"B","PSYCHOSIS",6)=""
1060^ICM(20,0)="SUBSTANCE USE & DISORDERS"
1061^ICM(20,1,0)="^80.31A^5^5"
1062^ICM(20,1,1,0)="LEFT AGAINST MEDICAL ADVICE^^433"
1063^ICM(20,1,2,0)="DRUGS^^434^435"
1064^ICM(20,1,2,1,0)="^80.32A^2^2"
1065^ICM(20,1,2,1,1,0)="W !,""Principal diagnosis of Dependence (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:434,1:435),FIN=1"
1066^ICM(20,1,2,1,2,0)="W !,""Principal diagnosis of Dependence (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:434,1:435),FIN=1"
1067^ICM(20,1,3,0)="ALCOHOLISM^^436^437"
1068^ICM(20,1,3,1,0)="^80.32A^2^2"
1069^ICM(20,1,3,1,1,0)="W !,""Principal diagnosis of Dependence (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:436,1:437),FIN=1"
1070^ICM(20,1,3,1,2,0)="W !,""Principal diagnosis of Dependence (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:436,1:437),FIN=1"
1071^ICM(20,1,4,0)="ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER^^438"
1072^ICM(20,1,5,0)="ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER^^438"
1073^ICM(20,1,"B","ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER",4)=""
1074^ICM(20,1,"B","ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER",5)=""
1075^ICM(20,1,"B","ALCOHOLISM",3)=""
1076^ICM(20,1,"B","DRUGS",2)=""
1077^ICM(20,1,"B","LEFT AGAINST MEDICAL ADVICE",1)=""
1078^ICM(21,0)="INJURY,POISONING,DRUG TOXICITY"
1079^ICM(21,1,0)="^80.31A^9^9"
1080^ICM(21,1,1,0)="SKIN GRAFT^1^439"
1081^ICM(21,1,2,0)="WOUND DEBRIDEMENT^1^440"
1082^ICM(21,1,3,0)="HAND SURGERY FOR INJURY^1^441"
1083^ICM(21,1,4,0)="OTHER OR PROCEDURE FOR INJURY^1^442^443"
1084^ICM(21,1,4,1,0)="^80.32A^2^2"
1085^ICM(21,1,4,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:442,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:442,1:443)"
1086^ICM(21,1,4,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:442,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:442,1:443)"
1087^ICM(21,1,5,0)="TRAUMA, NO SURGERY^^444^445^446"
1088^ICM(21,1,5,1,0)="^80.32A^2^2"
1089^ICM(21,1,5,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:446,AGE>69:444,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:444,1:445)"
1090^ICM(21,1,5,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:446,AGE>69:444,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:444,1:445)"
1091^ICM(21,1,6,0)="ALLERGIC REACTION^^447^448"
1092^ICM(21,1,6,1,0)="^80.32A^2^2"
1093^ICM(21,1,6,1,1,0)="D AGE S DRG=$S(AGE<18:448,1:447),FIN=1"
1094^ICM(21,1,6,1,2,0)="D AGE S DRG=$S(AGE<18:448,1:447),FIN=1"
1095^ICM(21,1,7,0)="TOXIC DRUG EFFECT^^449^450^451"
1096^ICM(21,1,7,1,0)="^80.32A^2^2"
1097^ICM(21,1,7,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:451,AGE>69:449,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:449,1:450)"
1098^ICM(21,1,7,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE<18:451,AGE>69:449,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:449,1:450)"
1099^ICM(21,1,8,0)="COMPLICATIONS OF TREATMENT^^452^453"
1100^ICM(21,1,8,1,0)="^80.32A^2^2"
1101^ICM(21,1,8,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:452,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:452,1:453)"
1102^ICM(21,1,8,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:452,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:452,1:453)"
1103^ICM(21,1,9,0)="OTHER INJURY,POISONING^^454^455"
1104^ICM(21,1,9,1,0)="^80.32A^2^2"
1105^ICM(21,1,9,1,1,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:454,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:454,1:455)"
1106^ICM(21,1,9,1,2,0)="D AGE Q:$D(BAD) S DRG=$S(AGE>69:454,1:""""),FIN=1 I 'DRG D COM S DRG=$S(X?1""Y"".E:454,1:455)"
1107^ICM(21,1,"B","ALLERGIC REACTION",6)=""
1108^ICM(21,1,"B","COMPLICATIONS OF TREATMENT",8)=""
1109^ICM(21,1,"B","HAND SURGERY FOR INJURY",3)=""
1110^ICM(21,1,"B","OTHER INJURY,POISONING",9)=""
1111^ICM(21,1,"B","OTHER OR PROCEDURE FOR INJURY",4)=""
1112^ICM(21,1,"B","SKIN GRAFT",1)=""
1113^ICM(21,1,"B","TOXIC DRUG EFFECT",7)=""
1114^ICM(21,1,"B","TRAUMA, NO SURGERY",5)=""
1115^ICM(21,1,"B","WOUND DEBRIDEMENT",2)=""
1116^ICM(22,0)="BURNS"
1117^ICM(22,1,0)="^80.31A^6^6"
1118^ICM(22,1,1,0)="BURN: TRANSFERRED ELSEWHERE^^456"
1119^ICM(22,1,2,0)="EXTENSIVE BURN, NO SURGERY^^457"
1120^ICM(22,1,3,0)="BURN: NO SURGERY^^460"
1121^ICM(22,1,4,0)="BURN: SKIN GRAFT^1^458"
1122^ICM(22,1,5,0)="BURN: DEBRIDEMENT,OTHER OR PROCEDURE^1^459"
1123^ICM(22,1,6,0)="BURN: DEBRIDEMENT,OTHER OR PROCEDURE^1^459"
1124^ICM(22,1,"B","BURN: DEBRIDEMENT,OTHER OR PROCEDURE",5)=""
1125^ICM(22,1,"B","BURN: DEBRIDEMENT,OTHER OR PROCEDURE",6)=""
1126^ICM(22,1,"B","BURN: NO SURGERY",3)=""
1127^ICM(22,1,"B","BURN: SKIN GRAFT",4)=""
1128^ICM(22,1,"B","BURN: TRANSFERRED ELSEWHERE",1)=""
1129^ICM(22,1,"B","EXTENSIVE BURN, NO SURGERY",2)=""
1130^ICM(23,0)="HEALTH STATUS FACTORS"
1131^ICM(23,1,0)="^80.31A^8^8"
1132^ICM(23,1,1,0)="OR PROCEDURE HEALTH STATUS,OTHER^1^461"
1133^ICM(23,1,2,0)="REHABILITATION^^462"
1134^ICM(23,1,3,0)="SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED^^463^464"
1135^ICM(23,1,3,1,0)="^80.32A^2^2"
1136^ICM(23,1,3,1,1,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"
1137^ICM(23,1,3,1,2,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"
1138^ICM(23,1,4,0)="AFTERCARE^^465^466"
1139^ICM(23,1,4,1,0)="^80.32A^2^2"
1140^ICM(23,1,4,1,1,0)="W !,""History of malignancy as any secondary diagnosis (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:465,1:466),FIN=1"
1141^ICM(23,1,4,1,2,0)="W !,""History of malignancy as any secondary diagnosis (Y/N) ? "" D YN S DRG=$S(YN?1""Y"".E:465,1:466),FIN=1"
1142^ICM(23,1,5,0)="OTHER FACTORS HEALTH STATUS,CONTACTS^^467"
1143^ICM(23,1,6,0)="OR PROCEDURE HEALTH STATUS,OTHER^1^461"
1144^ICM(23,1,7,0)="SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED^^463^464"
1145^ICM(23,1,7,1,0)="^80.32A^1^1"
1146^ICM(23,1,7,1,1,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"
1147^ICM(23,1,8,0)="OTHER FACTORS HEALTH STATUS,CONTACTS^^467"
1148^ICM(23,1,"B","AFTERCARE",4)=""
1149^ICM(23,1,"B","OR PROCEDURE HEALTH STATUS,OTHER",1)=""
1150^ICM(23,1,"B","OR PROCEDURE HEALTH STATUS,OTHER",6)=""
1151^ICM(23,1,"B","OTHER FACTORS HEALTH STATUS,CONTACTS",5)=""
1152^ICM(23,1,"B","OTHER FACTORS HEALTH STATUS,CONTACTS",8)=""
1153^ICM(23,1,"B","REHABILITATION",2)=""
1154^ICM(23,1,"B","SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED",3)=""
1155^ICM(23,1,"B","SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED",7)=""
1156^ICM(24,0)="MULTIPLE SIGNIFICANT TRAUMA"
1157^ICM(24,1,0)="^80.31A^6^6"
1158^ICM(24,1,1,0)="CRANIOTOMY^1^484"
1159^ICM(24,1,2,0)="LIMB REATTACHMENT, HIP & FEMUR^1^485"
1160^ICM(24,1,3,0)="OTHER OR PROCEDURE FOR TRAUMA^1^486"
1161^ICM(24,1,4,0)="OTHER DX FOR MULTIPLE TRAUMA^^487"
1162^ICM(24,1,5,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"
1163^ICM(24,1,6,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"
1164^ICM(24,1,"B","CRANIOTOMY",1)=""
1165^ICM(24,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",6)=""
1166^ICM(24,1,"B","LIMB REATTACHMENT, HIP & FEMUR",2)=""
1167^ICM(24,1,"B","OTHER DX FOR MULTIPLE TRAUMA",4)=""
1168^ICM(24,1,"B","OTHER OR PROCEDURE FOR TRAUMA",3)=""
1169^ICM(24,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",5)=""
1170^ICM(25,0)="HIV INFECTIONS"
1171^ICM(25,1,0)="^80.31A^2^2"
1172^ICM(25,1,1,0)="EXTENSIVE OR PROCEDURE^1^488"
1173^ICM(25,1,2,0)="HIV MAJOR RELATED CONDITION^^489^490"
1174^ICM(25,1,"B","EXTENSIVE OR PROCEDURE",1)=""
1175^ICM(25,1,"B","HIV MAJOR RELATED CONDITION",2)=""
1176^ICM(26,0)="UNGROUPABLE RECORDS"
1177^ICM(26,1,0)="^80.31A^3^3"
1178^ICM(26,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"
1179^ICM(26,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"
1180^ICM(26,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"
1181^ICM(26,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""
1182^ICM(26,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""
1183^ICM(26,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""
1184^ICM(27,0)="UNGROUPABLE RECORDS"
1185^ICM(27,1,0)="^80.31A^3^3"
1186^ICM(27,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"
1187^ICM(27,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"
1188^ICM(27,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"
1189^ICM(27,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""
1190^ICM(27,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""
1191^ICM(27,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""
1192^ICM(28,0)="UNGROUPABLE RECORDS"
1193^ICM(28,1,0)="^80.31A^3^3"
1194^ICM(28,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"
1195^ICM(28,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"
1196^ICM(28,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"
1197^ICM(28,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""
1198^ICM(28,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""
1199^ICM(28,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""
1200^ICM(98,0)="PRE"
1201^ICM(98,1,0)="^80.31A^1^1"
1202^ICM(98,1,1,0)="LUNG TRANSPLANT^1^495"
1203^ICM(98,1,"B","LUNG TRANSPLANT",1)=""
1204^ICM(99,0)="UNGROUPABLE RECORDS"
1205^ICM(99,1,0)="^80.31A^9^9"
1206^ICM(99,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"
1207^ICM(99,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"
1208^ICM(99,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"
1209^ICM(99,1,4,0)="PROSTATIC OR PROCEDURE UNRELATED TO DXLS^1^476"
1210^ICM(99,1,5,0)="NON-EXTENSIVE OR PROCEDURE UNRELATED TO DXLS^1^477"
1211^ICM(99,1,6,0)="LIVER TRANSPLANT^1^480"
1212^ICM(99,1,7,0)="BONE MARROW TRANSPLANT^1^481"
1213^ICM(99,1,8,0)="TRACHEOSTOMY W MOUTH,LARYNX,PHARYNX DIS^1^482"
1214^ICM(99,1,9,0)="TRACHEOSTOMY EXCEPT MOUTH,LARYNX,PHARYNX,DIS^1^483"
1215^ICM(99,1,"B","BONE MARROW TRANSPLANT",7)=""
1216^ICM(99,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""
1217^ICM(99,1,"B","LIVER TRANSPLANT",6)=""
1218^ICM(99,1,"B","NON-EXTENSIVE OR PROCEDURE UNRELATED TO DXLS",5)=""
1219^ICM(99,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""
1220^ICM(99,1,"B","PROSTATIC OR PROCEDURE UNRELATED TO DXLS",4)=""
1221^ICM(99,1,"B","TRACHEOSTOMY EXCEPT MOUTH,LARYNX,PHARYNX,DIS",9)=""
1222^ICM(99,1,"B","TRACHEOSTOMY W MOUTH,LARYNX,PHARYNX DIS",8)=""
1223^ICM(99,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""
1224^ICM("B","BURNS",22)=""
1225^ICM("B","CIRCULATORY SYSTEM",5)=""
1226^ICM("B","DIGESTIVE SYSTEM",6)=""
1227^ICM("B","EAR, NOSE, MOUTH & THROAT",3)=""
1228^ICM("B","ENDOCRINE,NUTRIT,METABOLIC",10)=""
1229^ICM("B","EYE",2)=""
1230^ICM("B","FEMALE REPRODUCTIVE SYSTEM",13)=""
1231^ICM("B","HEALTH STATUS FACTORS",23)=""
1232^ICM("B","HEMATOPOIETIC,IMMUNITY",16)=""
1233^ICM("B","HEPATOBILIARY & PANCREAS",7)=""
1234^ICM("B","HIV INFECTIONS",25)=""
1235^ICM("B","INFECTIOUS & PARASITIC",18)=""
1236^ICM("B","INJURY,POISONING,DRUG TOXICITY",21)=""
1237^ICM("B","KIDNEY & URINARY TRACT",11)=""
1238^ICM("B","MALE REPRODUCTIVE SYSTEM",12)=""
1239^ICM("B","MENTAL DISEASES & DISORDERS",19)=""
1240^ICM("B","MULTIPLE SIGNIFICANT TRAUMA",24)=""
1241^ICM("B","MUSCULOSKELETAL & CONNECTIVE T",8)=""
1242^ICM("B","MYELOPROLIFERATIVE,NEOPLASIA",17)=""
1243^ICM("B","NERVOUS SYSTEM",1)=""
1244^ICM("B","NEWBORNS & NEONATES",15)=""
1245^ICM("B","PRE",98)=""
1246^ICM("B","PREGNANCY,CHLDBRTH,PUERPERIUM",14)=""
1247^ICM("B","RESPIRATORY SYSTEM",4)=""
1248^ICM("B","SKIN,BREAST,SUBCUTANEOUS T",9)=""
1249^ICM("B","SUBSTANCE USE & DISORDERS",20)=""
1250^ICM("B","UNGROUPABLE RECORDS",26)=""
1251^ICM("B","UNGROUPABLE RECORDS",27)=""
1252^ICM("B","UNGROUPABLE RECORDS",28)=""
1253^ICM("B","UNGROUPABLE RECORDS",99)=""
1254^ICM("C","ABORTION, D&C",14,8)=""
1255^ICM("C","ABORTION,NO D&C",14,7)=""
1256^ICM("C","ACUTE ADJ REACTION,PSYCHOSOCIA",19,2)=""
1257^ICM("C","ACUTE ADJ REACTION,PSYCHOSOCIA",19,9)=""
1258^ICM("C","ACUTE MAJOR INFECTION",2,8)=""
1259^ICM("C","ACUTE MYOCARDIAL INFARCTION",5,12)=""
1260^ICM("C","ADHESIOLYSIS",6,3)=""
1261^ICM("C","ADRENAL OR PITUITARY SURGERY",10,2)=""
1262^ICM("C","AFTERCARE",23,4)=""
1263^ICM("C","AFTERCARE:MUSCULOSKELETAL,C.T.",8,28)=""
1264^ICM("C","ALCOHOL & SUBSTANCE INDUCED ME",20,4)=""
1265^ICM("C","ALCOHOL & SUBSTANCE INDUCED ME",20,5)=""
1266^ICM("C","ALCOHOLISM",20,3)=""
1267^ICM("C","ALLERGIC REACTION",21,6)=""
1268^ICM("C","AMPUTATION",5,7)=""
1269^ICM("C","AMPUTATION",8,3)=""
1270^ICM("C","AMPUTATION",10,1)=""
1271^ICM("C","ANGINA",5,23)=""
1272^ICM("C","ANUS SURGERY",6,6)=""
1273^ICM("C","APPENDECTOMY",6,8)=""
1274^ICM("C","ARRHYTHMIA & CONDUCTION,DIS",5,22)=""
1275^ICM("C","ARTHROSCOPY",8,14)=""
1276^ICM("C","ATHEROSCLEROSIS",5,19)=""
1277^ICM("C","BACK DISORDER,NO SURGERY",8,23)=""
1278^ICM("C","BACK, NECK SURGERY",8,4)=""
1279^ICM("C","BENIGN PROSTATIC HYPERTROPHY",12,8)=""
1280^ICM("C","BILIARY TRACT SURGERY",7,2)=""
1281^ICM("C","BIOPSY,MUSCULOSKELETAL,C.T.",8,5)=""
1282^ICM("C","BLOOD/BLOOD-FORMING/IMMUNITY D",16,5)=""
1283^ICM("C","BLOOD/BLOOD-FORMING/IMMUNITY D",16,7)=""
1284^ICM("C","BONE DISEASE, SPECIFIC ARTHROP",8,24)=""
1285^ICM("C","BONE DISEASE, SPECIFIC ARTHROP",8,34)=""
1286^ICM("C","BONE MARROW TRANSPLANT",99,7)=""
1287^ICM("C","BREAST DISORDERS, NO SURGERY",9,8)=""
1288^ICM("C","BREAST SURGERY",9,1)=""
1289^ICM("C","BRONCHITIS & ASTHMA",4,13)=""
1290^ICM("C","BURN: DEBRIDEMENT,OTHER OR PR",22,5)=""
1291^ICM("C","BURN: DEBRIDEMENT,OTHER OR PR",22,6)=""
1292^ICM("C","BURN: NO SURGERY",22,3)=""
1293^ICM("C","BURN: SKIN GRAFT",22,4)=""
1294^ICM("C","BURN: TRANSFERRED ELSEWHERE",22,1)=""
1295^ICM("C","CARDIAC ARREST",5,17)=""
1296^ICM("C","CARDIAC CATHETERIZATION",5,13)=""
1297^ICM("C","CARDIOTHORAC SURG,OTHER noPUMP",5,5)=""
1298^ICM("C","CARDIOTHORAC SURG,OTHER w/PUMP",5,4)=""
1299^ICM("C","CARPAL TUNNEL RELEASE",1,4)=""
1300^ICM("C","CELLULITIS",9,9)=""
1301^ICM("C","CESAREAN SECTION",14,1)=""
1302^ICM("C","CHEMOTHERAPY, NOT FOR LYMPHOMA",17,5)=""
1303^ICM("C","CHEMOTHERAPY, NOT FOR LYMPHOMA",17,11)=""
1304^ICM("C","CHEST PAIN",5,25)=""
1305^ICM("C","CHILDHOOD MENTAL DISORDER",19,7)=""
1306^ICM("C","CHR OBSTRUCTIVE PULMONARY DIS",4,9)=""
1307^ICM("C","CIRCUMCISION",12,5)=""
1308^ICM("C","CIRRHOSIS,ALCOHOLIC HEPATITIS",7,5)=""
1309^ICM("C","CLEFT LIP,PALATE REPAIR",3,3)=""
1310^ICM("C","COAGULATION DISORDER",16,4)=""
1311^ICM("C","COMPLICATIONS OF TREATMENT",21,8)=""
1312^ICM("C","CONCUSSION",1,18)=""
1313^ICM("C","CONGENITAL & VALVULAR,CIRCULAT",5,21)=""
1314^ICM("C","CONNECTIVE TISSUE DISORDER",8,21)=""
1315^ICM("C","CORONARY BYPASS",5,3)=""
1316^ICM("C","CRANIAL,PERPHERIAL NERVE",1,12)=""
1317^ICM("C","CRANIOTOMY",24,1)=""
1318^ICM("C","CRANOITOMY",1,1)=""
1319^ICM("C","D & C,CONIZATION,IMPLANT",13,7)=""
1320^ICM("C","DEBRIDEMENT,GRAFT EXCEPT HAND",8,6)=""
1321^ICM("C","DEEP VEIN THROBOPHLEBITIS",5,16)=""
1322^ICM("C","DEGENERATIVE DISORDERS",1,8)=""
1323^ICM("C","DENTAL & ORAL DISORDERS",6,17)=""
1324^ICM("C","DIABETES; NO SURGERY",10,9)=""
1325^ICM("C","DRUGS",20,2)=""
1326^ICM("C","DYSEQUILIBRIUM",3,12)=""
1327^ICM("C","ECTOPIC PREGNANCY",14,5)=""
1328^ICM("C","ENDOCARDITIS,ACUTE & SUBACUTE",5,14)=""
1329^ICM("C","ENDOCRINE DISORDER",10,12)=""
1330^ICM("C","EPIGLOTTITIS",3,14)=""
1331^ICM("C","EPISTAXIS",3,13)=""
1332^ICM("C","ESOPHAGITIS & MISC DISORDERS",6,16)=""
1333^ICM("C","EXPLORATORY DIAGNOSTIC WORKUP",7,3)=""
1334^ICM("C","EXTENSIVE BURN, NO SURGERY",22,2)=""
1335^ICM("C","EXTENSIVE OR PROCEDURE",25,1)=""
1336^ICM("C","EXTRACRANIAL VASCULAR",1,3)=""
1337^ICM("C","EXTREME IMMATURITY",15,3)=""
1338^ICM("C","EYE NEUROLOGICAL DISORDERS",2,9)=""
1339^ICM("C","FALSE LABOR",14,9)=""
1340^ICM("C","FOOT SURGERY",8,10)=""
1341^ICM("C","FRACTURE OF FEMUR",8,16)=""
1342^ICM("C","FRACTURE OF HIP,PELVIS",8,17)=""
1343^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,29)=""
1344^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,30)=""
1345^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,35)=""
1346^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,36)=""
1347^ICM("C","FULL TERM,MAJOR PROBLEM",15,5)=""
1348^ICM("C","FULL TERM,OTHER DISORDER",15,6)=""
1349^ICM("C","HAND SURGERY",8,12)=""
1350^ICM("C","HAND SURGERY FOR INJURY",21,3)=""
1351^ICM("C","HEART FAILURE & SHOCK",5,15)=""
1352^ICM("C","HEART TRANSPLANT",5,1)=""
1353^ICM("C","HEMORRHAGE,DIGESTIVE SYSTEM",6,12)=""
1354^ICM("C","HERNIA SURGERY",6,7)=""
1355^ICM("C","HISTORY OF MALIGNANCY,NOT LYMP",17,6)=""
1356^ICM("C","HISTORY OF MALIGNANCY,NOT LYMP",17,12)=""
1357^ICM("C","HIV MAJOR RELATED CONDITION",25,2)=""
1358^ICM("C","HYPERTENSION",5,20)=""
1359^ICM("C","HYPERTENSIVE ENCEPHALOPATHY",1,14)=""
1360^ICM("C","HYPHEMA",2,7)=""
1361^ICM("C","HYSTERECTOMY OTHER THAN RADICA",13,2)=""
1362^ICM("C","HYSTERECTOMY OTHER THAN RADICA",13,13)=""
1363^ICM("C","INBORN ERROR OF METABOLISM",10,11)=""
1364^ICM("C","INFECTION",1,13)=""
1365^ICM("C","INFECTION KIDNEY/URINARY TRACT",11,10)=""
1366^ICM("C","INFECTION,FEMALE REPRODUCTIVE",13,10)=""
1367^ICM("C","INFECTIONS & INFLAMMATIONS",4,4)=""
1368^ICM("C","INFLAMMATION,MALE REPRODUCTIVE",12,9)=""
1369^ICM("C","INFLAMMATORY BOWEL DISORDER",6,14)=""
1370^ICM("C","INTERSTITIAL LUNG DISEASE",4,11)=""
1371^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",24,6)=""
1372^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",26,3)=""
1373^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",27,3)=""
1374^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",28,3)=""
1375^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",99,3)=""
1376^ICM("C","KIDNEY TRANSPLANT",11,1)=""
1377^ICM("C","KIDNEY,URETER,MAJOR BLADDER SU",11,2)=""
1378^ICM("C","KIDNEY,URETER,MAJOR BLADDER SU",11,15)=""
1379^ICM("C","KNEE SURGERY",8,8)=""
1380^ICM("C","LAPAROSCOPY,ENDOSCOPY",13,6)=""
1381^ICM("C","LARYNGOTRACHEITIS",3,16)=""
1382^ICM("C","LEFT AGAINST MEDICAL ADVICE",20,1)=""
1383^ICM("C","LENS SURGERY",2,4)=""
1384^ICM("C","LIMB REATTACHMENT, HIP & FEMUR",24,2)=""
1385^ICM("C","LIVER TRANSPLANT",99,6)=""
1386^ICM("C","LUNG TRANSPLANT",98,1)=""
1387^ICM("C","LYMPHOMA,LEUKEMIA NO SURGERY",17,3)=""
1388^ICM("C","M SCLEROSIS,CEREBELLAR ATAXIA",1,9)=""
1389^ICM("C","MAJOR CHEST SURGERY",4,1)=""
1390^ICM("C","MAJOR CHEST TRAUMA",4,6)=""
1391^ICM("C","MAJOR HEAD & NECK SURGERY",3,1)=""
1392^ICM("C","MAJOR JOINT SURGERY",8,1)=""
1393^ICM("C","MAJOR PELVIC SURGERY,MALE",12,1)=""
1394^ICM("C","MAJOR SKIN DISORDER",9,7)=""
1395^ICM("C","MAJOR SM & LG BOWEL SURGERY",6,2)=""
1396^ICM("C","MAJOR SURGERY:MYELOPROLIF,NEOP",17,1)=""
1397^ICM("C","MAJOR SURGERY:MYELOPROLIF,NEOP",17,8)=""
1398^ICM("C","MALIGNANCY",3,11)=""
1399^ICM("C","MALIGNANCY &/or PATHOLOGIC FRA",8,20)=""
1400^ICM("C","MALIGNANCY &/or PATHOLOGIC FRA",8,33)=""
1401^ICM("C","MALIGNANCY,DIGESTIVE SYSTEM",6,11)=""
1402^ICM("C","MALIGNANCY,FEMALE REPRODUCTIVE",13,9)=""
1403^ICM("C","MALIGNANCY,HEPATOBILIARY,PANCR",7,6)=""
1404^ICM("C","MALIGNANCY,MALE REPRODUCTIVE",12,7)=""
1405^ICM("C","MENSTRURAL,OTHER DISORDER",13,11)=""
1406^ICM("C","MINOR SKIN DISORDER",9,11)=""
1407^ICM("C","MINOR SM & LG BOWEL SURGERY",6,4)=""
1408^ICM("C","MINOR SURGERY:MYELOPROLIF,NEOP",17,2)=""
1409^ICM("C","MINOR SURGERY:MYELOPROLIF,NEOP",17,9)=""
1410^ICM("C","MISC NOSE,THROAT,EAR SURGERY",3,5)=""
1411^ICM("C","MOUTH SURGERY",6,9)=""
1412^ICM("C","MYRINGOTOMY",3,9)=""
1413^ICM("C","NASAL TRAUMA & DEFORMITY",3,17)=""
1414^ICM("C","NEOPLASM",1,7)=""
1415^ICM("C","NEOPLASM",4,5)=""
1416^ICM("C","NEOPLASM KIDNEY/URINARY TRACT",11,9)=""
1417^ICM("C","NEUROSIS",19,3)=""
1418^ICM("C","NEWBORN, NORMAL",15,2)=""
1419^ICM("C","NEWBORN, TRANSFERRED OR DIED",15,1)=""
1420^ICM("C","NON-EXTENSIVE OR PROCEDURE UNR",99,5)=""
1421^ICM("C","NONSPECIFIC ARTHROPATHY",8,25)=""
1422^ICM("C","NONSPECIFIC CEREBROVASC DISORD",1,11)=""
1423^ICM("C","NONTRAUMATIC STUPOR & COMA",1,15)=""
1424^ICM("C","NUTR,MISC METABOLIC DISORDER",10,10)=""
1425^ICM("C","OBSTRUCTION,DIGESTIVE SYSTEM",6,15)=""
1426^ICM("C","OR PROCEDURE FOR OBESITY",10,4)=""
1427^ICM("C","OR PROCEDURE HEALTH STATUS,OTH",23,1)=""
1428^ICM("C","OR PROCEDURE HEALTH STATUS,OTH",23,6)=""
1429^ICM("C","OR PROCEDURE UNRELATED TO A MD",26,1)=""
1430^ICM("C","OR PROCEDURE UNRELATED TO A MD",27,1)=""
1431^ICM("C","OR PROCEDURE UNRELATED TO A MD",28,1)=""
1432^ICM("C","OR PROCEDURE UNRELATED TO A MD",99,1)=""
1433^ICM("C","OR PROCEDURE, MENTAL DISORDER",19,1)=""
1434^ICM("C","OR PROCEDURE: INFECTIOUS,PARAS",18,1)=""
1435^ICM("C","OR PROCEDURE: INFECTIOUS,PARAS",18,6)=""
1436^ICM("C","ORBIT SURGERY",2,2)=""
1437^ICM("C","ORGANIC DISTURBANCE,MENTAL RET",19,5)=""
1438^ICM("C","ORGANIC DISTURBANCE,MENTAL RET",19,11)=""
1439^ICM("C","OSTEOMYELITIS",8,19)=""
1440^ICM("C","OTHER ANTEPARTUM DISORDER",14,10)=""
1441^ICM("C","OTHER DIAGNOSES,CIRCULATORY",5,26)=""
1442^ICM("C","OTHER DIAGNOSES,DIGESTIVE SYS",6,18)=""
1443^ICM("C","OTHER DIAGNOSES,ENT",3,18)=""
1444^ICM("C","OTHER DIAGNOSES,RESPIRATORY",4,15)=""
1445^ICM("C","OTHER DIAGNOSIS",1,19)=""
1446^ICM("C","OTHER DISORDER KIDNEY/URINARY ",11,14)=""
1447^ICM("C","OTHER DISORDER KIDNEY/URINARY ",11,18)=""
1448^ICM("C","OTHER DISORDER,BILIARY TRACT",7,9)=""
1449^ICM("C","OTHER DISORDER,BONE,MUSCLE,C.T",8,31)=""
1450^ICM("C","OTHER DISORDER,BONE,MUSCLE,C.T",8,37)=""
1451^ICM("C","OTHER DISORDER,LIVER",7,8)=""
1452^ICM("C","OTHER DISORDER,MALE REPRODUCTI",12,11)=""
1453^ICM("C","OTHER DISORDER,MALE REPRODUCTI",12,13)=""
1454^ICM("C","OTHER DISORDER,PANCREAS",7,7)=""
1455^ICM("C","OTHER DISORDER: INFECTIOUS,PAR",18,5)=""
1456^ICM("C","OTHER DISORDER: INFECTIOUS,PAR",18,8)=""
1457^ICM("C","OTHER DX FOR MULTIPLE TRAUMA",24,4)=""
1458^ICM("C","OTHER EXTRAOCULAR SURGERY",2,5)=""
1459^ICM("C","OTHER EYE DIAGNOSES",2,10)=""
1460^ICM("C","OTHER FACTORS HEALTH STATUS,CO",23,5)=""
1461^ICM("C","OTHER FACTORS HEALTH STATUS,CO",23,8)=""
1462^ICM("C","OTHER HIP, FEMUR SURGERY",8,2)=""
1463^ICM("C","OTHER INJURY,POISONING",21,9)=""
1464^ICM("C","OTHER INTRAOCULAR SURGERY",2,6)=""
1465^ICM("C","OTHER L. EXTREMITY,HUMERUS OPR",8,7)=""
1466^ICM("C","OTHER MENTAL DISORDER",19,8)=""
1467^ICM("C","OTHER NEOPLASM NOT ELSEWHERE C",17,7)=""
1468^ICM("C","OTHER NEOPLASM NOT ELSEWHERE C",17,13)=""
1469^ICM("C","OTHER OR PROCEDURE FOR INJURY",21,4)=""
1470^ICM("C","OTHER OR PROCEDURE FOR TRAUMA",24,3)=""
1471^ICM("C","OTHER OR PROCEDURE LIVER/PANCR",7,4)=""
1472^ICM("C","OTHER OR PROCEDURE,CIRCULATORY",5,11)=""
1473^ICM("C","OTHER OR PROCEDURE,FEMALE REPR",13,8)=""
1474^ICM("C","OTHER OR PROCEDURE,FEMALE REPR",13,14)=""
1475^ICM("C","OTHER OR PROCEDURE,MUSCLE/BONE",8,15)=""
1476^ICM("C","OTHER OR PROCEDURE:BLOOD,IMMUN",16,2)=""
1477^ICM("C","OTHER OR PROCEDURE:BLOOD,IMMUN",16,6)=""
1478^ICM("C","OTHER OR PROCEDURE:ENDOCR,NUTR",10,8)=""
1479^ICM("C","OTHER OR PROCEDURE:KIDNEY,URIN",11,7)=""
1480^ICM("C","OTHER OR PROCEDURE:KIDNEY,URIN",11,16)=""
1481^ICM("C","OTHER OR PROCEDURE:MALE REPROD",12,6)=""
1482^ICM("C","OTHER OR PROCEDURE:MALE REPROD",12,12)=""
1483^ICM("C","OTHER OR PROCEDURE:SKIN,BREAST",9,5)=""
1484^ICM("C","OTHER OR PROCEDURE:SKIN,BREAST",9,13)=""
1485^ICM("C","OTHER OR PROCEDURES",4,2)=""
1486^ICM("C","OTHER OR PROCEDURES,DIGESTIVE",6,10)=""
1487^ICM("C","OTHER OR PROCEDURES,ENT",3,10)=""
1488^ICM("C","OTHER UPPER EXTREMITY SURGERY",8,9)=""
1489^ICM("C","OTHER URINARY BLADDER SURGERY",11,4)=""
1490^ICM("C","OTITIS MEDIA & URI",3,15)=""
1491^ICM("C","PACEMAKER REPLACEMENT &/OR REV",5,9)=""
1492^ICM("C","PANCREAS,LIVER,SHUNT SURGERY",7,1)=""
1493^ICM("C","PARATHYROID SURGERY",10,5)=""
1494^ICM("C","PELVIC EVISCERATION,RADICAL SU",13,1)=""
1495^ICM("C","PELVIC EVISCERATION,RADICAL SU",13,12)=""
1496^ICM("C","PENIS SURGERY",12,4)=""
1497^ICM("C","PERIANAL & PILONIDAL CYST SURG",9,3)=""
1498^ICM("C","PERIANAL & PILONIDAL CYST SURG",9,12)=""
1499^ICM("C","PERMANENT PACEMAKER IMPLANT",5,8)=""
1500^ICM("C","PERPHERIAL VASCULAR DISEASE",5,18)=""
1501^ICM("C","PERPHERIAL,CRANIAL NRV & OTHER",1,5)=""
1502^ICM("C","PERSONALITY,IMPULSE CONTROL DI",19,4)=""
1503^ICM("C","PERSONALITY,IMPULSE CONTROL DI",19,10)=""
1504^ICM("C","PLASTIC SURGERY",9,4)=""
1505^ICM("C","PLEURAL EFFUSION",4,7)=""
1506^ICM("C","PNEUMOTHORAX",4,12)=""
1507^ICM("C","POST-OP,POSTTRAUMATIC INFECTIO",18,3)=""
1508^ICM("C","POST-OP,POSTTRAUMATIC INFECTIO",18,7)=""
1509^ICM("C","POSTPARTUM DISORDER,NOT DELIVE",14,4)=""
1510^ICM("C","POSTPARTUM DISORDER,NOT DELIVE",14,12)=""
1511^ICM("C","POSTPARTUM SURGERY,NOT DELIVER",14,3)=""
1512^ICM("C","POSTPARTUM SURGERY,NOT DELIVER",14,11)=""
1513^ICM("C","PREMATURITY",15,4)=""
1514^ICM("C","PRIMARY IRIS SURGERY",2,3)=""
1515^ICM("C","PROSTATECTOMY",11,3)=""
1516^ICM("C","PROSTATIC OR PROCEDURE UNRELAT",99,4)=""
1517^ICM("C","PSYCHOSIS",19,6)=""
1518^ICM("C","PULMONARY EDEMA & RESP FAILURE",4,8)=""
1519^ICM("C","PULMONARY EMBOLISM",4,3)=""
1520^ICM("C","RADIATION THERAPY, NOT FOR LYM",17,4)=""
1521^ICM("C","RADIATION THERAPY, NOT FOR LYM",17,10)=""
1522^ICM("C","RECONSTRUCTIVE SURGERY,FEMALE",13,3)=""
1523^ICM("C","RECTAL RESECTION",6,1)=""
1524^ICM("C","RED BLOOD CELL DISORDER",16,3)=""
1525^ICM("C","REHABILITATION",23,2)=""
1526^ICM("C","REM INT FIX DEV,LOCAL EXCISION",8,13)=""
1527^ICM("C","RENAL FAILURE",11,8)=""
1528^ICM("C","RETINA SURGERY",2,1)=""
1529^ICM("C","RHINOPLASTY",3,6)=""
1530^ICM("C","SALIVARY GLAND SURGERY",3,2)=""
1531^ICM("C","SEIZURE & HEADACHE",1,16)=""
1532^ICM("C","SEPTIC ARTHRITIS",8,22)=""
1533^ICM("C","SEPTICEMIA",18,2)=""
1534^ICM("C","SIGN,SYMPTOM KIDNEY/URINARY TR",11,12)=""
1535^ICM("C","SIGN,SYMPTOM KIDNEY/URINARY TR",11,17)=""
1536^ICM("C","SIGN,SYMPTOM NOT ELSEWHERE CLA",23,3)=""
1537^ICM("C","SIGN,SYMPTOM NOT ELSEWHERE CLA",23,7)=""
1538^ICM("C","SIGN,SYMPTOM:MUSCLE,BONE,C.T.",8,26)=""
1539^ICM("C","SIGNS & SYMPTOMS,RESPIRATORY",4,14)=""
1540^ICM("C","SIMPLE PNEUMONIA & PLEURISY",4,10)=""
1541^ICM("C","SINUS & MASTOID SURGERY",3,4)=""
1542^ICM("C","SKIN GRAFT",9,2)=""
1543^ICM("C","SKIN GRAFT",21,1)=""
1544^ICM("C","SKIN GRAFT,WOUND DEBRIDEMENT",10,3)=""
1545^ICM("C","SKIN ULCER",9,6)=""
1546^ICM("C","SOFT TISSUE SURGERY",8,11)=""
1547^ICM("C","SPECIFIC CEREBROVASC DISORDER",1,10)=""
1548^ICM("C","SPINAL DISORDER/INJURY",1,6)=""
1549^ICM("C","SPINAL SURGERY",1,2)=""
1550^ICM("C","SPLENECTOMY",16,1)=""
1551^ICM("C","STERILIZATION, MALE",12,10)=""
1552^ICM("C","STOMACH,ESO,DUODENUM SURGERY",6,5)=""
1553^ICM("C","STONE KIDNEY/URINARY TRACT",11,11)=""
1554^ICM("C","STRAIN,SPRAIN,DISLOC:HIP,PELVI",8,18)=""
1555^ICM("C","STRAIN,SPRAIN,DISLOC:HIP,PELVI",8,32)=""
1556^ICM("C","SURGERY UTERUS,ADNEXA",13,4)=""
1557^ICM("C","SURGERY VAGINA,CERVIX,VULVA",13,5)=""
1558^ICM("C","SYNCOPE & COLLAPSE",5,24)=""
1559^ICM("C","TENDONITIS,MYOSITIS,BURSITIS",8,27)=""
1560^ICM("C","TESTICULAR SURGERY",12,3)=""
1561^ICM("C","THREATENED ABORTION",14,6)=""
1562^ICM("C","THYROGLOSSAL SURGERY",10,7)=""
1563^ICM("C","THYROID SURGERY",10,6)=""
1564^ICM("C","TONSIL & ADENOID SURGERY",3,7)=""
1565^ICM("C","TONSIL & ADENOID SURGERY,OTHER",3,8)=""
1566^ICM("C","TOXIC DRUG EFFECT",21,7)=""
1567^ICM("C","TRACHEOSTOMY EXCEPT MOUTH,LARY",99,9)=""
1568^ICM("C","TRACHEOSTOMY W MOUTH,LARYNX,PH",99,8)=""
1569^ICM("C","TRANSURETHERAL PROSTATECTOMY",12,2)=""
1570^ICM("C","TRANSURETHRAL SURGERY",11,5)=""
1571^ICM("C","TRAUMA",9,10)=""
1572^ICM("C","TRAUMA, NO SURGERY",21,5)=""
1573^ICM("C","TRAUMATIC STUPOR & COMA",1,17)=""
1574^ICM("C","ULCER,DIGESTIVE SYSTEM",6,13)=""
1575^ICM("C","URETHERAL SURGERY",11,6)=""
1576^ICM("C","URETHRAL STRICTURE",11,13)=""
1577^ICM("C","VAGINAL DELIVERY",14,2)=""
1578^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",24,5)=""
1579^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",26,2)=""
1580^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",27,2)=""
1581^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",28,2)=""
1582^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",99,2)=""
1583^ICM("C","VALVE SURGERY WITH PUMP",5,2)=""
1584^ICM("C","VASCULAR SURGERY",5,6)=""
1585^ICM("C","VEIN LIGATION & STRIPPING",5,10)=""
1586^ICM("C","VIRAL ILLNESS,FUO",18,4)=""
1587^ICM("C","WOUND DEBRIDEMENT",21,2)=""
Note: See TracBrowser for help on using the repository browser.