*********** DEFINE LICENSED REHAB HOSPITALS ONLY APR DRGS************;

APR_DRG_O = APR_DRG;
IF DAILYSER IN ('08') AND 
HOSPID IN (210001,210009,210012,210027,210029,210037,210055,210056,210058,210064,213028,213029,213300) 
AND APR_DRG IN (58) THEN APR_DRG_M = 870;
ELSE IF DAILYSER IN ('08') AND 
HOSPID IN (210001,210009,210012,210027,210029,210037,210055,210056,210058,210064,213028,213029,213300) 
AND APR_DRG IN (860) THEN APR_DRG_M = 871;
ELSE IF DAILYSER IN ('08') AND 
HOSPID IN (210001,210009,210012,210027,210029,210037,210055,210056,210058,210064,213028,213029,213300) 
AND APR_DRG IN (862) THEN APR_DRG_M = 872;
ELSE IF DAILYSER IN ('08') AND 
HOSPID IN (210001,210009,210012,210027,210029,210037,210055,210056,210058,210064,213028,213029,213300) 
AND APR_DRG IN (26,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,57,59,82,111,113,115,130,133,134,135,
136,137,138,139,140,141,142,143,144,145,190,193,194,197,198,199,200,201,204,205,207,241,243,244,247,
248,249,252,253,254,279,280,281,282,284,312,340,341,342,343,344,346,347,349,351,364,380,381,382,383,
384,385,421,422,424,425,426,461,462,463,465,466,468,469,470,530,561,660,663,690,691,710,720,721,724,
751,754,756,757,760,773,775,813,815,843,844,850,861,890,892,894,950,951) THEN APR_DRG_M = 873;

*********** DEFINE CHRONIC ONLY APR DRGS************;

ELSE IF DAILYSER IN ('09') AND APR_DRG IN (42) THEN APR_DRG_M = 875;
ELSE IF DAILYSER IN ('09') AND APR_DRG IN (58) THEN APR_DRG_M = 876;
ELSE IF DAILYSER IN ('09') AND APR_DRG IN (130) THEN APR_DRG_M = 877;
ELSE IF DAILYSER IN ('09') AND APR_DRG IN (133) THEN APR_DRG_M = 878;
ELSE IF DAILYSER IN ('09') AND APR_DRG IN (860) THEN APR_DRG_M = 883;
ELSE IF DAILYSER IN ('09') AND APR_DRG IN (5,26,40,43,44,45,48,49,50,52,55,59,121,
131,134,137,142,143,144,174,190,193,194,197,198,199,200,201,203,204,206,207,229,
230,240,241,243,245,249,252,254,280,281,282,283,317,343,344,346,347,349,351,361,
380,383,384,404,421,424,425,444,463,466,469,470,530,660,661,680,690,691,710,720,
721,724,740,750,751,753,754,755,756,757,758,760,775,792,813,815,850,861,862,873,890,892,930,950,951,952) THEN APR_DRG_M = 884;
ELSE APR_DRG_M = APR_DRG_O;

DROP APR_DRG;
RUN;