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

FirstRelease WVEHR VER VOE1.0

Cache 31-Jan-2008 23:07:04 ZWR

^ICM="0"

^ICM(0)="MAJOR DIAGNOSTIC CATEGORY^80.3^99^30"

^ICM(1,0)="NERVOUS SYSTEM"

^ICM(1,1,0)="^80.31A^19^19"

^ICM(1,1,1,0)="CRANOITOMY^1^1^2^3"

^ICM(1,1,1,1,0)="^80.32A^4^4"

^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"

^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"

^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"

^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"

^ICM(1,1,2,0)="SPINAL SURGERY^1^4"

^ICM(1,1,3,0)="EXTRACRANIAL VASCULAR^1^5"

^ICM(1,1,4,0)="CARPAL TUNNEL RELEASE^1^6"

^ICM(1,1,5,0)="PERPHERIAL,CRANIAL NRV & OTHER^1^7^8"

^ICM(1,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,6,0)="SPINAL DISORDER/INJURY^^9"

^ICM(1,1,7,0)="NEOPLASM^^10^11"

^ICM(1,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,8,0)="DEGENERATIVE DISORDERS^^12"

^ICM(1,1,9,0)="M SCLEROSIS,CEREBELLAR ATAXIA^^13"

^ICM(1,1,10,0)="SPECIFIC CEREBROVASC DISORDER^^14^15"

^ICM(1,1,10,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(1,1,11,0)="NONSPECIFIC CEREBROVASC DISORD^^16^17"

^ICM(1,1,11,1,0)="^80.32A^2^2"

^ICM(1,1,11,1,1,0)="D COM S DRG=$S(X?1""Y"".E:16,1:17),FIN=1"

^ICM(1,1,11,1,2,0)="D COM S DRG=$S(X?1""Y"".E:16,1:17),FIN=1"

^ICM(1,1,12,0)="CRANIAL,PERPHERIAL NERVE^^18^19"

^ICM(1,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,13,0)="INFECTION^^20^21"

^ICM(1,1,13,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(1,1,14,0)="HYPERTENSIVE ENCEPHALOPATHY^^22"

^ICM(1,1,15,0)="NONTRAUMATIC STUPOR & COMA^^23"

^ICM(1,1,16,0)="SEIZURE & HEADACHE^^24^25^26"

^ICM(1,1,16,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,17,0)="TRAUMATIC STUPOR & COMA^^27^28^29^30"

^ICM(1,1,17,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(1,1,18,0)="CONCUSSION^^31^32^33"

^ICM(1,1,18,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,19,0)="OTHER DIAGNOSIS^^34^35"

^ICM(1,1,19,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(1,1,"B","CARPAL TUNNEL RELEASE",4)=""

^ICM(1,1,"B","CONCUSSION",18)=""

^ICM(1,1,"B","CRANIAL,PERPHERIAL NERVE",12)=""

^ICM(1,1,"B","CRANOITOMY",1)=""

^ICM(1,1,"B","DEGENERATIVE DISORDERS",8)=""

^ICM(1,1,"B","EXTRACRANIAL VASCULAR",3)=""

^ICM(1,1,"B","HYPERTENSIVE ENCEPHALOPATHY",14)=""

^ICM(1,1,"B","INFECTION",13)=""

^ICM(1,1,"B","M SCLEROSIS,CEREBELLAR ATAXIA",9)=""

^ICM(1,1,"B","NEOPLASM",7)=""

^ICM(1,1,"B","NONSPECIFIC CEREBROVASC DISORD",11)=""

^ICM(1,1,"B","NONTRAUMATIC STUPOR & COMA",15)=""

^ICM(1,1,"B","OTHER DIAGNOSIS",19)=""

^ICM(1,1,"B","PERPHERIAL,CRANIAL NRV & OTHER",5)=""

^ICM(1,1,"B","SEIZURE & HEADACHE",16)=""

^ICM(1,1,"B","SPECIFIC CEREBROVASC DISORDER",10)=""

^ICM(1,1,"B","SPINAL DISORDER/INJURY",6)=""

^ICM(1,1,"B","SPINAL SURGERY",2)=""

^ICM(1,1,"B","TRAUMATIC STUPOR & COMA",17)=""

^ICM(2,0)="EYE"

^ICM(2,1,0)="^80.31A^10^10"

^ICM(2,1,1,0)="RETINA SURGERY^1^36"

^ICM(2,1,2,0)="ORBIT SURGERY^1^37"

^ICM(2,1,3,0)="PRIMARY IRIS SURGERY^1^38"

^ICM(2,1,4,0)="LENS SURGERY^1^39"

^ICM(2,1,5,0)="OTHER EXTRAOCULAR SURGERY^1^40^41"

^ICM(2,1,5,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(2,1,6,0)="OTHER INTRAOCULAR SURGERY^1^42"

^ICM(2,1,7,0)="HYPHEMA^^43"

^ICM(2,1,8,0)="ACUTE MAJOR INFECTION^^44"

^ICM(2,1,9,0)="EYE NEUROLOGICAL DISORDERS^^45"

^ICM(2,1,10,0)="OTHER EYE DIAGNOSES^^46^47^48"

^ICM(2,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(2,1,"B","ACUTE MAJOR INFECTION",8)=""

^ICM(2,1,"B","EYE NEUROLOGICAL DISORDERS",9)=""

^ICM(2,1,"B","HYPHEMA",7)=""

^ICM(2,1,"B","LENS SURGERY",4)=""

^ICM(2,1,"B","ORBIT SURGERY",2)=""

^ICM(2,1,"B","OTHER EXTRAOCULAR SURGERY",5)=""

^ICM(2,1,"B","OTHER EYE DIAGNOSES",10)=""

^ICM(2,1,"B","OTHER INTRAOCULAR SURGERY",6)=""

^ICM(2,1,"B","PRIMARY IRIS SURGERY",3)=""

^ICM(2,1,"B","RETINA SURGERY",1)=""

^ICM(3,0)="EAR, NOSE, MOUTH & THROAT"

^ICM(3,1,0)="^80.31A^18^18"

^ICM(3,1,1,0)="MAJOR HEAD & NECK SURGERY^1^49"

^ICM(3,1,2,0)="SALIVARY GLAND SURGERY^1^50^51"

^ICM(3,1,2,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(3,1,3,0)="CLEFT LIP,PALATE REPAIR^1^52"

^ICM(3,1,4,0)="SINUS & MASTOID SURGERY^1^53^54"

^ICM(3,1,4,1,0)="^80.32A^2^2"

^ICM(3,1,4,1,1,0)="D AGE S DRG=$S(AGE<18:54,1:53),FIN=1"

^ICM(3,1,4,1,2,0)="D AGE S DRG=$S(AGE<18:54,1:53),FIN=1"

^ICM(3,1,5,0)="MISC NOSE,THROAT,EAR SURGERY^1^55"

^ICM(3,1,6,0)="RHINOPLASTY^1^56"

^ICM(3,1,7,0)="TONSIL & ADENOID SURGERY^1^59^60"

^ICM(3,1,7,1,0)="^80.32A^2^2"

^ICM(3,1,7,1,1,0)="D AGE S DRG=$S(AGE<18:60,1:59),FIN=1"

^ICM(3,1,7,1,2,0)="D AGE S DRG=$S(AGE<18:60,1:59),FIN=1"

^ICM(3,1,8,0)="TONSIL & ADENOID SURGERY,OTHER^1^57^58"

^ICM(3,1,8,1,0)="^80.32A^2^2"

^ICM(3,1,8,1,1,0)="D AGE S DRG=$S(AGE<18:58,1:57),FIN=1"

^ICM(3,1,8,1,2,0)="D AGE S DRG=$S(AGE<18:58,1:57),FIN=1"

^ICM(3,1,9,0)="MYRINGOTOMY^1^61^62"

^ICM(3,1,9,1,0)="^80.32A^2^2"

^ICM(3,1,9,1,1,0)="D AGE S DRG=$S(AGE<18:62,1:61),FIN=1"

^ICM(3,1,9,1,2,0)="D AGE S DRG=$S(AGE<18:62,1:61),FIN=1"

^ICM(3,1,10,0)="OTHER OR PROCEDURES,ENT^1^63"

^ICM(3,1,11,0)="MALIGNANCY^^64"

^ICM(3,1,12,0)="DYSEQUILIBRIUM^^65"

^ICM(3,1,13,0)="EPISTAXIS^^66"

^ICM(3,1,14,0)="EPIGLOTTITIS^^67"

^ICM(3,1,15,0)="OTITIS MEDIA & URI^^68^69^70"

^ICM(3,1,15,1,0)="^80.32A^2^2"

^ICM(3,1,15,1,1,0)="D AGE S DRG=$S(AGE<18:70,AGE>69:68,1:69),FIN=1"

^ICM(3,1,15,1,2,0)="D AGE S DRG=$S(AGE<18:70,AGE>69:68,1:69),FIN=1"

^ICM(3,1,16,0)="LARYNGOTRACHEITIS^^71"

^ICM(3,1,17,0)="NASAL TRAUMA & DEFORMITY^^72"

^ICM(3,1,18,0)="OTHER DIAGNOSES,ENT^^73^74"

^ICM(3,1,18,1,0)="^80.32A^2^2"

^ICM(3,1,18,1,1,0)="D AGE S DRG=$S(AGE<18:74,1:73),FIN=1"

^ICM(3,1,18,1,2,0)="D AGE S DRG=$S(AGE<18:74,1:73),FIN=1"

^ICM(3,1,"B","CLEFT LIP,PALATE REPAIR",3)=""

^ICM(3,1,"B","DYSEQUILIBRIUM",12)=""

^ICM(3,1,"B","EPIGLOTTITIS",14)=""

^ICM(3,1,"B","EPISTAXIS",13)=""

^ICM(3,1,"B","LARYNGOTRACHEITIS",16)=""

^ICM(3,1,"B","MAJOR HEAD & NECK SURGERY",1)=""

^ICM(3,1,"B","MALIGNANCY",11)=""

^ICM(3,1,"B","MISC NOSE,THROAT,EAR SURGERY",5)=""

^ICM(3,1,"B","MYRINGOTOMY",9)=""

^ICM(3,1,"B","NASAL TRAUMA & DEFORMITY",17)=""

^ICM(3,1,"B","OTHER DIAGNOSES,ENT",18)=""

^ICM(3,1,"B","OTHER OR PROCEDURES,ENT",10)=""

^ICM(3,1,"B","OTITIS MEDIA & URI",15)=""

^ICM(3,1,"B","RHINOPLASTY",6)=""

^ICM(3,1,"B","SALIVARY GLAND SURGERY",2)=""

^ICM(3,1,"B","SINUS & MASTOID SURGERY",4)=""

^ICM(3,1,"B","TONSIL & ADENOID SURGERY",7)=""

^ICM(3,1,"B","TONSIL & ADENOID SURGERY,OTHER",8)=""

^ICM(4,0)="RESPIRATORY SYSTEM"

^ICM(4,1,0)="^80.31A^15^15"

^ICM(4,1,1,0)="MAJOR CHEST SURGERY^1^75"

^ICM(4,1,2,0)="OTHER OR PROCEDURES^1^76^77"

^ICM(4,1,2,1,0)="^80.32A^2^2"

^ICM(4,1,2,1,1,0)="D COM S DRG=$S(X?1""Y"".E:76,1:77),FIN=1"

^ICM(4,1,2,1,2,0)="D COM S DRG=$S(X?1""Y"".E:76,1:77),FIN=1"

^ICM(4,1,3,0)="PULMONARY EMBOLISM^^78"

^ICM(4,1,4,0)="INFECTIONS & INFLAMMATIONS^^79^80^81"

^ICM(4,1,4,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,5,0)="NEOPLASM^^82"

^ICM(4,1,6,0)="MAJOR CHEST TRAUMA^^83^84"

^ICM(4,1,6,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,7,0)="PLEURAL EFFUSION^^85^86"

^ICM(4,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,8,0)="PULMONARY EDEMA & RESP FAILURE^^87"

^ICM(4,1,9,0)="CHR OBSTRUCTIVE PULMONARY DIS^^88"

^ICM(4,1,10,0)="SIMPLE PNEUMONIA & PLEURISY^^89^90^91"

^ICM(4,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,11,0)="INTERSTITIAL LUNG DISEASE^^92^93"

^ICM(4,1,11,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,12,0)="PNEUMOTHORAX^^94^95"

^ICM(4,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,13,0)="BRONCHITIS & ASTHMA^^96^97^98"

^ICM(4,1,13,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,14,0)="SIGNS & SYMPTOMS,RESPIRATORY^^99^100"

^ICM(4,1,14,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,15,0)="OTHER DIAGNOSES,RESPIRATORY^^101^102"

^ICM(4,1,15,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(4,1,"B","BRONCHITIS & ASTHMA",13)=""

^ICM(4,1,"B","CHR OBSTRUCTIVE PULMONARY DIS",9)=""

^ICM(4,1,"B","INFECTIONS & INFLAMMATIONS",4)=""

^ICM(4,1,"B","INTERSTITIAL LUNG DISEASE",11)=""

^ICM(4,1,"B","MAJOR CHEST SURGERY",1)=""

^ICM(4,1,"B","MAJOR CHEST TRAUMA",6)=""

^ICM(4,1,"B","NEOPLASM",5)=""

^ICM(4,1,"B","OTHER DIAGNOSES,RESPIRATORY",15)=""

^ICM(4,1,"B","OTHER OR PROCEDURES",2)=""

^ICM(4,1,"B","PLEURAL EFFUSION",7)=""

^ICM(4,1,"B","PNEUMOTHORAX",12)=""

^ICM(4,1,"B","PULMONARY EDEMA & RESP FAILURE",8)=""

^ICM(4,1,"B","PULMONARY EMBOLISM",3)=""

^ICM(4,1,"B","SIGNS & SYMPTOMS,RESPIRATORY",14)=""

^ICM(4,1,"B","SIMPLE PNEUMONIA & PLEURISY",10)=""

^ICM(5,0)="CIRCULATORY SYSTEM"

^ICM(5,1,0)="^80.31A^26^26"

^ICM(5,1,1,0)="HEART TRANSPLANT^1^103"

^ICM(5,1,2,0)="VALVE SURGERY WITH PUMP^1^104^105"

^ICM(5,1,2,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,3,0)="CORONARY BYPASS^1^106^107"

^ICM(5,1,3,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,4,0)="CARDIOTHORAC SURG,OTHER w/PUMP^1^108"

^ICM(5,1,5,0)="CARDIOTHORAC SURG,OTHER noPUMP^1^109"

^ICM(5,1,6,0)="VASCULAR SURGERY^1^110^111^112"

^ICM(5,1,6,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,7,0)="AMPUTATION^1^113^114"

^ICM(5,1,7,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,8,0)="PERMANENT PACEMAKER IMPLANT^1^115^116"

^ICM(5,1,8,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,9,0)="PACEMAKER REPLACEMENT &/OR REV^1^117^118"

^ICM(5,1,9,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,10,0)="VEIN LIGATION & STRIPPING^1^119"

^ICM(5,1,11,0)="OTHER OR PROCEDURE,CIRCULATORY^1^120"

^ICM(5,1,12,0)="ACUTE MYOCARDIAL INFARCTION^^121^122^123"

^ICM(5,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,13,0)="CARDIAC CATHETERIZATION^^124^125"

^ICM(5,1,13,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(5,1,14,0)="ENDOCARDITIS,ACUTE & SUBACUTE^^126"

^ICM(5,1,15,0)="HEART FAILURE & SHOCK^^127"

^ICM(5,1,16,0)="DEEP VEIN THROBOPHLEBITIS^^128"

^ICM(5,1,17,0)="CARDIAC ARREST^^129"

^ICM(5,1,18,0)="PERPHERIAL VASCULAR DISEASE^^130^131"

^ICM(5,1,18,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,19,0)="ATHEROSCLEROSIS^^132^133"

^ICM(5,1,19,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,20,0)="HYPERTENSION^^134"

^ICM(5,1,21,0)="CONGENITAL & VALVULAR,CIRCULAT^^135^136^137"

^ICM(5,1,21,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,22,0)="ARRHYTHMIA & CONDUCTION,DIS^^138^139"

^ICM(5,1,22,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,23,0)="ANGINA^^140"

^ICM(5,1,24,0)="SYNCOPE & COLLAPSE^^141^142"

^ICM(5,1,24,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(5,1,25,0)="CHEST PAIN^^143"

^ICM(5,1,26,0)="OTHER DIAGNOSES,CIRCULATORY^^144^145"

^ICM(5,1,26,1,0)="^80.32A^2^2"

^ICM(5,1,26,1,1,0)="D COM S DRG=$S(X?1""Y"".E:144,1:145),FIN=1"

^ICM(5,1,26,1,2,0)="D COM S DRG=$S(X?1""Y"".E:144,1:145),FIN=1"

^ICM(5,1,"B","ACUTE MYOCARDIAL INFARCTION",12)=""

^ICM(5,1,"B","AMPUTATION",7)=""

^ICM(5,1,"B","ANGINA",23)=""

^ICM(5,1,"B","ARRHYTHMIA & CONDUCTION,DIS",22)=""

^ICM(5,1,"B","ATHEROSCLEROSIS",19)=""

^ICM(5,1,"B","CARDIAC ARREST",17)=""

^ICM(5,1,"B","CARDIAC CATHETERIZATION",13)=""

^ICM(5,1,"B","CARDIOTHORAC SURG,OTHER noPUMP",5)=""

^ICM(5,1,"B","CARDIOTHORAC SURG,OTHER w/PUMP",4)=""

^ICM(5,1,"B","CHEST PAIN",25)=""

^ICM(5,1,"B","CONGENITAL & VALVULAR,CIRCULAT",21)=""

^ICM(5,1,"B","CORONARY BYPASS",3)=""

^ICM(5,1,"B","DEEP VEIN THROBOPHLEBITIS",16)=""

^ICM(5,1,"B","ENDOCARDITIS,ACUTE & SUBACUTE",14)=""

^ICM(5,1,"B","HEART FAILURE & SHOCK",15)=""

^ICM(5,1,"B","HEART TRANSPLANT",1)=""

^ICM(5,1,"B","HYPERTENSION",20)=""

^ICM(5,1,"B","OTHER DIAGNOSES,CIRCULATORY",26)=""

^ICM(5,1,"B","OTHER OR PROCEDURE,CIRCULATORY",11)=""

^ICM(5,1,"B","PACEMAKER REPLACEMENT &/OR REV",9)=""

^ICM(5,1,"B","PERMANENT PACEMAKER IMPLANT",8)=""

^ICM(5,1,"B","PERPHERIAL VASCULAR DISEASE",18)=""

^ICM(5,1,"B","SYNCOPE & COLLAPSE",24)=""

^ICM(5,1,"B","VALVE SURGERY WITH PUMP",2)=""

^ICM(5,1,"B","VASCULAR SURGERY",6)=""

^ICM(5,1,"B","VEIN LIGATION & STRIPPING",10)=""

^ICM(6,0)="DIGESTIVE SYSTEM"

^ICM(6,1,0)="^80.31A^18^18"

^ICM(6,1,1,0)="RECTAL RESECTION^1^146^147"

^ICM(6,1,1,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,2,0)="MAJOR SM & LG BOWEL SURGERY^1^148^149"

^ICM(6,1,2,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,3,0)="ADHESIOLYSIS^1^150^151"

^ICM(6,1,3,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,4,0)="MINOR SM & LG BOWEL SURGERY^1^152^153"

^ICM(6,1,4,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,5,0)="STOMACH,ESO,DUODENUM SURGERY^1^154^155^156"

^ICM(6,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,6,0)="ANUS SURGERY^1^157^158"

^ICM(6,1,6,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,7,0)="HERNIA SURGERY^1^159^160^161^162^163"

^ICM(6,1,7,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(6,1,8,0)="APPENDECTOMY^1^164^165^166^167"

^ICM(6,1,8,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(6,1,9,0)="MOUTH SURGERY^1^168^169"

^ICM(6,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,10,0)="OTHER OR PROCEDURES,DIGESTIVE^1^170^171"

^ICM(6,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,11,0)="MALIGNANCY,DIGESTIVE SYSTEM^^172^173"

^ICM(6,1,11,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,12,0)="HEMORRHAGE,DIGESTIVE SYSTEM^^174^175"

^ICM(6,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,13,0)="ULCER,DIGESTIVE SYSTEM^^176^177^178"

^ICM(6,1,13,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(6,1,14,0)="INFLAMMATORY BOWEL DISORDER^^179"

^ICM(6,1,15,0)="OBSTRUCTION,DIGESTIVE SYSTEM^^180^181"

^ICM(6,1,15,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,16,0)="ESOPHAGITIS & MISC DISORDERS^^182^183^184"

^ICM(6,1,16,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,17,0)="DENTAL & ORAL DISORDERS^^185^186^187"

^ICM(6,1,17,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(6,1,18,0)="OTHER DIAGNOSES,DIGESTIVE SYS^^188^189^190"

^ICM(6,1,18,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(6,1,"B","ADHESIOLYSIS",3)=""

^ICM(6,1,"B","ANUS SURGERY",6)=""

^ICM(6,1,"B","APPENDECTOMY",8)=""

^ICM(6,1,"B","DENTAL & ORAL DISORDERS",17)=""

^ICM(6,1,"B","ESOPHAGITIS & MISC DISORDERS",16)=""

^ICM(6,1,"B","HEMORRHAGE,DIGESTIVE SYSTEM",12)=""

^ICM(6,1,"B","HERNIA SURGERY",7)=""

^ICM(6,1,"B","INFLAMMATORY BOWEL DISORDER",14)=""

^ICM(6,1,"B","MAJOR SM & LG BOWEL SURGERY",2)=""

^ICM(6,1,"B","MALIGNANCY,DIGESTIVE SYSTEM",11)=""

^ICM(6,1,"B","MINOR SM & LG BOWEL SURGERY",4)=""

^ICM(6,1,"B","MOUTH SURGERY",9)=""

^ICM(6,1,"B","OBSTRUCTION,DIGESTIVE SYSTEM",15)=""

^ICM(6,1,"B","OTHER DIAGNOSES,DIGESTIVE SYS",18)=""

^ICM(6,1,"B","OTHER OR PROCEDURES,DIGESTIVE",10)=""

^ICM(6,1,"B","RECTAL RESECTION",1)=""

^ICM(6,1,"B","STOMACH,ESO,DUODENUM SURGERY",5)=""

^ICM(6,1,"B","ULCER,DIGESTIVE SYSTEM",13)=""

^ICM(7,0)="HEPATOBILIARY & PANCREAS"

^ICM(7,1,0)="^80.31A^9^9"

^ICM(7,1,1,0)="PANCREAS,LIVER,SHUNT SURGERY^1^191^192"

^ICM(7,1,1,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(7,1,2,0)="BILIARY TRACT SURGERY^1^193^194^195^196^197^198"

^ICM(7,1,2,1,0)="^80.32A^4^4"

^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)"

^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)"

^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)"

^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)"

^ICM(7,1,3,0)="EXPLORATORY DIAGNOSTIC WORKUP^1^199^200"

^ICM(7,1,3,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(7,1,4,0)="OTHER OR PROCEDURE LIVER/PANCR^1^201"

^ICM(7,1,5,0)="CIRRHOSIS,ALCOHOLIC HEPATITIS^^202"

^ICM(7,1,6,0)="MALIGNANCY,HEPATOBILIARY,PANCR^^203"

^ICM(7,1,7,0)="OTHER DISORDER,PANCREAS^^204"

^ICM(7,1,8,0)="OTHER DISORDER,LIVER^^205^206"

^ICM(7,1,8,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(7,1,9,0)="OTHER DISORDER,BILIARY TRACT^^207^208"

^ICM(7,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(7,1,"B","BILIARY TRACT SURGERY",2)=""

^ICM(7,1,"B","CIRRHOSIS,ALCOHOLIC HEPATITIS",5)=""

^ICM(7,1,"B","EXPLORATORY DIAGNOSTIC WORKUP",3)=""

^ICM(7,1,"B","MALIGNANCY,HEPATOBILIARY,PANCR",6)=""

^ICM(7,1,"B","OTHER DISORDER,BILIARY TRACT",9)=""

^ICM(7,1,"B","OTHER DISORDER,LIVER",8)=""

^ICM(7,1,"B","OTHER DISORDER,PANCREAS",7)=""

^ICM(7,1,"B","OTHER OR PROCEDURE LIVER/PANCR",4)=""

^ICM(7,1,"B","PANCREAS,LIVER,SHUNT SURGERY",1)=""

^ICM(8,0)="MUSCULOSKELETAL & CONNECTIVE T"

^ICM(8,1,0)="^80.31A^37^37"

^ICM(8,1,1,0)="MAJOR JOINT SURGERY^1^209"

^ICM(8,1,2,0)="OTHER HIP, FEMUR SURGERY^1^210^211^212"

^ICM(8,1,2,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,3,0)="AMPUTATION^1^213"

^ICM(8,1,4,0)="BACK, NECK SURGERY^1^214^215"

^ICM(8,1,4,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,5,0)="BIOPSY,MUSCULOSKELETAL,C.T.^1^216"

^ICM(8,1,6,0)="DEBRIDEMENT,GRAFT EXCEPT HAND^1^217"

^ICM(8,1,7,0)="OTHER L. EXTREMITY,HUMERUS OPR^1^218^219^220"

^ICM(8,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,8,0)="KNEE SURGERY^1^221^222"

^ICM(8,1,8,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,9,0)="OTHER UPPER EXTREMITY SURGERY^1^223^224"

^ICM(8,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,10,0)="FOOT SURGERY^1^225"

^ICM(8,1,11,0)="SOFT TISSUE SURGERY^1^226^227"

^ICM(8,1,11,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,12,0)="HAND SURGERY^1^228^229"

^ICM(8,1,12,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(8,1,13,0)="REM INT FIX DEV,LOCAL EXCISION^1^230^231"

^ICM(8,1,13,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(8,1,14,0)="ARTHROSCOPY^1^232"

^ICM(8,1,15,0)="OTHER OR PROCEDURE,MUSCLE/BONE^1^233^234"

^ICM(8,1,15,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,16,0)="FRACTURE OF FEMUR^^235"

^ICM(8,1,17,0)="FRACTURE OF HIP,PELVIS^^236"

^ICM(8,1,18,0)="STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH^^237"

^ICM(8,1,19,0)="OSTEOMYELITIS^^238"

^ICM(8,1,20,0)="MALIGNANCY &/or PATHOLOGIC FRACTURE^^239"

^ICM(8,1,21,0)="CONNECTIVE TISSUE DISORDER^^240^241"

^ICM(8,1,21,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,22,0)="SEPTIC ARTHRITIS^^242"

^ICM(8,1,23,0)="BACK DISORDER,NO SURGERY^^243"

^ICM(8,1,24,0)="BONE DISEASE, SPECIFIC ARTHROPATHY^^244^245"

^ICM(8,1,24,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,25,0)="NONSPECIFIC ARTHROPATHY^^246"

^ICM(8,1,26,0)="SIGN,SYMPTOM:MUSCLE,BONE,C.T.^^247"

^ICM(8,1,27,0)="TENDONITIS,MYOSITIS,BURSITIS^^248"

^ICM(8,1,28,0)="AFTERCARE:MUSCULOSKELETAL,C.T.^^249"

^ICM(8,1,29,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT^^250^251^252"

^ICM(8,1,29,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,30,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG^^253^254^255"

^ICM(8,1,30,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(8,1,31,0)="OTHER DISORDER,BONE,MUSCLE,C.T.^^256"

^ICM(8,1,32,0)="STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH^^237"

^ICM(8,1,33,0)="MALIGNANCY &/or PATHOLOGIC FRACTURE^^239"

^ICM(8,1,34,0)="BONE DISEASE, SPECIFIC ARTHROPATHY^^244^245"

^ICM(8,1,34,1,0)="^80.32A^1^1"

^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)"

^ICM(8,1,35,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT^^250^251^252"

^ICM(8,1,35,1,0)="^80.32A^1^1"

^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)"

^ICM(8,1,36,0)="FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG^^253^254^255"

^ICM(8,1,36,1,0)="^80.32A^1^1"

^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)"

^ICM(8,1,37,0)="OTHER DISORDER,BONE,MUSCLE,C.T.^^256"

^ICM(8,1,"B","AFTERCARE:MUSCULOSKELETAL,C.T.",28)=""

^ICM(8,1,"B","AMPUTATION",3)=""

^ICM(8,1,"B","ARTHROSCOPY",14)=""

^ICM(8,1,"B","BACK DISORDER,NO SURGERY",23)=""

^ICM(8,1,"B","BACK, NECK SURGERY",4)=""

^ICM(8,1,"B","BIOPSY,MUSCULOSKELETAL,C.T.",5)=""

^ICM(8,1,"B","BONE DISEASE, SPECIFIC ARTHROPATHY",24)=""

^ICM(8,1,"B","BONE DISEASE, SPECIFIC ARTHROPATHY",34)=""

^ICM(8,1,"B","CONNECTIVE TISSUE DISORDER",21)=""

^ICM(8,1,"B","DEBRIDEMENT,GRAFT EXCEPT HAND",6)=""

^ICM(8,1,"B","FOOT SURGERY",10)=""

^ICM(8,1,"B","FRACTURE OF FEMUR",16)=""

^ICM(8,1,"B","FRACTURE OF HIP,PELVIS",17)=""

^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT",29)=""

^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:FOREARM,HAND,FOOT",35)=""

^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG",30)=""

^ICM(8,1,"B","FRACTURE,SPRAIN,STRAIN,DISLOC:UPPER ARM,LOWER LEG",36)=""

^ICM(8,1,"B","HAND SURGERY",12)=""

^ICM(8,1,"B","KNEE SURGERY",8)=""

^ICM(8,1,"B","MAJOR JOINT SURGERY",1)=""

^ICM(8,1,"B","MALIGNANCY &/or PATHOLOGIC FRACTURE",20)=""

^ICM(8,1,"B","MALIGNANCY &/or PATHOLOGIC FRACTURE",33)=""

^ICM(8,1,"B","NONSPECIFIC ARTHROPATHY",25)=""

^ICM(8,1,"B","OSTEOMYELITIS",19)=""

^ICM(8,1,"B","OTHER DISORDER,BONE,MUSCLE,C.T.",31)=""

^ICM(8,1,"B","OTHER DISORDER,BONE,MUSCLE,C.T.",37)=""

^ICM(8,1,"B","OTHER HIP, FEMUR SURGERY",2)=""

^ICM(8,1,"B","OTHER L. EXTREMITY,HUMERUS OPR",7)=""

^ICM(8,1,"B","OTHER OR PROCEDURE,MUSCLE/BONE",15)=""

^ICM(8,1,"B","OTHER UPPER EXTREMITY SURGERY",9)=""

^ICM(8,1,"B","REM INT FIX DEV,LOCAL EXCISION",13)=""

^ICM(8,1,"B","SEPTIC ARTHRITIS",22)=""

^ICM(8,1,"B","SIGN,SYMPTOM:MUSCLE,BONE,C.T.",26)=""

^ICM(8,1,"B","SOFT TISSUE SURGERY",11)=""

^ICM(8,1,"B","STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH",18)=""

^ICM(8,1,"B","STRAIN,SPRAIN,DISLOC:HIP,PELVIS,THIGH",32)=""

^ICM(8,1,"B","TENDONITIS,MYOSITIS,BURSITIS",27)=""

^ICM(9,0)="SKIN,BREAST,SUBCUTANEOUS T"

^ICM(9,1,0)="^80.31A^13^13"

^ICM(9,1,1,0)="BREAST SURGERY^1^257^258^259^260^261^262"

^ICM(9,1,1,1,0)="^80.32A^6^6"

^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"

^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"

^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"

^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"

^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"

^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"

^ICM(9,1,2,0)="SKIN GRAFT^1^263^264^265^266"

^ICM(9,1,2,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(9,1,3,0)="PERIANAL & PILONIDAL CYST SURGERY^1^267"

^ICM(9,1,4,0)="PLASTIC SURGERY^1^268"

^ICM(9,1,5,0)="OTHER OR PROCEDURE:SKIN,BREAST,SUBC T^1^269^270"

^ICM(9,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(9,1,6,0)="SKIN ULCER^^271"

^ICM(9,1,7,0)="MAJOR SKIN DISORDER^^272^273"

^ICM(9,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(9,1,8,0)="BREAST DISORDERS, NO SURGERY^^274^275^276"

^ICM(9,1,8,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(9,1,9,0)="CELLULITIS^^277^278^279"

^ICM(9,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(9,1,10,0)="TRAUMA^^280^281^282"

^ICM(9,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(9,1,11,0)="MINOR SKIN DISORDER^^283^284"

^ICM(9,1,11,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(9,1,12,0)="PERIANAL & PILONIDAL CYST SURGERY^1^267"

^ICM(9,1,13,0)="OTHER OR PROCEDURE:SKIN,BREAST,SUBC T^1^269^270"

^ICM(9,1,13,1,0)="^80.32A^1^1"

^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)"

^ICM(9,1,"B","BREAST DISORDERS, NO SURGERY",8)=""

^ICM(9,1,"B","BREAST SURGERY",1)=""

^ICM(9,1,"B","CELLULITIS",9)=""

^ICM(9,1,"B","MAJOR SKIN DISORDER",7)=""

^ICM(9,1,"B","MINOR SKIN DISORDER",11)=""

^ICM(9,1,"B","OTHER OR PROCEDURE:SKIN,BREAST,SUBC T",5)=""

^ICM(9,1,"B","OTHER OR PROCEDURE:SKIN,BREAST,SUBC T",13)=""

^ICM(9,1,"B","PERIANAL & PILONIDAL CYST SURGERY",3)=""

^ICM(9,1,"B","PERIANAL & PILONIDAL CYST SURGERY",12)=""

^ICM(9,1,"B","PLASTIC SURGERY",4)=""

^ICM(9,1,"B","SKIN GRAFT",2)=""

^ICM(9,1,"B","SKIN ULCER",6)=""

^ICM(9,1,"B","TRAUMA",10)=""

^ICM(10,0)="ENDOCRINE,NUTRIT,METABOLIC"

^ICM(10,1,0)="^80.31A^12^12"

^ICM(10,1,1,0)="AMPUTATION^1^285"

^ICM(10,1,2,0)="ADRENAL OR PITUITARY SURGERY^1^286"

^ICM(10,1,3,0)="SKIN GRAFT,WOUND DEBRIDEMENT^1^287"

^ICM(10,1,4,0)="OR PROCEDURE FOR OBESITY^1^288"

^ICM(10,1,5,0)="PARATHYROID SURGERY^1^289"

^ICM(10,1,6,0)="THYROID SURGERY^1^290"

^ICM(10,1,7,0)="THYROGLOSSAL SURGERY^1^291"

^ICM(10,1,8,0)="OTHER OR PROCEDURE:ENDOCR,NUTR^1^292^293"

^ICM(10,1,8,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(10,1,9,0)="DIABETES; NO SURGERY^^294^295"

^ICM(10,1,9,1,0)="^80.32A^2^2"

^ICM(10,1,9,1,1,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE>35:294,1:295),FIN=1"

^ICM(10,1,9,1,2,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE>35:294,1:295),FIN=1"

^ICM(10,1,10,0)="NUTR,MISC METABOLIC DISORDER^^296^297^298"

^ICM(10,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(10,1,11,0)="INBORN ERROR OF METABOLISM^^299"

^ICM(10,1,12,0)="ENDOCRINE DISORDER^^300^301"

^ICM(10,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(10,1,"B","ADRENAL OR PITUITARY SURGERY",2)=""

^ICM(10,1,"B","AMPUTATION",1)=""

^ICM(10,1,"B","DIABETES; NO SURGERY",9)=""

^ICM(10,1,"B","ENDOCRINE DISORDER",12)=""

^ICM(10,1,"B","INBORN ERROR OF METABOLISM",11)=""

^ICM(10,1,"B","NUTR,MISC METABOLIC DISORDER",10)=""

^ICM(10,1,"B","OR PROCEDURE FOR OBESITY",4)=""

^ICM(10,1,"B","OTHER OR PROCEDURE:ENDOCR,NUTR",8)=""

^ICM(10,1,"B","PARATHYROID SURGERY",5)=""

^ICM(10,1,"B","SKIN GRAFT,WOUND DEBRIDEMENT",3)=""

^ICM(10,1,"B","THYROGLOSSAL SURGERY",7)=""

^ICM(10,1,"B","THYROID SURGERY",6)=""

^ICM(11,0)="KIDNEY & URINARY TRACT"

^ICM(11,1,0)="^80.31A^18^18"

^ICM(11,1,1,0)="KIDNEY TRANSPLANT^1^302"

^ICM(11,1,2,0)="KIDNEY,URETER,MAJOR BLADDER SURGERY^1^303^304^305"

^ICM(11,1,2,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(11,1,3,0)="PROSTATECTOMY^1^306^307"

^ICM(11,1,3,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,4,0)="OTHER URINARY BLADDER SURGERY^1^308^309"

^ICM(11,1,4,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,5,0)="TRANSURETHRAL SURGERY^1^310^311"

^ICM(11,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,6,0)="URETHERAL SURGERY^1^312^313^314"

^ICM(11,1,6,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,7,0)="OTHER OR PROCEDURE:KIDNEY,URINARY^1^315"

^ICM(11,1,8,0)="RENAL FAILURE^^316^317"

^ICM(11,1,8,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(11,1,9,0)="NEOPLASM KIDNEY/URINARY TRACT^^318^319"

^ICM(11,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,10,0)="INFECTION KIDNEY/URINARY TRACT^^320^321^322"

^ICM(11,1,10,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,11,0)="STONE KIDNEY/URINARY TRACT^^323^324"

^ICM(11,1,11,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,12,0)="SIGN,SYMPTOM KIDNEY/URINARY TRACT^^325^326^327"

^ICM(11,1,12,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,13,0)="URETHRAL STRICTURE^^328^329^330"

^ICM(11,1,13,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,14,0)="OTHER DISORDER KIDNEY/URINARY TRACT^^331^332^333"

^ICM(11,1,14,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(11,1,15,0)="KIDNEY,URETER,MAJOR BLADDER SURGERY^1^303^304^305"

^ICM(11,1,15,1,0)="^80.32A^2^2"

^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"

^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)"

^ICM(11,1,16,0)="OTHER OR PROCEDURE:KIDNEY,URINARY^1^315"

^ICM(11,1,17,0)="SIGN,SYMPTOM KIDNEY/URINARY TRACT^^325^326^327"

^ICM(11,1,17,1,0)="^80.32A^1^1"

^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)"

^ICM(11,1,18,0)="OTHER DISORDER KIDNEY/URINARY TRACT^^331^332^333"

^ICM(11,1,18,1,0)="^80.32A^1^1"

^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)"

^ICM(11,1,"B","INFECTION KIDNEY/URINARY TRACT",10)=""

^ICM(11,1,"B","KIDNEY TRANSPLANT",1)=""

^ICM(11,1,"B","KIDNEY,URETER,MAJOR BLADDER SURGERY",2)=""

^ICM(11,1,"B","KIDNEY,URETER,MAJOR BLADDER SURGERY",15)=""

^ICM(11,1,"B","NEOPLASM KIDNEY/URINARY TRACT",9)=""

^ICM(11,1,"B","OTHER DISORDER KIDNEY/URINARY TRACT",14)=""

^ICM(11,1,"B","OTHER DISORDER KIDNEY/URINARY TRACT",18)=""

^ICM(11,1,"B","OTHER OR PROCEDURE:KIDNEY,URINARY",7)=""

^ICM(11,1,"B","OTHER OR PROCEDURE:KIDNEY,URINARY",16)=""

^ICM(11,1,"B","OTHER URINARY BLADDER SURGERY",4)=""

^ICM(11,1,"B","PROSTATECTOMY",3)=""

^ICM(11,1,"B","RENAL FAILURE",8)=""

^ICM(11,1,"B","SIGN,SYMPTOM KIDNEY/URINARY TRACT",12)=""

^ICM(11,1,"B","SIGN,SYMPTOM KIDNEY/URINARY TRACT",17)=""

^ICM(11,1,"B","STONE KIDNEY/URINARY TRACT",11)=""

^ICM(11,1,"B","TRANSURETHRAL SURGERY",5)=""

^ICM(11,1,"B","URETHERAL SURGERY",6)=""

^ICM(11,1,"B","URETHRAL STRICTURE",13)=""

^ICM(12,0)="MALE REPRODUCTIVE SYSTEM"

^ICM(12,1,0)="^80.31A^13^13"

^ICM(12,1,1,0)="MAJOR PELVIC SURGERY,MALE^1^334^335"

^ICM(12,1,1,1,0)="^80.32A^2^2"

^ICM(12,1,1,1,1,0)="D COM Q:$D(BAD)  S DRG=$S(X?1""Y"".E:334,1:335),FIN=1"

^ICM(12,1,1,1,2,0)="D COM Q:$D(BAD)  S DRG=$S(X?1""Y"".E:334,1:335),FIN=1"

^ICM(12,1,2,0)="TRANSURETHERAL PROSTATECTOMY^1^336^337"

^ICM(12,1,2,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(12,1,3,0)="TESTICULAR SURGERY^1^338^339^340"

^ICM(12,1,3,1,0)="^80.32A^4^4"

^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"

^ICM(12,1,3,1,2,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE<18:340,1:339),FIN=1"

^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"

^ICM(12,1,3,1,4,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE<18:340,1:339),FIN=1"

^ICM(12,1,4,0)="PENIS SURGERY^1^341"

^ICM(12,1,5,0)="CIRCUMCISION^1^342^343"

^ICM(12,1,5,1,0)="^80.32A^2^2"

^ICM(12,1,5,1,1,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE<18:343,1:342),FIN=1"

^ICM(12,1,5,1,2,0)="D AGE Q:$D(BAD)  S DRG=$S(AGE<18:343,1:342),FIN=1"

^ICM(12,1,6,0)="OTHER OR PROCEDURE:MALE REPRODUCTIVE^1^344^345"

^ICM(12,1,6,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(12,1,7,0)="MALIGNANCY,MALE REPRODUCTIVE^^346^347"

^ICM(12,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(12,1,8,0)="BENIGN PROSTATIC HYPERTROPHY^^348^349"

^ICM(12,1,8,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(12,1,9,0)="INFLAMMATION,MALE REPRODUCTIVE^^350"

^ICM(12,1,10,0)="STERILIZATION, MALE^^351"

^ICM(12,1,11,0)="OTHER DISORDER,MALE REPRODUCTIVE^^352"

^ICM(12,1,12,0)="OTHER OR PROCEDURE:MALE REPRODUCTIVE^1^344^345"

^ICM(12,1,12,1,0)="^80.32A^1^1"

^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"

^ICM(12,1,13,0)="OTHER DISORDER,MALE REPRODUCTIVE^^352"

^ICM(12,1,"B","BENIGN PROSTATIC HYPERTROPHY",8)=""

^ICM(12,1,"B","CIRCUMCISION",5)=""

^ICM(12,1,"B","INFLAMMATION,MALE REPRODUCTIVE",9)=""

^ICM(12,1,"B","MAJOR PELVIC SURGERY,MALE",1)=""

^ICM(12,1,"B","MALIGNANCY,MALE REPRODUCTIVE",7)=""

^ICM(12,1,"B","OTHER DISORDER,MALE REPRODUCTIVE",11)=""

^ICM(12,1,"B","OTHER DISORDER,MALE REPRODUCTIVE",13)=""

^ICM(12,1,"B","OTHER OR PROCEDURE:MALE REPRODUCTIVE",6)=""

^ICM(12,1,"B","OTHER OR PROCEDURE:MALE REPRODUCTIVE",12)=""

^ICM(12,1,"B","PENIS SURGERY",4)=""

^ICM(12,1,"B","STERILIZATION, MALE",10)=""

^ICM(12,1,"B","TESTICULAR SURGERY",3)=""

^ICM(12,1,"B","TRANSURETHERAL PROSTATECTOMY",2)=""

^ICM(13,0)="FEMALE REPRODUCTIVE SYSTEM"

^ICM(13,1,0)="^80.31A^14^14"

^ICM(13,1,1,0)="PELVIC EVISCERATION,RADICAL SURGERY^1^353"

^ICM(13,1,2,0)="HYSTERECTOMY OTHER THAN RADICAL^1^354^355"

^ICM(13,1,2,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(13,1,3,0)="RECONSTRUCTIVE SURGERY,FEMALE^1^356"

^ICM(13,1,4,0)="SURGERY UTERUS,ADNEXA^1^357^358^359"

^ICM(13,1,4,1,0)="^80.32A^4^4"

^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"

^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"

^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"

^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"

^ICM(13,1,5,0)="SURGERY VAGINA,CERVIX,VULVA^1^360"

^ICM(13,1,6,0)="LAPAROSCOPY,ENDOSCOPY^1^361^362"

^ICM(13,1,6,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(13,1,7,0)="D & C,CONIZATION,IMPLANT^1^363^364"

^ICM(13,1,7,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(13,1,8,0)="OTHER OR PROCEDURE,FEMALE REPRODUCTIVE^1^365"

^ICM(13,1,9,0)="MALIGNANCY,FEMALE REPRODUCTIVE^^366^367"

^ICM(13,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(13,1,10,0)="INFECTION,FEMALE REPRODUCTIVE^^368"

^ICM(13,1,10,1,0)="^80.32A^1^1"

^ICM(13,1,10,1,1,0)="S DRG=$S(SEX=""F"":368,1:470)"

^ICM(13,1,11,0)="MENSTRURAL,OTHER DISORDER^^369"

^ICM(13,1,12,0)="PELVIC EVISCERATION,RADICAL SURGERY^1^353"

^ICM(13,1,13,0)="HYSTERECTOMY OTHER THAN RADICAL^1^354^355"

^ICM(13,1,13,1,0)="^80.32A^1^1"

^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)"

^ICM(13,1,14,0)="OTHER OR PROCEDURE,FEMALE REPRODUCTIVE^1^365"

^ICM(13,1,"B","D & C,CONIZATION,IMPLANT",7)=""

^ICM(13,1,"B","HYSTERECTOMY OTHER THAN RADICAL",2)=""

^ICM(13,1,"B","HYSTERECTOMY OTHER THAN RADICAL",13)=""

^ICM(13,1,"B","INFECTION,FEMALE REPRODUCTIVE",10)=""

^ICM(13,1,"B","LAPAROSCOPY,ENDOSCOPY",6)=""

^ICM(13,1,"B","MALIGNANCY,FEMALE REPRODUCTIVE",9)=""

^ICM(13,1,"B","MENSTRURAL,OTHER DISORDER",11)=""

^ICM(13,1,"B","OTHER OR PROCEDURE,FEMALE REPRODUCTIVE",8)=""

^ICM(13,1,"B","OTHER OR PROCEDURE,FEMALE REPRODUCTIVE",14)=""

^ICM(13,1,"B","PELVIC EVISCERATION,RADICAL SURGERY",1)=""

^ICM(13,1,"B","PELVIC EVISCERATION,RADICAL SURGERY",12)=""

^ICM(13,1,"B","RECONSTRUCTIVE SURGERY,FEMALE",3)=""

^ICM(13,1,"B","SURGERY UTERUS,ADNEXA",4)=""

^ICM(13,1,"B","SURGERY VAGINA,CERVIX,VULVA",5)=""

^ICM(14,0)="PREGNANCY,CHLDBRTH,PUERPERIUM"

^ICM(14,1,0)="^80.31A^12^12"

^ICM(14,1,1,0)="CESAREAN SECTION^1^370^371"

^ICM(14,1,1,1,0)="^80.32A^2^2"

^ICM(14,1,1,1,1,0)="D COM S DRG=$S(X?1""Y"".E:370,1:371),FIN=1"

^ICM(14,1,1,1,2,0)="D COM S DRG=$S(X?1""Y"".E:370,1:371),FIN=1"

^ICM(14,1,2,0)="VAGINAL DELIVERY^1^372^373^374^375"

^ICM(14,1,2,1,0)="^80.32A^4^4"

^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"

^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"

^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"

^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"

^ICM(14,1,3,0)="POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION^1^377"

^ICM(14,1,4,0)="POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION^^376"

^ICM(14,1,5,0)="ECTOPIC PREGNANCY^^378"

^ICM(14,1,6,0)="THREATENED ABORTION^^379"

^ICM(14,1,7,0)="ABORTION,NO D&C^^380"

^ICM(14,1,8,0)="ABORTION, D&C^1^381"

^ICM(14,1,9,0)="FALSE LABOR^^382"

^ICM(14,1,10,0)="OTHER ANTEPARTUM DISORDER^^383^384"

^ICM(14,1,10,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(14,1,11,0)="POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION^1^377"

^ICM(14,1,12,0)="POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION^^376"

^ICM(14,1,"B","ABORTION, D&C",8)=""

^ICM(14,1,"B","ABORTION,NO D&C",7)=""

^ICM(14,1,"B","CESAREAN SECTION",1)=""

^ICM(14,1,"B","ECTOPIC PREGNANCY",5)=""

^ICM(14,1,"B","FALSE LABOR",9)=""

^ICM(14,1,"B","OTHER ANTEPARTUM DISORDER",10)=""

^ICM(14,1,"B","POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION",4)=""

^ICM(14,1,"B","POSTPARTUM DISORDER,NOT DELIVERED THIS ADMISSION",12)=""

^ICM(14,1,"B","POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION",3)=""

^ICM(14,1,"B","POSTPARTUM SURGERY,NOT DELIVERED THIS ADMISSION",11)=""

^ICM(14,1,"B","THREATENED ABORTION",6)=""

^ICM(14,1,"B","VAGINAL DELIVERY",2)=""

^ICM(15,0)="NEWBORNS & NEONATES"

^ICM(15,1,0)="^80.31A^6^6"

^ICM(15,1,1,0)="NEWBORN, TRANSFERRED OR DIED^^385"

^ICM(15,1,2,0)="NEWBORN, NORMAL^^391"

^ICM(15,1,3,0)="EXTREME IMMATURITY^^386"

^ICM(15,1,4,0)="PREMATURITY^^387^388"

^ICM(15,1,4,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(15,1,5,0)="FULL TERM,MAJOR PROBLEM^^389"

^ICM(15,1,6,0)="FULL TERM,OTHER DISORDER^^390"

^ICM(15,1,"B","EXTREME IMMATURITY",3)=""

^ICM(15,1,"B","FULL TERM,MAJOR PROBLEM",5)=""

^ICM(15,1,"B","FULL TERM,OTHER DISORDER",6)=""

^ICM(15,1,"B","NEWBORN, NORMAL",2)=""

^ICM(15,1,"B","NEWBORN, TRANSFERRED OR DIED",1)=""

^ICM(15,1,"B","PREMATURITY",4)=""

^ICM(16,0)="HEMATOPOIETIC,IMMUNITY"

^ICM(16,1,0)="^80.31A^7^7"

^ICM(16,1,1,0)="SPLENECTOMY^1^392^393"

^ICM(16,1,1,1,0)="^80.32A^2^2"

^ICM(16,1,1,1,1,0)="D AGE S DRG=$S(AGE<18:393,1:392),FIN=1"

^ICM(16,1,1,1,2,0)="D AGE S DRG=$S(AGE<18:393,1:392),FIN=1"

^ICM(16,1,2,0)="OTHER OR PROCEDURE:BLOOD,IMMUNITY^1^394"

^ICM(16,1,3,0)="RED BLOOD CELL DISORDER^^395^396"

^ICM(16,1,3,1,0)="^80.32A^2^2"

^ICM(16,1,3,1,1,0)="D AGE S DRG=$S(AGE<18:396,1:395),FIN=1"

^ICM(16,1,3,1,2,0)="D AGE S DRG=$S(AGE<18:396,1:395),FIN=1"

^ICM(16,1,4,0)="COAGULATION DISORDER^^397"

^ICM(16,1,5,0)="BLOOD/BLOOD-FORMING/IMMUNITY DISORDER^^398^399"

^ICM(16,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(16,1,6,0)="OTHER OR PROCEDURE:BLOOD,IMMUNITY^1^394"

^ICM(16,1,7,0)="BLOOD/BLOOD-FORMING/IMMUNITY DISORDER^^398^399"

^ICM(16,1,7,1,0)="^80.32A^1^1"

^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)"

^ICM(16,1,"B","BLOOD/BLOOD-FORMING/IMMUNITY DISORDER",5)=""

^ICM(16,1,"B","BLOOD/BLOOD-FORMING/IMMUNITY DISORDER",7)=""

^ICM(16,1,"B","COAGULATION DISORDER",4)=""

^ICM(16,1,"B","OTHER OR PROCEDURE:BLOOD,IMMUNITY",2)=""

^ICM(16,1,"B","OTHER OR PROCEDURE:BLOOD,IMMUNITY",6)=""

^ICM(16,1,"B","RED BLOOD CELL DISORDER",3)=""

^ICM(16,1,"B","SPLENECTOMY",1)=""

^ICM(17,0)="MYELOPROLIFERATIVE,NEOPLASIA"

^ICM(17,1,0)="^80.31A^13^13"

^ICM(17,1,1,0)="MAJOR SURGERY:MYELOPROLIF,NEOPLASIA^1^400^406^407"

^ICM(17,1,1,1,0)="^80.32A^4^4"

^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"

^ICM(17,1,1,1,2,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"

^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"

^ICM(17,1,1,1,4,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"

^ICM(17,1,2,0)="MINOR SURGERY:MYELOPROLIF,NEOPLASIA^1^401^402^408"

^ICM(17,1,2,1,0)="^80.32A^4^4"

^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"

^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)"

^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"

^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)"

^ICM(17,1,3,0)="LYMPHOMA,LEUKEMIA NO SURGERY^^403^404^405"

^ICM(17,1,3,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(17,1,4,0)="RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^409"

^ICM(17,1,5,0)="CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^410"

^ICM(17,1,6,0)="HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA^^411^412"

^ICM(17,1,6,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(17,1,7,0)="OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED^^413^414"

^ICM(17,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(17,1,8,0)="MAJOR SURGERY:MYELOPROLIF,NEOPLASIA^1^400^406^407"

^ICM(17,1,8,1,0)="^80.32A^2^2"

^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"

^ICM(17,1,8,1,2,0)="D COM S DRG=$S(X?1""Y"".E:406,1:407),FIN=1"

^ICM(17,1,9,0)="MINOR SURGERY:MYELOPROLIF,NEOPLASIA^1^401^402^408"

^ICM(17,1,9,1,0)="^80.32A^2^2"

^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"

^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)"

^ICM(17,1,10,0)="RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^409"

^ICM(17,1,11,0)="CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA^^410"

^ICM(17,1,12,0)="HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA^^411^412"

^ICM(17,1,12,1,0)="^80.32A^1^1"

^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"

^ICM(17,1,13,0)="OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED^^413^414"

^ICM(17,1,13,1,0)="^80.32A^1^1"

^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)"

^ICM(17,1,"B","CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA",5)=""

^ICM(17,1,"B","CHEMOTHERAPY, NOT FOR LYMPHOMA,LEUKEMIA",11)=""

^ICM(17,1,"B","HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA",6)=""

^ICM(17,1,"B","HISTORY OF MALIGNANCY,NOT LYMPHOMA LEUKEMIA",12)=""

^ICM(17,1,"B","LYMPHOMA,LEUKEMIA NO SURGERY",3)=""

^ICM(17,1,"B","MAJOR SURGERY:MYELOPROLIF,NEOPLASIA",1)=""

^ICM(17,1,"B","MAJOR SURGERY:MYELOPROLIF,NEOPLASIA",8)=""

^ICM(17,1,"B","MINOR SURGERY:MYELOPROLIF,NEOPLASIA",2)=""

^ICM(17,1,"B","MINOR SURGERY:MYELOPROLIF,NEOPLASIA",9)=""

^ICM(17,1,"B","OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED",7)=""

^ICM(17,1,"B","OTHER NEOPLASM NOT ELSEWHERE CLASSIFIED",13)=""

^ICM(17,1,"B","RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA",4)=""

^ICM(17,1,"B","RADIATION THERAPY, NOT FOR LYMPHOMA,LEUKEMIA",10)=""

^ICM(18,0)="INFECTIOUS & PARASITIC"

^ICM(18,1,0)="^80.31A^8^8"

^ICM(18,1,1,0)="OR PROCEDURE: INFECTIOUS,PARASITIC^1^415"

^ICM(18,1,2,0)="SEPTICEMIA^^416^417"

^ICM(18,1,2,1,0)="^80.32A^2^2"

^ICM(18,1,2,1,1,0)="D AGE S DRG=$S(AGE<18:417,1:416),FIN=1"

^ICM(18,1,2,1,2,0)="D AGE S DRG=$S(AGE<18:417,1:416),FIN=1"

^ICM(18,1,3,0)="POST-OP,POSTTRAUMATIC INFECTION^^418"

^ICM(18,1,4,0)="VIRAL ILLNESS,FUO^^419^420^421^422"

^ICM(18,1,4,1,0)="^80.32A^4^4"

^ICM(18,1,4,1,1,0)="D AGE Q:$D(BAD)!(AGE>17)  S DRG=422,FIN=1"

^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)"

^ICM(18,1,4,1,3,0)="D AGE Q:$D(BAD)!(AGE>17)  S DRG=422,FIN=1"

^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)"

^ICM(18,1,5,0)="OTHER DISORDER: INFECTIOUS,PARASITIC^^423"

^ICM(18,1,6,0)="OR PROCEDURE: INFECTIOUS,PARASITIC^1^415"

^ICM(18,1,7,0)="POST-OP,POSTTRAUMATIC INFECTION^^418"

^ICM(18,1,8,0)="OTHER DISORDER: INFECTIOUS,PARASITIC^^423"

^ICM(18,1,"B","OR PROCEDURE: INFECTIOUS,PARASITIC",1)=""

^ICM(18,1,"B","OR PROCEDURE: INFECTIOUS,PARASITIC",6)=""

^ICM(18,1,"B","OTHER DISORDER: INFECTIOUS,PARASITIC",5)=""

^ICM(18,1,"B","OTHER DISORDER: INFECTIOUS,PARASITIC",8)=""

^ICM(18,1,"B","POST-OP,POSTTRAUMATIC INFECTION",3)=""

^ICM(18,1,"B","POST-OP,POSTTRAUMATIC INFECTION",7)=""

^ICM(18,1,"B","SEPTICEMIA",2)=""

^ICM(18,1,"B","VIRAL ILLNESS,FUO",4)=""

^ICM(19,0)="MENTAL DISEASES & DISORDERS"

^ICM(19,1,0)="^80.31A^11^11"

^ICM(19,1,1,0)="OR PROCEDURE, MENTAL DISORDER^1^424"

^ICM(19,1,2,0)="ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION^^425"

^ICM(19,1,3,0)="NEUROSIS^^426^427"

^ICM(19,1,3,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(19,1,4,0)="PERSONALITY,IMPULSE CONTROL DISORDER^^428"

^ICM(19,1,5,0)="ORGANIC DISTURBANCE,MENTAL RETARDATION^^429"

^ICM(19,1,6,0)="PSYCHOSIS^^430"

^ICM(19,1,7,0)="CHILDHOOD MENTAL DISORDER^^431"

^ICM(19,1,8,0)="OTHER MENTAL DISORDER^^432"

^ICM(19,1,9,0)="ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION^^425"

^ICM(19,1,10,0)="PERSONALITY,IMPULSE CONTROL DISORDER^^428"

^ICM(19,1,11,0)="ORGANIC DISTURBANCE,MENTAL RETARDATION^^429"

^ICM(19,1,"B","ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION",2)=""

^ICM(19,1,"B","ACUTE ADJ REACTION,PSYCHOSOCIAL DYSFUNCTION",9)=""

^ICM(19,1,"B","CHILDHOOD MENTAL DISORDER",7)=""

^ICM(19,1,"B","NEUROSIS",3)=""

^ICM(19,1,"B","OR PROCEDURE, MENTAL DISORDER",1)=""

^ICM(19,1,"B","ORGANIC DISTURBANCE,MENTAL RETARDATION",5)=""

^ICM(19,1,"B","ORGANIC DISTURBANCE,MENTAL RETARDATION",11)=""

^ICM(19,1,"B","OTHER MENTAL DISORDER",8)=""

^ICM(19,1,"B","PERSONALITY,IMPULSE CONTROL DISORDER",4)=""

^ICM(19,1,"B","PERSONALITY,IMPULSE CONTROL DISORDER",10)=""

^ICM(19,1,"B","PSYCHOSIS",6)=""

^ICM(20,0)="SUBSTANCE USE & DISORDERS"

^ICM(20,1,0)="^80.31A^5^5"

^ICM(20,1,1,0)="LEFT AGAINST MEDICAL ADVICE^^433"

^ICM(20,1,2,0)="DRUGS^^434^435"

^ICM(20,1,2,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(20,1,3,0)="ALCOHOLISM^^436^437"

^ICM(20,1,3,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(20,1,4,0)="ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER^^438"

^ICM(20,1,5,0)="ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER^^438"

^ICM(20,1,"B","ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER",4)=""

^ICM(20,1,"B","ALCOHOL & SUBSTANCE INDUCED MENTAL DISORDER",5)=""

^ICM(20,1,"B","ALCOHOLISM",3)=""

^ICM(20,1,"B","DRUGS",2)=""

^ICM(20,1,"B","LEFT AGAINST MEDICAL ADVICE",1)=""

^ICM(21,0)="INJURY,POISONING,DRUG TOXICITY"

^ICM(21,1,0)="^80.31A^9^9"

^ICM(21,1,1,0)="SKIN GRAFT^1^439"

^ICM(21,1,2,0)="WOUND DEBRIDEMENT^1^440"

^ICM(21,1,3,0)="HAND SURGERY FOR INJURY^1^441"

^ICM(21,1,4,0)="OTHER OR PROCEDURE FOR INJURY^1^442^443"

^ICM(21,1,4,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(21,1,5,0)="TRAUMA, NO SURGERY^^444^445^446"

^ICM(21,1,5,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(21,1,6,0)="ALLERGIC REACTION^^447^448"

^ICM(21,1,6,1,0)="^80.32A^2^2"

^ICM(21,1,6,1,1,0)="D AGE S DRG=$S(AGE<18:448,1:447),FIN=1"

^ICM(21,1,6,1,2,0)="D AGE S DRG=$S(AGE<18:448,1:447),FIN=1"

^ICM(21,1,7,0)="TOXIC DRUG EFFECT^^449^450^451"

^ICM(21,1,7,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(21,1,8,0)="COMPLICATIONS OF TREATMENT^^452^453"

^ICM(21,1,8,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(21,1,9,0)="OTHER INJURY,POISONING^^454^455"

^ICM(21,1,9,1,0)="^80.32A^2^2"

^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)"

^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)"

^ICM(21,1,"B","ALLERGIC REACTION",6)=""

^ICM(21,1,"B","COMPLICATIONS OF TREATMENT",8)=""

^ICM(21,1,"B","HAND SURGERY FOR INJURY",3)=""

^ICM(21,1,"B","OTHER INJURY,POISONING",9)=""

^ICM(21,1,"B","OTHER OR PROCEDURE FOR INJURY",4)=""

^ICM(21,1,"B","SKIN GRAFT",1)=""

^ICM(21,1,"B","TOXIC DRUG EFFECT",7)=""

^ICM(21,1,"B","TRAUMA, NO SURGERY",5)=""

^ICM(21,1,"B","WOUND DEBRIDEMENT",2)=""

^ICM(22,0)="BURNS"

^ICM(22,1,0)="^80.31A^6^6"

^ICM(22,1,1,0)="BURN: TRANSFERRED ELSEWHERE^^456"

^ICM(22,1,2,0)="EXTENSIVE BURN, NO SURGERY^^457"

^ICM(22,1,3,0)="BURN: NO SURGERY^^460"

^ICM(22,1,4,0)="BURN: SKIN GRAFT^1^458"

^ICM(22,1,5,0)="BURN:  DEBRIDEMENT,OTHER OR PROCEDURE^1^459"

^ICM(22,1,6,0)="BURN:  DEBRIDEMENT,OTHER OR PROCEDURE^1^459"

^ICM(22,1,"B","BURN:  DEBRIDEMENT,OTHER OR PROCEDURE",5)=""

^ICM(22,1,"B","BURN:  DEBRIDEMENT,OTHER OR PROCEDURE",6)=""

^ICM(22,1,"B","BURN: NO SURGERY",3)=""

^ICM(22,1,"B","BURN: SKIN GRAFT",4)=""

^ICM(22,1,"B","BURN: TRANSFERRED ELSEWHERE",1)=""

^ICM(22,1,"B","EXTENSIVE BURN, NO SURGERY",2)=""

^ICM(23,0)="HEALTH STATUS FACTORS"

^ICM(23,1,0)="^80.31A^8^8"

^ICM(23,1,1,0)="OR PROCEDURE HEALTH STATUS,OTHER^1^461"

^ICM(23,1,2,0)="REHABILITATION^^462"

^ICM(23,1,3,0)="SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED^^463^464"

^ICM(23,1,3,1,0)="^80.32A^2^2"

^ICM(23,1,3,1,1,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"

^ICM(23,1,3,1,2,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"

^ICM(23,1,4,0)="AFTERCARE^^465^466"

^ICM(23,1,4,1,0)="^80.32A^2^2"

^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"

^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"

^ICM(23,1,5,0)="OTHER FACTORS HEALTH STATUS,CONTACTS^^467"

^ICM(23,1,6,0)="OR PROCEDURE HEALTH STATUS,OTHER^1^461"

^ICM(23,1,7,0)="SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED^^463^464"

^ICM(23,1,7,1,0)="^80.32A^1^1"

^ICM(23,1,7,1,1,0)="D COM S DRG=$S(X?1""Y"".E:463,1:464),FIN=1"

^ICM(23,1,8,0)="OTHER FACTORS HEALTH STATUS,CONTACTS^^467"

^ICM(23,1,"B","AFTERCARE",4)=""

^ICM(23,1,"B","OR PROCEDURE HEALTH STATUS,OTHER",1)=""

^ICM(23,1,"B","OR PROCEDURE HEALTH STATUS,OTHER",6)=""

^ICM(23,1,"B","OTHER FACTORS HEALTH STATUS,CONTACTS",5)=""

^ICM(23,1,"B","OTHER FACTORS HEALTH STATUS,CONTACTS",8)=""

^ICM(23,1,"B","REHABILITATION",2)=""

^ICM(23,1,"B","SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED",3)=""

^ICM(23,1,"B","SIGN,SYMPTOM NOT ELSEWHERE CLASSIFIED",7)=""

^ICM(24,0)="MULTIPLE SIGNIFICANT TRAUMA"

^ICM(24,1,0)="^80.31A^6^6"

^ICM(24,1,1,0)="CRANIOTOMY^1^484"

^ICM(24,1,2,0)="LIMB REATTACHMENT, HIP & FEMUR^1^485"

^ICM(24,1,3,0)="OTHER OR PROCEDURE FOR TRAUMA^1^486"

^ICM(24,1,4,0)="OTHER DX FOR MULTIPLE TRAUMA^^487"

^ICM(24,1,5,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"

^ICM(24,1,6,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"

^ICM(24,1,"B","CRANIOTOMY",1)=""

^ICM(24,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",6)=""

^ICM(24,1,"B","LIMB REATTACHMENT, HIP & FEMUR",2)=""

^ICM(24,1,"B","OTHER DX FOR MULTIPLE TRAUMA",4)=""

^ICM(24,1,"B","OTHER OR PROCEDURE FOR TRAUMA",3)=""

^ICM(24,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",5)=""

^ICM(25,0)="HIV INFECTIONS"

^ICM(25,1,0)="^80.31A^2^2"

^ICM(25,1,1,0)="EXTENSIVE OR PROCEDURE^1^488"

^ICM(25,1,2,0)="HIV MAJOR RELATED CONDITION^^489^490"

^ICM(25,1,"B","EXTENSIVE OR PROCEDURE",1)=""

^ICM(25,1,"B","HIV MAJOR RELATED CONDITION",2)=""

^ICM(26,0)="UNGROUPABLE RECORDS"

^ICM(26,1,0)="^80.31A^3^3"

^ICM(26,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"

^ICM(26,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"

^ICM(26,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"

^ICM(26,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""

^ICM(26,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""

^ICM(26,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""

^ICM(27,0)="UNGROUPABLE RECORDS"

^ICM(27,1,0)="^80.31A^3^3"

^ICM(27,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"

^ICM(27,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"

^ICM(27,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"

^ICM(27,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""

^ICM(27,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""

^ICM(27,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""

^ICM(28,0)="UNGROUPABLE RECORDS"

^ICM(28,1,0)="^80.31A^3^3"

^ICM(28,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"

^ICM(28,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"

^ICM(28,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"

^ICM(28,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""

^ICM(28,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""

^ICM(28,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""

^ICM(98,0)="PRE"

^ICM(98,1,0)="^80.31A^1^1"

^ICM(98,1,1,0)="LUNG TRANSPLANT^1^495"

^ICM(98,1,"B","LUNG TRANSPLANT",1)=""

^ICM(99,0)="UNGROUPABLE RECORDS"

^ICM(99,1,0)="^80.31A^9^9"

^ICM(99,1,1,0)="OR PROCEDURE UNRELATED TO A MDC^1^468"

^ICM(99,1,2,0)="VALID DIAGNOSIS,NOT A PRINCIPAL DX^^469"

^ICM(99,1,3,0)="INVALID AGE,SEX,DX,DISCHARGE STATUS^^470"

^ICM(99,1,4,0)="PROSTATIC OR PROCEDURE UNRELATED TO DXLS^1^476"

^ICM(99,1,5,0)="NON-EXTENSIVE OR PROCEDURE UNRELATED TO DXLS^1^477"

^ICM(99,1,6,0)="LIVER TRANSPLANT^1^480"

^ICM(99,1,7,0)="BONE MARROW TRANSPLANT^1^481"

^ICM(99,1,8,0)="TRACHEOSTOMY W MOUTH,LARYNX,PHARYNX DIS^1^482"

^ICM(99,1,9,0)="TRACHEOSTOMY EXCEPT MOUTH,LARYNX,PHARYNX,DIS^1^483"

^ICM(99,1,"B","BONE MARROW TRANSPLANT",7)=""

^ICM(99,1,"B","INVALID AGE,SEX,DX,DISCHARGE STATUS",3)=""

^ICM(99,1,"B","LIVER TRANSPLANT",6)=""

^ICM(99,1,"B","NON-EXTENSIVE OR PROCEDURE UNRELATED TO DXLS",5)=""

^ICM(99,1,"B","OR PROCEDURE UNRELATED TO A MDC",1)=""

^ICM(99,1,"B","PROSTATIC OR PROCEDURE UNRELATED TO DXLS",4)=""

^ICM(99,1,"B","TRACHEOSTOMY EXCEPT MOUTH,LARYNX,PHARYNX,DIS",9)=""

^ICM(99,1,"B","TRACHEOSTOMY W MOUTH,LARYNX,PHARYNX DIS",8)=""

^ICM(99,1,"B","VALID DIAGNOSIS,NOT A PRINCIPAL DX",2)=""

^ICM("B","BURNS",22)=""

^ICM("B","CIRCULATORY SYSTEM",5)=""

^ICM("B","DIGESTIVE SYSTEM",6)=""

^ICM("B","EAR, NOSE, MOUTH & THROAT",3)=""

^ICM("B","ENDOCRINE,NUTRIT,METABOLIC",10)=""

^ICM("B","EYE",2)=""

^ICM("B","FEMALE REPRODUCTIVE SYSTEM",13)=""

^ICM("B","HEALTH STATUS FACTORS",23)=""

^ICM("B","HEMATOPOIETIC,IMMUNITY",16)=""

^ICM("B","HEPATOBILIARY & PANCREAS",7)=""

^ICM("B","HIV INFECTIONS",25)=""

^ICM("B","INFECTIOUS & PARASITIC",18)=""

^ICM("B","INJURY,POISONING,DRUG TOXICITY",21)=""

^ICM("B","KIDNEY & URINARY TRACT",11)=""

^ICM("B","MALE REPRODUCTIVE SYSTEM",12)=""

^ICM("B","MENTAL DISEASES & DISORDERS",19)=""

^ICM("B","MULTIPLE SIGNIFICANT TRAUMA",24)=""

^ICM("B","MUSCULOSKELETAL & CONNECTIVE T",8)=""

^ICM("B","MYELOPROLIFERATIVE,NEOPLASIA",17)=""

^ICM("B","NERVOUS SYSTEM",1)=""

^ICM("B","NEWBORNS & NEONATES",15)=""

^ICM("B","PRE",98)=""

^ICM("B","PREGNANCY,CHLDBRTH,PUERPERIUM",14)=""

^ICM("B","RESPIRATORY SYSTEM",4)=""

^ICM("B","SKIN,BREAST,SUBCUTANEOUS T",9)=""

^ICM("B","SUBSTANCE USE & DISORDERS",20)=""

^ICM("B","UNGROUPABLE RECORDS",26)=""

^ICM("B","UNGROUPABLE RECORDS",27)=""

^ICM("B","UNGROUPABLE RECORDS",28)=""

^ICM("B","UNGROUPABLE RECORDS",99)=""

^ICM("C","ABORTION, D&C",14,8)=""

^ICM("C","ABORTION,NO D&C",14,7)=""

^ICM("C","ACUTE ADJ REACTION,PSYCHOSOCIA",19,2)=""

^ICM("C","ACUTE ADJ REACTION,PSYCHOSOCIA",19,9)=""

^ICM("C","ACUTE MAJOR INFECTION",2,8)=""

^ICM("C","ACUTE MYOCARDIAL INFARCTION",5,12)=""

^ICM("C","ADHESIOLYSIS",6,3)=""

^ICM("C","ADRENAL OR PITUITARY SURGERY",10,2)=""

^ICM("C","AFTERCARE",23,4)=""

^ICM("C","AFTERCARE:MUSCULOSKELETAL,C.T.",8,28)=""

^ICM("C","ALCOHOL & SUBSTANCE INDUCED ME",20,4)=""

^ICM("C","ALCOHOL & SUBSTANCE INDUCED ME",20,5)=""

^ICM("C","ALCOHOLISM",20,3)=""

^ICM("C","ALLERGIC REACTION",21,6)=""

^ICM("C","AMPUTATION",5,7)=""

^ICM("C","AMPUTATION",8,3)=""

^ICM("C","AMPUTATION",10,1)=""

^ICM("C","ANGINA",5,23)=""

^ICM("C","ANUS SURGERY",6,6)=""

^ICM("C","APPENDECTOMY",6,8)=""

^ICM("C","ARRHYTHMIA & CONDUCTION,DIS",5,22)=""

^ICM("C","ARTHROSCOPY",8,14)=""

^ICM("C","ATHEROSCLEROSIS",5,19)=""

^ICM("C","BACK DISORDER,NO SURGERY",8,23)=""

^ICM("C","BACK, NECK SURGERY",8,4)=""

^ICM("C","BENIGN PROSTATIC HYPERTROPHY",12,8)=""

^ICM("C","BILIARY TRACT SURGERY",7,2)=""

^ICM("C","BIOPSY,MUSCULOSKELETAL,C.T.",8,5)=""

^ICM("C","BLOOD/BLOOD-FORMING/IMMUNITY D",16,5)=""

^ICM("C","BLOOD/BLOOD-FORMING/IMMUNITY D",16,7)=""

^ICM("C","BONE DISEASE, SPECIFIC ARTHROP",8,24)=""

^ICM("C","BONE DISEASE, SPECIFIC ARTHROP",8,34)=""

^ICM("C","BONE MARROW TRANSPLANT",99,7)=""

^ICM("C","BREAST DISORDERS, NO SURGERY",9,8)=""

^ICM("C","BREAST SURGERY",9,1)=""

^ICM("C","BRONCHITIS & ASTHMA",4,13)=""

^ICM("C","BURN:  DEBRIDEMENT,OTHER OR PR",22,5)=""

^ICM("C","BURN:  DEBRIDEMENT,OTHER OR PR",22,6)=""

^ICM("C","BURN: NO SURGERY",22,3)=""

^ICM("C","BURN: SKIN GRAFT",22,4)=""

^ICM("C","BURN: TRANSFERRED ELSEWHERE",22,1)=""

^ICM("C","CARDIAC ARREST",5,17)=""

^ICM("C","CARDIAC CATHETERIZATION",5,13)=""

^ICM("C","CARDIOTHORAC SURG,OTHER noPUMP",5,5)=""

^ICM("C","CARDIOTHORAC SURG,OTHER w/PUMP",5,4)=""

^ICM("C","CARPAL TUNNEL RELEASE",1,4)=""

^ICM("C","CELLULITIS",9,9)=""

^ICM("C","CESAREAN SECTION",14,1)=""

^ICM("C","CHEMOTHERAPY, NOT FOR LYMPHOMA",17,5)=""

^ICM("C","CHEMOTHERAPY, NOT FOR LYMPHOMA",17,11)=""

^ICM("C","CHEST PAIN",5,25)=""

^ICM("C","CHILDHOOD MENTAL DISORDER",19,7)=""

^ICM("C","CHR OBSTRUCTIVE PULMONARY DIS",4,9)=""

^ICM("C","CIRCUMCISION",12,5)=""

^ICM("C","CIRRHOSIS,ALCOHOLIC HEPATITIS",7,5)=""

^ICM("C","CLEFT LIP,PALATE REPAIR",3,3)=""

^ICM("C","COAGULATION DISORDER",16,4)=""

^ICM("C","COMPLICATIONS OF TREATMENT",21,8)=""

^ICM("C","CONCUSSION",1,18)=""

^ICM("C","CONGENITAL & VALVULAR,CIRCULAT",5,21)=""

^ICM("C","CONNECTIVE TISSUE DISORDER",8,21)=""

^ICM("C","CORONARY BYPASS",5,3)=""

^ICM("C","CRANIAL,PERPHERIAL NERVE",1,12)=""

^ICM("C","CRANIOTOMY",24,1)=""

^ICM("C","CRANOITOMY",1,1)=""

^ICM("C","D & C,CONIZATION,IMPLANT",13,7)=""

^ICM("C","DEBRIDEMENT,GRAFT EXCEPT HAND",8,6)=""

^ICM("C","DEEP VEIN THROBOPHLEBITIS",5,16)=""

^ICM("C","DEGENERATIVE DISORDERS",1,8)=""

^ICM("C","DENTAL & ORAL DISORDERS",6,17)=""

^ICM("C","DIABETES; NO SURGERY",10,9)=""

^ICM("C","DRUGS",20,2)=""

^ICM("C","DYSEQUILIBRIUM",3,12)=""

^ICM("C","ECTOPIC PREGNANCY",14,5)=""

^ICM("C","ENDOCARDITIS,ACUTE & SUBACUTE",5,14)=""

^ICM("C","ENDOCRINE DISORDER",10,12)=""

^ICM("C","EPIGLOTTITIS",3,14)=""

^ICM("C","EPISTAXIS",3,13)=""

^ICM("C","ESOPHAGITIS & MISC DISORDERS",6,16)=""

^ICM("C","EXPLORATORY DIAGNOSTIC WORKUP",7,3)=""

^ICM("C","EXTENSIVE BURN, NO SURGERY",22,2)=""

^ICM("C","EXTENSIVE OR PROCEDURE",25,1)=""

^ICM("C","EXTRACRANIAL VASCULAR",1,3)=""

^ICM("C","EXTREME IMMATURITY",15,3)=""

^ICM("C","EYE NEUROLOGICAL DISORDERS",2,9)=""

^ICM("C","FALSE LABOR",14,9)=""

^ICM("C","FOOT SURGERY",8,10)=""

^ICM("C","FRACTURE OF FEMUR",8,16)=""

^ICM("C","FRACTURE OF HIP,PELVIS",8,17)=""

^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,29)=""

^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,30)=""

^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,35)=""

^ICM("C","FRACTURE,SPRAIN,STRAIN,DISLOC:",8,36)=""

^ICM("C","FULL TERM,MAJOR PROBLEM",15,5)=""

^ICM("C","FULL TERM,OTHER DISORDER",15,6)=""

^ICM("C","HAND SURGERY",8,12)=""

^ICM("C","HAND SURGERY FOR INJURY",21,3)=""

^ICM("C","HEART FAILURE & SHOCK",5,15)=""

^ICM("C","HEART TRANSPLANT",5,1)=""

^ICM("C","HEMORRHAGE,DIGESTIVE SYSTEM",6,12)=""

^ICM("C","HERNIA SURGERY",6,7)=""

^ICM("C","HISTORY OF MALIGNANCY,NOT LYMP",17,6)=""

^ICM("C","HISTORY OF MALIGNANCY,NOT LYMP",17,12)=""

^ICM("C","HIV MAJOR RELATED CONDITION",25,2)=""

^ICM("C","HYPERTENSION",5,20)=""

^ICM("C","HYPERTENSIVE ENCEPHALOPATHY",1,14)=""

^ICM("C","HYPHEMA",2,7)=""

^ICM("C","HYSTERECTOMY OTHER THAN RADICA",13,2)=""

^ICM("C","HYSTERECTOMY OTHER THAN RADICA",13,13)=""

^ICM("C","INBORN ERROR OF METABOLISM",10,11)=""

^ICM("C","INFECTION",1,13)=""

^ICM("C","INFECTION KIDNEY/URINARY TRACT",11,10)=""

^ICM("C","INFECTION,FEMALE REPRODUCTIVE",13,10)=""

^ICM("C","INFECTIONS & INFLAMMATIONS",4,4)=""

^ICM("C","INFLAMMATION,MALE REPRODUCTIVE",12,9)=""

^ICM("C","INFLAMMATORY BOWEL DISORDER",6,14)=""

^ICM("C","INTERSTITIAL LUNG DISEASE",4,11)=""

^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",24,6)=""

^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",26,3)=""

^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",27,3)=""

^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",28,3)=""

^ICM("C","INVALID AGE,SEX,DX,DISCHARGE S",99,3)=""

^ICM("C","KIDNEY TRANSPLANT",11,1)=""

^ICM("C","KIDNEY,URETER,MAJOR BLADDER SU",11,2)=""

^ICM("C","KIDNEY,URETER,MAJOR BLADDER SU",11,15)=""

^ICM("C","KNEE SURGERY",8,8)=""

^ICM("C","LAPAROSCOPY,ENDOSCOPY",13,6)=""

^ICM("C","LARYNGOTRACHEITIS",3,16)=""

^ICM("C","LEFT AGAINST MEDICAL ADVICE",20,1)=""

^ICM("C","LENS SURGERY",2,4)=""

^ICM("C","LIMB REATTACHMENT, HIP & FEMUR",24,2)=""

^ICM("C","LIVER TRANSPLANT",99,6)=""

^ICM("C","LUNG TRANSPLANT",98,1)=""

^ICM("C","LYMPHOMA,LEUKEMIA NO SURGERY",17,3)=""

^ICM("C","M SCLEROSIS,CEREBELLAR ATAXIA",1,9)=""

^ICM("C","MAJOR CHEST SURGERY",4,1)=""

^ICM("C","MAJOR CHEST TRAUMA",4,6)=""

^ICM("C","MAJOR HEAD & NECK SURGERY",3,1)=""

^ICM("C","MAJOR JOINT SURGERY",8,1)=""

^ICM("C","MAJOR PELVIC SURGERY,MALE",12,1)=""

^ICM("C","MAJOR SKIN DISORDER",9,7)=""

^ICM("C","MAJOR SM & LG BOWEL SURGERY",6,2)=""

^ICM("C","MAJOR SURGERY:MYELOPROLIF,NEOP",17,1)=""

^ICM("C","MAJOR SURGERY:MYELOPROLIF,NEOP",17,8)=""

^ICM("C","MALIGNANCY",3,11)=""

^ICM("C","MALIGNANCY &/or PATHOLOGIC FRA",8,20)=""

^ICM("C","MALIGNANCY &/or PATHOLOGIC FRA",8,33)=""

^ICM("C","MALIGNANCY,DIGESTIVE SYSTEM",6,11)=""

^ICM("C","MALIGNANCY,FEMALE REPRODUCTIVE",13,9)=""

^ICM("C","MALIGNANCY,HEPATOBILIARY,PANCR",7,6)=""

^ICM("C","MALIGNANCY,MALE REPRODUCTIVE",12,7)=""

^ICM("C","MENSTRURAL,OTHER DISORDER",13,11)=""

^ICM("C","MINOR SKIN DISORDER",9,11)=""

^ICM("C","MINOR SM & LG BOWEL SURGERY",6,4)=""

^ICM("C","MINOR SURGERY:MYELOPROLIF,NEOP",17,2)=""

^ICM("C","MINOR SURGERY:MYELOPROLIF,NEOP",17,9)=""

^ICM("C","MISC NOSE,THROAT,EAR SURGERY",3,5)=""

^ICM("C","MOUTH SURGERY",6,9)=""

^ICM("C","MYRINGOTOMY",3,9)=""

^ICM("C","NASAL TRAUMA & DEFORMITY",3,17)=""

^ICM("C","NEOPLASM",1,7)=""

^ICM("C","NEOPLASM",4,5)=""

^ICM("C","NEOPLASM KIDNEY/URINARY TRACT",11,9)=""

^ICM("C","NEUROSIS",19,3)=""

^ICM("C","NEWBORN, NORMAL",15,2)=""

^ICM("C","NEWBORN, TRANSFERRED OR DIED",15,1)=""

^ICM("C","NON-EXTENSIVE OR PROCEDURE UNR",99,5)=""

^ICM("C","NONSPECIFIC ARTHROPATHY",8,25)=""

^ICM("C","NONSPECIFIC CEREBROVASC DISORD",1,11)=""

^ICM("C","NONTRAUMATIC STUPOR & COMA",1,15)=""

^ICM("C","NUTR,MISC METABOLIC DISORDER",10,10)=""

^ICM("C","OBSTRUCTION,DIGESTIVE SYSTEM",6,15)=""

^ICM("C","OR PROCEDURE FOR OBESITY",10,4)=""

^ICM("C","OR PROCEDURE HEALTH STATUS,OTH",23,1)=""

^ICM("C","OR PROCEDURE HEALTH STATUS,OTH",23,6)=""

^ICM("C","OR PROCEDURE UNRELATED TO A MD",26,1)=""

^ICM("C","OR PROCEDURE UNRELATED TO A MD",27,1)=""

^ICM("C","OR PROCEDURE UNRELATED TO A MD",28,1)=""

^ICM("C","OR PROCEDURE UNRELATED TO A MD",99,1)=""

^ICM("C","OR PROCEDURE, MENTAL DISORDER",19,1)=""

^ICM("C","OR PROCEDURE: INFECTIOUS,PARAS",18,1)=""

^ICM("C","OR PROCEDURE: INFECTIOUS,PARAS",18,6)=""

^ICM("C","ORBIT SURGERY",2,2)=""

^ICM("C","ORGANIC DISTURBANCE,MENTAL RET",19,5)=""

^ICM("C","ORGANIC DISTURBANCE,MENTAL RET",19,11)=""

^ICM("C","OSTEOMYELITIS",8,19)=""

^ICM("C","OTHER ANTEPARTUM DISORDER",14,10)=""

^ICM("C","OTHER DIAGNOSES,CIRCULATORY",5,26)=""

^ICM("C","OTHER DIAGNOSES,DIGESTIVE SYS",6,18)=""

^ICM("C","OTHER DIAGNOSES,ENT",3,18)=""

^ICM("C","OTHER DIAGNOSES,RESPIRATORY",4,15)=""

^ICM("C","OTHER DIAGNOSIS",1,19)=""

^ICM("C","OTHER DISORDER KIDNEY/URINARY ",11,14)=""

^ICM("C","OTHER DISORDER KIDNEY/URINARY ",11,18)=""

^ICM("C","OTHER DISORDER,BILIARY TRACT",7,9)=""

^ICM("C","OTHER DISORDER,BONE,MUSCLE,C.T",8,31)=""

^ICM("C","OTHER DISORDER,BONE,MUSCLE,C.T",8,37)=""

^ICM("C","OTHER DISORDER,LIVER",7,8)=""

^ICM("C","OTHER DISORDER,MALE REPRODUCTI",12,11)=""

^ICM("C","OTHER DISORDER,MALE REPRODUCTI",12,13)=""

^ICM("C","OTHER DISORDER,PANCREAS",7,7)=""

^ICM("C","OTHER DISORDER: INFECTIOUS,PAR",18,5)=""

^ICM("C","OTHER DISORDER: INFECTIOUS,PAR",18,8)=""

^ICM("C","OTHER DX FOR MULTIPLE TRAUMA",24,4)=""

^ICM("C","OTHER EXTRAOCULAR SURGERY",2,5)=""

^ICM("C","OTHER EYE DIAGNOSES",2,10)=""

^ICM("C","OTHER FACTORS HEALTH STATUS,CO",23,5)=""

^ICM("C","OTHER FACTORS HEALTH STATUS,CO",23,8)=""

^ICM("C","OTHER HIP, FEMUR SURGERY",8,2)=""

^ICM("C","OTHER INJURY,POISONING",21,9)=""

^ICM("C","OTHER INTRAOCULAR SURGERY",2,6)=""

^ICM("C","OTHER L. EXTREMITY,HUMERUS OPR",8,7)=""

^ICM("C","OTHER MENTAL DISORDER",19,8)=""

^ICM("C","OTHER NEOPLASM NOT ELSEWHERE C",17,7)=""

^ICM("C","OTHER NEOPLASM NOT ELSEWHERE C",17,13)=""

^ICM("C","OTHER OR PROCEDURE FOR INJURY",21,4)=""

^ICM("C","OTHER OR PROCEDURE FOR TRAUMA",24,3)=""

^ICM("C","OTHER OR PROCEDURE LIVER/PANCR",7,4)=""

^ICM("C","OTHER OR PROCEDURE,CIRCULATORY",5,11)=""

^ICM("C","OTHER OR PROCEDURE,FEMALE REPR",13,8)=""

^ICM("C","OTHER OR PROCEDURE,FEMALE REPR",13,14)=""

^ICM("C","OTHER OR PROCEDURE,MUSCLE/BONE",8,15)=""

^ICM("C","OTHER OR PROCEDURE:BLOOD,IMMUN",16,2)=""

^ICM("C","OTHER OR PROCEDURE:BLOOD,IMMUN",16,6)=""

^ICM("C","OTHER OR PROCEDURE:ENDOCR,NUTR",10,8)=""

^ICM("C","OTHER OR PROCEDURE:KIDNEY,URIN",11,7)=""

^ICM("C","OTHER OR PROCEDURE:KIDNEY,URIN",11,16)=""

^ICM("C","OTHER OR PROCEDURE:MALE REPROD",12,6)=""

^ICM("C","OTHER OR PROCEDURE:MALE REPROD",12,12)=""

^ICM("C","OTHER OR PROCEDURE:SKIN,BREAST",9,5)=""

^ICM("C","OTHER OR PROCEDURE:SKIN,BREAST",9,13)=""

^ICM("C","OTHER OR PROCEDURES",4,2)=""

^ICM("C","OTHER OR PROCEDURES,DIGESTIVE",6,10)=""

^ICM("C","OTHER OR PROCEDURES,ENT",3,10)=""

^ICM("C","OTHER UPPER EXTREMITY SURGERY",8,9)=""

^ICM("C","OTHER URINARY BLADDER SURGERY",11,4)=""

^ICM("C","OTITIS MEDIA & URI",3,15)=""

^ICM("C","PACEMAKER REPLACEMENT &/OR REV",5,9)=""

^ICM("C","PANCREAS,LIVER,SHUNT SURGERY",7,1)=""

^ICM("C","PARATHYROID SURGERY",10,5)=""

^ICM("C","PELVIC EVISCERATION,RADICAL SU",13,1)=""

^ICM("C","PELVIC EVISCERATION,RADICAL SU",13,12)=""

^ICM("C","PENIS SURGERY",12,4)=""

^ICM("C","PERIANAL & PILONIDAL CYST SURG",9,3)=""

^ICM("C","PERIANAL & PILONIDAL CYST SURG",9,12)=""

^ICM("C","PERMANENT PACEMAKER IMPLANT",5,8)=""

^ICM("C","PERPHERIAL VASCULAR DISEASE",5,18)=""

^ICM("C","PERPHERIAL,CRANIAL NRV & OTHER",1,5)=""

^ICM("C","PERSONALITY,IMPULSE CONTROL DI",19,4)=""

^ICM("C","PERSONALITY,IMPULSE CONTROL DI",19,10)=""

^ICM("C","PLASTIC SURGERY",9,4)=""

^ICM("C","PLEURAL EFFUSION",4,7)=""

^ICM("C","PNEUMOTHORAX",4,12)=""

^ICM("C","POST-OP,POSTTRAUMATIC INFECTIO",18,3)=""

^ICM("C","POST-OP,POSTTRAUMATIC INFECTIO",18,7)=""

^ICM("C","POSTPARTUM DISORDER,NOT DELIVE",14,4)=""

^ICM("C","POSTPARTUM DISORDER,NOT DELIVE",14,12)=""

^ICM("C","POSTPARTUM SURGERY,NOT DELIVER",14,3)=""

^ICM("C","POSTPARTUM SURGERY,NOT DELIVER",14,11)=""

^ICM("C","PREMATURITY",15,4)=""

^ICM("C","PRIMARY IRIS SURGERY",2,3)=""

^ICM("C","PROSTATECTOMY",11,3)=""

^ICM("C","PROSTATIC OR PROCEDURE UNRELAT",99,4)=""

^ICM("C","PSYCHOSIS",19,6)=""

^ICM("C","PULMONARY EDEMA & RESP FAILURE",4,8)=""

^ICM("C","PULMONARY EMBOLISM",4,3)=""

^ICM("C","RADIATION THERAPY, NOT FOR LYM",17,4)=""

^ICM("C","RADIATION THERAPY, NOT FOR LYM",17,10)=""

^ICM("C","RECONSTRUCTIVE SURGERY,FEMALE",13,3)=""

^ICM("C","RECTAL RESECTION",6,1)=""

^ICM("C","RED BLOOD CELL DISORDER",16,3)=""

^ICM("C","REHABILITATION",23,2)=""

^ICM("C","REM INT FIX DEV,LOCAL EXCISION",8,13)=""

^ICM("C","RENAL FAILURE",11,8)=""

^ICM("C","RETINA SURGERY",2,1)=""

^ICM("C","RHINOPLASTY",3,6)=""

^ICM("C","SALIVARY GLAND SURGERY",3,2)=""

^ICM("C","SEIZURE & HEADACHE",1,16)=""

^ICM("C","SEPTIC ARTHRITIS",8,22)=""

^ICM("C","SEPTICEMIA",18,2)=""

^ICM("C","SIGN,SYMPTOM KIDNEY/URINARY TR",11,12)=""

^ICM("C","SIGN,SYMPTOM KIDNEY/URINARY TR",11,17)=""

^ICM("C","SIGN,SYMPTOM NOT ELSEWHERE CLA",23,3)=""

^ICM("C","SIGN,SYMPTOM NOT ELSEWHERE CLA",23,7)=""

^ICM("C","SIGN,SYMPTOM:MUSCLE,BONE,C.T.",8,26)=""

^ICM("C","SIGNS & SYMPTOMS,RESPIRATORY",4,14)=""

^ICM("C","SIMPLE PNEUMONIA & PLEURISY",4,10)=""

^ICM("C","SINUS & MASTOID SURGERY",3,4)=""

^ICM("C","SKIN GRAFT",9,2)=""

^ICM("C","SKIN GRAFT",21,1)=""

^ICM("C","SKIN GRAFT,WOUND DEBRIDEMENT",10,3)=""

^ICM("C","SKIN ULCER",9,6)=""

^ICM("C","SOFT TISSUE SURGERY",8,11)=""

^ICM("C","SPECIFIC CEREBROVASC DISORDER",1,10)=""

^ICM("C","SPINAL DISORDER/INJURY",1,6)=""

^ICM("C","SPINAL SURGERY",1,2)=""

^ICM("C","SPLENECTOMY",16,1)=""

^ICM("C","STERILIZATION, MALE",12,10)=""

^ICM("C","STOMACH,ESO,DUODENUM SURGERY",6,5)=""

^ICM("C","STONE KIDNEY/URINARY TRACT",11,11)=""

^ICM("C","STRAIN,SPRAIN,DISLOC:HIP,PELVI",8,18)=""

^ICM("C","STRAIN,SPRAIN,DISLOC:HIP,PELVI",8,32)=""

^ICM("C","SURGERY UTERUS,ADNEXA",13,4)=""

^ICM("C","SURGERY VAGINA,CERVIX,VULVA",13,5)=""

^ICM("C","SYNCOPE & COLLAPSE",5,24)=""

^ICM("C","TENDONITIS,MYOSITIS,BURSITIS",8,27)=""

^ICM("C","TESTICULAR SURGERY",12,3)=""

^ICM("C","THREATENED ABORTION",14,6)=""

^ICM("C","THYROGLOSSAL SURGERY",10,7)=""

^ICM("C","THYROID SURGERY",10,6)=""

^ICM("C","TONSIL & ADENOID SURGERY",3,7)=""

^ICM("C","TONSIL & ADENOID SURGERY,OTHER",3,8)=""

^ICM("C","TOXIC DRUG EFFECT",21,7)=""

^ICM("C","TRACHEOSTOMY EXCEPT MOUTH,LARY",99,9)=""

^ICM("C","TRACHEOSTOMY W MOUTH,LARYNX,PH",99,8)=""

^ICM("C","TRANSURETHERAL PROSTATECTOMY",12,2)=""

^ICM("C","TRANSURETHRAL SURGERY",11,5)=""

^ICM("C","TRAUMA",9,10)=""

^ICM("C","TRAUMA, NO SURGERY",21,5)=""

^ICM("C","TRAUMATIC STUPOR & COMA",1,17)=""

^ICM("C","ULCER,DIGESTIVE SYSTEM",6,13)=""

^ICM("C","URETHERAL SURGERY",11,6)=""

^ICM("C","URETHRAL STRICTURE",11,13)=""

^ICM("C","VAGINAL DELIVERY",14,2)=""

^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",24,5)=""

^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",26,2)=""

^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",27,2)=""

^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",28,2)=""

^ICM("C","VALID DIAGNOSIS,NOT A PRINCIPA",99,2)=""

^ICM("C","VALVE SURGERY WITH PUMP",5,2)=""

^ICM("C","VASCULAR SURGERY",5,6)=""

^ICM("C","VEIN LIGATION & STRIPPING",5,10)=""

^ICM("C","VIRAL ILLNESS,FUO",18,4)=""

^ICM("C","WOUND DEBRIDEMENT",21,2)=""