D56: limb MALE (CLTI, major amputation, open bypass) as primary outcome; MALE incl. repeat revascularization to supplement

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-28 16:39:59 -04:00
parent d369a16208
commit 3aa6c1c5b3
12 changed files with 37 additions and 33 deletions
@@ -217,8 +217,11 @@ simulate_course <- function(pop, par, pol = policy("natural"), seed = 1L, record

  # disease composite (D34): coded CLTI or major amputation
  t_disease <- pmin(t_clti_code, t_amp, na.rm = TRUE)
+  # limb MALE (primary, D56): coded CLTI, major amputation or open bypass. Every component
+  # can occur with or without a prior PVI; repeat revascularization is reported separately
+  t_limb <- pmin(t_clti_code, t_amp, t_bypass, na.rm = TRUE)
  out <- data.table(id = pat$id, t_pvi, pvi_elective, t_clti_true, t_clti_code, t_amp, t_bypass,
-                    t_rr, t_male, t_disease, t_death, t_nco1, t_nco2, t_nce, n_proc)
+                    t_rr, t_male, t_disease, t_limb, t_death, t_nco1, t_nco2, t_nce, n_proc)
  list(events = out, z = zmat, counts = cmat, policy = pol)
 }