R/nis_exc_pr.r

In jjinho/rnis: R Functions for the Nationwide Inpatient Sample

#' NIS Exclude by Procedure Codes
#'
#' Returns rows from NIS Core that do not have the procedure codes
#' @param pr_codes List of ICD9 procedure codes given as strings
#' @keywords nis
#' @export
#' @examples
#' nis_exc_pr(df, pr_codes)
nis_exc_pr <- function(df, pr_codes) {
  dplyr::filter(df, !PR1  %in% pr_codes & 
										!PR2  %in% pr_codes & 
										!PR3  %in% pr_codes & 
										!PR4  %in% pr_codes & 
										!PR5  %in% pr_codes & 
										!PR6  %in% pr_codes & 
										!PR7  %in% pr_codes & 
										!PR8  %in% pr_codes & 
										!PR9  %in% pr_codes & 
										!PR10 %in% pr_codes & 
										!PR11 %in% pr_codes & 
										!PR12 %in% pr_codes & 
										!PR13 %in% pr_codes & 
										!PR14 %in% pr_codes & 
										!PR15 %in% pr_codes)
}