Lower extremity revascularization
/* This was put into used in the direct LEAB source file. */
** variable for DC to SNF or rehab cap drop dc_snfrehab gen byte dc_snfrehab = inlist(dc_5level,2,3) tab dc_snfrehab dc_5level
** High-risk indications (rest pain, ulcers, tissue loss) cap drop indic_hirisk gen byte indic_hirisk = inlist(indic_pvd5, 2,3,4) lab var indic_hirisk "rest pain, ulcers, tx loss"
** Amputation, major cap drop amp_major gen byte amp_major = 0
forval y = 1/6{ replace amp_maj = 1 if inlist(pr_`y', 8414, 8415, 8416, 8417) } *tab amp_maj
** Amputation, minor cap drop amp_minor gen byte amp_minor = 0 forval y = 1/6{ replace amp_minor = 1 if inlist(pr_`y', 8411, 8412) } *tab amp_minor
** Amputation, any cap drop amp_any gen byte amp_any = amp_maj==1 | amp_min ==1 tab amp_any
** Extended los forval y = 1/2{ su losy', det cap drop elosy' gen byte elosy' = losy' > `r(p75)' }
** insert appropriate missing values for elos replace elos2 = . if los2 ==.
** label extended los variables lab var elos1 "index los >75%ile overall" lab var elos2 "readmit los >75%ile overall"
