icdcomorbid (version 1.0.0)

episode_of_care: Identify Episodes of Care

Description

This function identifies episodes of care for patients based on their visit and discharge dates from two different data sources (DAD and NACRS).

Usage

episode_of_care(
  dad_df,
  nacrs_df,
  patient_id_col,
  dad_visit_date_col,
  dad_exit_date_col,
  nacrs_visit_date_col,
  nacrs_exit_date_col
)

Value

A DataFrame with episodes of care identified and a unique record ID for each row.

Arguments

dad_df

DataFrame containing DAD data.

nacrs_df

DataFrame containing NACRS data.

patient_id_col

String representing the column name for patient ID.

dad_visit_date_col

String representing the column name for visit date in DAD data.

dad_exit_date_col

String representing the column name for exit date in DAD data.

nacrs_visit_date_col

String representing the column name for visit date in NACRS data.

nacrs_exit_date_col

String representing the column name for exit date in NACRS data.

Examples

# Sample DAD data
dad_df <- data.frame(
  patient_id = c("A001", "A001", "A002", "A002", "A003"),
  admit_dt = c("01Dec2023:10:00:00", "03Jan2024:12:00:00",
  "05Jan2024:09:00:00", "07Jan2024:14:00:00", "12Jan2024:12:00:00"),
  discharge_dt = c("02Dec2023:10:00:00", "04Jan2024:10:00:00",
  "06Jan2024:10:00:00", "08Jan2024:10:00:00", "15Jan2024:08:00:00")
)

# Sample NACRS data
nacrs_df <- data.frame(
  patient_id = c("A001", "A002", "A003", "A003", "A004"),
  visit_dt = c("03Jan2024:09:00:00", "07Feb2024:15:00:00",
  "10Jan2024:09:00:00", "11Jan2024:10:00:00", "12Jan2024:11:00:00"),
  disp_dt = c("03Jan2024:11:00:00", "07Feb2024:17:00:00",
  "10Jan2024:10:00:00", "12Jan2024:12:00:00", "13Jan2024:13:00:00")
)

episode_of_care(dad_df, nacrs_df, "patient_id", "admit_dt", "discharge_dt", "visit_dt", "disp_dt")