Displaying 1 result from an estimated 1 matches for "carddrg".
Did you mean:
carddav
2010 Sep 07
0
AHRQ - Creation of Comorbidity Variables
...ych = c(29500:29889, 2951:2989, 29910, 29911)
depress = c(3004, 3090, 3091, 311, 30112)
other = c("?")
############## V27 MS-DRG
##################################################
card1 = paste(0, 1:2, sep = "")
card2 = paste(0, card1, sep = "")
carddrg = c(card2, 215:238, 242:251, 253:254, 258:262, 265,
280:293, 296:298, 302:303, 306:313)
peridrg = c(299:301)
renaldrg = c(652, 656:661, 673:675, 682:700)
nerv1 = paste(0, c(20:42, 52:99), sep = "")
nervdrg = c(nerv1, 100:103)
ceredrg = paste(0, c(20:22, 34:38,...