R/Extract_procedure_admission.R

In belayb/JigsawEHR: Analysis pipline for JIGSAW project (JigsawEHR)

#' Make a procedure table at admission
#'
#' @param data a spark data frame
#' @param diagnosis a character (list of character vector) specifying the type of procedure(s) of interest
#'
#' @return
#' @export
#'
#' @examples
Extract_procedure_admission <- function(data, procedure){

}