PRE2DUP-R: Package for PRE2DUP-R method

utils::globalVariables(
  c(
    ".I",
    ".SD",
    "start_date_all",
    "end_date_all",
    "hosp_days_all",
    "hosp_days_exp",
    "col1",
    "col2",
    "col3",
    "coverage",
    "covr",
    "admission_date",
    "discharge_date",
    "i.admission",
    "i.discharge",
    "n_purchases",
    ".",
    "pid_hosp",
    "median_time",
    "mean_time",
    "prev_dur",
    "prev_ratio",
    "next_dur",
    "next_ratio",
    "con_prev",
    "con_next",
    "new_dur",
    "ratio_less",
    "max_purchases",
    "n_cases",
    "diff_median",
    "diff_mean",
    "packid_pre",
    "atc_pre",
    "pack_no",
    "atc_code",
    "ddd_pre",
    "bl_pack",
    "pid_pre",
    "date_pre",
    "ratio_pre",
    "atc_short",
    "ddd_low_pack",
    "ddd_usual_pack",
    "dur_min_pack",
    "dur_usual_pack",
    "dur_max_pack",
    "pid_atc_date",
    "min_ddd",
    "ddd_low_atc",
    "min_dur",
    "dur_min_atc",
    "max_dur",
    "dur_max_atc",
    "ddd_usual_atc",
    "n_vnr",
    "bl_init",
    "btw",
    "startp",
    "pid_lag",
    "atc_lag",
    "block",
    "block_i",
    "block_length",
    "sliding_average",
    "rsd",
    "erfl_ddd",
    "erfl",
    "erfl_pack_based",
    "erfl_method",
    "erfl_met",
    "purc_end",
    "next_purchase",
    "hosp_days",
    "hosp_days_any",
    "erfl_extended",
    "pos_stock",
    "sp_erfl",
    "sp_ddd",
    "sp_max",
    "sp_hosp_days",
    "sp_erfl_extended",
    "pre_ta",
    "pas_ta",
    "stock",
    "sp_btw",
    "period",
    "period_length",
    "valid",
    "n_users",
    "btw_next",
    "common_duration",
    "duration",
    "dup_n_purchases",
    "last_ends",
    "dup_last_purchase",
    "last_ends",
    "hosp_days_end",
    "last_dur_hosp",
    "dup_end",
    "prev_start",
    "dup_start",
    "prev_end",
    "combine_to_past",
    "dup_hosps",
    "dup_hospital_days",
    "dup_total_DDD",
    "dup_days",
    "dup_temporal_average_DDDs"






  )
)
# Messages for invalid or missing values in data checks
mess_invalid_missing <- "has invalid or missing values"
# messages for invalid values in data checks
mess_invalid <- "has invalid values"
# message for values in wrong order
mess_invalid_order <- "has values are in wrong order"
# Limit for missing DDD or package info
limit <- 90
# Question to drop ATC classes
atc_question <- "Do you want to exclude these ATC classes and continue process for the rest of the ATCs? (y/n): "