/**************************************************************/ /* Title: CREATION OF FORMAT LIBRARY FOR COMORBIDITY GROUPS */ /* */ /* Description: */ /* Define all ICD codes and labels for each format */ /**************************************************************/ /***************************************************/ /* Define the subdirectory for the FORMAT library */ /* Output file: C:\comorb\fmtlib\formats.sc2 */ /***************************************************/ libname library 'd:\comorb\fmtlib\'; TITLE1 'CREATE FORMAT LIBRARY OF ICD CODES AND LABELS'; PROC FORMAT LIB=library; VALUE $RCOMFMT "39891", "40211", "40291", "40411", "40413", "40491", "40493", "4280 ", "4281 ", "4289 " = "CHF" /* Congestive heart failure */ "42610", "42611", "42613", "4262 ", "4263 ", "4264 ", "42650", "42651", "42652", "42653", "4266 ", "4267 ", "42681", "42689", "4270 ", "4272 ", "42731", "42760", "42761", "42769", "42781", "42789", "4279 ", "7850 ", "V450 ", "V4500", "V4501", "V4502", "V4509", "V533 ", "V5331", "V5332", "V5339" = "ARYTHM" /* Cardiac arrhythmias */ "09320", "09321", "09322", "09323", "09324", "3940 ", "3941 ", "3942 ", "3949 ", "3950 ", "3951 ", "3952 ", "3959 ", "3960 ", "3961 ", "3962 ", "3963 ", "3968 ", "3969 ", "3970 ", "3971 ", "4240 ", "4241 ", "4242 ", "4243 ", "42490", "42491", "42499", "7463 ", "7464 ", "7465 ", "7466 ", "V422 ", "V433 " = "VALVE" /* Valvular disease */ "4160 ", "4161 ", "4168 ", "4169 ", "4179 " = "PULMCIRC" /* Pulmonary circulation disorder */ "4400 ", "4401 ", "4402 ", "44020", "44021", "44022", "44023", "44024", "44029", "44030", "44031", "44032", "4408 ", "4409 ", "4412 ", "4414 ", "4417 ", "4419 ", "4431 ", "44381", "44389", "4439 ", "4471 ", "5571 ", "5579 ", "V434 " = "PERIVASC" /* Peripheral vascular disorder */ "4011 ", "4019 " = "HTN" /* Hypertension, uncomplicated */ "40210", "40290", "40410", "40490", "40511", "40519", "40591", "40599" = "HTNCX" /* Hypertension, complicated */ "3420 ", "34200", "34201", "34202", "3421 ", "34210", "34211", "34212", "3428 ", "34280", "34281", "34282", "3429 ", "34290", "34291", "34292", "3430 ", "3431 ", "3432 ", "3433 ", "3434 ", "3438 ", "3439 ", "3440 ", "34400", "34401", "34402", "34403", "34404", "34409", "3441 ", "3442 ", "3443 ", "34430", "34431", "34432", "3444 ", "34440", "34441", "34442", "3445 ", "3446 ", "34460", "34461", "3448 ", "34481", "34489", "3449 " = "PARA" /* Paralysis */ "3319 ", "3320 ", "3334 ", "3335 ", "3340 ", "3341 ", "3342 ", "3343 ", "3344 ", "3348 ", "3349 ", "3350 ", "3351 ", "33510", "33511", "33519", "3352 ", "33520", "33521", "33522", "33523", "33524", "33529", "3358 ", "3359 ", "340 ", "3411 ", "3418 ", "3419 ", "34500", "34501", "34510", "34511", "34540", "34541", "34550", "34551", "34580", "34581", "34590", "34591", "3481 ", "3483 ", "7803 ", "7843 " = "NEURO" /* Other neurological */ "490 ", "4910 ", "4911 ", "49120", "49121", "4918 ", "4919 ", "4920 ", "4928 ", "49300", "49301", "49302", "49310", "49311", "49312", "49320", "49321", "49322", "49390", "49391", "494 ", "4940 ", "4941 ", "4950 ", "4951 ", "4952 ", "4953 ", "4954 ", "4955 ", "4956 ", "4957 ", "4958 ", "4959 ", "496 ", "500 ", "501 ", "502 ", "503 ", "504 ", "505 ", "5064 " = "CHRNLUNG" /* Chronic pulmonary disease */ "25000", "25001", "25002", "25003", "25010", "25011", "25012", "25013", "25020", "25021", "25022", "25023", "25030", "25031", "25032", "25033" = "DM" /* Diabetes */ "25040", "25041", "25042", "25043", "25050", "25051", "25052", "25053", "25060", "25061", "25062", "25063", "25070", "25071", "25072", "25073", "25090", "25091", "25092", "25093" = "DMCX" /* Diabetes, complicated */ "243 ", "2440 ", "2441 ", "2442 ", "2448 ", "2449 " = "HYPOTHY" /* Hypothyroidism */ "40311", "40391", "40412", "40492", "585 ", "586 ", "V420 ", "V451 ", "V560 ", "V5631", "V5632", "V568 " = "RENLFAIL" /* Renal failure */ "07032", "07033", "07054", "4560 ", "4561 ", "45620", "45621", "5710 ", "5712 ", "5713 ", "57140", "57141", "57149", "5715 ", "5716 ", "5718 ", "5719 ", "5723 ", "5728 ", "V427 " = "LIVER" /* Liver disease */ "53170", "53190", "53270", "53290", "53370", "53390", "53470", "53490", "V1271" = "ULCER" /* Peptic ulcer disease including bleeding */ "042 ", "0420 ", "0421 ", "0422 ", "0429 ", "0430 ", "0431 ", "0432 ", "0433 ", "0439 ", "0440 ", "0449 " = "AIDS" /* HIV and AIDS */ "20000", "20001", "20002", "20003", "20004", "20005", "20006", "20007", "20008", "20010", "20011", "20012", "20013", "20014", "20015", "20016", "20017", "20018", "20020", "20021", "20022", "20023", "20024", "20025", "20026", "20027", "20028", "20080", "20081", "20082", "20083", "20084", "20085", "20086", "20087", "20088", "20100", "20101", "20102", "20103", "20104", "20105", "20106", "20107", "20108", "20110", "20111", "20112", "20113", "20114", "20115", "20116", "20117", "20118", "20120", "20121", "20122", "20123", "20124", "20125", "20126", "20127", "20128", "20140", "20141", "20142", "20143", "20144", "20145", "20146", "20147", "20148", "20150", "20151", "20152", "20153", "20154", "20155", "20156", "20157", "20158", "20160", "20161", "20162", "20163", "20164", "20165", "20166", "20167", "20168", "20170", "20171", "20172", "20173", "20174", "20175", "20176", "20177", "20178", "20190", "20191", "20192", "20193", "20194", "20195", "20196", "20197", "20198", "20200", "20201", "20202", "20203", "20204", "20205", "20206", "20207", "20208", "20210", "20211", "20212", "20213", "20214", "20215", "20216", "20217", "20218", "20220", "20221", "20222", "20223", "20224", "20225", "20226", "20227", "20228", "20230", "20231", "20232", "20233", "20234", "20235", "20236", "20237", "20238", "20250", "20251", "20252", "20253", "20254", "20255", "20256", "20257", "20258", "20260", "20261", "20262", "20263", "20264", "20265", "20266", "20267", "20268", "20280", "20281", "20282", "20283", "20284", "20285", "20286", "20287", "20288", "20290", "20291", "20292", "20293", "20294", "20295", "20296", "20297", "20298", "2030 ", "2038 ", "2386 ", "2733 ", "V1071", "V1072", "V1079" = "LYMPH" /* Lymphoma */ "1960 ", "1961 ", "1962 ", "1963 ", "1965 ", "1966 ", "1968 ", "1969 ", "1970 ", "1971 ", "1972 ", "1973 ", "1974 ", "1975 ", "1976 ", "1977 ", "1978 ", "1980 ", "1981 ", "1982 ", "1983 ", "1984 ", "1985 ", "1986 ", "1987 ", "19881", "19882", "19889", "1990 ", "1991 " = "METS" /* Metastatic cancer */ "1400 ", "1401 ", "1403 ", "1404 ", "1405 ", "1406 ", "1408 ", "1409 ", "1410 ", "1411 ", "1412 ", "1413 ", "1414 ", "1415 ", "1416 ", "1418 ", "1419 ", "1420 ", "1421 ", "1422 ", "1428 ", "1429 ", "1430 ", "1431 ", "1438 ", "1439 ", "1440 ", "1441 ", "1448 ", "1449 ", "1450 ", "1451 ", "1452 ", "1453 ", "1454 ", "1455 ", "1456 ", "1458 ", "1459 ", "1460 ", "1461 ", "1462 ", "1463 ", "1464 ", "1465 ", "1466 ", "1467 ", "1468 ", "1469 ", "1470 ", "1471 ", "1472 ", "1473 ", "1478 ", "1479 ", "1480 ", "1481 ", "1482 ", "1483 ", "1488 ", "1489 ", "1490 ", "1491 ", "1498 ", "1499 ", "1500 ", "1501 ", "1502 ", "1503 ", "1504 ", "1505 ", "1508 ", "1509 ", "1510 ", "1511 ", "1512 ", "1513 ", "1514 ", "1515 ", "1516 ", "1518 ", "1519 ", "1520 ", "1521 ", "1522 ", "1523 ", "1528 ", "1529 ", "1530 ", "1531 ", "1532 ", "1533 ", "1534 ", "1535 ", "1536 ", "1537 ", "1538 ", "1539 ", "1540 ", "1541 ", "1542 ", "1543 ", "1548 ", "1550 ", "1551 ", "1552 ", "1560 ", "1561 ", "1562 ", "1568 ", "1569 ", "1570 ", "1571 ", "1572 ", "1573 ", "1574 ", "1578 ", "1579 ", "1580 ", "1588 ", "1589 ", "1590 ", "1591 ", "1598 ", "1599 ", "1600 ", "1601 ", "1602 ", "1603 ", "1604 ", "1605 ", "1608 ", "1609 ", "1610 ", "1611 ", "1612 ", "1613 ", "1614 ", "1615 ", "1616 ", "1617 ", "1618 ", "1619 ", "1620 ", "1622 ", "1623 ", "1624 ", "1625 ", "1628 ", "1629 ", "1630 ", "1631 ", "1638 ", "1639 ", "1640 ", "1641 ", "1642 ", "1643 ", "1648 ", "1649 ", "1650 ", "1658 ", "1659 ", "1700 ", "1701 ", "1702 ", "1703 ", "1704 ", "1705 ", "1706 ", "1707 ", "1708 ", "1709 ", "1710 ", "1712 ", "1713 ", "1714 ", "1715 ", "1716 ", "1717 ", "1718 ", "1719 ", "1720 ", "1721 ", "1722 ", "1723 ", "1724 ", "1725 ", "1726 ", "1727 ", "1728 ", "1729 ", "1740 ", "1741 ", "1742 ", "1743 ", "1744 ", "1745 ", "1746 ", "1748 ", "1749 ", "1750 ", "1759 ", "179 ", "1800 ", "1801 ", "1808 ", "1809 ", "181 ", "1820 ", "1821 ", "1828 ", "1830 ", "1832 ", "1833 ", "1834 ", "1835 ", "1838 ", "1839 ", "1840 ", "1841 ", "1842 ", "1843 ", "1844 ", "1848 ", "1849 ", "185 ", "1860 ", "1869 ", "1871 ", "1872 ", "1873 ", "1874 ", "1875 ", "1876 ", "1877 ", "1878 ", "1879 ", "1880 ", "1881 ", "1882 ", "1883 ", "1884 ", "1885 ", "1886 ", "1887 ", "1888 ", "1889 ", "1890 ", "1891 ", "1892 ", "1893 ", "1894 ", "1898 ", "1899 ", "1900 ", "1901 ", "1902 ", "1903 ", "1904 ", "1905 ", "1906 ", "1907 ", "1908 ", "1909 ", "1910 ", "1911 ", "1912 ", "1913 ", "1914 ", "1915 ", "1916 ", "1917 ", "1918 ", "1919 ", "1920 ", "1921 ", "1922 ", "1923 ", "1928 ", "1929 ", "193 ", "1940 ", "1941 ", "1943 ", "1944 ", "1945 ", "1946 ", "1948 ", "1949 ", "1950 ", "1951 ", "1952 ", "1953 ", "1954 ", "1955 ", "1958 ", "V1000", "V1001", "V1002", "V1003", "V1004", "V1005", "V1006", "V1007", "V1009", "V1011", "V1012", "V1020", "V1021", "V1022", "V1029", "V103 ", "V1040", "V1041", "V1042", "V1043", "V1044", "V1045", "V1046", "V1047", "V1049", "V1050", "V1051", "V1052", "V1059", "V1081", "V1082", "V1083", "V1084", "V1085", "V1086", "V1087", "V1088", "V1089", "V109 " = "TUMOR" /* Solid tumor without metastasis */ "7010 ", "7100 ", "7101 ", "7102 ", "7103 ", "7104 ", "7105 ", "7108 ", "7109 ", "7140 ", "7141 ", "7142 ", "71430", "71431", "71432", "71433", "7144 ", "71481", "71489", "7149 ", "7200 ", "7201 ", "7202 ", "72081", "72089", "7209 ", "725 " = "ARTH" /* Rheumatoid arthritis/collagen vascular diseases */ "2860 ", "2861 ", "2862 ", "2863 ", "2864 ", "2865 ", "2866 ", "2867 ", "2869 ", "2871 ", "2873 ", "2874 ", "2875 " = "COAG" /* Coagulopathy */ "2780 ", "27800", "27801" = "OBESE" /* Obesity */ "260 ", "261 ", "262 ", "2630 ", "2631 ", "2632 ", "2638 ", "2639 ", "7832 ", "78321", "78322" = "WGHTLOSS" /* Weight loss */ "2760 ", "2761 ", "2762 ", "2763 ", "2764 ", "2765 ", "2766 ", "2767 ", "2768 ", "2769 " = "LYTES" /* Fluid and elctrolyte disorders */ "2800 " = "BLDLOSS" /* Blood loss anemia */ "2801 ", "2808 ", "2809 ", "2810 ", "2811 ", "2812 ", "2813 ", "2814 ", "2818 ", "2819 ", "28521", "28522", "28529", "2859 " = "ANEMDEF" /* Deficiency anemias */ "2911 ", "2912 ", "2915 ", "2918 ", "29181", "29189", "2919 ", "30390", "30391", "30392", "30393", "30500", "30501", "30502", "30503", "V113 " = "ALCOHOL" /* Alcohol abuse */ "2920 ", "29282", "29283", "29284", "29289", "2929 ", "30400", "30401", "30402", "30403", "30410", "30411", "30412", "30413", "30420", "30421", "30422", "30423", "30430", "30431", "30432", "30433", "30440", "30441", "30442", "30443", "30450", "30451", "30452", "30453", "30460", "30461", "30462", "30463", "30470", "30471", "30472", "30473", "30480", "30481", "30482", "30483", "30490", "30491", "30492", "30493", "30520", "30521", "30522", "30523", "30530", "30531", "30532", "30533", "30540", "30541", "30542", "30543", "30550", "30551", "30552", "30553", "30560", "30561", "30562", "30563", "30570", "30571", "30572", "30573", "30580", "30581", "30582", "30583", "30590", "30591", "30592", "30593" = "DRUG" /* Drug abuse */ "29500", "29501", "29502", "29503", "29504", "29505", "29510", "29511", "29512", "29513", "29514", "29515", "29520", "29521", "29522", "29523", "29524", "29525", "29530", "29531", "29532", "29533", "29534", "29535", "29540", "29541", "29542", "29543", "29544", "29545", "29550", "29551", "29552", "29553", "29554", "29555", "29560", "29561", "29562", "29563", "29564", "29565", "29570", "29571", "29572", "29573", "29574", "29575", "29580", "29581", "29582", "29583", "29584", "29585", "29590", "29591", "29592", "29593", "29594", "29595", "29600", "29601", "29602", "29603", "29604", "29605", "29606", "29610", "29611", "29612", "29613", "29614", "29615", "29616", "29620", "29621", "29622", "29623", "29624", "29625", "29626", "29630", "29631", "29632", "29633", "29634", "29635", "29636", "29640", "29641", "29642", "29643", "29644", "29645", "29646", "29650", "29651", "29652", "29653", "29654", "29655", "29656", "29660", "29661", "29662", "29663", "29664", "29665", "29666", "2967 ", "29680", "29681", "29682", "29689", "29690", "29699", "2970 ", "2971 ", "2972 ", "2973 ", "2978 ", "2979 ", "2980 ", "2981 ", "2982 ", "2983 ", "2984 ", "2988 ", "2989 ", "29910", "29911" = "PSYCH" /* Psychoses */ "3004 ", "30112", "3090 ", "3091 ", "311 " = "DEPRESS" /* Depression */ ; /** DRG Formats **/ VALUE CARDDRG /* Cardiac */ 103,104,105,106,107,108,109,110,111, 112,115,116,117,118,120,121,122, 123,124,125,126,127,129,132,133,134, 135,136,137,138,139,140,141,142, 143 = "YES" ; VALUE PERIDRG /* Peripheral vascular */ 130,131 = "YES" ; VALUE RENALDRG /* Renal */ 302,303,304,305,315,316,317,318,319, 320,321,322,323,324,325,326,327,328, 329,330,331,332,333 = "YES" ; VALUE CEREDRG /* Cerebrovascular */ 5,14,15,16,17 = "YES" ; VALUE PULMDRG /* COPD asthma */ 88,96,97,98 = "YES" ; VALUE DIABDRG /* Diabetes */ 294,295 = "YES" ; VALUE HYPODRG /* Thyroid endocrine */ 290,300,301 = "YES"; VALUE RENFDRG /* Kidney transp, renal fail/dialysis */ 302,316,317 = "YES" ; VALUE LIVERDRG /* Liver */ 199,200,201,202,205,206,207,208 = "YES" ; VALUE ULCEDRG /* GI hemorrhage or ulcer */ 174,175,176,177,178 = "YES" ; VALUE HIVDRG /* Human immunodeficiency virus */ 488,489,490 = "YES" ; VALUE LEUKDRG /* Leukemia/lymphoma */ 400,401,402,403,404,405,406,407,408, 409,410,411,412,413,414,473,492 = "YES" ; VALUE CANCDRG /* Cancer, lymphoma */ 10,11,64,82,172,173,199,203,239, 257,258,259,260,274,275,303,318,319, 338,344,346,347,354,355,357,363,366, 367,406,407,408,409,410,411,412,413, 414 = "YES" ; VALUE ARTHDRG /* Connective tissue */ 240,241 = "YES" ; VALUE NUTRDRG /* Nutrition/metabolic */ 296,297,298 = "YES" ; VALUE ANEMDRG /* Anemia */ 395,396 = "YES"; VALUE ALCDRG /* Alcohol drug */ 433,434,435,436,437 = "YES" ; RUN;