configure.action

$$study := collection(study),

$study := oneOf(
    pick($$study, ...),
    add($$study, {
        code := field('code'),
        title := field('text'),
        lab := field(collection(lab)),
        study_version := [{
            version := 1,
            note := 'Initial Version',
        }]
    }),
    import($$study, ...)
),

oneOf(
    view($study, ...),

    if(
        $study.active_version => view($study.active_version, ...),
    ),

    if(
        $study.config_version => (
            view($study.config_version, ...),

            $$requirement_list := $study.config_version.requirement_list,
            $$group := $study.config_version.participant_group,
            $$time_period := $study.config_version.time_period,

            oneOf(
                (
                    $requirement_list := oneOf(
                        pick($$requirement_list, ...),
                        add($$requirement_list, ...),
                    ),
                    oneOf(
                        (
                            $$requirement := pick($requirement_list.requirement),
                            ...
                        ),
                        replace($requirement_list, ...),
                        drop($requirement_list, ...)
                    )

                ),
                (
                    $time_period := oneOf(
                        pick($$time_period, ...),
                        add($$time_period, ...),
                    ),
                    view($time_period),
                    edit($time_period)
                )
            )
        ),

        otherwise => edit($study, ...) // start configuring version
    ),

    if(
        !$study.study_version.study_enrollment => drop($study)
    ),

    if(
        !$study.config_version => import_study_version($study)
    ),

    (
        $$study_version := $study.study_version,
        $study_version := pick($$study_version),
        view($study_version)
    )
)

pickStudy($individual) {
$$study := collection(study, individual=$individual),
pick($$study)
}