> You are going to need a set returning function. It will have
> to look up the expected boosters, the expected time elapsed,
> and return them with their sequence numbers if they exists.
> There is no easy way to do it in a view that I can think of.
I am not convinced I'll need a SRF. I am not trying to
calculate something that isn't there yet. I am just trying to
join two views appropriately. I might have to employ some
variant of Celko's integer helper table but I'm not sure how
to proceed.
Karsten
> <<< Karsten Hilbert <Karsten.Hilbert@gmx.net> 9/23 1:56p >>>
> Hello all,
>
> yes, I know, "row number" isn't a concept that fits into the
> relational model and I will only be asking for something
> similar.
>
> explanation (actual views below)
> --------------------------------
>
> I have a view that holds the vaccinations scheduled for a
> patient (v_vaccs_scheduled4pat) depending on what vaccination
> regimes that patient is on. There are typically between 1 to 5
> vaccinations per disease (indication/regime) which is expressed
> in the vaccination sequence number. Some regimes also have
> booster shots scheduled. Those boosters are to be given
> regularly after a set interval. Those have the sequence number
> field set to NULL.
>
> There is a second view that lists all the vaccinations
> actually given to a patient per regime (v_pat_vacc4ind).
> This view has dates when the shot was given but no sequence
> number.
>
> I now want to create a view which correlates the two showing
> me which actual vaccination corresponds to which scheduled
> vaccination. This is what I cannot get my head wrapped around
> although it is probably fairly straightforward.
>
> The conceptual solution would be to order actual vaccinations
> by date per regime and number them (remember the "row number"
> in the subject line ?). One would then join on that with the
> sequence numbers from the scheduled vaccinations view and treat
> any actual vaccinations where "row number" > max(sequence
> number) as being boosters (medically this is correct, btw).
> Yes, there can and will be several boosters for some regimes.
>
> raw data
> --------
> full schema here:
> http://hherb.com/gnumed/schema/
>
> full schema defs in CVS here:
> http://savannah.gnu.org/cgi-bin/viewcvs/gnumed/gnumed/gnumed/server/sql/gmClinicalViews.sql
>
> relevant excerpt:
>
> --- ==========================================================
> --- vaccination stuff
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_vacc_regimes;
> \set ON_ERROR_STOP 1
>
> create view v_vacc_regimes as
> select
> vreg.id as pk_regime,
> vind.description as indication,
> _(vind.description) as l10n_indication,
> vreg.name as regime,
> coalesce(vreg.comment, '') as comment,
> vreg.fk_indication as pk_indication,
> vreg.fk_recommended_by as pk_recommended_by
> from
> vacc_regime vreg,
> vacc_indication vind
> where
> vreg.fk_indication = vind.id
> ;
>
> comment on view v_vacc_regimes is
> 'all vaccination schedules known to the system';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_vacc_defs4reg;
> \set ON_ERROR_STOP 1
>
> create view v_vacc_defs4reg as
> select
> vreg.id as pk_regime,
> vind.description as indication,
> _(vind.description) as l10n_indication,
> vreg.name as regime,
> coalesce(vreg.comment, '') as reg_comment,
> vdef.is_booster as is_booster,
> vdef.seq_no as vacc_seq_no,
> vdef.min_age_due as age_due_min,
> vdef.max_age_due as age_due_max,
> vdef.min_interval as min_interval,
> coalesce(vdef.comment, '') as vacc_comment,
> vind.id as pk_indication,
> vreg.fk_recommended_by as pk_recommended_by
> from
> vacc_regime vreg,
> vacc_indication vind,
> vacc_def vdef
> where
> vreg.id = vdef.fk_regime
> and
> vreg.fk_indication = vind.id
> order by
> indication,
> vacc_seq_no
> ;
>
> comment on view v_vacc_defs4reg is
> 'vaccination event definitions for all schedules known to the system';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_vacc_regs4pat;
> \set ON_ERROR_STOP 1
>
> create view v_vacc_regs4pat as
> select
> lp2vr.fk_patient as pk_patient,
> vvr.indication as indication,
> vvr.l10n_indication as l10n_indication,
> vvr.regime as regime,
> vvr.comment as comment,
> vvr.pk_regime as pk_regime,
> vvr.pk_indication as pk_indication,
> vvr.pk_recommended_by as pk_recommended_by
> from
> lnk_pat2vacc_reg lp2vr,
> v_vacc_regimes vvr
> where
> vvr.pk_regime = lp2vr.fk_regime
> ;
>
> comment on view v_vacc_regs4pat is
> 'selection of configured vaccination schedules a patient is actually on';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_vaccs_scheduled4pat;
> \set ON_ERROR_STOP 1
>
> create view v_vaccs_scheduled4pat as
> select
> vvr4p.pk_patient as pk_patient,
> vvr4p.indication as indication,
> vvr4p.l10n_indication as l10n_indication,
> vvr4p.regime as regime,
> vvr4p.comment as reg_comment,
> vvd4r.is_booster,
> vvd4r.vacc_seq_no,
> vvd4r.age_due_min,
> vvd4r.age_due_max,
> vvd4r.min_interval,
> vvd4r.vacc_comment as vacc_comment,
> vvr4p.pk_regime as pk_regime,
> vvr4p.pk_indication as pk_indication,
> vvr4p.pk_recommended_by as pk_recommended_by
> from
> v_vacc_regs4pat vvr4p,
> v_vacc_defs4reg vvd4r
> where
> vvd4r.pk_regime = vvr4p.pk_regime
> ;
>
> comment on view v_vaccs_scheduled4pat is
> 'vaccinations scheduled for a patient according
> to the vaccination schedules he/she is on';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_pat_vacc4ind;
> \set ON_ERROR_STOP 1
>
> create view v_pat_vacc4ind as
> select
> v.fk_patient as pk_patient,
> v.id as pk_vaccination,
> v.clin_when as date,
> vind.description as indication,
> _(vind.description) as l10n_indication,
> vcine.trade_name as vaccine,
> vcine.short_name as vaccine_short,
> v.batch_no as batch_no,
> v.site as site,
> coalesce(v.narrative, '') as narrative,
> vind.id as pk_indication,
> v.fk_provider as pk_provider,
> vcine.id as pk_vaccine,
> vpep.pk_health_issue as pk_health_issue,
> v.fk_episode as pk_episode,
> v.fk_encounter as pk_encounter
> from
> vaccination v,
> vaccine vcine,
> lnk_vaccine2inds lv2i,
> vacc_indication vind,
> v_pat_episodes vpep
> where
> vpep.pk_episode=v.fk_episode
> and
> v.fk_vaccine = vcine.id
> and
> lv2i.fk_vaccine = vcine.id
> and
> lv2i.fk_indication = vind.id
> ;
>
> comment on view v_pat_vacc4ind is
> 'vaccinations a patient has actually received for the various indications';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_pat_missing_vaccs;
> \set ON_ERROR_STOP 1
>
> create view v_pat_missing_vaccs as
> select
> vvs4p.pk_patient,
> vvs4p.indication,
> vvs4p.l10n_indication,
> vvs4p.regime,
> vvs4p.reg_comment,
> vvs4p.vacc_seq_no as seq_no,
> case when vvs4p.age_due_max is null
> then (now() + coalesce(vvs4p.min_interval, vvs4p.age_due_min))
> else ((select identity.dob from identity where identity.id=vvs4p.pk_patient) + vvs4p.age_due_max)
> end as latest_due,
> --- note that ...
> --- ... 1) time_left ...
> case when vvs4p.age_due_max is null
> then coalesce(vvs4p.min_interval, vvs4p.age_due_min)
> else (((select identity.dob from identity where identity.id=vvs4p.pk_patient) + vvs4p.age_due_max) - now())
> end as time_left,
> --- ... and 2) amount_overdue ...
> case when vvs4p.age_due_max is null
> then coalesce(vvs4p.min_interval, vvs4p.age_due_min)
> else (now() - ((select identity.dob from identity where identity.id=vvs4p.pk_patient) + vvs4p.age_due_max))
> end as amount_overdue,
> --- ... are just the inverse of each other
> vvs4p.age_due_min,
> vvs4p.age_due_max,
> vvs4p.min_interval,
> vvs4p.vacc_comment,
> vvs4p.pk_regime,
> vvs4p.pk_indication,
> vvs4p.pk_recommended_by
> from
> v_vaccs_scheduled4pat vvs4p
> where
> vvs4p.is_booster is false
> and
> vvs4p.vacc_seq_no > (
> select count(*)
> from v_pat_vacc4ind vpv4i
> where
> vpv4i.pk_patient = vvs4p.pk_patient
> and
> vpv4i.indication = vvs4p.indication
> )
> ;
>
> comment on view v_pat_missing_vaccs is
> 'vaccinations a patient has not been given yet according
> to the schedules a patient is on and the previously
> received vaccinations';
>
> --- -----------------------------------------------------
> \unset ON_ERROR_STOP
> drop view v_pat_missing_boosters;
> \set ON_ERROR_STOP 1
>
> --- FIXME: only list those that DO HAVE a previous vacc (max(date) is not null)
> create view v_pat_missing_boosters as
> select
> vvs4p.pk_patient,
> vvs4p.indication,
> vvs4p.l10n_indication,
> vvs4p.regime,
> vvs4p.reg_comment,
> vvs4p.vacc_seq_no as seq_no,
> coalesce(
> ((select max(vpv4i11.date)
> from v_pat_vacc4ind vpv4i11
> where
> vpv4i11.pk_patient = vvs4p.pk_patient
> and
> vpv4i11.indication = vvs4p.indication
> ) + vvs4p.min_interval),
> (now() - '1 day'::interval)
> ) as latest_due,
> coalesce(
> (now() - (
> (select max(vpv4i12.date)
> from v_pat_vacc4ind vpv4i12
> where
> vpv4i12.pk_patient = vvs4p.pk_patient
> and
> vpv4i12.indication = vvs4p.indication) + vvs4p.min_interval)
> ),
> '1 day'::interval
> ) as amount_overdue,
> vvs4p.age_due_min,
> vvs4p.age_due_max,
> vvs4p.min_interval,
> vvs4p.vacc_comment,
> vvs4p.pk_regime,
> vvs4p.pk_indication,
> vvs4p.pk_recommended_by
> from
> v_vaccs_scheduled4pat vvs4p
> where
> vvs4p.is_booster is true
> and
> vvs4p.min_interval < age (
> (select max(vpv4i13.date)
> from v_pat_vacc4ind vpv4i13
> where
> vpv4i13.pk_patient = vvs4p.pk_patient
> and
> vpv4i13.indication = vvs4p.indication
> ))
> ;
>
> comment on view v_pat_missing_boosters is
> 'boosters a patient has not been given yet according
> to the schedules a patient is on and the previously
> received vaccinations';
>
>
>
>
> Thanks,
>
> Karsten Hilbert, MD, PhD
> GnuMed i18n coordinator
> http://www.gnumed.org
> --
> GPG key ID E4071346 @ wwwkeys.pgp.net
> E167 67FD A291 2BEA 73BD 4537 78B9 A9F9 E407 1346
>
> ---------------------------(end of broadcast)---------------------------
> TIP 8: explain analyze is your friend
>
>
>
> ---------------------------(end of broadcast)---------------------------
> TIP 8: explain analyze is your friend
--
GPG key ID E4071346 @ wwwkeys.pgp.net
E167 67FD A291 2BEA 73BD 4537 78B9 A9F9 E407 1346
