Create extract_discharge_summary.R