episode_of_care {icdcomorbid}R Documentation

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
)

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.

Value

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

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")


[Package icdcomorbid version 1.0.0 Index]