Infusion duration as ISO 8601 duration text

1library(yamaa)23yamaa_spec("spec.yaml")$run()$output

1import yamaa23yamaa.spec("spec.yaml").run().output

1# Reference solution for the yamaa benchmark sdtm-ex-infusion-duration (R track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67library(dplyr, warn.conflicts = FALSE)8library(readr)910ex_raw <- read_csv(11  "/app/input/ex_raw.csv",12  col_types = cols(.default = col_character())13)1415# Whole minutes as ISO 8601 duration text, a day the largest part and every16# part that is zero left out; zero minutes is PT0S.17duration_text <- function(minutes) {18  vapply(minutes, function(m) {19    if (is.na(m)) return(NA_character_)20    if (m == 0L) return("PT0S")21    days <- m %/% 1440L22    hours <- (m %% 1440L) %/% 60L23    mins <- m %% 60L24    text <- "P"25    if (days > 0L) text <- paste0(text, days, "D")26    if (hours > 0L || mins > 0L) {27      text <- paste0(text, "T")28      if (hours > 0L) text <- paste0(text, hours, "H")29      if (mins > 0L) text <- paste0(text, mins, "M")30    }31    text32  }, character(1), USE.NAMES = FALSE)33}3435ex <- ex_raw |>36  mutate(37    DOMAIN = "EX",38    EXDUR = duration_text(as.integer(EXDURMIN))39  ) |>40  select(DOMAIN, STUDYID, USUBJID, EXSEQ, EXTRT, EXSTDTC, EXDUR)4142dir.create("/app/output", showWarnings = FALSE)43write_csv(ex, "/app/output/ex.csv", na = "")

1# Reference solution for the yamaa benchmark sdtm-ex-infusion-duration (Python track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67"""Build the SDTM EX dataset from EX_RAW.89One record per administration. EXDUR writes the collected duration in whole10minutes as ISO 8601 duration text, with a day as the largest part and every11part that is zero left out.12"""1314import csv1516INPUT_PATH = "/app/input/ex_raw.csv"17OUTPUT_PATH = "/app/output/ex.csv"1819COLUMNS = ["DOMAIN", "STUDYID", "USUBJID", "EXSEQ", "EXTRT", "EXSTDTC", "EXDUR"]202122def duration_text(minutes):23    """Whole minutes as ISO 8601 duration text: zero minutes is PT0S."""24    if minutes == 0:25        return "PT0S"26    days, rest = divmod(minutes, 24 * 60)27    hours, mins = divmod(rest, 60)28    text = "P"29    if days:30        text += f"{days}D"31    if hours or mins:32        text += "T"33        if hours:34            text += f"{hours}H"35        if mins:36            text += f"{mins}M"37    return text383940def main():41    with open(INPUT_PATH, newline="", encoding="utf-8") as f:42        raw_rows = list(csv.DictReader(f))4344    out_rows = []45    for row in raw_rows:46        collected = (row["EXDURMIN"] or "").strip()47        out_rows.append(48            {49                "DOMAIN": "EX",50                "STUDYID": row["STUDYID"],51                "USUBJID": row["USUBJID"],52                "EXSEQ": row["EXSEQ"],53                "EXTRT": row["EXTRT"],54                "EXSTDTC": row["EXSTDTC"],55                # No collected duration leaves EXDUR without a value.56                "EXDUR": duration_text(int(collected)) if collected else "",57            }58        )5960    with open(OUTPUT_PATH, "w", newline="", encoding="utf-8") as f:61        writer = csv.DictWriter(f, fieldnames=COLUMNS)62        writer.writeheader()63        writer.writerows(out_rows)646566if __name__ == "__main__":67    main()

1/* opensas reference solution for the yamaa benchmark sdtm-ex-infusion-duration.2   Reads the benchmark inputs and derives the requested output.3   Execute with the existing opensas runtime: opensas /app/output/result.sas. */45data ex_raw;6  length STUDYID USUBJID EXTRT EXSTDTC $1024;7  infile "/app/input/ex_raw.csv" dsd dlm="," firstobs=2 truncover lrecl=32767;8  input STUDYID : $char1024. USUBJID : $char1024. EXSEQ EXTRT : $char1024. EXSTDTC : $char1024. EXDURMIN;9run;1011/* EXDUR: the collected whole minutes as ISO 8601 duration text, a day the12   largest part and every part that is zero left out; zero minutes is PT0S. */13data result;14  set ex_raw;15  length DOMAIN $2 EXDUR $64;16  DOMAIN = 'EX';17  EXDUR = '';18  if not missing(EXDURMIN) then do;19    if EXDURMIN = 0 then EXDUR = 'PT0S';20    else do;21      days = floor(EXDURMIN / 1440);22      hours = floor((EXDURMIN - days * 1440) / 60);23      mins = EXDURMIN - days * 1440 - hours * 60;24      EXDUR = 'P';25      if days > 0 then EXDUR = cats(EXDUR, strip(put(days, 12.)), 'D');26      if hours > 0 or mins > 0 then do;27        EXDUR = cats(EXDUR, 'T');28        if hours > 0 then EXDUR = cats(EXDUR, strip(put(hours, 12.)), 'H');29        if mins > 0 then EXDUR = cats(EXDUR, strip(put(mins, 12.)), 'M');30      end;31    end;32  end;33run;3435proc sql;36  create table final as select DOMAIN, STUDYID, USUBJID, EXSEQ, EXTRT, EXSTDTC, EXDUR from result;37quit;38proc export data=final outfile="/app/output/ex.csv" dbms=csv replace; run;