independent_sector_denominator: Inpatient modified bed-days from Independent Sector Providers

In PublicHealthEngland/hcaidcs: R functions for the mandatory surveillance of bacteraemia and C. difficile infection

Inpatient modified bed-days from Independent Sector Providers

Description

This function calculates inpatient modified bed-days as used in Public Health England's Independent Sector reports

Usage

independent_sector_denominator(
  data,
  bd_start_dt,
  bd_end_dt,
  admitted_dt,
  discharge_dt
)

Arguments

data	A data frame
bd_start_dt	A date vector. The first day of the period of interest
bd_end_dt	A date vector. The last day of the period of interest
admitted_dt	A date vector. Date of patient admission
discharge_dt	A date vector. Date patient was discharged

Value

A dataframe containing the modified bed-days, number of days admitted and discharge for the period of interest

Examples

library(lubridate)
library(dplyr)

data <- data.frame(bd_start_dt = dmy("01/04/2017"),
                    bd_end_dt = dmy("31/03/2018"),
                    admitted_dt = dmy("17/03/2017"),
                    discharge_dt = dmy("01/04/2017"))

cbind(data, independent_sector_denominator(data, bd_start_dt, bd_end_dt, admitted_dt, discharge_dt))

data <- data.frame(
 admission_dt = c("17/03/2017","01/04/2017","01/04/2017","17/03/2017","01/04/2017","31/03/2018","23/04/2018","01/03/2018"),
 discharge_dt = c("02/04/2017","01/04/2017","03/04/2017","01/04/2018","23/04/2018","23/04/2018","23/04/2018","19/06/2018")
)

data$admission_dt <- dmy(data$admission_dt)
data$discharge_dt <- dmy(data$discharge_dt)
data$start_date <- dmy("01/04/2017")
data$end_date <- dmy("31/03/2018")

modified_bds <- independent_sector_denominator(data, bd_start_dt = start_date,
                                          bd_end_dt = end_date,
                                          admitted_dt = admission_dt,
                                          discharge_dt = discharge_dt)
cbind(data, modified_bds)

PublicHealthEngland/hcaidcs documentation built on Jan. 19, 2024, 8:38 a.m.