Skip to content

Instantly share code, notes, and snippets.

@zindel
Last active March 24, 2016 16:52
Show Gist options
  • Save zindel/2844fd189f83da1b0588 to your computer and use it in GitHub Desktop.
Save zindel/2844fd189f83da1b0588 to your computer and use it in GitHub Desktop.
/do(
$config_version := insert(study_version := {
study := $study,
note := $new_note
}),
$study_id := $study,
update(study[$study_id]{id(),
config_version := $config_version
}),
for($pg := /study[$study_id].active_version.participant_group.id(),
with(participant_group[$pg], insert(
participant_group := {
study_version := $config_version,
code := $code,
target_enrollment := $target_enrollment
}
))),
for($tp := /study[$study_id].active_version.time_period.id(),
with(time_period[$tp], insert(
time_period := {
study_version := $config_version,
code := $code,
title := $title
}
))),
for($rl := /study[$study_id].active_version.requirement_list.id(),
with(requirement_list[$rl]{
pg_code := participant_group.code,
tp_code := time_period.code,
}, do(
$rl_new := insert(requirement_list := {
study_version := $config_version,
time_period := [$config_version.$tp_code],
participant_group := [$config_version.$pg_code]
})
))),
{id := $study_id}
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment