PHOSPCOVID19FU_R_2021-06-30_1749.r

# REDCap label file
## Updated by EMH. 

## Hmisc functions replaced with finalfit. 
## All labels cut and pasted to NP++
## Convert semicolons to commas
## Find replace to end up with semicolon delimited file. 
## Pasted to excel, but could bring in direct. 
# library(readxl)
# library(finalfit)
# phosp_var_label = read_xlsx("phosp_labels.xlsx")
# # Tools -> Global options -> Code -> Display -> max limit
# paste0(phosp_var_label$var," = ff_label(", phosp_var_label$var, ", '", phosp_var_label$label, "')") %>% 
#    cat(sep = "\n") %>% 
# capture.output(file = "tmp.txt")

# Remove all .factor with find replace
# Fixes
# Make capital in Full-time and Part-time lower case: levels(data$social_status_before)

library(finalfit)

#Setting Units


#Setting Factors(will create new variable for factors)
data$redcap_event_name = factor(data$redcap_event_name,levels=c("hospital_discharge_arm_1","6_weeks_arm_1","3_months_1st_resea_arm_1","add_planned_clinic_arm_1","12_months_2nd_rese_arm_1","unscheduled_arm_1"))
data$redcap_repeat_instrument = factor(data$redcap_repeat_instrument,levels=c("registration_and_informed_consent","split_tier_recruitment_informed_consent_2","repeatable_medications_log","repeatable_sarscov2_swab_pcr_test_result","repeatable_pulmonary_functional_tests","repeatable_walk_test_6_min_iswt_15_level","repeatable_laboratory_results_collection_log_routi","repeatable_laboratory_results_collection_log_urine","repeatable_laboratory_results_collection_log_immun","repeatable_laboratory_results_collection_log_addit","crf4a_clinical_data_section","crf4b_research_data_section","repeatable_eq5d5l","repeatable_general_anxiety_disorder_7_questionnair","repeatable_patient_health_questionnaire9_phq9","repeatable_mrc_dyspnoea_scale","repeatable_sarcf_questionnaire","repeatable_general_practice_physical_activity_ques","repeatable_dyspnoea12","repeatable_facit_fatigue_scale_v4","repeatable_ptsd_checklist_for_dsm5_pcl5","repeatable_brief_pain_inventory_short_form","repeatable_nottingham_extended_adl_scale","repeatable_montreal_cognitive_assessment_moca","repeatable_rockwood_clinical_frailty_scale","repeatable_tier_2_biological_research_samples_chec","repeatable_tier_2_core_sample_notification_form_bl","repeatable_symptoms_assessment","crf_emergency_visit","adverse_events_log"))
data$redcap_data_access_group = factor(data$redcap_data_access_group,levels=c("addenbrookes_hospi","aintree_university","aneurin_bevan___7a","barnet_hospital__r","barnsley_hospital","barts_health_nhs_t","belfast_city_hospi","bradford_royal_inf","bronglais_general","castle_hill_hospit","chesterfield_royal","churchill_hospital","cwm_taf_morgannwg","dumfries__galloway","ealing_hospital__r","glangwili_hospital","glasgow_royal_infi","glenfield_hospital","great_western_hosp","guys_hospital_and","gwynedd_hospital_","hammersmith_hospit","harefield_hospital","harrogate__distric","hillingdon_hospita","kettering_general","kings_college_hosp","kings_mill_hospita","lewisham_and_green","macclesfield_hospi","manchester_royal_i","morristonsingleton","nhs_lanarkshire__s","ninewells_hospital","north_middlesex_ho","northwick_park_hos","nottingham_city_ho","prince_philip_hosp","queen_elizabeth_ho","queen_elizabeth_hob","queen_elizabeth_th","raigmore_hospital","royal_albert_edwar","royal_brompton_hos","royal_free_hospita","royal_hallamshire","royal_infirmary_of","royal_papworth_hos","royal_victoria_inf","salford_royal_hosp","salisbury_district","somerset_nhs_found","southampton_genera","southmead_hospital","st_georges_hospita","st_marys_hospital","st_jamess_universi","the_rotherham_nhs","the_whittington_ho","the_william_harvey","united_lincolnshir","university_college","university_hospita","withybush_general","wrexham_maelor_hos","wythenshawe_hospit","yeovil_hospital__r","york_teaching_hosp","ysbyty_glan_clwyd"))
data$tier_allocation = factor(data$tier_allocation,levels=c("1","2","3"))
# data$econsent_site = factor(data$econsent_site,levels=c("RGT01","REM21","7A6","RAL26","R1H","ZT001","RAE01","7A2AJ","RWA16","RTH02","SY9","R1K04","SV9","7A2AA","G107H","RWEAE","RJ1","7A1AU","RYJ03","RT301","RRK97","RAS01","RJZ01","R0A02","7A3","ST9","RAPNM","R1K01","RX1CC","7A2AL","RTHH6","G405H","SH9","C418H","RT302","RAL01","RHQHH","S314H","REMRQ","RGM22","RTD02","RM3","RHM01","RVJ01","RJ701","RYJ01","RR813","RKEQ4","RRV","L302H","7A4C1","L106H","L308H","7A2BL","7A1A4","R0A07","7A1A1"))
# data$econsent_tier_invite = factor(data$econsent_tier_invite,levels=c("1","2"))
data$phosp_id_complete = factor(data$phosp_id_complete,levels=c("0","1","2"))
data$econ_q1_resp_t1 = factor(data$econ_q1_resp_t1,levels=c("1"))
data$econ_q2_resp_t1 = factor(data$econ_q2_resp_t1,levels=c("1"))
data$econ_q3_resp_t1 = factor(data$econ_q3_resp_t1,levels=c("1"))
data$econ_q4_resp_t1 = factor(data$econ_q4_resp_t1,levels=c("1"))
data$econ_q5_resp_t1 = factor(data$econ_q5_resp_t1,levels=c("1","0"))
data$econ_q6_resp_t1 = factor(data$econ_q6_resp_t1,levels=c("1","0"))
data$econ_q7_resp_t1 = factor(data$econ_q7_resp_t1,levels=c("1","0"))
data$econ_q7_pt2_resp_t1 = factor(data$econ_q7_pt2_resp_t1,levels=c("1","0"))
data$econ_q8_resp_t1 = factor(data$econ_q8_resp_t1,levels=c("1","0"))
data$econ_q9_resp_t1 = factor(data$econ_q9_resp_t1,levels=c("1"))
data$econ_q10_resp_t1 = factor(data$econ_q10_resp_t1,levels=c("1"))
data$econ_q11_resp_t1 = factor(data$econ_q11_resp_t1,levels=c("1"))
data$econ_q12_resp_t1 = factor(data$econ_q12_resp_t1,levels=c("1"))
data$econ_q13_resp_t1 = factor(data$econ_q13_resp_t1,levels=c("1"))
data$econ_q14_resp_t1 = factor(data$econ_q14_resp_t1,levels=c("1"))
data$econ_q15_resp_t1 = factor(data$econ_q15_resp_t1,levels=c("1"))
data$econ_q16_resp_t1 = factor(data$econ_q16_resp_t1,levels=c("1"))
data$econ_q17_resp_t1 = factor(data$econ_q17_resp_t1,levels=c("1"))
data$econ_verify_resp_t1 = factor(data$econ_verify_resp_t1,levels=c("1"))
data$econsent_tier_1_complete = factor(data$econsent_tier_1_complete,levels=c("0","1","2"))
data$econ_q1_resp = factor(data$econ_q1_resp,levels=c("1"))
data$econ_q2_resp = factor(data$econ_q2_resp,levels=c("1"))
data$econ_q3_resp = factor(data$econ_q3_resp,levels=c("1"))
data$econ_q4_resp = factor(data$econ_q4_resp,levels=c("1"))
data$econ_q5_resp = factor(data$econ_q5_resp,levels=c("1","0"))
data$econ_q6_resp = factor(data$econ_q6_resp,levels=c("1","0"))
data$econ_q7_resp = factor(data$econ_q7_resp,levels=c("1","0"))
data$econ_q8_resp = factor(data$econ_q8_resp,levels=c("1","0"))
data$econ_q8_pt2_resp = factor(data$econ_q8_pt2_resp,levels=c("1","0"))
data$econ_q9_resp = factor(data$econ_q9_resp,levels=c("1","0"))
data$econ_q10_resp = factor(data$econ_q10_resp,levels=c("1"))
data$econ_q11_resp = factor(data$econ_q11_resp,levels=c("1"))
data$econ_q12_resp = factor(data$econ_q12_resp,levels=c("1"))
data$econ_q13_resp = factor(data$econ_q13_resp,levels=c("1"))
data$econ_q14_resp = factor(data$econ_q14_resp,levels=c("1"))
data$econ_q15_resp = factor(data$econ_q15_resp,levels=c("1"))
data$econ_q16_resp = factor(data$econ_q16_resp,levels=c("1"))
data$econ_q17_resp = factor(data$econ_q17_resp,levels=c("1"))
data$econ_q18_resp = factor(data$econ_q18_resp,levels=c("1"))
data$econ_verify_resp = factor(data$econ_verify_resp,levels=c("1"))
data$econsent_complete = factor(data$econsent_complete,levels=c("0","1","2"))
data$consent_verify = factor(data$consent_verify,levels=c("1","0"))
data$consent_ver = factor(data$consent_ver,levels=c("1","3","6","9","16","13","20","2","4","5","10","17","14","21","7","11","18","15","22","23","24","25","8","12","19"))
data$consent_v2_q1 = factor(data$consent_v2_q1,levels=c("1","0"))
data$consent_v3_q1 = factor(data$consent_v3_q1,levels=c("1","0"))
data$consent_sa2_q1 = factor(data$consent_sa2_q1,levels=c("1","0"))
data$consent_sa3_q1 = factor(data$consent_sa3_q1,levels=c("1","0"))
data$consent_sa4_q1 = factor(data$consent_sa4_q1,levels=c("1","0"))
data$consent_nsa1_q1 = factor(data$consent_nsa1_q1,levels=c("1","0"))
data$consent_sa5_q1 = factor(data$consent_sa5_q1,levels=c("1","0"))
data$consent_sa5_t1_q1 = factor(data$consent_sa5_t1_q1,levels=c("1","0"))
data$consent_q2 = factor(data$consent_q2,levels=c("1","0"))
data$consent_q3 = factor(data$consent_q3,levels=c("1","0"))
data$consent_q4 = factor(data$consent_q4,levels=c("1","0"))
data$consent_q5 = factor(data$consent_q5,levels=c("1","0"))
data$consent_nsa1_q6 = factor(data$consent_nsa1_q6,levels=c("1","0"))
data$consent_q6 = factor(data$consent_q6,levels=c("1","0"))
data$consent_q7 = factor(data$consent_q7,levels=c("1","0"))
data$consent_q7_pt2 = factor(data$consent_q7_pt2,levels=c("1","0"))
data$consent_q8 = factor(data$consent_q8,levels=c("1","0"))
data$consent_q9 = factor(data$consent_q9,levels=c("1","0"))
data$consent_q10 = factor(data$consent_q10,levels=c("1","0"))
data$consent_q11 = factor(data$consent_q11,levels=c("1","0"))
data$consent_q12 = factor(data$consent_q12,levels=c("1","0"))
data$consent_q13 = factor(data$consent_q13,levels=c("1","0"))
data$consent_q14 = factor(data$consent_q14,levels=c("1","0"))
data$consent_q15 = factor(data$consent_q15,levels=c("1","0"))
data$consent_q16 = factor(data$consent_q16,levels=c("1","0"))
data$consent_q17 = factor(data$consent_q17,levels=c("1","0"))
data$consultee_q1 = factor(data$consultee_q1,levels=c("1","0"))
data$consultee_v2_q1 = factor(data$consultee_v2_q1,levels=c("1","0"))
data$consultee_v3_q1 = factor(data$consultee_v3_q1,levels=c("1","0"))
data$consultee_q2 = factor(data$consultee_q2,levels=c("1","0"))
data$consultee_q3 = factor(data$consultee_q3,levels=c("1","0"))
data$consultee_q4 = factor(data$consultee_q4,levels=c("1","0"))
data$consultee_q5 = factor(data$consultee_q5,levels=c("1","0"))
data$consultee_q6 = factor(data$consultee_q6,levels=c("1","0"))
data$consultee_q7 = factor(data$consultee_q7,levels=c("1","0"))
data$consultee_q8 = factor(data$consultee_q8,levels=c("1","0"))
data$consultee_q9 = factor(data$consultee_q9,levels=c("1","0"))
data$consultee_q10 = factor(data$consultee_q10,levels=c("1","0"))
data$consultee_q11 = factor(data$consultee_q11,levels=c("1","0"))
data$consultee_q12 = factor(data$consultee_q12,levels=c("1","0"))
data$consultee_q13 = factor(data$consultee_q13,levels=c("1","0"))
data$consultee_type = factor(data$consultee_type,levels=c("1","2"))
data$consultee_signed_verified = factor(data$consultee_signed_verified,levels=c("1","0"))
data$consent_signature_verified = factor(data$consent_signature_verified,levels=c("1","0"))
data$consent_countsign_verified = factor(data$consent_countsign_verified,levels=c("1","0"))
data$consent_witness_sign = factor(data$consent_witness_sign,levels=c("1","0"))
data$consent_data_verify = factor(data$consent_data_verify,levels=c("1","0"))
data$registration_and_informed_consent_complete = factor(data$registration_and_informed_consent_complete,levels=c("0","1","2"))
data$split_consent_verify___1 = factor(data$split_consent_verify___1,levels=c("0","1"))
data$split_consent_verify___2 = factor(data$split_consent_verify___2,levels=c("0","1"))
data$split_consent_verify___3 = factor(data$split_consent_verify___3,levels=c("0","1"))
data$split_consent_verify___4 = factor(data$split_consent_verify___4,levels=c("0","1"))
data$split_tier_ver = factor(data$split_tier_ver,levels=c("1","4","2","5","3","6"))
data$split_tier1_q1 = factor(data$split_tier1_q1,levels=c("1","0"))
data$split_tier1_sa5_q1 = factor(data$split_tier1_sa5_q1,levels=c("1","0"))
data$split_tier1_q2 = factor(data$split_tier1_q2,levels=c("1","0"))
data$split_tier1_q3 = factor(data$split_tier1_q3,levels=c("1","0"))
data$split_tier1_q4 = factor(data$split_tier1_q4,levels=c("1","0"))
data$split_tier1_q5 = factor(data$split_tier1_q5,levels=c("1","0"))
data$split_tier1_q6 = factor(data$split_tier1_q6,levels=c("1","0"))
data$split_tier1_q7 = factor(data$split_tier1_q7,levels=c("1","0"))
data$split_tier1_q7pt2 = factor(data$split_tier1_q7pt2,levels=c("1","0"))
data$split_tier1_q8 = factor(data$split_tier1_q8,levels=c("1","0"))
data$split_tier1_q9 = factor(data$split_tier1_q9,levels=c("1","0"))
data$split_tier1_q10 = factor(data$split_tier1_q10,levels=c("1","0"))
data$split_tier1_q11 = factor(data$split_tier1_q11,levels=c("1","0"))
data$split_tier1_q12 = factor(data$split_tier1_q12,levels=c("1","0"))
data$split_tier1_q13 = factor(data$split_tier1_q13,levels=c("1","0"))
data$split_tier1_q14 = factor(data$split_tier1_q14,levels=c("1","0"))
data$split_tier1_q15 = factor(data$split_tier1_q15,levels=c("1","0"))
data$split_tier1_q16 = factor(data$split_tier1_q16,levels=c("1","0"))
data$split_tier1_q17 = factor(data$split_tier1_q17,levels=c("1","0"))
data$split_tier1_q18 = factor(data$split_tier1_q18,levels=c("1","0"))
data$split_tier1_parti_sign = factor(data$split_tier1_parti_sign,levels=c("1","0"))
data$split_tier1_research_sign = factor(data$split_tier1_research_sign,levels=c("1","0"))
data$split_tier1_witness_sign = factor(data$split_tier1_witness_sign,levels=c("1","0"))
data$split_tier2_q1 = factor(data$split_tier2_q1,levels=c("1","0"))
data$split_tier2_sa5_q1 = factor(data$split_tier2_sa5_q1,levels=c("1","0"))
data$split_tier2_q2 = factor(data$split_tier2_q2,levels=c("1","0"))
data$split_tier2_q3 = factor(data$split_tier2_q3,levels=c("1","0"))
data$split_tier2_q4 = factor(data$split_tier2_q4,levels=c("1","0"))
data$split_tier2_parti_sign = factor(data$split_tier2_parti_sign,levels=c("1","0"))
data$split_tier2_research_sign = factor(data$split_tier2_research_sign,levels=c("1","0"))
data$split_tier2_witness_sign = factor(data$split_tier2_witness_sign,levels=c("1","0"))
data$split_consent_data_verify___1 = factor(data$split_consent_data_verify___1,levels=c("0","1"))
data$split_consent_data_verify___2 = factor(data$split_consent_data_verify___2,levels=c("0","1"))
data$split_consent_data_verify___3 = factor(data$split_consent_data_verify___3,levels=c("0","1"))
data$split_consent_data_verify___4 = factor(data$split_consent_data_verify___4,levels=c("0","1"))
data$split_tier_recruitment_informed_consent_2_complete = factor(data$split_tier_recruitment_informed_consent_2_complete,levels=c("0","1","2"))
data$inc_1 = factor(data$inc_1,levels=c("1","0"))
data$inc_2 = factor(data$inc_2,levels=c("1","0"))
data$inc_3 = factor(data$inc_3,levels=c("1","0"))
data$exc_1 = factor(data$exc_1,levels=c("1","0"))
data$exc_2 = factor(data$exc_2,levels=c("1","0"))
data$exc_3 = factor(data$exc_3,levels=c("1","0"))
data$exc_4 = factor(data$exc_4,levels=c("1","0"))
data$eligibility_checklist_complete = factor(data$eligibility_checklist_complete,levels=c("0","1","2"))
data$crf0_version = factor(data$crf0_version,levels=c("1","2","3"))
data$crf0_identifiable_patient_information_complete = factor(data$crf0_identifiable_patient_information_complete,levels=c("0","1","2"))
data$crf1a1_version = factor(data$crf1a1_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf1a_sex = factor(data$crf1a_sex,levels=c("M","F"))
data$crf1a_pregnant_yn = factor(data$crf1a_pregnant_yn,levels=c("1","0","NK"))
data$crf1a_post_partum_yn = factor(data$crf1a_post_partum_yn,levels=c("1","0","NK"))
data$crf1a_pregnancy_outcome = factor(data$crf1a_pregnancy_outcome,levels=c("1","2","NK"))
data$crf1a_delivery_date_yn = factor(data$crf1a_delivery_date_yn,levels=c("1","0"))
data$crf1a_infant_c19_tested_yn = factor(data$crf1a_infant_c19_tested_yn,levels=c("1","0","NK"))
data$crf1a_infant_c19_result_1 = factor(data$crf1a_infant_c19_result_1,levels=c("1","0","2"))
data$crf1a_date_first_sympt_yn = factor(data$crf1a_date_first_sympt_yn,levels=c("1","0"))
data$crf1a_date_adm_yn = factor(data$crf1a_date_adm_yn,levels=c("1","0"))
data$crf1a_re_adm_with_c19 = factor(data$crf1a_re_adm_with_c19,levels=c("1","0","NK"))
data$crf1a_xfer_in = factor(data$crf1a_xfer_in,levels=c("1","0","NK"))
data$crf1aprev_hosp_name_known = factor(data$crf1aprev_hosp_name_known,levels=c("1","0"))
data$crf1a_prev_adm_date_known = factor(data$crf1a_prev_adm_date_known,levels=c("1","0"))
data$crf1a_date_dis_yn = factor(data$crf1a_date_dis_yn,levels=c("1","0"))
data$crf1a_sev_dehydr = factor(data$crf1a_sev_dehydr,levels=c("1","0","NK"))
data$crf1a_stcap_refill_2s = factor(data$crf1a_stcap_refill_2s,levels=c("1","0","NK"))
data$crf1a_supp_o2 = factor(data$crf1a_supp_o2,levels=c("1","2","NK"))
data$crf1a_fever_history = factor(data$crf1a_fever_history,levels=c("1","0","2"))
data$crf1a_cough = factor(data$crf1a_cough,levels=c("1","0","2"))
data$crf1a_cough_sputum = factor(data$crf1a_cough_sputum,levels=c("1","0","2"))
data$crf1a_cough_blood = factor(data$crf1a_cough_blood,levels=c("1","0","2"))
data$crf1a_sore_throat = factor(data$crf1a_sore_throat,levels=c("1","0","2"))
data$crf1a_runny_nose = factor(data$crf1a_runny_nose,levels=c("1","0","2"))
data$crf1a_ear_pain = factor(data$crf1a_ear_pain,levels=c("1","0","2"))
data$crf1a_wheezing = factor(data$crf1a_wheezing,levels=c("1","0","2"))
data$crf1a_chest_pain = factor(data$crf1a_chest_pain,levels=c("1","0","2"))
data$crf1a_muscle_aches = factor(data$crf1a_muscle_aches,levels=c("1","0","2"))
data$crf1a_join_pain = factor(data$crf1a_join_pain,levels=c("1","0","2"))
data$crf1a_fatigue = factor(data$crf1a_fatigue,levels=c("1","0","2"))
data$crf1a_shortness_breath = factor(data$crf1a_shortness_breath,levels=c("1","0","2"))
data$crf1a_loss_taste = factor(data$crf1a_loss_taste,levels=c("1","0","2"))
data$crf1a_loss_smell = factor(data$crf1a_loss_smell,levels=c("1","0","2"))
data$crf1a_chest_indrawing = factor(data$crf1a_chest_indrawing,levels=c("1","0","2"))
data$crf1a_headache = factor(data$crf1a_headache,levels=c("1","0","2"))
data$crf1a_confusion = factor(data$crf1a_confusion,levels=c("1","0","2"))
data$crf1a_seizures = factor(data$crf1a_seizures,levels=c("1","0","2"))
data$crf1a_pain = factor(data$crf1a_pain,levels=c("1","0","2"))
data$crf1a_nausea = factor(data$crf1a_nausea,levels=c("1","0","2"))
data$crf1a_diarrhoea = factor(data$crf1a_diarrhoea,levels=c("1","0","2"))
data$crf1a_conjunctivitis = factor(data$crf1a_conjunctivitis,levels=c("1","0","2"))
data$crf1a_skin_rash = factor(data$crf1a_skin_rash,levels=c("1","0","2"))
data$crf1a_skin_ulcers = factor(data$crf1a_skin_ulcers,levels=c("1","0","2"))
data$crf1a_lymphadenopathy = factor(data$crf1a_lymphadenopathy,levels=c("1","0","2"))
data$crf1a_bleeding = factor(data$crf1a_bleeding,levels=c("1","0","2"))
data$crf1a_bleeding_site_known = factor(data$crf1a_bleeding_site_known,levels=c("1","0"))
data$crf1a_immunosuppressant = factor(data$crf1a_immunosuppressant,levels=c("1","0","2"))
data$crf1a_anti_infectives = factor(data$crf1a_anti_infectives,levels=c("1","0","2"))
data$crf1a_acei = factor(data$crf1a_acei,levels=c("1","0","2"))
data$crf1a_abbs = factor(data$crf1a_abbs,levels=c("1","0","2"))
data$crf1a_nsaid = factor(data$crf1a_nsaid,levels=c("1","0","2"))
data$crf1a_con_meds_comp_yn = factor(data$crf1a_con_meds_comp_yn,levels=c("1","0"))
data$crf1a_baseline_clinical_data_part_1_q1_q8_complete = factor(data$crf1a_baseline_clinical_data_part_1_q1_q8_complete,levels=c("0","1","2"))
data$crf1a2_version = factor(data$crf1a2_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf1a_com_card_mi = factor(data$crf1a_com_card_mi,levels=c("1","0"))
data$crf1a_com_card_ihd = factor(data$crf1a_com_card_ihd,levels=c("1","0"))
data$crf1a_com_card_af = factor(data$crf1a_com_card_af,levels=c("1","0"))
data$crf1a_com_card_ht = factor(data$crf1a_com_card_ht,levels=c("1","0"))
data$crf1a_com_card_chf = factor(data$crf1a_com_card_chf,levels=c("1","0"))
data$crf1a_com_card_chd = factor(data$crf1a_com_card_chd,levels=c("1","0"))
data$crf1a_com_card_vhd = factor(data$crf1a_com_card_vhd,levels=c("1","0"))
data$crf1a_com_card_pid = factor(data$crf1a_com_card_pid,levels=c("1","0"))
data$crf1a_com_card_pvd = factor(data$crf1a_com_card_pvd,levels=c("1","0"))
data$crf1a_com_card_hcd = factor(data$crf1a_com_card_hcd,levels=c("1","0"))
data$crf1a_com_card_catia = factor(data$crf1a_com_card_catia,levels=c("1","2","0"))
data$crf1a_com_card_other_yn = factor(data$crf1a_com_card_other_yn,levels=c("1","0"))
data$crf1a_com_neupsy_dem = factor(data$crf1a_com_neupsy_dem,levels=c("1","0"))
data$crf1a_com_neupsy_other_yn = factor(data$crf1a_com_neupsy_other_yn,levels=c("1","0"))
data$crf1a_com_neupsy_da = factor(data$crf1a_com_neupsy_da,levels=c("1","0"))
data$crf1a_com_neupsy_chron = factor(data$crf1a_com_neupsy_chron,levels=c("1","0"))
data$crf1a_com_neupsy_pam = factor(data$crf1a_com_neupsy_pam,levels=c("1","0"))
data$crf1a_com_neupsy_ptm = factor(data$crf1a_com_neupsy_ptm,levels=c("1","0"))
data$crf1a_com_res_copd = factor(data$crf1a_com_res_copd,levels=c("1","0"))
data$crf1a_com_res_ast = factor(data$crf1a_com_res_ast,levels=c("1","0"))
data$crf1a_com_res_ild_yn = factor(data$crf1a_com_res_ild_yn,levels=c("1","0"))
data$crf1a_com_res_bron = factor(data$crf1a_com_res_bron,levels=c("1","0"))
data$crf1a_com_res_osa = factor(data$crf1a_com_res_osa,levels=c("1","0"))
data$crf1a_com_res_ohs = factor(data$crf1a_com_res_ohs,levels=c("1","0"))
data$crf1a_com_res_pe = factor(data$crf1a_com_res_pe,levels=c("1","0"))
data$crf1a_com_res_other_yn = factor(data$crf1a_com_res_other_yn,levels=c("1","0"))
data$crf1a_com_rheu_ctd = factor(data$crf1a_com_rheu_ctd,levels=c("1","0"))
data$crf1a_com_rheu_ra = factor(data$crf1a_com_rheu_ra,levels=c("1","0"))
data$crf1a_com_rheu_ost = factor(data$crf1a_com_rheu_ost,levels=c("1","0"))
data$crf1a_com_rheu_other_yn = factor(data$crf1a_com_rheu_other_yn,levels=c("1","0"))
data$crf1a_com_gast_pud = factor(data$crf1a_com_gast_pud,levels=c("1","0"))
data$crf1a_com_gast_ld = factor(data$crf1a_com_gast_ld,levels=c("1","2","0"))
data$crf1a_com_gast_gord = factor(data$crf1a_com_gast_gord,levels=c("1","0"))
data$crf1a_com_gast_ibd = factor(data$crf1a_com_gast_ibd,levels=c("1","0"))
data$crf1a_com_gast_ibs = factor(data$crf1a_com_gast_ibs,levels=c("1","0"))
data$crf1a_com_gast_other_yn = factor(data$crf1a_com_gast_other_yn,levels=c("1","0"))
data$crf1a_com_mer_diab = factor(data$crf1a_com_mer_diab,levels=c("1","2","0"))
data$crf1a_com_mer_diab_com = factor(data$crf1a_com_mer_diab_com,levels=c("1","2"))
data$crf1a_com_mer_hypot = factor(data$crf1a_com_mer_hypot,levels=c("1","0"))
data$crf1a_com_mer_hypert = factor(data$crf1a_com_mer_hypert,levels=c("1","0"))
data$crf1a_com_mer_ckd_yn = factor(data$crf1a_com_mer_ckd_yn,levels=c("1","0"))
data$crf1a_com_mer_other_yn = factor(data$crf1a_com_mer_other_yn,levels=c("1","0"))
data$crf1a_com_mer_ckd_stage = factor(data$crf1a_com_mer_ckd_stage,levels=c("1","2","3","4","5"))
data$crf1a_com_mh_stm = factor(data$crf1a_com_mh_stm,levels=c("1","2","0"))
data$crf1a_com_mh_leuk_yn = factor(data$crf1a_com_mh_leuk_yn,levels=c("1","0"))
data$crf1a_com_mh_lymp_yn = factor(data$crf1a_com_mh_lymp_yn,levels=c("1","0"))
data$crf1a_com_mh_other_yn = factor(data$crf1a_com_mh_other_yn,levels=c("1","0"))
data$crf1a_com_id_aids = factor(data$crf1a_com_id_aids,levels=c("1","0"))
data$crf1a_com_id_hiv = factor(data$crf1a_com_id_hiv,levels=c("1","0"))
data$crf1a_com_id_cvh = factor(data$crf1a_com_id_cvh,levels=c("0","1","2"))
data$crf1a_com_id_mt = factor(data$crf1a_com_id_mt,levels=c("0","1","2","3"))
data$crf1a_com_id_other_yn = factor(data$crf1a_com_id_other_yn,levels=c("1","0"))
data$crf1a_baseline_clinical_data_part_2_q9_complete = factor(data$crf1a_baseline_clinical_data_part_2_q9_complete,levels=c("0","1","2"))
data$crf1a3_version = factor(data$crf1a3_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf1a_o2_supp = factor(data$crf1a_o2_supp,levels=c("1","0","2"))
data$crf1a_o2_cpapv = factor(data$crf1a_o2_cpapv,levels=c("1","0","2"))
data$crf1a_o2_blniv = factor(data$crf1a_o2_blniv,levels=c("1","0","2"))
data$crf1a_o2_hfn = factor(data$crf1a_o2_hfn,levels=c("1","0","2"))
data$crf1a_o2_imv = factor(data$crf1a_o2_imv,levels=c("1","0","2"))
data$crf1a_o2_ecmo = factor(data$crf1a_o2_ecmo,levels=c("1","0","2"))
data$crf1a_treat_at = factor(data$crf1a_treat_at,levels=c("1","0","NK"))
data$crf1a_treat_ss = factor(data$crf1a_treat_ss,levels=c("1","0","NK"))
data$crf1a_treat_tdac = factor(data$crf1a_treat_tdac,levels=c("1","0","NK"))
data$crf1a_treat_proning = factor(data$crf1a_treat_proning,levels=c("1","0","NK"))
data$crf1a_treat_rrt = factor(data$crf1a_treat_rrt,levels=c("1","0","NK"))
data$crf1a_treat_tocil = factor(data$crf1a_treat_tocil,levels=c("1","0","NK"))
data$crf1a_treat_saril = factor(data$crf1a_treat_saril,levels=c("1","0","NK"))
data$crf1a_treat_remde = factor(data$crf1a_treat_remde,levels=c("1","0","NK"))
data$crf1a_add_diag_pemt = factor(data$crf1a_add_diag_pemt,levels=c("1","0","NK"))
data$crf1a_add_diag_cvvh = factor(data$crf1a_add_diag_cvvh,levels=c("1","0","NK"))
data$crf1a_add_diag_myoc = factor(data$crf1a_add_diag_myoc,levels=c("1","0","NK"))
data$crf1a_add_diag_cmp = factor(data$crf1a_add_diag_cmp,levels=c("1","0","NK"))
data$crf1a_add_diag = factor(data$crf1a_add_diag,levels=c("1","0","NK"))
data$crf1a_studies___1 = factor(data$crf1a_studies___1,levels=c("0","1"))
data$crf1a_studies___2 = factor(data$crf1a_studies___2,levels=c("0","1"))
data$crf1a_studies___22 = factor(data$crf1a_studies___22,levels=c("0","1"))
data$crf1a_studies___3 = factor(data$crf1a_studies___3,levels=c("0","1"))
data$crf1a_studies___4 = factor(data$crf1a_studies___4,levels=c("0","1"))
data$crf1a_studies___5 = factor(data$crf1a_studies___5,levels=c("0","1"))
data$crf1a_studies___6 = factor(data$crf1a_studies___6,levels=c("0","1"))
data$crf1a_studies___7 = factor(data$crf1a_studies___7,levels=c("0","1"))
data$crf1a_studies___8 = factor(data$crf1a_studies___8,levels=c("0","1"))
data$crf1a_studies___9 = factor(data$crf1a_studies___9,levels=c("0","1"))
data$crf1a_studies___10 = factor(data$crf1a_studies___10,levels=c("0","1"))
data$crf1a_studies___11 = factor(data$crf1a_studies___11,levels=c("0","1"))
data$crf1a_studies___12 = factor(data$crf1a_studies___12,levels=c("0","1"))
data$crf1a_studies___13 = factor(data$crf1a_studies___13,levels=c("0","1"))
data$crf1a_studies___14 = factor(data$crf1a_studies___14,levels=c("0","1"))
data$crf1a_studies___15 = factor(data$crf1a_studies___15,levels=c("0","1"))
data$crf1a_studies___16 = factor(data$crf1a_studies___16,levels=c("0","1"))
data$crf1a_studies___17 = factor(data$crf1a_studies___17,levels=c("0","1"))
data$crf1a_studies___18 = factor(data$crf1a_studies___18,levels=c("0","1"))
data$crf1a_studies___19 = factor(data$crf1a_studies___19,levels=c("0","1"))
data$crf1a_studies___20 = factor(data$crf1a_studies___20,levels=c("0","1"))
data$crf1a_studies___21 = factor(data$crf1a_studies___21,levels=c("0","1"))
data$crf1a_egfr_low = factor(data$crf1a_egfr_low,levels=c("1","2","3"))
data$crf1a_alt_high = factor(data$crf1a_alt_high,levels=c("1","NK"))
data$crf1a_alt_high_less_great = factor(data$crf1a_alt_high_less_great,levels=c("1","2"))
data$crf1a_bnp_done = factor(data$crf1a_bnp_done,levels=c("1","0","NK"))
data$crf1a_bnp_type = factor(data$crf1a_bnp_type,levels=c("1","2"))
data$crf1a_bnp_unit = factor(data$crf1a_bnp_unit,levels=c("1","2"))
data$crf1a_bnp_high_less_great = factor(data$crf1a_bnp_high_less_great,levels=c("1","2"))
data$crf1a_bnp_last = factor(data$crf1a_bnp_last,levels=c("1","2"))
data$crf1a_bnp_last_less_great = factor(data$crf1a_bnp_last_less_great,levels=c("1","2"))
data$crf1a_trop_done = factor(data$crf1a_trop_done,levels=c("1","0","NK"))
data$crf1a_trop_type = factor(data$crf1a_trop_type,levels=c("1","2","3","4"))
data$crf1a_trop_unit = factor(data$crf1a_trop_unit,levels=c("1","2"))
data$crf1a_trop_first_less_great = factor(data$crf1a_trop_first_less_great,levels=c("1","2"))
data$crf1a_trop_high = factor(data$crf1a_trop_high,levels=c("1","2"))
data$crf1a_trop_high_less_great = factor(data$crf1a_trop_high_less_great,levels=c("1","2"))
data$crf1a_haema_not_done___1 = factor(data$crf1a_haema_not_done___1,levels=c("0","1"))
data$crf1a_haema_not_done___2 = factor(data$crf1a_haema_not_done___2,levels=c("0","1"))
data$crf1a_haema_not_done___3 = factor(data$crf1a_haema_not_done___3,levels=c("0","1"))
data$crf1a_haema_not_done___4 = factor(data$crf1a_haema_not_done___4,levels=c("0","1"))
data$crf1a_haema_not_done___5 = factor(data$crf1a_haema_not_done___5,levels=c("0","1"))
data$crf1a_haema_not_done___6 = factor(data$crf1a_haema_not_done___6,levels=c("0","1"))
data$crf1a_haema_not_done___7 = factor(data$crf1a_haema_not_done___7,levels=c("0","1"))
data$crf1a_haema_not_done___8 = factor(data$crf1a_haema_not_done___8,levels=c("0","1"))
data$crf1a_haema_not_done___9 = factor(data$crf1a_haema_not_done___9,levels=c("0","1"))
data$crf1a_haema_not_done___10 = factor(data$crf1a_haema_not_done___10,levels=c("0","1"))
data$crf1a_haema_not_done___11 = factor(data$crf1a_haema_not_done___11,levels=c("0","1"))
data$crf1a_haemo_less_great = factor(data$crf1a_haemo_less_great,levels=c("1","2"))
data$crf1a_wbc_less_great = factor(data$crf1a_wbc_less_great,levels=c("1","2"))
data$crf1a_neutro_less_great = factor(data$crf1a_neutro_less_great,levels=c("1","2"))
data$crf1a_lympho_less_great = factor(data$crf1a_lympho_less_great,levels=c("1","2"))
data$crf1a_eos_less_great = factor(data$crf1a_eos_less_great,levels=c("1","2"))
data$crf1a_plt_less_great = factor(data$crf1a_plt_less_great,levels=c("1","2"))
data$crf1a_mcv_less_great = factor(data$crf1a_mcv_less_great,levels=c("1","2"))
data$crf1a_inr_less_great = factor(data$crf1a_inr_less_great,levels=c("1","2"))
data$crf1a_aptt_less_great = factor(data$crf1a_aptt_less_great,levels=c("1","2"))
data$crf1a_d_dimer_less_great = factor(data$crf1a_d_dimer_less_great,levels=c("1","2"))
data$crf1a_d_dimer_unit = factor(data$crf1a_d_dimer_unit,levels=c("1","2"))
data$crf1a_d_dimer_assay = factor(data$crf1a_d_dimer_assay,levels=c("1","2"))
data$crf1a_fib_less_great = factor(data$crf1a_fib_less_great,levels=c("1","2"))
data$crf1a_biochem_not_done___1 = factor(data$crf1a_biochem_not_done___1,levels=c("0","1"))
data$crf1a_biochem_not_done___2 = factor(data$crf1a_biochem_not_done___2,levels=c("0","1"))
data$crf1a_biochem_not_done___3 = factor(data$crf1a_biochem_not_done___3,levels=c("0","1"))
data$crf1a_biochem_not_done___4 = factor(data$crf1a_biochem_not_done___4,levels=c("0","1"))
data$crf1a_biochem_not_done___5 = factor(data$crf1a_biochem_not_done___5,levels=c("0","1"))
data$crf1a_biochem_not_done___6 = factor(data$crf1a_biochem_not_done___6,levels=c("0","1"))
data$crf1a_biochem_not_done___7 = factor(data$crf1a_biochem_not_done___7,levels=c("0","1"))
data$crf1a_biochem_not_done___8 = factor(data$crf1a_biochem_not_done___8,levels=c("0","1"))
data$crf1a_biochem_not_done___9 = factor(data$crf1a_biochem_not_done___9,levels=c("0","1"))
data$crf1a_biochem_not_done___10 = factor(data$crf1a_biochem_not_done___10,levels=c("0","1"))
data$crf1a_biochem_not_done___11 = factor(data$crf1a_biochem_not_done___11,levels=c("0","1"))
data$crf1a_biochem_not_done___12 = factor(data$crf1a_biochem_not_done___12,levels=c("0","1"))
data$crf1a_biochem_not_done___13 = factor(data$crf1a_biochem_not_done___13,levels=c("0","1"))
data$crf1a_biochem_not_done___14 = factor(data$crf1a_biochem_not_done___14,levels=c("0","1"))
data$crf1a_na_less_great = factor(data$crf1a_na_less_great,levels=c("1","2"))
data$crf1a_k_less_great = factor(data$crf1a_k_less_great,levels=c("1","2"))
data$crf1a_urea_less_great = factor(data$crf1a_urea_less_great,levels=c("1","2"))
data$crf1a_creat_less_great = factor(data$crf1a_creat_less_great,levels=c("1","2"))
data$crf1a_biochem_egfr_90 = factor(data$crf1a_biochem_egfr_90,levels=c("1","0"))
data$crf1a_alt_less_great = factor(data$crf1a_alt_less_great,levels=c("1","2"))
data$crf1a_alp_less_great = factor(data$crf1a_alp_less_great,levels=c("1","2"))
data$crf1a_bili_less_great = factor(data$crf1a_bili_less_great,levels=c("1","2"))
data$crf1a_crp_less_great = factor(data$crf1a_crp_less_great,levels=c("1","2"))
data$crf1a_ferr_less_great = factor(data$crf1a_ferr_less_great,levels=c("1","2"))
data$crf1a_mg_less_great = factor(data$crf1a_mg_less_great,levels=c("1","2"))
data$crf1a_ser_cor_less_great = factor(data$crf1a_ser_cor_less_great,levels=c("1","2"))
data$crf1a_procal_less_great = factor(data$crf1a_procal_less_great,levels=c("1","2"))
data$crf1a_inter6_less_great = factor(data$crf1a_inter6_less_great,levels=c("1","2"))
data$crf1a_aki_adm = factor(data$crf1a_aki_adm,levels=c("0","1","2","3"))
data$crf1a_high_aki_adm = factor(data$crf1a_high_aki_adm,levels=c("0","1","2","3"))
data$crf1a_isaric_enrol_yn = factor(data$crf1a_isaric_enrol_yn,levels=c("1","0"))
data$crf1a_baseline_clinical_data_part_3_q10_q15_complete = factor(data$crf1a_baseline_clinical_data_part_3_q10_q15_complete,levels=c("0","1","2"))
data$crf1b_version = factor(data$crf1b_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf1b_eth = factor(data$crf1b_eth,levels=c("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","NK"))
data$crf1b_edu = factor(data$crf1b_edu,levels=c("0","1","2","3","4","5","6","7"))
data$crf1b_income = factor(data$crf1b_income,levels=c("1","2","3","4","5","6"))
data$crf1b_disability_yn = factor(data$crf1b_disability_yn,levels=c("1","0","2"))
data$crf1b_living_arrangements = factor(data$crf1b_living_arrangements,levels=c("1","2","3","4","5","6","7","8"))
data$crf1b_gender = factor(data$crf1b_gender,levels=c("1","2","3","4","5","6"))
data$crf1b_gender_identity = factor(data$crf1b_gender_identity,levels=c("1","0","2"))
data$crf1b_english_lang1 = factor(data$crf1b_english_lang1,levels=c("1","0","2"))
data$crf1b_enrolled_in_study = factor(data$crf1b_enrolled_in_study,levels=c("1","2","3"))
data$crf1b_shielding = factor(data$crf1b_shielding,levels=c("1","2","3","4","NK"))
data$crf1b_occupation_known = factor(data$crf1b_occupation_known,levels=c("1","0"))
data$crf1b_healthcare_worker = factor(data$crf1b_healthcare_worker,levels=c("1","0","NK"))
data$crf1b_household___1 = factor(data$crf1b_household___1,levels=c("0","1"))
data$crf1b_household___2 = factor(data$crf1b_household___2,levels=c("0","1"))
data$crf1b_household___3 = factor(data$crf1b_household___3,levels=c("0","1"))
data$crf1b_household___4 = factor(data$crf1b_household___4,levels=c("0","1"))
data$crf1b_household___5 = factor(data$crf1b_household___5,levels=c("0","1"))
data$crf1b_household___6 = factor(data$crf1b_household___6,levels=c("0","1"))
data$crf1b_household___7 = factor(data$crf1b_household___7,levels=c("0","1"))
data$crf1b_household___8 = factor(data$crf1b_household___8,levels=c("0","1"))
data$crf1b_household___nk = factor(data$crf1b_household___nk,levels=c("0","1"))
data$crf1b_caring = factor(data$crf1b_caring,levels=c("0","1","2","3","4","5","6"))
data$crf1b_confirm_comorbids = factor(data$crf1b_confirm_comorbids,levels=c("1","0"))
data$crf1b_baseline_demographic_data_complete = factor(data$crf1b_baseline_demographic_data_complete,levels=c("0","1","2"))
data$crf2a_version = factor(data$crf2a_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf2a_consultation_method = factor(data$crf2a_consultation_method,levels=c("1","2"))
data$crf2a_not_completed = factor(data$crf2a_not_completed,levels=c("1","0"))
data$crf2a_reason_not_done = factor(data$crf2a_reason_not_done,levels=c("1","2","3","4","5"))
data$crf2a_sex = factor(data$crf2a_sex,levels=c("1","2"))
data$crf2a_pre_con_pulm = factor(data$crf2a_pre_con_pulm,levels=c("1","2"))
data$crf2a_pre_con_card = factor(data$crf2a_pre_con_card,levels=c("1","2"))
data$crf2a_pre_con_diab = factor(data$crf2a_pre_con_diab,levels=c("1","2"))
data$crf2a_pre_con_hypt = factor(data$crf2a_pre_con_hypt,levels=c("1","2"))
data$crf2a_pre_con_other = factor(data$crf2a_pre_con_other,levels=c("1","2"))
data$crf2a_consent = factor(data$crf2a_consent,levels=c("1","0"))
data$crf2a_sta_newmed = factor(data$crf2a_sta_newmed,levels=c("1","0"))
data$crf2a_sta_readm = factor(data$crf2a_sta_readm,levels=c("1","0"))
data$crf2a_sta_other = factor(data$crf2a_sta_other,levels=c("1","0"))
data$crf2a_recovered = factor(data$crf2a_recovered,levels=c("1","2","3"))
data$crf2a_eq5d5l_done = factor(data$crf2a_eq5d5l_done,levels=c("1","0"))
data$crf2a_gppaq_done = factor(data$crf2a_gppaq_done,levels=c("1","0"))
data$crf2a_sarcf_done = factor(data$crf2a_sarcf_done,levels=c("1","0"))
data$crf2a_mrc_done = factor(data$crf2a_mrc_done,levels=c("1","0"))
data$crf2a_rcfs_done = factor(data$crf2a_rcfs_done,levels=c("1","0"))
data$crf2a_health_problem_done = factor(data$crf2a_health_problem_done,levels=c("1","0"))
data$crf2a_mental_done = factor(data$crf2a_mental_done,levels=c("1","0"))
data$crf2a_nutrition_done = factor(data$crf2a_nutrition_done,levels=c("1","0"))
data$crf2a_new_problems = factor(data$crf2a_new_problems,levels=c("1","0"))
data$crf2a_checklist_ai = factor(data$crf2a_checklist_ai,levels=c("1","0"))
data$crf2a_checklist_aii = factor(data$crf2a_checklist_aii,levels=c("1","0"))
data$crf2a_checklist_aiii = factor(data$crf2a_checklist_aiii,levels=c("1","0"))
data$crf2a_checklist_aiv = factor(data$crf2a_checklist_aiv,levels=c("1","0"))
data$crf2a_checklist_av = factor(data$crf2a_checklist_av,levels=c("1","0"))
data$crf2a_checklist_avi = factor(data$crf2a_checklist_avi,levels=c("1","0"))
data$crf2a_checklist_avii1 = factor(data$crf2a_checklist_avii1,levels=c("1","0"))
data$crf2a_checklist_avii2 = factor(data$crf2a_checklist_avii2,levels=c("1","0"))
data$crf2a_checklist_avii3 = factor(data$crf2a_checklist_avii3,levels=c("1","0"))
data$crf2a_checklist_aviii = factor(data$crf2a_checklist_aviii,levels=c("1","0"))
data$crf2a_checklist_aix = factor(data$crf2a_checklist_aix,levels=c("1","0"))
data$crf2a_checklist_ax = factor(data$crf2a_checklist_ax,levels=c("1","0"))
data$crf2a_checklist_axi = factor(data$crf2a_checklist_axi,levels=c("1","0"))
data$crf2a_checklist_b = factor(data$crf2a_checklist_b,levels=c("1","0"))
data$crf2a_checklist_c = factor(data$crf2a_checklist_c,levels=c("1","0"))
data$crf2a_checklist_d = factor(data$crf2a_checklist_d,levels=c("1","0"))
data$crf2a_followup_telephone_triage_complete = factor(data$crf2a_followup_telephone_triage_complete,levels=c("0","1","2"))
data$crf2b_version = factor(data$crf2b_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf2b_post_dis_cxr_yn = factor(data$crf2b_post_dis_cxr_yn,levels=c("1","0"))
data$crf2b_post_dis_cxr_result = factor(data$crf2b_post_dis_cxr_result,levels=c("1","2","3","4"))
data$crf2b_ct_chest_or_ctpa_yn = factor(data$crf2b_ct_chest_or_ctpa_yn,levels=c("1","0"))
data$crf2b_outcome = factor(data$crf2b_outcome,levels=c("1","2"))
data$crf2b_further_inv___1 = factor(data$crf2b_further_inv___1,levels=c("0","1"))
data$crf2b_further_inv___2 = factor(data$crf2b_further_inv___2,levels=c("0","1"))
data$crf2b_further_inv___3 = factor(data$crf2b_further_inv___3,levels=c("0","1"))
data$crf2b_further_inv___4 = factor(data$crf2b_further_inv___4,levels=c("0","1"))
data$crf2b_followup_triage_review_complete = factor(data$crf2b_followup_triage_review_complete,levels=c("0","1","2"))
data$crf3a_version = factor(data$crf3a_version,levels=c("1","2","3","4","5","6","7","8","9"))
data$crf3a_visit = factor(data$crf3a_visit,levels=c("3_months_arm_1","12_months_arm_1"))
data$crf3a_rest_spo2_done = factor(data$crf3a_rest_spo2_done,levels=c("1","0"))
data$crf3a_rest_hr_done = factor(data$crf3a_rest_hr_done,levels=c("1","0"))
data$crf3a_rest_bp_done = factor(data$crf3a_rest_bp_done,levels=c("1","0"))
data$crf3a_rest_temp_done = factor(data$crf3a_rest_temp_done,levels=c("1","0"))
data$crf3a_rest_height_done = factor(data$crf3a_rest_height_done,levels=c("1","0"))
data$crf3a_rest_weight_done = factor(data$crf3a_rest_weight_done,levels=c("1","0"))
data$crf3a_base_cxr_done = factor(data$crf3a_base_cxr_done,levels=c("1","2"))
data$crf3a_base_ecg_done = factor(data$crf3a_base_ecg_done,levels=c("1","2"))
data$crf3a_base_cxr = factor(data$crf3a_base_cxr,levels=c("1","2","3","4","5"))
data$crf3a_ecg = factor(data$crf3a_ecg,levels=c("1","2","3","4","5"))
data$crf3a_outcome_fup = factor(data$crf3a_outcome_fup,levels=c("1","0"))
data$crf3a_outcome_ras = factor(data$crf3a_outcome_ras,levels=c("1","0"))
data$crf3a_outcome_rtc = factor(data$crf3a_outcome_rtc,levels=c("1","0"))
data$crf3a_outcome_rpc = factor(data$crf3a_outcome_rpc,levels=c("1","0"))
data$crf3a_outcome_rmhs = factor(data$crf3a_outcome_rmhs,levels=c("1","0"))
data$crf3a_outcome_rrh = factor(data$crf3a_outcome_rrh,levels=c("1","0"))
data$crf3a_outcome_rdt = factor(data$crf3a_outcome_rdt,levels=c("1","0"))
data$crf3a_outcome_rsss = factor(data$crf3a_outcome_rsss,levels=c("1","0"))
data$crf3a_outcome_dis = factor(data$crf3a_outcome_dis,levels=c("1","0"))
data$crf3a_tier = factor(data$crf3a_tier,levels=c("1","2"))
data$crf3a_blood_done = factor(data$crf3a_blood_done,levels=c("1","0"))
data$crf3a_blood_fbc = factor(data$crf3a_blood_fbc,levels=c("1","0"))
data$crf3a_blood_ue = factor(data$crf3a_blood_ue,levels=c("1","0"))
data$crf3a_blood_egfr = factor(data$crf3a_blood_egfr,levels=c("1","0"))
data$crf3a_blood_lfts = factor(data$crf3a_blood_lfts,levels=c("1","0"))
data$crf3a_blood_crp = factor(data$crf3a_blood_crp,levels=c("1","0"))
data$crf3a_blood_bp = factor(data$crf3a_blood_bp,levels=c("1","0"))
data$crf3a_blood_25oh = factor(data$crf3a_blood_25oh,levels=c("1","0"))
data$crf3a_blood_bnp = factor(data$crf3a_blood_bnp,levels=c("1","0"))
data$crf3a_blood_trop = factor(data$crf3a_blood_trop,levels=c("1","0"))
data$crf3a_blood_ddim = factor(data$crf3a_blood_ddim,levels=c("1","0"))
data$crf3a_blood_fib = factor(data$crf3a_blood_fib,levels=c("1","0"))
data$crf3a_blood_inr = factor(data$crf3a_blood_inr,levels=c("1","0"))
data$crf3a_blood_fer = factor(data$crf3a_blood_fer,levels=c("1","0"))
data$crf3a_blood_hba1c = factor(data$crf3a_blood_hba1c,levels=c("1","0"))
data$crf3a_blood_lp = factor(data$crf3a_blood_lp,levels=c("1","0"))
data$crf3a_blood_covid19 = factor(data$crf3a_blood_covid19,levels=c("1","0"))
data$crf3a_link_routine_blood = factor(data$crf3a_link_routine_blood,levels=c("1","0"))
data$crf3a_link_add_blood_sars = factor(data$crf3a_link_add_blood_sars,levels=c("1","0"))
data$crf3a_inv_resp___1 = factor(data$crf3a_inv_resp___1,levels=c("0","1"))
data$crf3a_inv_resp___2 = factor(data$crf3a_inv_resp___2,levels=c("0","1"))
data$crf3a_inv_resp___3 = factor(data$crf3a_inv_resp___3,levels=c("0","1"))
data$crf3a_inv_resp___4 = factor(data$crf3a_inv_resp___4,levels=c("0","1"))
data$crf3a_inv_resp___5 = factor(data$crf3a_inv_resp___5,levels=c("0","1"))
data$crf3a_inv_resp___6 = factor(data$crf3a_inv_resp___6,levels=c("0","1"))
data$crf3a_inv_resp___7 = factor(data$crf3a_inv_resp___7,levels=c("0","1"))
data$crf3a_inv_resp___8 = factor(data$crf3a_inv_resp___8,levels=c("0","1"))
data$crf3a_inv_resp___9 = factor(data$crf3a_inv_resp___9,levels=c("0","1"))
data$crf3a_inv_resp___10 = factor(data$crf3a_inv_resp___10,levels=c("0","1"))
data$crf3a_inv_resp___11 = factor(data$crf3a_inv_resp___11,levels=c("0","1"))
data$crf3a_inv_cardiac___1 = factor(data$crf3a_inv_cardiac___1,levels=c("0","1"))
data$crf3a_inv_cardiac___2 = factor(data$crf3a_inv_cardiac___2,levels=c("0","1"))
data$crf3a_inv_cardiac___3 = factor(data$crf3a_inv_cardiac___3,levels=c("0","1"))
data$crf3a_inv_cardiac___4 = factor(data$crf3a_inv_cardiac___4,levels=c("0","1"))
data$crf3a_inv_cardiac___5 = factor(data$crf3a_inv_cardiac___5,levels=c("0","1"))
data$crf3a_inv_cardiac___6 = factor(data$crf3a_inv_cardiac___6,levels=c("0","1"))
data$crf3a_inv_haema___1 = factor(data$crf3a_inv_haema___1,levels=c("0","1"))
data$crf3a_inv_haema___2 = factor(data$crf3a_inv_haema___2,levels=c("0","1"))
data$crf3a_inv_haema___3 = factor(data$crf3a_inv_haema___3,levels=c("0","1"))
data$crf3a_link_add_blood_haema = factor(data$crf3a_link_add_blood_haema,levels=c("1","0"))
data$crf3a_inv_renal___1 = factor(data$crf3a_inv_renal___1,levels=c("0","1"))
data$crf3a_inv_renal___2 = factor(data$crf3a_inv_renal___2,levels=c("0","1"))
data$crf3a_inv_renal___3 = factor(data$crf3a_inv_renal___3,levels=c("0","1"))
data$crf3a_inv_renal___4 = factor(data$crf3a_inv_renal___4,levels=c("0","1"))
data$crf3a_inv_renal___5 = factor(data$crf3a_inv_renal___5,levels=c("0","1"))
data$crf3a_inv_renal___6 = factor(data$crf3a_inv_renal___6,levels=c("0","1"))
data$crf3a_inv_renal___7 = factor(data$crf3a_inv_renal___7,levels=c("0","1"))
data$crf3a_link_blood_urine = factor(data$crf3a_link_blood_urine,levels=c("1","0"))
data$crf3a_inv_immu___1 = factor(data$crf3a_inv_immu___1,levels=c("0","1"))
data$crf3a_inv_immu___2 = factor(data$crf3a_inv_immu___2,levels=c("0","1"))
data$crf3a_inv_immu___3 = factor(data$crf3a_inv_immu___3,levels=c("0","1"))
data$crf3a_inv_immu___4 = factor(data$crf3a_inv_immu___4,levels=c("0","1"))
data$crf3a_link_blood_immun = factor(data$crf3a_link_blood_immun,levels=c("1","0"))
data$crf3a_inv_neuro___1 = factor(data$crf3a_inv_neuro___1,levels=c("0","1"))
data$crf3a_inv_neuro___2 = factor(data$crf3a_inv_neuro___2,levels=c("0","1"))
data$crf3a_inv_neuro___3 = factor(data$crf3a_inv_neuro___3,levels=c("0","1"))
data$crf3a_inv_neuro___4 = factor(data$crf3a_inv_neuro___4,levels=c("0","1"))
data$crf3a_inv_neuro___5 = factor(data$crf3a_inv_neuro___5,levels=c("0","1"))
data$crf3a_inv_neuro___6 = factor(data$crf3a_inv_neuro___6,levels=c("0","1"))
data$crf3a_quest___1 = factor(data$crf3a_quest___1,levels=c("0","1"))
data$crf3a_quest___2 = factor(data$crf3a_quest___2,levels=c("0","1"))
data$crf3a_quest___3 = factor(data$crf3a_quest___3,levels=c("0","1"))
data$crf3a_quest___4 = factor(data$crf3a_quest___4,levels=c("0","1"))
data$crf3a_quest___5 = factor(data$crf3a_quest___5,levels=c("0","1"))
data$crf3a_quest___6 = factor(data$crf3a_quest___6,levels=c("0","1"))
data$crf3a_quest___7 = factor(data$crf3a_quest___7,levels=c("0","1"))
data$crf3a_quest___8 = factor(data$crf3a_quest___8,levels=c("0","1"))
data$crf3a_quest___9 = factor(data$crf3a_quest___9,levels=c("0","1"))
data$crf3a_quest___10 = factor(data$crf3a_quest___10,levels=c("0","1"))
data$crf3a_quest___11 = factor(data$crf3a_quest___11,levels=c("0","1"))
data$crf3a_quest_mrc = factor(data$crf3a_quest_mrc,levels=c("1","0"))
data$crf3a_quest_eq5d5l = factor(data$crf3a_quest_eq5d5l,levels=c("1","0"))
data$crf3a_quest_gad7 = factor(data$crf3a_quest_gad7,levels=c("1","0"))
data$crf3a_quest_phq9 = factor(data$crf3a_quest_phq9,levels=c("1","0"))
data$crf3a_quest_sarcf = factor(data$crf3a_quest_sarcf,levels=c("1","0"))
data$crf3a_quest_gppaq = factor(data$crf3a_quest_gppaq,levels=c("1","0"))
data$crf3a_quest_dys12 = factor(data$crf3a_quest_dys12,levels=c("1","0"))
data$crf3a_quest_facit = factor(data$crf3a_quest_facit,levels=c("1","0"))
data$crf3a_quest_bpi = factor(data$crf3a_quest_bpi,levels=c("1","0"))
data$crf3a_quest_pcl5 = factor(data$crf3a_quest_pcl5,levels=c("1","0"))
data$crf3a_quest_neadl = factor(data$crf3a_quest_neadl,levels=c("1","0"))
data$crf3a_inv_quest___1 = factor(data$crf3a_inv_quest___1,levels=c("0","1"))
data$crf3a_inv_quest___2 = factor(data$crf3a_inv_quest___2,levels=c("0","1"))
data$crf3a_quest_moca = factor(data$crf3a_quest_moca,levels=c("1","0"))
data$crf3a_quest_rcfs = factor(data$crf3a_quest_rcfs,levels=c("1","0"))
data$crf3a_pft_done = factor(data$crf3a_pft_done,levels=c("1","0"))
data$crf3a_echo_right = factor(data$crf3a_echo_right,levels=c("1","2","3","4","5"))
data$crf3a_echo_left = factor(data$crf3a_echo_left,levels=c("1","2","3","4","5"))
data$crf3a_tape_done = factor(data$crf3a_tape_done,levels=c("1","0"))
data$crf3a_tape_finding___1 = factor(data$crf3a_tape_finding___1,levels=c("0","1"))
data$crf3a_tape_finding___2 = factor(data$crf3a_tape_finding___2,levels=c("0","1"))
data$crf3a_tape_finding___3 = factor(data$crf3a_tape_finding___3,levels=c("0","1"))
data$crf3a_tape_finding___4 = factor(data$crf3a_tape_finding___4,levels=c("0","1"))
data$crf3a_tape_finding___5 = factor(data$crf3a_tape_finding___5,levels=c("0","1"))
data$crf3a_tape_finding___6 = factor(data$crf3a_tape_finding___6,levels=c("0","1"))
data$crf3a_tape_finding___7 = factor(data$crf3a_tape_finding___7,levels=c("0","1"))
data$crf3a_6mwt_done = factor(data$crf3a_6mwt_done,levels=c("1","0"))
data$crf3a_clinical_data_section_complete = factor(data$crf3a_clinical_data_section_complete,levels=c("0","1","2"))
data$crf3b_version = factor(data$crf3b_version,levels=c("1","2","3","4","5","6","7","8","9"))
data$crf3b_ongoing_consent_done = factor(data$crf3b_ongoing_consent_done,levels=c("1","0"))
data$crf3b_visit = factor(data$crf3b_visit,levels=c("1","2"))
data$crf3b_rest_spo2_done = factor(data$crf3b_rest_spo2_done,levels=c("1","0"))
data$crf3b_rest_hr_done = factor(data$crf3b_rest_hr_done,levels=c("1","0"))
data$crf3b_rest_bp_done = factor(data$crf3b_rest_bp_done,levels=c("1","0"))
data$crf3b_rest_temp_done = factor(data$crf3b_rest_temp_done,levels=c("1","0"))
data$crf3b_rest_height_done = factor(data$crf3b_rest_height_done,levels=c("1","0"))
data$crf3b_rest_weight_done = factor(data$crf3b_rest_weight_done,levels=c("1","0"))
data$crf3b_base_ecg_done = factor(data$crf3b_base_ecg_done,levels=c("1","0"))
data$crf3b_ecg = factor(data$crf3b_ecg,levels=c("1","2","3","4","5"))
data$crf3b_hcare_ehv = factor(data$crf3b_hcare_ehv,levels=c("1","0"))
data$crf3b_hcare_pacr = factor(data$crf3b_hcare_pacr,levels=c("1","0"))
data$crf3b_hcare_cgp = factor(data$crf3b_hcare_cgp,levels=c("1","0"))
data$crf3b_hcare_med = factor(data$crf3b_hcare_med,levels=c("1","0"))
data$crf3b_crfev_done = factor(data$crf3b_crfev_done,levels=c("1","0"))
data$crf3b_crf4_done = factor(data$crf3b_crf4_done,levels=c("1","0"))
data$crf3b_medlog_done = factor(data$crf3b_medlog_done,levels=c("1","0"))
data$crf3b_eq5d_done = factor(data$crf3b_eq5d_done,levels=c("1","0"))
data$crf3b_mrc_done = factor(data$crf3b_mrc_done,levels=c("1","0"))
data$crf3b_social_history_done = factor(data$crf3b_social_history_done,levels=c("1","0"))
data$crf3b_new_prob = factor(data$crf3b_new_prob,levels=c("1","0"))
data$crf3b_spost_livewell = factor(data$crf3b_spost_livewell,levels=c("1","0","2"))
data$crf3b_spost_iapt = factor(data$crf3b_spost_iapt,levels=c("1","0","2"))
data$crf3b_spost_shyg = factor(data$crf3b_spost_shyg,levels=c("1","0","2"))
data$crf3b_spost_mental = factor(data$crf3b_spost_mental,levels=c("1","0","2"))
data$crf3b_spost_drinkfree = factor(data$crf3b_spost_drinkfree,levels=c("1","0","2"))
data$crf3b_spost_phyinac = factor(data$crf3b_spost_phyinac,levels=c("1","0","2"))
data$crf3b_spost_smkadv = factor(data$crf3b_spost_smkadv,levels=c("1","0","2"))
data$crf3b_spost_smkref = factor(data$crf3b_spost_smkref,levels=c("1","0","2"))
data$crf3b_spost_smkapp = factor(data$crf3b_spost_smkapp,levels=c("1","0","2"))
data$crf3b_spost_wmgmt = factor(data$crf3b_spost_wmgmt,levels=c("1","0","2"))
data$crf3b_spost_heat = factor(data$crf3b_spost_heat,levels=c("1","0","2"))
data$crf3b_inv_assess___1 = factor(data$crf3b_inv_assess___1,levels=c("0","1"))
data$crf3b_inv_assess___2 = factor(data$crf3b_inv_assess___2,levels=c("0","1"))
data$crf3b_inv_assess___3 = factor(data$crf3b_inv_assess___3,levels=c("0","1"))
data$crf3b_assess_moca = factor(data$crf3b_assess_moca,levels=c("1","0"))
data$crf3b_assess_cfs = factor(data$crf3b_assess_cfs,levels=c("1","0"))
data$crf3b_truecolours_check = factor(data$crf3b_truecolours_check,levels=c("1","0"))
data$crf3b_quests___12 = factor(data$crf3b_quests___12,levels=c("0","1"))
data$crf3b_quests___13 = factor(data$crf3b_quests___13,levels=c("0","1"))
data$crf3b_quests___1 = factor(data$crf3b_quests___1,levels=c("0","1"))
data$crf3b_quests___2 = factor(data$crf3b_quests___2,levels=c("0","1"))
data$crf3b_quests___3 = factor(data$crf3b_quests___3,levels=c("0","1"))
data$crf3b_quests___4 = factor(data$crf3b_quests___4,levels=c("0","1"))
data$crf3b_quests___5 = factor(data$crf3b_quests___5,levels=c("0","1"))
data$crf3b_quests___6 = factor(data$crf3b_quests___6,levels=c("0","1"))
data$crf3b_quests___7 = factor(data$crf3b_quests___7,levels=c("0","1"))
data$crf3b_quests___8 = factor(data$crf3b_quests___8,levels=c("0","1"))
data$crf3b_quests___9 = factor(data$crf3b_quests___9,levels=c("0","1"))
data$crf3b_quests___10 = factor(data$crf3b_quests___10,levels=c("0","1"))
data$crf3b_quests___11 = factor(data$crf3b_quests___11,levels=c("0","1"))
data$crf3b_quest_pre_psq = factor(data$crf3b_quest_pre_psq,levels=c("1","0"))
data$crf3b_quest_psq = factor(data$crf3b_quest_psq,levels=c("1","0"))
data$crf3b_quest_mrc = factor(data$crf3b_quest_mrc,levels=c("1","0"))
data$crf3b_quest_eq5d5l = factor(data$crf3b_quest_eq5d5l,levels=c("1","0"))
data$crf3b_quest_gad7 = factor(data$crf3b_quest_gad7,levels=c("1","0"))
data$crf3b_quest_phq9 = factor(data$crf3b_quest_phq9,levels=c("1","0"))
data$crf3b_quest_sarcf = factor(data$crf3b_quest_sarcf,levels=c("1","0"))
data$crf3b_quest_gppaq = factor(data$crf3b_quest_gppaq,levels=c("1","0"))
data$crf3b_quest_dys12 = factor(data$crf3b_quest_dys12,levels=c("1","0"))
data$crf3b_quest_facit = factor(data$crf3b_quest_facit,levels=c("1","0"))
data$crf3b_quest_bpi = factor(data$crf3b_quest_bpi,levels=c("1","0"))
data$crf3b_quest_pcl5 = factor(data$crf3b_quest_pcl5,levels=c("1","0"))
data$crf3b_quest_neadl = factor(data$crf3b_quest_neadl,levels=c("1","0"))
data$crf3b_fried_shrink = factor(data$crf3b_fried_shrink,levels=c("1","0"))
data$crf3b_fried_energy = factor(data$crf3b_fried_energy,levels=c("1","0"))
data$crf3b_fried_rest_day = factor(data$crf3b_fried_rest_day,levels=c("1","2","3","4"))
data$crf3b_t2_core = factor(data$crf3b_t2_core,levels=c("1","0"))
data$crf3b_t2_research = factor(data$crf3b_t2_research,levels=c("1","0"))
data$crf3b_pft = factor(data$crf3b_pft,levels=c("1","0"))
data$crf3b_qrisk3 = factor(data$crf3b_qrisk3,levels=c("1","0"))
data$cr3b_waist_done = factor(data$cr3b_waist_done,levels=c("1","0"))
data$crf3b_rehab_q1 = factor(data$crf3b_rehab_q1,levels=c("1","0","2"))
data$crf3b_rehab_q2 = factor(data$crf3b_rehab_q2,levels=c("1","0","2"))
data$crf3b_rehab_q3 = factor(data$crf3b_rehab_q3,levels=c("1","2","3"))
data$crf3b_rehab_q4_yn = factor(data$crf3b_rehab_q4_yn,levels=c("1","0"))
data$crf3b_rehab_q5 = factor(data$crf3b_rehab_q5,levels=c("1","0","2"))
data$crf3b_rehab_q6 = factor(data$crf3b_rehab_q6,levels=c("1","0","2"))
data$crf3b_psych_q1 = factor(data$crf3b_psych_q1,levels=c("1","0","2"))
data$crf3b_psych_q2___1 = factor(data$crf3b_psych_q2___1,levels=c("0","1"))
data$crf3b_psych_q2___2 = factor(data$crf3b_psych_q2___2,levels=c("0","1"))
data$crf3b_psych_q2___3 = factor(data$crf3b_psych_q2___3,levels=c("0","1"))
data$crf3b_psych_q2___4 = factor(data$crf3b_psych_q2___4,levels=c("0","1"))
data$crf3b_psych_q2___5 = factor(data$crf3b_psych_q2___5,levels=c("0","1"))
data$crf3b_psych_q2___6 = factor(data$crf3b_psych_q2___6,levels=c("0","1"))
data$crf3b_psych_q2___7 = factor(data$crf3b_psych_q2___7,levels=c("0","1"))
data$crf3b_psych_q2___8 = factor(data$crf3b_psych_q2___8,levels=c("0","1"))
data$crf3b_psych_q2___9 = factor(data$crf3b_psych_q2___9,levels=c("0","1"))
data$crf3b_psych_q2___10 = factor(data$crf3b_psych_q2___10,levels=c("0","1"))
data$crf3b_psych_q2___11 = factor(data$crf3b_psych_q2___11,levels=c("0","1"))
data$crf3b_psych_q2___12 = factor(data$crf3b_psych_q2___12,levels=c("0","1"))
data$crf3b_psych_q2___13 = factor(data$crf3b_psych_q2___13,levels=c("0","1"))
data$crf3b_psych_q3 = factor(data$crf3b_psych_q3,levels=c("1","2","3"))
data$crf3b_psych_q4 = factor(data$crf3b_psych_q4,levels=c("1","0","2"))
data$crf3b_bodycom_bia = factor(data$crf3b_bodycom_bia,levels=c("1","0"))
data$crf3b_bodycom_dxa = factor(data$crf3b_bodycom_dxa,levels=c("1","0"))
data$crf3b_muscle_strength = factor(data$crf3b_muscle_strength,levels=c("1","0"))
data$crf3b_iswt_1 = factor(data$crf3b_iswt_1,levels=c("1","0"))
data$crf3b_iswt_2 = factor(data$crf3b_iswt_2,levels=c("1","0"))
data$crf3b_sppb = factor(data$crf3b_sppb,levels=c("1","0"))
data$crf3b_amc_inform = factor(data$crf3b_amc_inform,levels=c("1","0"))
data$crf3b_amc_happy = factor(data$crf3b_amc_happy,levels=c("1","0"))
data$crf3b_amc_location = factor(data$crf3b_amc_location,levels=c("1","2"))
data$crf3b_amc_strap = factor(data$crf3b_amc_strap,levels=c("1","2"))
data$crf3b_future_studies = factor(data$crf3b_future_studies,levels=c("1","0"))
data$crf3b_research_data_section_complete = factor(data$crf3b_research_data_section_complete,levels=c("0","1","2"))
data$crf3c_version = factor(data$crf3c_version,levels=c("1","2","3","4","5","6","7","8","9"))
data$crf3c_psqi = factor(data$crf3c_psqi,levels=c("1","0"))
data$crf3c_meq = factor(data$crf3c_meq,levels=c("1","0"))
data$crf3c_lcq = factor(data$crf3c_lcq,levels=c("1","0"))
data$crf3c_other_quest = factor(data$crf3c_other_quest,levels=c("1","0"))
data$crf3c_t3_qmus = factor(data$crf3c_t3_qmus,levels=c("1","0"))
data$crf3c_t3_mb = factor(data$crf3c_t3_mb,levels=c("1","0"))
data$crf3c_t3_bs = factor(data$crf3c_t3_bs,levels=c("1","0"))
data$crf3c_t3_genomicc = factor(data$crf3c_t3_genomicc,levels=c("1","0"))
data$crf3c_t3_lir_turtle = factor(data$crf3c_t3_lir_turtle,levels=c("1","0"))
data$crf3c_t3_other = factor(data$crf3c_t3_other,levels=c("1","0"))
data$crf3c_genomicc_consent = factor(data$crf3c_genomicc_consent,levels=c("1"))
data$crf3c_gen_coenrol_yn = factor(data$crf3c_gen_coenrol_yn,levels=c("1","0"))
data$crf3c_gen_id_yn = factor(data$crf3c_gen_id_yn,levels=c("1","0"))
data$crf3c_gen_coenrol_consent = factor(data$crf3c_gen_coenrol_consent,levels=c("1","0"))
data$crf3c_genomicc_withdrawal___1 = factor(data$crf3c_genomicc_withdrawal___1,levels=c("0","1"))
data$crf3c_genomicc_withdrawal___2 = factor(data$crf3c_genomicc_withdrawal___2,levels=c("0","1"))
data$crf3c_additional_research_procedures_complete = factor(data$crf3c_additional_research_procedures_complete,levels=c("0","1","2"))
data$crf4a_version = factor(data$crf4a_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf4a_rest_spo2_done = factor(data$crf4a_rest_spo2_done,levels=c("1","0"))
data$crf4a_rest_hr_done = factor(data$crf4a_rest_hr_done,levels=c("1","0"))
data$crf4a_rest_bp_done = factor(data$crf4a_rest_bp_done,levels=c("1","0"))
data$crf4a_rest_temp_done = factor(data$crf4a_rest_temp_done,levels=c("1","0"))
data$crf4a_rest_height_done = factor(data$crf4a_rest_height_done,levels=c("1","0"))
data$crf4a_rest_weight_done = factor(data$crf4a_rest_weight_done,levels=c("1","0"))
data$crf4a_base_cxr_done = factor(data$crf4a_base_cxr_done,levels=c("1","2"))
data$crf4a_base_ecg_done = factor(data$crf4a_base_ecg_done,levels=c("1","2"))
data$crf4a_base_cxr = factor(data$crf4a_base_cxr,levels=c("1","2","3","4","5"))
data$crf4a_ecg = factor(data$crf4a_ecg,levels=c("1","2","3","4","5"))
data$crf4a_outcome_fup = factor(data$crf4a_outcome_fup,levels=c("1","0"))
data$crf4a_outcome_ras = factor(data$crf4a_outcome_ras,levels=c("1","0"))
data$crf4a_outcome_rtc = factor(data$crf4a_outcome_rtc,levels=c("1","0"))
data$crf4a_outcome_rpc = factor(data$crf4a_outcome_rpc,levels=c("1","0"))
data$crf4a_outcome_rmhs = factor(data$crf4a_outcome_rmhs,levels=c("1","0"))
data$crf4a_outcome_rrh = factor(data$crf4a_outcome_rrh,levels=c("1","0"))
data$crf4a_outcome_rdt = factor(data$crf4a_outcome_rdt,levels=c("1","0"))
data$crf4a_outcome_rsss = factor(data$crf4a_outcome_rsss,levels=c("1","0"))
data$crf4a_outcome_dis = factor(data$crf4a_outcome_dis,levels=c("1","0"))
data$crf4a_tier = factor(data$crf4a_tier,levels=c("1","2"))
data$crf4a_blood_done = factor(data$crf4a_blood_done,levels=c("1","0"))
data$crf4a_blood_fbc = factor(data$crf4a_blood_fbc,levels=c("1","0"))
data$crf4a_blood_ue = factor(data$crf4a_blood_ue,levels=c("1","0"))
data$crf4a_blood_egfr = factor(data$crf4a_blood_egfr,levels=c("1","0"))
data$crf4a_blood_lfts = factor(data$crf4a_blood_lfts,levels=c("1","0"))
data$crf4a_blood_crp = factor(data$crf4a_blood_crp,levels=c("1","0"))
data$crf4a_blood_bp = factor(data$crf4a_blood_bp,levels=c("1","0"))
data$crf4a_blood_25oh = factor(data$crf4a_blood_25oh,levels=c("1","0"))
data$crf4a_blood_bnp = factor(data$crf4a_blood_bnp,levels=c("1","0"))
data$crf4a_blood_trop = factor(data$crf4a_blood_trop,levels=c("1","0"))
data$crf4a_blood_ddim = factor(data$crf4a_blood_ddim,levels=c("1","0"))
data$crf4a_blood_fib = factor(data$crf4a_blood_fib,levels=c("1","0"))
data$crf4a_blood_inr = factor(data$crf4a_blood_inr,levels=c("1","0"))
data$crf4a_blood_fer = factor(data$crf4a_blood_fer,levels=c("1","0"))
data$crf4a_blood_hba1c = factor(data$crf4a_blood_hba1c,levels=c("1","0"))
data$crf4a_blood_lp = factor(data$crf4a_blood_lp,levels=c("1","0"))
data$crf4a_blood_covid19 = factor(data$crf4a_blood_covid19,levels=c("1","0"))
data$crf4a_link_routine_blood = factor(data$crf4a_link_routine_blood,levels=c("1","0"))
data$crf4a_link_add_blood_sars = factor(data$crf4a_link_add_blood_sars,levels=c("1","0"))
data$crf4a_inv_resp___1 = factor(data$crf4a_inv_resp___1,levels=c("0","1"))
data$crf4a_inv_resp___2 = factor(data$crf4a_inv_resp___2,levels=c("0","1"))
data$crf4a_inv_resp___3 = factor(data$crf4a_inv_resp___3,levels=c("0","1"))
data$crf4a_inv_resp___4 = factor(data$crf4a_inv_resp___4,levels=c("0","1"))
data$crf4a_inv_resp___5 = factor(data$crf4a_inv_resp___5,levels=c("0","1"))
data$crf4a_inv_resp___6 = factor(data$crf4a_inv_resp___6,levels=c("0","1"))
data$crf4a_inv_resp___7 = factor(data$crf4a_inv_resp___7,levels=c("0","1"))
data$crf4a_inv_resp___8 = factor(data$crf4a_inv_resp___8,levels=c("0","1"))
data$crf4a_inv_resp___9 = factor(data$crf4a_inv_resp___9,levels=c("0","1"))
data$crf4a_inv_resp___10 = factor(data$crf4a_inv_resp___10,levels=c("0","1"))
data$crf4a_inv_resp___11 = factor(data$crf4a_inv_resp___11,levels=c("0","1"))
data$crf4a_inv_cardiac___1 = factor(data$crf4a_inv_cardiac___1,levels=c("0","1"))
data$crf4a_inv_cardiac___2 = factor(data$crf4a_inv_cardiac___2,levels=c("0","1"))
data$crf4a_inv_cardiac___3 = factor(data$crf4a_inv_cardiac___3,levels=c("0","1"))
data$crf4a_inv_cardiac___4 = factor(data$crf4a_inv_cardiac___4,levels=c("0","1"))
data$crf4a_inv_cardiac___5 = factor(data$crf4a_inv_cardiac___5,levels=c("0","1"))
data$crf4a_inv_cardiac___6 = factor(data$crf4a_inv_cardiac___6,levels=c("0","1"))
data$crf4a_inv_haema___1 = factor(data$crf4a_inv_haema___1,levels=c("0","1"))
data$crf4a_inv_haema___2 = factor(data$crf4a_inv_haema___2,levels=c("0","1"))
data$crf4a_inv_haema___3 = factor(data$crf4a_inv_haema___3,levels=c("0","1"))
data$crf4a_link_add_blood_haema = factor(data$crf4a_link_add_blood_haema,levels=c("1","0"))
data$crf4a_inv_renal___1 = factor(data$crf4a_inv_renal___1,levels=c("0","1"))
data$crf4a_inv_renal___2 = factor(data$crf4a_inv_renal___2,levels=c("0","1"))
data$crf4a_inv_renal___3 = factor(data$crf4a_inv_renal___3,levels=c("0","1"))
data$crf4a_inv_renal___4 = factor(data$crf4a_inv_renal___4,levels=c("0","1"))
data$crf4a_inv_renal___5 = factor(data$crf4a_inv_renal___5,levels=c("0","1"))
data$crf4a_inv_renal___6 = factor(data$crf4a_inv_renal___6,levels=c("0","1"))
data$crf4a_inv_renal___7 = factor(data$crf4a_inv_renal___7,levels=c("0","1"))
data$crf4a_link_blood_urine = factor(data$crf4a_link_blood_urine,levels=c("1","0"))
data$crf4a_inv_immu___1 = factor(data$crf4a_inv_immu___1,levels=c("0","1"))
data$crf4a_inv_immu___2 = factor(data$crf4a_inv_immu___2,levels=c("0","1"))
data$crf4a_inv_immu___3 = factor(data$crf4a_inv_immu___3,levels=c("0","1"))
data$crf4a_inv_immu___4 = factor(data$crf4a_inv_immu___4,levels=c("0","1"))
data$crf4a_link_blood_immun = factor(data$crf4a_link_blood_immun,levels=c("1","0"))
data$crf4a_inv_neuro___1 = factor(data$crf4a_inv_neuro___1,levels=c("0","1"))
data$crf4a_inv_neuro___2 = factor(data$crf4a_inv_neuro___2,levels=c("0","1"))
data$crf4a_inv_neuro___3 = factor(data$crf4a_inv_neuro___3,levels=c("0","1"))
data$crf4a_inv_neuro___4 = factor(data$crf4a_inv_neuro___4,levels=c("0","1"))
data$crf4a_inv_neuro___5 = factor(data$crf4a_inv_neuro___5,levels=c("0","1"))
data$crf4a_inv_neuro___6 = factor(data$crf4a_inv_neuro___6,levels=c("0","1"))
data$crf4a_quest___1 = factor(data$crf4a_quest___1,levels=c("0","1"))
data$crf4a_quest___2 = factor(data$crf4a_quest___2,levels=c("0","1"))
data$crf4a_quest___3 = factor(data$crf4a_quest___3,levels=c("0","1"))
data$crf4a_quest___4 = factor(data$crf4a_quest___4,levels=c("0","1"))
data$crf4a_quest___5 = factor(data$crf4a_quest___5,levels=c("0","1"))
data$crf4a_quest___6 = factor(data$crf4a_quest___6,levels=c("0","1"))
data$crf4a_quest___7 = factor(data$crf4a_quest___7,levels=c("0","1"))
data$crf4a_quest___8 = factor(data$crf4a_quest___8,levels=c("0","1"))
data$crf4a_quest___9 = factor(data$crf4a_quest___9,levels=c("0","1"))
data$crf4a_quest___10 = factor(data$crf4a_quest___10,levels=c("0","1"))
data$crf4a_quest___11 = factor(data$crf4a_quest___11,levels=c("0","1"))
data$crf4a_quest_mrc = factor(data$crf4a_quest_mrc,levels=c("1","0"))
data$crf4a_quest_eq5d5l = factor(data$crf4a_quest_eq5d5l,levels=c("1","0"))
data$crf4a_quest_gad7 = factor(data$crf4a_quest_gad7,levels=c("1","0"))
data$crf4a_quest_phq9 = factor(data$crf4a_quest_phq9,levels=c("1","0"))
data$crf4a_quest_sarcf = factor(data$crf4a_quest_sarcf,levels=c("1","0"))
data$crf4a_quest_gppaq = factor(data$crf4a_quest_gppaq,levels=c("1","0"))
data$crf4a_quest_dys12 = factor(data$crf4a_quest_dys12,levels=c("1","0"))
data$crf4a_quest_facit = factor(data$crf4a_quest_facit,levels=c("1","0"))
data$crf4a_quest_bpi = factor(data$crf4a_quest_bpi,levels=c("1","0"))
data$crf4a_quest_pcl5 = factor(data$crf4a_quest_pcl5,levels=c("1","0"))
data$crf4a_quest_neadl = factor(data$crf4a_quest_neadl,levels=c("1","0"))
data$crf4a_inv_quest___1 = factor(data$crf4a_inv_quest___1,levels=c("0","1"))
data$crf4a_inv_quest___2 = factor(data$crf4a_inv_quest___2,levels=c("0","1"))
data$crf4a_quest_moca = factor(data$crf4a_quest_moca,levels=c("1","0"))
data$crf4a_quest_rcfs = factor(data$crf4a_quest_rcfs,levels=c("1","0"))
data$crf4a_pft_done = factor(data$crf4a_pft_done,levels=c("1","0"))
data$crf4a_echo_right = factor(data$crf4a_echo_right,levels=c("1","2","3","4","5"))
data$crf4a_echo_left = factor(data$crf4a_echo_left,levels=c("1","2","3","4","5"))
data$crf4a_tape_done = factor(data$crf4a_tape_done,levels=c("1","0"))
data$crf4a_tape_finding___1 = factor(data$crf4a_tape_finding___1,levels=c("0","1"))
data$crf4a_tape_finding___2 = factor(data$crf4a_tape_finding___2,levels=c("0","1"))
data$crf4a_tape_finding___3 = factor(data$crf4a_tape_finding___3,levels=c("0","1"))
data$crf4a_tape_finding___4 = factor(data$crf4a_tape_finding___4,levels=c("0","1"))
data$crf4a_tape_finding___5 = factor(data$crf4a_tape_finding___5,levels=c("0","1"))
data$crf4a_tape_finding___6 = factor(data$crf4a_tape_finding___6,levels=c("0","1"))
data$crf4a_tape_finding___7 = factor(data$crf4a_tape_finding___7,levels=c("0","1"))
data$crf4a_6mwt_done = factor(data$crf4a_6mwt_done,levels=c("1","0"))
data$crf4a_clinical_data_section_complete = factor(data$crf4a_clinical_data_section_complete,levels=c("0","1","2"))
data$crf4b_version = factor(data$crf4b_version,levels=c("1","2","3","4","5","6","7","8"))
data$crf4b_ongoing_confirmed = factor(data$crf4b_ongoing_confirmed,levels=c("1","0"))
data$crf4b_tier2_blood = factor(data$crf4b_tier2_blood,levels=c("1","0"))
data$crf4b_research_data_section_complete = factor(data$crf4b_research_data_section_complete,levels=c("0","1","2"))
data$crf_emergency_version = factor(data$crf_emergency_version,levels=c("1","2","3","4"))
data$crfev_symptoms___1 = factor(data$crfev_symptoms___1,levels=c("0","1"))
data$crfev_symptoms___2 = factor(data$crfev_symptoms___2,levels=c("0","1"))
data$crfev_symptoms___3 = factor(data$crfev_symptoms___3,levels=c("0","1"))
data$crfev_symptoms___4 = factor(data$crfev_symptoms___4,levels=c("0","1"))
data$crfev_symptoms___5 = factor(data$crfev_symptoms___5,levels=c("0","1"))
data$crfev_symptoms___6 = factor(data$crfev_symptoms___6,levels=c("0","1"))
data$crfev_symptoms___7 = factor(data$crfev_symptoms___7,levels=c("0","1"))
data$crfev_symptoms___8 = factor(data$crfev_symptoms___8,levels=c("0","1"))
data$crfev_symptoms___9 = factor(data$crfev_symptoms___9,levels=c("0","1"))
data$crfev_symptoms___10 = factor(data$crfev_symptoms___10,levels=c("0","1"))
data$crfev_symptoms___11 = factor(data$crfev_symptoms___11,levels=c("0","1"))
data$crfev_symptoms___12 = factor(data$crfev_symptoms___12,levels=c("0","1"))
data$crfev_symptoms___13 = factor(data$crfev_symptoms___13,levels=c("0","1"))
data$crfev_symptoms___14 = factor(data$crfev_symptoms___14,levels=c("0","1"))
data$crfev_symptoms___15 = factor(data$crfev_symptoms___15,levels=c("0","1"))
data$crfev_symptoms___16 = factor(data$crfev_symptoms___16,levels=c("0","1"))
data$crfev_itu_hdu_adm = factor(data$crfev_itu_hdu_adm,levels=c("1","0","2"))
data$crfev_med_change = factor(data$crfev_med_change,levels=c("1","0","2"))
data$crfev_dis_diagnosis___1 = factor(data$crfev_dis_diagnosis___1,levels=c("0","1"))
data$crfev_dis_diagnosis___2 = factor(data$crfev_dis_diagnosis___2,levels=c("0","1"))
data$crfev_cxr_done = factor(data$crfev_cxr_done,levels=c("1","0"))
data$crfev_ecg_done = factor(data$crfev_ecg_done,levels=c("1","0"))
data$crfev_xr_result___1 = factor(data$crfev_xr_result___1,levels=c("0","1"))
data$crfev_xr_result___2 = factor(data$crfev_xr_result___2,levels=c("0","1"))
data$crfev_xr_result___3 = factor(data$crfev_xr_result___3,levels=c("0","1"))
data$crfev_xr_result___4 = factor(data$crfev_xr_result___4,levels=c("0","1"))
data$crfev_xr_result___5 = factor(data$crfev_xr_result___5,levels=c("0","1"))
data$crfev_ecg_result___1 = factor(data$crfev_ecg_result___1,levels=c("0","1"))
data$crfev_ecg_result___2 = factor(data$crfev_ecg_result___2,levels=c("0","1"))
data$crfev_ecg_result___3 = factor(data$crfev_ecg_result___3,levels=c("0","1"))
data$crfev_ecg_result___4 = factor(data$crfev_ecg_result___4,levels=c("0","1"))
data$crfev_ecg_result___5 = factor(data$crfev_ecg_result___5,levels=c("0","1"))
data$crfev_blood_done = factor(data$crfev_blood_done,levels=c("1","0","2"))
data$crfev_other_inv_done = factor(data$crfev_other_inv_done,levels=c("1","0","2"))
data$crfev_blood_desc = factor(data$crfev_blood_desc,levels=c("1","0"))
data$crfev_add_inv_resp___1 = factor(data$crfev_add_inv_resp___1,levels=c("0","1"))
data$crfev_add_inv_resp___2 = factor(data$crfev_add_inv_resp___2,levels=c("0","1"))
data$crfev_add_inv_resp___3 = factor(data$crfev_add_inv_resp___3,levels=c("0","1"))
data$crfev_add_inv_resp___4 = factor(data$crfev_add_inv_resp___4,levels=c("0","1"))
data$crfev_add_inv_resp___5 = factor(data$crfev_add_inv_resp___5,levels=c("0","1"))
data$crfev_add_inv_resp___6 = factor(data$crfev_add_inv_resp___6,levels=c("0","1"))
data$crfev_add_inv_resp___7 = factor(data$crfev_add_inv_resp___7,levels=c("0","1"))
data$crfev_add_inv_resp___8 = factor(data$crfev_add_inv_resp___8,levels=c("0","1"))
data$crfev_add_inv_resp___9 = factor(data$crfev_add_inv_resp___9,levels=c("0","1"))
data$crfev_add_inv_resp___10 = factor(data$crfev_add_inv_resp___10,levels=c("0","1"))
data$crfev_add_inv_resp___11 = factor(data$crfev_add_inv_resp___11,levels=c("0","1"))
data$crfev_add_inv_card___1 = factor(data$crfev_add_inv_card___1,levels=c("0","1"))
data$crfev_add_inv_card___2 = factor(data$crfev_add_inv_card___2,levels=c("0","1"))
data$crfev_add_inv_card___3 = factor(data$crfev_add_inv_card___3,levels=c("0","1"))
data$crfev_add_inv_card___4 = factor(data$crfev_add_inv_card___4,levels=c("0","1"))
data$crfev_add_inv_card___5 = factor(data$crfev_add_inv_card___5,levels=c("0","1"))
data$crfev_add_inv_card___6 = factor(data$crfev_add_inv_card___6,levels=c("0","1"))
data$crfev_add_inv_haema___1 = factor(data$crfev_add_inv_haema___1,levels=c("0","1"))
data$crfev_add_inv_haema___2 = factor(data$crfev_add_inv_haema___2,levels=c("0","1"))
data$crfev_add_inv_haema___3 = factor(data$crfev_add_inv_haema___3,levels=c("0","1"))
data$crfev_link_add_blood_haema = factor(data$crfev_link_add_blood_haema,levels=c("1","0"))
data$crfev_add_inv_renal___1 = factor(data$crfev_add_inv_renal___1,levels=c("0","1"))
data$crfev_add_inv_renal___2 = factor(data$crfev_add_inv_renal___2,levels=c("0","1"))
data$crfev_add_inv_renal___3 = factor(data$crfev_add_inv_renal___3,levels=c("0","1"))
data$crfev_add_inv_renal___4 = factor(data$crfev_add_inv_renal___4,levels=c("0","1"))
data$crfev_add_inv_renal___5 = factor(data$crfev_add_inv_renal___5,levels=c("0","1"))
data$crfev_add_inv_renal___6 = factor(data$crfev_add_inv_renal___6,levels=c("0","1"))
data$crfev_add_inv_renal___7 = factor(data$crfev_add_inv_renal___7,levels=c("0","1"))
data$crfev_link_blood_urine = factor(data$crfev_link_blood_urine,levels=c("1","0"))
data$crfev_add_inv_immu___1 = factor(data$crfev_add_inv_immu___1,levels=c("0","1"))
data$crfev_add_inv_immu___2 = factor(data$crfev_add_inv_immu___2,levels=c("0","1"))
data$crfev_add_inv_immu___3 = factor(data$crfev_add_inv_immu___3,levels=c("0","1"))
data$crfev_add_inv_immu___4 = factor(data$crfev_add_inv_immu___4,levels=c("0","1"))
data$crfev_link_blood_immun = factor(data$crfev_link_blood_immun,levels=c("1","0"))
data$crfev_add_inv_neuro___1 = factor(data$crfev_add_inv_neuro___1,levels=c("0","1"))
data$crfev_add_inv_neuro___2 = factor(data$crfev_add_inv_neuro___2,levels=c("0","1"))
data$crfev_add_inv_neuro___3 = factor(data$crfev_add_inv_neuro___3,levels=c("0","1"))
data$crfev_add_inv_neuro___4 = factor(data$crfev_add_inv_neuro___4,levels=c("0","1"))
data$crfev_add_inv_neuro___5 = factor(data$crfev_add_inv_neuro___5,levels=c("0","1"))
data$crfev_add_inv_neuro___6 = factor(data$crfev_add_inv_neuro___6,levels=c("0","1"))
data$crfev_add_inv_neuro___7 = factor(data$crfev_add_inv_neuro___7,levels=c("0","1"))
data$crfev_echo_right = factor(data$crfev_echo_right,levels=c("1","2","3","4","5"))
data$crfev_echo_left = factor(data$crfev_echo_left,levels=c("1","2","3","4","5"))
data$crfev_tape_done = factor(data$crfev_tape_done,levels=c("1","0"))
data$crfev_tape_finding___1 = factor(data$crfev_tape_finding___1,levels=c("0","1"))
data$crfev_tape_finding___2 = factor(data$crfev_tape_finding___2,levels=c("0","1"))
data$crfev_tape_finding___3 = factor(data$crfev_tape_finding___3,levels=c("0","1"))
data$crfev_tape_finding___4 = factor(data$crfev_tape_finding___4,levels=c("0","1"))
data$crfev_tape_finding___5 = factor(data$crfev_tape_finding___5,levels=c("0","1"))
data$crfev_tape_finding___6 = factor(data$crfev_tape_finding___6,levels=c("0","1"))
data$crfev_tape_finding___7 = factor(data$crfev_tape_finding___7,levels=c("0","1"))
data$crf_emergency_visit_complete = factor(data$crf_emergency_visit_complete,levels=c("0","1","2"))
data$ae_sae = factor(data$ae_sae,levels=c("1","0"))
data$sae_criteria = factor(data$sae_criteria,levels=c("1","2","3","4","5"))
data$ae_severity = factor(data$ae_severity,levels=c("1","2","3","4"))
data$ae_action = factor(data$ae_action,levels=c("0","1","2","3"))
data$ae_outcome = factor(data$ae_outcome,levels=c("1","2","3","4","5"))
data$adverse_events_log_complete = factor(data$adverse_events_log_complete,levels=c("0","1","2"))
data$wd_type___1 = factor(data$wd_type___1,levels=c("0","1"))
data$wd_type___2 = factor(data$wd_type___2,levels=c("0","1"))
data$wd_sign_type = factor(data$wd_sign_type,levels=c("1","2"))
data$wd_pt_signature_verified = factor(data$wd_pt_signature_verified,levels=c("1","0"))
data$wd_signatory_date_verified = factor(data$wd_signatory_date_verified,levels=c("1","0"))
data$withdrawals_complete = factor(data$withdrawals_complete,levels=c("0","1","2"))
data$crf_early_data_collect_yn = factor(data$crf_early_data_collect_yn,levels=c("1","0"))
data$crf_early_main_reason___1 = factor(data$crf_early_main_reason___1,levels=c("0","1"))
data$crf_early_main_reason___2 = factor(data$crf_early_main_reason___2,levels=c("0","1"))
data$crf_early_main_reason___3 = factor(data$crf_early_main_reason___3,levels=c("0","1"))
data$crf_early_main_reason___4 = factor(data$crf_early_main_reason___4,levels=c("0","1"))
data$crf_early_main_reason___5 = factor(data$crf_early_main_reason___5,levels=c("0","1"))
data$crf_early_main_reason___6 = factor(data$crf_early_main_reason___6,levels=c("0","1"))
data$crf_early_main_reason___7 = factor(data$crf_early_main_reason___7,levels=c("0","1"))
data$crf_early_main_reason___8 = factor(data$crf_early_main_reason___8,levels=c("0","1"))
data$crf_early_main_reason___9 = factor(data$crf_early_main_reason___9,levels=c("0","1"))
data$early_termination_crf_complete = factor(data$early_termination_crf_complete,levels=c("0","1","2"))
data$crf_tier2_data_collect_yn = factor(data$crf_tier2_data_collect_yn,levels=c("1","0"))
data$crf_tier2_main_reason___1 = factor(data$crf_tier2_main_reason___1,levels=c("0","1"))
data$crf_tier2_main_reason___2 = factor(data$crf_tier2_main_reason___2,levels=c("0","1"))
data$crf_tier2_main_reason___3 = factor(data$crf_tier2_main_reason___3,levels=c("0","1"))
data$crf_tier2_main_reason___4 = factor(data$crf_tier2_main_reason___4,levels=c("0","1"))
data$crf_tier2_main_reason___5 = factor(data$crf_tier2_main_reason___5,levels=c("0","1"))
data$crf_tier2_main_reason___6 = factor(data$crf_tier2_main_reason___6,levels=c("0","1"))
data$crf_tier2_main_reason___7 = factor(data$crf_tier2_main_reason___7,levels=c("0","1"))
data$crf_tier2_main_reason___8 = factor(data$crf_tier2_main_reason___8,levels=c("0","1"))
data$crf_tier_2_consent_withdrawal_complete = factor(data$crf_tier_2_consent_withdrawal_complete,levels=c("0","1","2"))
data$med_class = factor(data$med_class,levels=c("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22"))
data$med_frequency = factor(data$med_frequency,levels=c("1","2","3","4","5","6","7","8"))
data$med_route = factor(data$med_route,levels=c("1","2","3","4","5","6","7","8","9","10","11"))
data$repeatable_medications_log_complete = factor(data$repeatable_medications_log_complete,levels=c("0","1","2"))
data$am_wear_location = factor(data$am_wear_location,levels=c("1","2"))
data$am_strap = factor(data$am_strap,levels=c("1","2"))
data$activity_monitor_completion_form_complete = factor(data$activity_monitor_completion_form_complete,levels=c("0","1","2"))
data$mha_ph4_nervous = factor(data$mha_ph4_nervous,levels=c("0","1","2","3"))
data$mha_ph4_worrying = factor(data$mha_ph4_worrying,levels=c("0","1","2","3"))
data$mha_ph4_little_interest = factor(data$mha_ph4_little_interest,levels=c("0","1","2","3"))
data$mha_ph4_depressed = factor(data$mha_ph4_depressed,levels=c("0","1","2","3"))
data$mha_ptsd_memories = factor(data$mha_ptsd_memories,levels=c("1","0"))
data$mha_ptsd_dreams = factor(data$mha_ptsd_dreams,levels=c("1","0"))
data$mha_ptsd_thoughts = factor(data$mha_ptsd_thoughts,levels=c("1","0"))
data$mha_ptsd_memories_detail = factor(data$mha_ptsd_memories_detail,levels=c("1","2","3","4"))
data$mha_ptsd_dreams_detail = factor(data$mha_ptsd_dreams_detail,levels=c("1","2","3","4"))
data$mha_ptsd_thoughts_detail = factor(data$mha_ptsd_thoughts_detail,levels=c("1","2","3","4"))
data$mha_lonely_lack = factor(data$mha_lonely_lack,levels=c("1","2","3"))
data$mha_lonely_left = factor(data$mha_lonely_left,levels=c("1","2","3"))
data$mha_lonely_iso = factor(data$mha_lonely_iso,levels=c("1","2","3"))
data$mha_lonely_lon = factor(data$mha_lonely_lon,levels=c("1","2","3"))
data$repeatable_mental_health_assessment_complete = factor(data$repeatable_mental_health_assessment_complete,levels=c("0","1","2"))
data$nutri_concern_weight = factor(data$nutri_concern_weight,levels=c("1","0"))
data$nutri_appetite = factor(data$nutri_appetite,levels=c("0","1","2","3","4","5"))
data$nutri_advice = factor(data$nutri_advice,levels=c("1","0"))
data$repeatable_nutrition_complete = factor(data$repeatable_nutrition_complete,levels=c("0","1","2"))
data$social_status_before = factor(data$social_status_before,levels=c("1","2","3","4","5","6","7","8","9"))
data$social_employ_pre_mar20 = factor(data$social_employ_pre_mar20,levels=c("1","2","3","4","5","6","7","8","9"))
data$social_employ_pre_covid = factor(data$social_employ_pre_covid,levels=c("1","2","3","4","5","6","7","8","9","10","11"))
data$social_employ_post_covid = factor(data$social_employ_post_covid,levels=c("1","2","3","4","5","6","7","8","9","10","11"))
data$social_shift_work = factor(data$social_shift_work,levels=c("0","1","2","3","4","5"))
data$social_shift_night = factor(data$social_shift_night,levels=c("0","1","2","3","4","5"))
data$social_affect_work = factor(data$social_affect_work,levels=c("1","0"))
data$social_exp_bereave = factor(data$social_exp_bereave,levels=c("1","0"))
data$repeatable_social_history_complete = factor(data$repeatable_social_history_complete,levels=c("0","1","2"))
data$hp_today_seeing = factor(data$hp_today_seeing,levels=c("0","1","2","3"))
data$hp_today_hearing = factor(data$hp_today_hearing,levels=c("0","1","2","3"))
data$hp_today_walking = factor(data$hp_today_walking,levels=c("0","1","2","3"))
data$hp_today_remembering = factor(data$hp_today_remembering,levels=c("0","1","2","3"))
data$hp_today_self_care = factor(data$hp_today_self_care,levels=c("0","1","2","3"))
data$hp_today_communicating = factor(data$hp_today_communicating,levels=c("0","1","2","3"))
data$hp_precovid_seeing = factor(data$hp_precovid_seeing,levels=c("0","1","2","3"))
data$hp_precovid_hearing = factor(data$hp_precovid_hearing,levels=c("0","1","2","3"))
data$hp_precovid_walking = factor(data$hp_precovid_walking,levels=c("0","1","2","3"))
data$hp_precovid_remebering = factor(data$hp_precovid_remebering,levels=c("0","1","2","3"))
data$hp_precovid_self_care = factor(data$hp_precovid_self_care,levels=c("0","1","2","3"))
data$hp_precovid_communicating = factor(data$hp_precovid_communicating,levels=c("0","1","2","3"))
data$repeatable_activity_difficulties_from_health_probl_complete = factor(data$repeatable_activity_difficulties_from_health_probl_complete,levels=c("0","1","2"))
data$ls_smoke = factor(data$ls_smoke,levels=c("0","1","2"))
data$ls_smoke_e = factor(data$ls_smoke_e,levels=c("1","0"))
data$ls_change_smoke = factor(data$ls_change_smoke,levels=c("1","2","3","4"))
data$ls_change_drink = factor(data$ls_change_drink,levels=c("1","2","3","4"))
data$ls_change_food = factor(data$ls_change_food,levels=c("1","2","3","4"))
data$ls_change_activity = factor(data$ls_change_activity,levels=c("1","2","3","4"))
data$repeatable_lifestyle_complete = factor(data$repeatable_lifestyle_complete,levels=c("0","1","2"))
data$eq5d_done = factor(data$eq5d_done,levels=c("1","0"))
data$eq5d_timepoints = factor(data$eq5d_timepoints,levels=c("1","2","3"))
data$eq5d5l_q1_pre = factor(data$eq5d5l_q1_pre,levels=c("1","2","3","4","5"))
data$eq5d5l_q2_pre = factor(data$eq5d5l_q2_pre,levels=c("1","2","3","4","5"))
data$eq5d5l_q3_pre = factor(data$eq5d5l_q3_pre,levels=c("1","2","3","4","5"))
data$eq5d5l_q4_pre = factor(data$eq5d5l_q4_pre,levels=c("1","2","3","4","5"))
data$eq5d5l_q5_pre = factor(data$eq5d5l_q5_pre,levels=c("1","2","3","4","5"))
data$eq5d5l_q1 = factor(data$eq5d5l_q1,levels=c("1","2","3","4","5"))
data$eq5d5l_q2 = factor(data$eq5d5l_q2,levels=c("1","2","3","4","5"))
data$eq5d5l_q3 = factor(data$eq5d5l_q3,levels=c("1","2","3","4","5"))
data$eq5d5l_q4 = factor(data$eq5d5l_q4,levels=c("1","2","3","4","5"))
data$eq5d5l_q5 = factor(data$eq5d5l_q5,levels=c("1","2","3","4","5"))
data$repeatable_eq5d5l_complete = factor(data$repeatable_eq5d5l_complete,levels=c("0","1","2"))
data$gad7_q1 = factor(data$gad7_q1,levels=c("0","1","2","3"))
data$gad7_q2 = factor(data$gad7_q2,levels=c("0","1","2","3"))
data$gad7_q3 = factor(data$gad7_q3,levels=c("0","1","2","3"))
data$gad7_q4 = factor(data$gad7_q4,levels=c("0","1","2","3"))
data$gad7_q5 = factor(data$gad7_q5,levels=c("0","1","2","3"))
data$gad7_q6 = factor(data$gad7_q6,levels=c("0","1","2","3"))
data$gad7_q7 = factor(data$gad7_q7,levels=c("0","1","2","3"))
data$gad7_difficulty = factor(data$gad7_difficulty,levels=c("0","1","2","3"))
data$repeatable_general_anxiety_disorder_7_questionnair_complete = factor(data$repeatable_general_anxiety_disorder_7_questionnair_complete,levels=c("0","1","2"))
data$phq9_q1 = factor(data$phq9_q1,levels=c("0","1","2","3"))
data$phq9_q2 = factor(data$phq9_q2,levels=c("0","1","2","3"))
data$phq9_q3 = factor(data$phq9_q3,levels=c("0","1","2","3"))
data$phq9_q4 = factor(data$phq9_q4,levels=c("0","1","2","3"))
data$phq9_q5 = factor(data$phq9_q5,levels=c("0","1","2","3"))
data$phq9_q6 = factor(data$phq9_q6,levels=c("0","1","2","3"))
data$phq9_q7 = factor(data$phq9_q7,levels=c("0","1","2","3"))
data$phq9_q8 = factor(data$phq9_q8,levels=c("0","1","2","3"))
data$phq9_q9 = factor(data$phq9_q9,levels=c("0","1","2","3"))
data$repeatable_patient_health_questionnaire9_phq9_complete = factor(data$repeatable_patient_health_questionnaire9_phq9_complete,levels=c("0","1","2"))
data$mrcds_visit___1 = factor(data$mrcds_visit___1,levels=c("0","1"))
data$mrcds_visit___2 = factor(data$mrcds_visit___2,levels=c("0","1"))
data$mrcds_blness_exer_pre = factor(data$mrcds_blness_exer_pre,levels=c("1","0"))
data$mrcds_short_level_pre = factor(data$mrcds_short_level_pre,levels=c("1","0"))
data$mrcds_walk_slower_pre = factor(data$mrcds_walk_slower_pre,levels=c("1","0"))
data$mrcds_after_walk_pre = factor(data$mrcds_after_walk_pre,levels=c("1","0"))
data$mrcds_leave_house_pre = factor(data$mrcds_leave_house_pre,levels=c("1","0"))
data$mrcds_blness_exer_since = factor(data$mrcds_blness_exer_since,levels=c("1","0"))
data$mrcds_short_level_since = factor(data$mrcds_short_level_since,levels=c("1","0"))
data$mrcds_walk_slower_since = factor(data$mrcds_walk_slower_since,levels=c("1","0"))
data$mrcds_after_walk_since = factor(data$mrcds_after_walk_since,levels=c("1","0"))
data$mrcds_leave_house_since = factor(data$mrcds_leave_house_since,levels=c("1","0"))
data$repeatable_mrc_dyspnoea_scale_complete = factor(data$repeatable_mrc_dyspnoea_scale_complete,levels=c("0","1","2"))
data$sarcf_strength = factor(data$sarcf_strength,levels=c("0","1","2"))
data$sarcf_walk_difficult = factor(data$sarcf_walk_difficult,levels=c("0","1","2"))
data$sarcf_rise_from_a_chair = factor(data$sarcf_rise_from_a_chair,levels=c("0","1","2"))
data$sarcf_climb_stairs = factor(data$sarcf_climb_stairs,levels=c("0","1","2"))
data$sarcf_falls = factor(data$sarcf_falls,levels=c("0","1","2"))
data$repeatable_sarcf_questionnaire_complete = factor(data$repeatable_sarcf_questionnaire_complete,levels=c("0","1","2"))
data$gppaq_physical_amount = factor(data$gppaq_physical_amount,levels=c("1","2","3","4","5"))
data$gppaq_pe = factor(data$gppaq_pe,levels=c("0","1","2","3"))
data$gppaq_cycling = factor(data$gppaq_cycling,levels=c("0","1","2","3"))
data$gppaq_walking = factor(data$gppaq_walking,levels=c("0","1","2","3"))
data$gppaq_housework_childcare = factor(data$gppaq_housework_childcare,levels=c("0","1","2","3"))
data$gppaq_garden_diy = factor(data$gppaq_garden_diy,levels=c("0","1","2","3"))
data$gppaq_walk_pace = factor(data$gppaq_walk_pace,levels=c("1","2","3","4"))
data$gppaq_result = factor(data$gppaq_result,levels=c("4","3","2","1"))
data$repeatable_general_practice_physical_activity_ques_complete = factor(data$repeatable_general_practice_physical_activity_ques_complete,levels=c("0","1","2"))
data$dyspnoea_not_go_in = factor(data$dyspnoea_not_go_in,levels=c("0","1","2","3"))
data$dyspnoea_more_work = factor(data$dyspnoea_more_work,levels=c("0","1","2","3"))
data$dyspnoea_short = factor(data$dyspnoea_short,levels=c("0","1","2","3"))
data$dyspnoea_catching = factor(data$dyspnoea_catching,levels=c("0","1","2","3"))
data$dyspnoea_not_air = factor(data$dyspnoea_not_air,levels=c("0","1","2","3"))
data$dyspnoea_uncomfortable = factor(data$dyspnoea_uncomfortable,levels=c("0","1","2","3"))
data$dyspnoea_exhausting = factor(data$dyspnoea_exhausting,levels=c("0","1","2","3"))
data$dyspnoea_depressed = factor(data$dyspnoea_depressed,levels=c("0","1","2","3"))
data$dyspnoea_miserable = factor(data$dyspnoea_miserable,levels=c("0","1","2","3"))
data$dyspnoea_distressing = factor(data$dyspnoea_distressing,levels=c("0","1","2","3"))
data$dyspnoea_agitated = factor(data$dyspnoea_agitated,levels=c("0","1","2","3"))
data$dyspnoea_irritating = factor(data$dyspnoea_irritating,levels=c("0","1","2","3"))
data$repeatable_dyspnoea12_complete = factor(data$repeatable_dyspnoea12_complete,levels=c("0","1","2"))
data$facit_fatigued = factor(data$facit_fatigued,levels=c("0","1","2","3","4"))
data$facit_feel_weak = factor(data$facit_feel_weak,levels=c("0","1","2","3","4"))
data$facit_feel_listless = factor(data$facit_feel_listless,levels=c("0","1","2","3","4"))
data$facit_feel_tired = factor(data$facit_feel_tired,levels=c("0","1","2","3","4"))
data$facit_trouble_starting = factor(data$facit_trouble_starting,levels=c("0","1","2","3","4"))
data$facit_trouble_finishing = factor(data$facit_trouble_finishing,levels=c("0","1","2","3","4"))
data$facit_energy = factor(data$facit_energy,levels=c("0","1","2","3","4"))
data$facit_usual_activities = factor(data$facit_usual_activities,levels=c("0","1","2","3","4"))
data$facit_sleep_in_the_day = factor(data$facit_sleep_in_the_day,levels=c("0","1","2","3","4"))
data$facit_too_tired_to_eat = factor(data$facit_too_tired_to_eat,levels=c("0","1","2","3","4"))
data$facit_help_usual_acti = factor(data$facit_help_usual_acti,levels=c("0","1","2","3","4"))
data$facit_frustrated = factor(data$facit_frustrated,levels=c("0","1","2","3","4"))
data$facit_limit_social = factor(data$facit_limit_social,levels=c("0","1","2","3","4"))
data$repeatable_facit_fatigue_scale_v4_complete = factor(data$repeatable_facit_fatigue_scale_v4_complete,levels=c("0","1","2"))
data$pcl5_memories = factor(data$pcl5_memories,levels=c("0","1","2","3","4"))
data$pcl5_dreams = factor(data$pcl5_dreams,levels=c("0","1","2","3","4"))
data$pcl5_suddenly = factor(data$pcl5_suddenly,levels=c("0","1","2","3","4"))
data$pcl5_upset = factor(data$pcl5_upset,levels=c("0","1","2","3","4"))
data$pcl5_physical_reactions = factor(data$pcl5_physical_reactions,levels=c("0","1","2","3","4"))
data$pcl5_avoiding_memories = factor(data$pcl5_avoiding_memories,levels=c("0","1","2","3","4"))
data$pcl5_avoiding_reminder = factor(data$pcl5_avoiding_reminder,levels=c("0","1","2","3","4"))
data$pcl5_trouble_remembering = factor(data$pcl5_trouble_remembering,levels=c("0","1","2","3","4"))
data$pcl5_negative_beliefs = factor(data$pcl5_negative_beliefs,levels=c("0","1","2","3","4"))
data$pcl5_blaming = factor(data$pcl5_blaming,levels=c("0","1","2","3","4"))
data$pcl5_negative_feeling = factor(data$pcl5_negative_feeling,levels=c("0","1","2","3","4"))
data$pcl5_loss_interest = factor(data$pcl5_loss_interest,levels=c("0","1","2","3","4"))
data$pcl5_feeling_distant = factor(data$pcl5_feeling_distant,levels=c("0","1","2","3","4"))
data$pcl5_trouble_positive = factor(data$pcl5_trouble_positive,levels=c("0","1","2","3","4"))
data$pcl5_irritable_behavior = factor(data$pcl5_irritable_behavior,levels=c("0","1","2","3","4"))
data$pcl5_risky = factor(data$pcl5_risky,levels=c("0","1","2","3","4"))
data$pcl5_superalert = factor(data$pcl5_superalert,levels=c("0","1","2","3","4"))
data$pcl5_jumpy = factor(data$pcl5_jumpy,levels=c("0","1","2","3","4"))
data$pcl5_concentrating = factor(data$pcl5_concentrating,levels=c("0","1","2","3","4"))
data$pcl5_trouble_sleep = factor(data$pcl5_trouble_sleep,levels=c("0","1","2","3","4"))
data$repeatable_ptsd_checklist_for_dsm5_pcl5_complete = factor(data$repeatable_ptsd_checklist_for_dsm5_pcl5_complete,levels=c("0","1","2"))
data$bpi_unusual_pain_yn = factor(data$bpi_unusual_pain_yn,levels=c("1","0"))
data$bpi_pain_sites___1 = factor(data$bpi_pain_sites___1,levels=c("0","1"))
data$bpi_pain_sites___2 = factor(data$bpi_pain_sites___2,levels=c("0","1"))
data$bpi_pain_sites___3 = factor(data$bpi_pain_sites___3,levels=c("0","1"))
data$bpi_pain_sites___4 = factor(data$bpi_pain_sites___4,levels=c("0","1"))
data$bpi_pain_sites___5 = factor(data$bpi_pain_sites___5,levels=c("0","1"))
data$bpi_pain_sites___6 = factor(data$bpi_pain_sites___6,levels=c("0","1"))
data$bpi_pain_sites___7 = factor(data$bpi_pain_sites___7,levels=c("0","1"))
data$bpi_pain_sites___8 = factor(data$bpi_pain_sites___8,levels=c("0","1"))
data$bpi_pain_sites___9 = factor(data$bpi_pain_sites___9,levels=c("0","1"))
data$bpi_pain_sites___10 = factor(data$bpi_pain_sites___10,levels=c("0","1"))
data$bpi_pain_sites___11 = factor(data$bpi_pain_sites___11,levels=c("0","1"))
data$bpi_pain_sites___12 = factor(data$bpi_pain_sites___12,levels=c("0","1"))
data$bpi_pain_sites___13 = factor(data$bpi_pain_sites___13,levels=c("0","1"))
data$bpi_pain_sites___14 = factor(data$bpi_pain_sites___14,levels=c("0","1"))
data$bpi_pain_sites___15 = factor(data$bpi_pain_sites___15,levels=c("0","1"))
data$bpi_pain_sites___16 = factor(data$bpi_pain_sites___16,levels=c("0","1"))
data$bpi_pain_sites___17 = factor(data$bpi_pain_sites___17,levels=c("0","1"))
data$bpi_pain_sites___18 = factor(data$bpi_pain_sites___18,levels=c("0","1"))
data$bpi_pain_sites___19 = factor(data$bpi_pain_sites___19,levels=c("0","1"))
data$bpi_pain_sites___20 = factor(data$bpi_pain_sites___20,levels=c("0","1"))
data$bpi_pain_sites___21 = factor(data$bpi_pain_sites___21,levels=c("0","1"))
data$bpi_pain_sites___22 = factor(data$bpi_pain_sites___22,levels=c("0","1"))
data$bpi_pain_sites___23 = factor(data$bpi_pain_sites___23,levels=c("0","1"))
data$bpi_pain_sites___24 = factor(data$bpi_pain_sites___24,levels=c("0","1"))
data$bpi_pain_sites___25 = factor(data$bpi_pain_sites___25,levels=c("0","1"))
data$bpi_worst = factor(data$bpi_worst,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_least = factor(data$bpi_least,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_average = factor(data$bpi_average,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_rightnow = factor(data$bpi_rightnow,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_relief = factor(data$bpi_relief,levels=c("0","10","20","30","40","50","60","70","80","90","100"))
data$bpi_past24_general = factor(data$bpi_past24_general,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_mood = factor(data$bpi_past24_mood,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_walking = factor(data$bpi_past24_walking,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_work = factor(data$bpi_past24_work,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_relation = factor(data$bpi_past24_relation,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_sleep = factor(data$bpi_past24_sleep,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$bpi_past24_enjoyment = factor(data$bpi_past24_enjoyment,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$repeatable_brief_pain_inventory_short_form_complete = factor(data$repeatable_brief_pain_inventory_short_form_complete,levels=c("0","1","2"))
data$neadl_1 = factor(data$neadl_1,levels=c("0","1","2","3"))
data$neadl_2 = factor(data$neadl_2,levels=c("0","1","2","3"))
data$neadl_3 = factor(data$neadl_3,levels=c("0","1","2","3"))
data$neadl_4 = factor(data$neadl_4,levels=c("0","1","2","3"))
data$neadl_5 = factor(data$neadl_5,levels=c("0","1","2","3"))
data$neadl_6 = factor(data$neadl_6,levels=c("0","1","2","3"))
data$neadl_7 = factor(data$neadl_7,levels=c("0","1","2","3"))
data$neadl_8 = factor(data$neadl_8,levels=c("0","1","2","3"))
data$neadl_9 = factor(data$neadl_9,levels=c("0","1","2","3"))
data$neadl_10 = factor(data$neadl_10,levels=c("0","1","2","3"))
data$neadl_11 = factor(data$neadl_11,levels=c("0","1","2","3"))
data$neadl_12 = factor(data$neadl_12,levels=c("0","1","2","3"))
data$neadl_13 = factor(data$neadl_13,levels=c("0","1","2","3"))
data$neadl_14 = factor(data$neadl_14,levels=c("0","1","2","3"))
data$neadl_15 = factor(data$neadl_15,levels=c("0","1","2","3"))
data$neadl_16 = factor(data$neadl_16,levels=c("0","1","2","3"))
data$neadl_17 = factor(data$neadl_17,levels=c("0","1","2","3"))
data$neadl_18 = factor(data$neadl_18,levels=c("0","1","2","3"))
data$neadl_19 = factor(data$neadl_19,levels=c("0","1","2","3"))
data$neadl_20 = factor(data$neadl_20,levels=c("0","1","2","3"))
data$neadl_21 = factor(data$neadl_21,levels=c("0","1","2","3"))
data$neadl_22 = factor(data$neadl_22,levels=c("0","1","2","3"))
data$repeatable_nottingham_extended_adl_scale_complete = factor(data$repeatable_nottingham_extended_adl_scale_complete,levels=c("0","1","2"))
data$moca_ve___1 = factor(data$moca_ve___1,levels=c("0","1"))
data$moca_ve___2 = factor(data$moca_ve___2,levels=c("0","1"))
data$moca_ve___3 = factor(data$moca_ve___3,levels=c("0","1"))
data$moca_ve___4 = factor(data$moca_ve___4,levels=c("0","1"))
data$moca_ve___5 = factor(data$moca_ve___5,levels=c("0","1"))
data$moca_naming___1 = factor(data$moca_naming___1,levels=c("0","1"))
data$moca_naming___2 = factor(data$moca_naming___2,levels=c("0","1"))
data$moca_naming___3 = factor(data$moca_naming___3,levels=c("0","1"))
data$moca_mem_1___1 = factor(data$moca_mem_1___1,levels=c("0","1"))
data$moca_mem_1___2 = factor(data$moca_mem_1___2,levels=c("0","1"))
data$moca_mem_1___3 = factor(data$moca_mem_1___3,levels=c("0","1"))
data$moca_mem_1___4 = factor(data$moca_mem_1___4,levels=c("0","1"))
data$moca_mem_1___5 = factor(data$moca_mem_1___5,levels=c("0","1"))
data$moca_mem_2___1 = factor(data$moca_mem_2___1,levels=c("0","1"))
data$moca_mem_2___2 = factor(data$moca_mem_2___2,levels=c("0","1"))
data$moca_mem_2___3 = factor(data$moca_mem_2___3,levels=c("0","1"))
data$moca_mem_2___4 = factor(data$moca_mem_2___4,levels=c("0","1"))
data$moca_mem_2___5 = factor(data$moca_mem_2___5,levels=c("0","1"))
data$moca_att___1 = factor(data$moca_att___1,levels=c("0","1"))
data$moca_att___2 = factor(data$moca_att___2,levels=c("0","1"))
data$moca_att___3 = factor(data$moca_att___3,levels=c("0","1"))
data$moca_att___4 = factor(data$moca_att___4,levels=c("0","1"))
data$moca_att___5 = factor(data$moca_att___5,levels=c("0","1"))
data$moca_att___6 = factor(data$moca_att___6,levels=c("0","1"))
data$moca_att___7 = factor(data$moca_att___7,levels=c("0","1"))
data$moca_att___8 = factor(data$moca_att___8,levels=c("0","1"))
data$moca_lang_repeat___1 = factor(data$moca_lang_repeat___1,levels=c("0","1"))
data$moca_lang_repeat___2 = factor(data$moca_lang_repeat___2,levels=c("0","1"))
data$moca_abstract___1 = factor(data$moca_abstract___1,levels=c("0","1"))
data$moca_abstract___2 = factor(data$moca_abstract___2,levels=c("0","1"))
data$moca_recall___1 = factor(data$moca_recall___1,levels=c("0","1"))
data$moca_recall___2 = factor(data$moca_recall___2,levels=c("0","1"))
data$moca_recall___3 = factor(data$moca_recall___3,levels=c("0","1"))
data$moca_recall___4 = factor(data$moca_recall___4,levels=c("0","1"))
data$moca_recall___5 = factor(data$moca_recall___5,levels=c("0","1"))
data$moca_recall_opt_cat___1 = factor(data$moca_recall_opt_cat___1,levels=c("0","1"))
data$moca_recall_opt_cat___2 = factor(data$moca_recall_opt_cat___2,levels=c("0","1"))
data$moca_recall_opt_cat___3 = factor(data$moca_recall_opt_cat___3,levels=c("0","1"))
data$moca_recall_opt_cat___4 = factor(data$moca_recall_opt_cat___4,levels=c("0","1"))
data$moca_recall_opt_cat___5 = factor(data$moca_recall_opt_cat___5,levels=c("0","1"))
data$moca_recall_opt_choice___1 = factor(data$moca_recall_opt_choice___1,levels=c("0","1"))
data$moca_recall_opt_choice___2 = factor(data$moca_recall_opt_choice___2,levels=c("0","1"))
data$moca_recall_opt_choice___3 = factor(data$moca_recall_opt_choice___3,levels=c("0","1"))
data$moca_recall_opt_choice___4 = factor(data$moca_recall_opt_choice___4,levels=c("0","1"))
data$moca_recall_opt_choice___5 = factor(data$moca_recall_opt_choice___5,levels=c("0","1"))
data$moca_orient___1 = factor(data$moca_orient___1,levels=c("0","1"))
data$moca_orient___2 = factor(data$moca_orient___2,levels=c("0","1"))
data$moca_orient___3 = factor(data$moca_orient___3,levels=c("0","1"))
data$moca_orient___4 = factor(data$moca_orient___4,levels=c("0","1"))
data$moca_orient___5 = factor(data$moca_orient___5,levels=c("0","1"))
data$moca_orient___6 = factor(data$moca_orient___6,levels=c("0","1"))
data$repeatable_montreal_cognitive_assessment_moca_complete = factor(data$repeatable_montreal_cognitive_assessment_moca_complete,levels=c("0","1","2"))
data$rcf_known = factor(data$rcf_known,levels=c("1","0"))
data$rcf_score = factor(data$rcf_score,levels=c("1","2","3","4","5","6","7","8","9"))
data$repeatable_rockwood_clinical_frailty_scale_complete = factor(data$repeatable_rockwood_clinical_frailty_scale_complete,levels=c("0","1","2"))
data$k_bild_breathless = factor(data$k_bild_breathless,levels=c("1","2","3","4","5","6","7"))
data$k_bild_lung_condition = factor(data$k_bild_lung_condition,levels=c("1","2","3","4","5","6","7"))
data$k_bild_lung_complaint = factor(data$k_bild_lung_complaint,levels=c("1","2","3","4","5","6","7"))
data$k_bild_avoid = factor(data$k_bild_avoid,levels=c("1","2","3","4","5","6","7"))
data$k_bild_contol_lung_cond = factor(data$k_bild_contol_lung_cond,levels=c("1","2","3","4","5","6","7"))
data$k_bild_dump = factor(data$k_bild_dump,levels=c("1","2","3","4","5","6","7"))
data$k_bild_air_hunger = factor(data$k_bild_air_hunger,levels=c("1","2","3","4","5","6","7"))
data$k_bild_anxious = factor(data$k_bild_anxious,levels=c("1","2","3","4","5","6","7"))
data$k_bild_wheeze_sounds = factor(data$k_bild_wheeze_sounds,levels=c("1","2","3","4","5","6","7"))
data$k_bild_disease_worse = factor(data$k_bild_disease_worse,levels=c("1","2","3","4","5","6","7"))
data$k_bild_interferred_work = factor(data$k_bild_interferred_work,levels=c("1","2","3","4","5","6","7"))
data$k_bild_complaint_worse = factor(data$k_bild_complaint_worse,levels=c("1","2","3","4","5","6","7"))
data$k_bild_carrying_limited = factor(data$k_bild_carrying_limited,levels=c("1","2","3","4","5","6","7"))
data$k_bild_end_life = factor(data$k_bild_end_life,levels=c("1","2","3","4","5","6","7"))
data$k_bild_financia_worse = factor(data$k_bild_financia_worse,levels=c("1","2","3","4","5","6","7"))
data$repeatable_kings_brief_ild_questionnaire_kbild_complete = factor(data$repeatable_kings_brief_ild_questionnaire_kbild_complete,levels=c("0","1","2"))
data$iparc_visit = factor(data$iparc_visit,levels=c("1","2","3","4"))
data$iparc_shortness = factor(data$iparc_shortness,levels=c("0","1","2","3"))
data$iparc_feeling_weak = factor(data$iparc_feeling_weak,levels=c("0","1","2","3"))
data$iparc_feeling_tired = factor(data$iparc_feeling_tired,levels=c("0","1","2","3"))
data$iparc_feeling_sleepy = factor(data$iparc_feeling_sleepy,levels=c("0","1","2","3"))
data$iparc_loss_appetite = factor(data$iparc_loss_appetite,levels=c("0","1","2","3"))
data$iparc_feeling_restless = factor(data$iparc_feeling_restless,levels=c("0","1","2","3"))
data$iparc_uncontrolled = factor(data$iparc_uncontrolled,levels=c("0","1","2","3"))
data$iparc_side_effects = factor(data$iparc_side_effects,levels=c("0","1","2","3"))
data$iparc_losing_independence = factor(data$iparc_losing_independence,levels=c("0","1","2","3"))
data$iparc_daily_activities = factor(data$iparc_daily_activities,levels=c("0","1","2","3"))
data$iparc_household_tasks = factor(data$iparc_household_tasks,levels=c("0","1","2","3"))
data$repeatable_iparc_questionnaire_complete = factor(data$repeatable_iparc_questionnaire_complete,levels=c("0","1","2"))
data$psqi_visit = factor(data$psqi_visit,levels=c("1","2"))
data$psqi_q5a = factor(data$psqi_q5a,levels=c("0","1","2","3"))
data$psqi_q5b = factor(data$psqi_q5b,levels=c("0","1","2","3"))
data$psqi_q5c = factor(data$psqi_q5c,levels=c("0","1","2","3"))
data$psqi_q5d = factor(data$psqi_q5d,levels=c("0","1","2","3"))
data$psqi_q5e = factor(data$psqi_q5e,levels=c("0","1","2","3"))
data$psqi_q5f = factor(data$psqi_q5f,levels=c("0","1","2","3"))
data$psqi_q5g = factor(data$psqi_q5g,levels=c("0","1","2","3"))
data$psqi_q5h = factor(data$psqi_q5h,levels=c("0","1","2","3"))
data$psqi_q5i = factor(data$psqi_q5i,levels=c("0","1","2","3"))
data$psqi_q5j = factor(data$psqi_q5j,levels=c("0","1","2","3"))
data$psqi_q6 = factor(data$psqi_q6,levels=c("0","1","2","3"))
data$psqi_q7 = factor(data$psqi_q7,levels=c("0","1","2","3"))
data$psqi_q8 = factor(data$psqi_q8,levels=c("0","1","2","3"))
data$psqi_q9 = factor(data$psqi_q9,levels=c("0","1","2","3"))
data$psqi_q10 = factor(data$psqi_q10,levels=c("0","1","2","3"))
data$psqi_q10a = factor(data$psqi_q10a,levels=c("0","1","2","3"))
data$psqi_q10b = factor(data$psqi_q10b,levels=c("0","1","2","3"))
data$psqi_q10c = factor(data$psqi_q10c,levels=c("0","1","2","3"))
data$psqi_q10d = factor(data$psqi_q10d,levels=c("0","1","2","3"))
data$psqi_q10e = factor(data$psqi_q10e,levels=c("0","1","2","3"))
data$repeatable_pittsburgh_sleep_quality_index_psqi_complete = factor(data$repeatable_pittsburgh_sleep_quality_index_psqi_complete,levels=c("0","1","2"))
data$meq_visit = factor(data$meq_visit,levels=c("1","2"))
data$meq_q1 = factor(data$meq_q1,levels=c("5","4","3","2","1","0"))
data$meq_q2 = factor(data$meq_q2,levels=c("5","4","3","2","1","0"))
data$meq_q3 = factor(data$meq_q3,levels=c("4","3","2","1"))
data$meq_q4 = factor(data$meq_q4,levels=c("1","2","3","4"))
data$meq_q5 = factor(data$meq_q5,levels=c("1","2","3","4"))
data$meq_q6 = factor(data$meq_q6,levels=c("1","2","3","4"))
data$meq_q7 = factor(data$meq_q7,levels=c("1","2","3","4"))
data$meq_q8 = factor(data$meq_q8,levels=c("4","3","2","1"))
data$meq_q9 = factor(data$meq_q9,levels=c("4","3","2","1"))
data$meq_q10 = factor(data$meq_q10,levels=c("5","4","3","2","1"))
data$meq_q11 = factor(data$meq_q11,levels=c("4","3","2","1"))
data$meq_q12 = factor(data$meq_q12,levels=c("1","2","3","4"))
data$meq_q13 = factor(data$meq_q13,levels=c("4","3","2","1"))
data$meq_q14 = factor(data$meq_q14,levels=c("1","2","3","4"))
data$meq_q15 = factor(data$meq_q15,levels=c("4","3","2","1"))
data$meq_q16 = factor(data$meq_q16,levels=c("4","3","2","1"))
data$meq_q17 = factor(data$meq_q17,levels=c("5","4","3","2","1"))
data$meq_q18 = factor(data$meq_q18,levels=c("5","4","3","2","1"))
data$meq_q19 = factor(data$meq_q19,levels=c("6","4","2","0"))
data$repeatable_morningnesseveningness_questionnaire_me_complete = factor(data$repeatable_morningnesseveningness_questionnaire_me_complete,levels=c("0","1","2"))
data$cough_visit = factor(data$cough_visit,levels=c("1","2"))
data$lcq_q1 = factor(data$lcq_q1,levels=c("1","2","3","4","5","6","7"))
data$lcq_q2 = factor(data$lcq_q2,levels=c("1","2","3","4","5","6","7"))
data$lcq_q3 = factor(data$lcq_q3,levels=c("1","2","3","4","5","6","7"))
data$lcq_q4 = factor(data$lcq_q4,levels=c("1","2","3","4","5","6","7"))
data$lcq_q5 = factor(data$lcq_q5,levels=c("1","2","3","4","5","6","7"))
data$lcq_q6 = factor(data$lcq_q6,levels=c("1","2","3","4","5","6","7"))
data$lcq_q7 = factor(data$lcq_q7,levels=c("1","2","3","4","5","6","7"))
data$lcq_q8 = factor(data$lcq_q8,levels=c("1","2","3","4","5","6","7"))
data$lcq_q9 = factor(data$lcq_q9,levels=c("1","2","3","4","5","6","7"))
data$lcq_q10 = factor(data$lcq_q10,levels=c("1","2","3","4","5","6","7"))
data$lcq_q11 = factor(data$lcq_q11,levels=c("1","2","3","4","5","6","7"))
data$lcq_q12 = factor(data$lcq_q12,levels=c("1","2","3","4","5","6","7"))
data$lcq_q13 = factor(data$lcq_q13,levels=c("1","2","3","4","5","6","7"))
data$lcq_q14 = factor(data$lcq_q14,levels=c("1","2","3","4","5","6","7"))
data$lcq_q15 = factor(data$lcq_q15,levels=c("1","2","3","4","5","6","7"))
data$lcq_q16 = factor(data$lcq_q16,levels=c("1","2","3","4","5","6","7"))
data$lcq_q17 = factor(data$lcq_q17,levels=c("1","2","3","4","5","6","7"))
data$lcq_q18 = factor(data$lcq_q18,levels=c("1","2","3","4","5","6","7"))
data$lcq_q19 = factor(data$lcq_q19,levels=c("1","2","3","4","5","6","7"))
data$repeatable_leicester_cough_questionnaire_complete = factor(data$repeatable_leicester_cough_questionnaire_complete,levels=c("0","1","2"))
data$pft_spm_done = factor(data$pft_spm_done,levels=c("1","0"))
data$pft_spm_reason_not_done = factor(data$pft_spm_reason_not_done,levels=c("1","2","3","4"))
data$pft_spm_has_report = factor(data$pft_spm_has_report,levels=c("1","0"))
data$pft_is_post_bronc = factor(data$pft_is_post_bronc,levels=c("1","0"))
data$pft_tests_done___1 = factor(data$pft_tests_done___1,levels=c("0","1"))
data$pft_tests_done___2 = factor(data$pft_tests_done___2,levels=c("0","1"))
data$pft_tests_done___3 = factor(data$pft_tests_done___3,levels=c("0","1"))
data$pft_tests_done___4 = factor(data$pft_tests_done___4,levels=c("0","1"))
data$pft_tests_done___5 = factor(data$pft_tests_done___5,levels=c("0","1"))
data$pft_tests_done___6 = factor(data$pft_tests_done___6,levels=c("0","1"))
data$pft_tests_done___7 = factor(data$pft_tests_done___7,levels=c("0","1"))
data$pft_tlco_unit = factor(data$pft_tlco_unit,levels=c("1","2"))
data$pft_kco_unit = factor(data$pft_kco_unit,levels=c("1","2"))
data$repeatable_pulmonary_functional_tests_complete = factor(data$repeatable_pulmonary_functional_tests_complete,levels=c("0","1","2"))
data$wt_type = factor(data$wt_type,levels=c("1","2"))
data$wt_done = factor(data$wt_done,levels=c("1","0"))
data$wt_visit = factor(data$wt_visit,levels=c("1","2","3"))
data$wt_aid = factor(data$wt_aid,levels=c("1","0"))
data$wt_o2 = factor(data$wt_o2,levels=c("1","0"))
data$mt_reason___1 = factor(data$mt_reason___1,levels=c("0","1"))
data$mt_reason___2 = factor(data$mt_reason___2,levels=c("0","1"))
data$mt_reason___4 = factor(data$mt_reason___4,levels=c("0","1"))
data$mt_reason___3 = factor(data$mt_reason___3,levels=c("0","1"))
data$repeatable_walk_test_6_min_iswt_15_level_complete = factor(data$repeatable_walk_test_6_min_iswt_15_level_complete,levels=c("0","1","2"))
data$t2ct_fasting = factor(data$t2ct_fasting,levels=c("1","0"))
data$t2ct_type_last_meal = factor(data$t2ct_type_last_meal,levels=c("1","2","3","4"))
data$t2ct_blood_fbc = factor(data$t2ct_blood_fbc,levels=c("1","0"))
data$t2ct_blood_ues = factor(data$t2ct_blood_ues,levels=c("1","0"))
data$t2ct_blood_egfr = factor(data$t2ct_blood_egfr,levels=c("1","0"))
data$t2ct_blood_lfts = factor(data$t2ct_blood_lfts,levels=c("1","0"))
data$t2ct_blood_crp = factor(data$t2ct_blood_crp,levels=c("1","0"))
data$t2ct_blood_bone = factor(data$t2ct_blood_bone,levels=c("1","0"))
data$t2ct_blood_25oh = factor(data$t2ct_blood_25oh,levels=c("1","0"))
data$t2ct_blood_bnp = factor(data$t2ct_blood_bnp,levels=c("1","0"))
data$t2ct_blood_trop = factor(data$t2ct_blood_trop,levels=c("1","0"))
data$t2ct_blood_dd = factor(data$t2ct_blood_dd,levels=c("1","0"))
data$t2ct_blood_fib = factor(data$t2ct_blood_fib,levels=c("1","0"))
data$t2ct_blood_inr = factor(data$t2ct_blood_inr,levels=c("1","0"))
data$t2ct_blood_fer = factor(data$t2ct_blood_fer,levels=c("1","0"))
data$t2ct_blood_hba1c = factor(data$t2ct_blood_hba1c,levels=c("1","0"))
data$t2ct_blood_lipid = factor(data$t2ct_blood_lipid,levels=c("1","0"))
data$t2ct_link_routine_blood = factor(data$t2ct_link_routine_blood,levels=c("1","0"))
data$t2ct_urine_albumbin = factor(data$t2ct_urine_albumbin,levels=c("1","0"))
data$t2ct_urine_protein = factor(data$t2ct_urine_protein,levels=c("1","0"))
data$t2ct_urine_urinalysis = factor(data$t2ct_urine_urinalysis,levels=c("1","0"))
data$t2ct_link_blood_urine = factor(data$t2ct_link_blood_urine,levels=c("1","0"))
data$t2ct_fast_lipid = factor(data$t2ct_fast_lipid,levels=c("1","0"))
data$t2ct_fast_gluc = factor(data$t2ct_fast_gluc,levels=c("1","0"))
data$t2ct_fast_insul = factor(data$t2ct_fast_insul,levels=c("1","0"))
data$t2ct_link_fast_blood = factor(data$t2ct_link_fast_blood,levels=c("1","0"))
data$repeatable_tier_2_core_tests_checklist_complete = factor(data$repeatable_tier_2_core_tests_checklist_complete,levels=c("0","1","2"))
data$t2brs_cirate = factor(data$t2brs_cirate,levels=c("1","0"))
data$t2brs_sst_s1 = factor(data$t2brs_sst_s1,levels=c("1","0"))
data$t2brs_sst_s3 = factor(data$t2brs_sst_s3,levels=c("1","0"))
data$t2brs_lithium = factor(data$t2brs_lithium,levels=c("1","0"))
data$t2brs_edta_e1 = factor(data$t2brs_edta_e1,levels=c("1","0"))
data$t2brs_edta_e2 = factor(data$t2brs_edta_e2,levels=c("1","0"))
data$t2brs_rna = factor(data$t2brs_rna,levels=c("1","0"))
data$t2brs_core_form_blood = factor(data$t2brs_core_form_blood,levels=c("1","0"))
data$t2brs_other_oral_sample = factor(data$t2brs_other_oral_sample,levels=c("1","0"))
data$t2brs_other_oral_control = factor(data$t2brs_other_oral_control,levels=c("1","0"))
data$t2brs_other_sputum = factor(data$t2brs_other_sputum,levels=c("1","0"))
data$t2brs_other_urine = factor(data$t2brs_other_urine,levels=c("1","0"))
data$t2brs_core_form_oral = factor(data$t2brs_core_form_oral,levels=c("1","0"))
data$t2brs_core_form_sputum = factor(data$t2brs_core_form_sputum,levels=c("1","0"))
data$t2brs_core_form_urine = factor(data$t2brs_core_form_urine,levels=c("1","0"))
data$repeatable_tier_2_biological_research_samples_chec_complete = factor(data$repeatable_tier_2_biological_research_samples_chec_complete,levels=c("0","1","2"))
data$t2c_blood_citrate = factor(data$t2c_blood_citrate,levels=c("1","0"))
data$t2c_blood_s1 = factor(data$t2c_blood_s1,levels=c("1","0"))
data$t2c_blood_s2 = factor(data$t2c_blood_s2,levels=c("1","0"))
data$t2c_blood_heparin = factor(data$t2c_blood_heparin,levels=c("1","0"))
data$t2c_blood_e1 = factor(data$t2c_blood_e1,levels=c("1","0"))
data$t2c_blood_e2 = factor(data$t2c_blood_e2,levels=c("1","0"))
data$t2c_blood_tempus = factor(data$t2c_blood_tempus,levels=c("1","0"))
data$t2c_blood_tube_inv_citrate = factor(data$t2c_blood_tube_inv_citrate,levels=c("1","0"))
data$t2c_blood_tube_inv_s1 = factor(data$t2c_blood_tube_inv_s1,levels=c("1","0"))
data$t2c_blood_tube_inv_s2 = factor(data$t2c_blood_tube_inv_s2,levels=c("1","0"))
data$t2c_blood_tube_inv_heparin = factor(data$t2c_blood_tube_inv_heparin,levels=c("1","0"))
data$t2c_blood_tube_inv_e1 = factor(data$t2c_blood_tube_inv_e1,levels=c("1","0"))
data$t2c_blood_tube_inv_e2 = factor(data$t2c_blood_tube_inv_e2,levels=c("1","0"))
data$t2c_blood_tube_inv_tempus = factor(data$t2c_blood_tube_inv_tempus,levels=c("1","0"))
data$repeatable_tier_2_core_sample_notification_form_bl_complete = factor(data$repeatable_tier_2_core_sample_notification_form_bl_complete,levels=c("0","1","2"))
data$t2c_oral_wash_taken = factor(data$t2c_oral_wash_taken,levels=c("1","0"))
data$t2c_oral_control_taken = factor(data$t2c_oral_control_taken,levels=c("1","0"))
data$repeatable_tier_2_core_sample_notification_form_or_complete = factor(data$repeatable_tier_2_core_sample_notification_form_or_complete,levels=c("0","1","2"))
data$t2c_sputum_taken = factor(data$t2c_sputum_taken,levels=c("1","0"))
data$repeatable_tier_2_core_sample_notification_form_sp_complete = factor(data$repeatable_tier_2_core_sample_notification_form_sp_complete,levels=c("0","1","2"))
data$t2c_urine_taken = factor(data$t2c_urine_taken,levels=c("1","0"))
data$repeatable_tier_2_core_sample_notification_form_ur_complete = factor(data$repeatable_tier_2_core_sample_notification_form_ur_complete,levels=c("0","1","2"))
data$qrisk3_done = factor(data$qrisk3_done,levels=c("1","0"))
data$qrisk3_visit = factor(data$qrisk3_visit,levels=c("1","2"))
data$qrisk3_eth = factor(data$qrisk3_eth,levels=c("1","2","3","4","5","6","7","8","9"))
data$qrisk3_diab = factor(data$qrisk3_diab,levels=c("0","1","2"))
data$qrisk3_smoke = factor(data$qrisk3_smoke,levels=c("0","1","2","3","4"))
data$qrisk3_other_heart = factor(data$qrisk3_other_heart,levels=c("1","0"))
data$qrisk3_other_ckd = factor(data$qrisk3_other_ckd,levels=c("1","0"))
data$qrisk3_other_af = factor(data$qrisk3_other_af,levels=c("1","0"))
data$qrisk3_other_bpt = factor(data$qrisk3_other_bpt,levels=c("1","0"))
data$qrisk3_other_migraines = factor(data$qrisk3_other_migraines,levels=c("1","0"))
data$qrisk3_other_ra = factor(data$qrisk3_other_ra,levels=c("1","0"))
data$qrisk3_other_sle = factor(data$qrisk3_other_sle,levels=c("1","0"))
data$qrisk3_other_smi = factor(data$qrisk3_other_smi,levels=c("1","0"))
data$qrisk3_other_aam = factor(data$qrisk3_other_aam,levels=c("1","0"))
data$qrisk3_other_rst = factor(data$qrisk3_other_rst,levels=c("1","0"))
data$qrisk3_other_ed = factor(data$qrisk3_other_ed,levels=c("1","0"))
data$repeatable_qrisk3_complete = factor(data$repeatable_qrisk3_complete,levels=c("0","1","2"))
data$bia_done = factor(data$bia_done,levels=c("1","0"))
data$repeatable_body_composition_measurements_bia_complete = factor(data$repeatable_body_composition_measurements_bia_complete,levels=c("0","1","2"))
data$dxa_done = factor(data$dxa_done,levels=c("1","0"))
data$dxa_fracture = factor(data$dxa_fracture,levels=c("1","0"))
data$dxa_fracture_parent = factor(data$dxa_fracture_parent,levels=c("1","0","NK"))
data$repeatable_body_composition_measurements_dxa_complete = factor(data$repeatable_body_composition_measurements_dxa_complete,levels=c("0","1","2"))
data$ms_hs_done = factor(data$ms_hs_done,levels=c("1","0"))
data$ms_hs_dom = factor(data$ms_hs_dom,levels=c("1","2"))
data$ms_qs_done = factor(data$ms_qs_done,levels=c("1","0"))
data$ms_qs_dom = factor(data$ms_qs_dom,levels=c("1","2"))
data$repeatable_muscle_strength_complete = factor(data$repeatable_muscle_strength_complete,levels=c("0","1","2"))
data$sppb_visit = factor(data$sppb_visit,levels=c("1","2"))
data$sppb_done = factor(data$sppb_done,levels=c("1","0"))
data$sppb_balance = factor(data$sppb_balance,levels=c("0","1","2","3","4"))
data$sppb_walk = factor(data$sppb_walk,levels=c("0","1","2","3","4"))
data$sppb_chair = factor(data$sppb_chair,levels=c("0","1","2","3","4"))
data$repeatable_short_physical_performance_battery_sppb_complete = factor(data$repeatable_short_physical_performance_battery_sppb_complete,levels=c("0","1","2"))
data$pre_psq_version = factor(data$pre_psq_version,levels=c("1"))
data$psq_scale_blness_pre2 = factor(data$psq_scale_blness_pre2,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_cough_pre2 = factor(data$psq_scale_cough_pre2,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_fatigue_pre2 = factor(data$psq_scale_fatigue_pre2,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_sleep_pre2 = factor(data$psq_scale_sleep_pre2,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_pain_pre2 = factor(data$psq_scale_pain_pre2,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$pre_psq_mrcds = factor(data$pre_psq_mrcds,levels=c("1","0"))
data$pre_psq_social = factor(data$pre_psq_social,levels=c("1","0"))
data$pre_psq_eq5d5l = factor(data$pre_psq_eq5d5l,levels=c("1","0"))
data$patient_sq_l_b_seeing2 = factor(data$patient_sq_l_b_seeing2,levels=c("0","1","2","3"))
data$patient_sq_l_b_hearing2 = factor(data$patient_sq_l_b_hearing2,levels=c("0","1","2","3"))
data$patient_sq_l_b_walking2 = factor(data$patient_sq_l_b_walking2,levels=c("0","1","2","3"))
data$patient_sq_l_b_remembering2 = factor(data$patient_sq_l_b_remembering2,levels=c("0","1","2","3"))
data$patient_sq_l_b_self_care2 = factor(data$patient_sq_l_b_self_care2,levels=c("0","1","2","3"))
data$patient_sq_l_b_communicate2 = factor(data$patient_sq_l_b_communicate2,levels=c("0","1","2","3"))
data$psq_tinnitus_before2 = factor(data$psq_tinnitus_before2,levels=c("5","4","3","2","1","0"))
data$psq_balance_q1_before2 = factor(data$psq_balance_q1_before2,levels=c("1","0"))
data$psq_balance_q2_before2 = factor(data$psq_balance_q2_before2,levels=c("1","0"))
data$precovid_patient_symptom_questionnaire_complete = factor(data$precovid_patient_symptom_questionnaire_complete,levels=c("0","1","2"))
data$symptom_version = factor(data$symptom_version,levels=c("1","5","2","3","4","6","7"))
data$psq_recovered = factor(data$psq_recovered,levels=c("1","2","3"))
data$psq_scale_blness_pre = factor(data$psq_scale_blness_pre,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_cough_pre = factor(data$psq_scale_cough_pre,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_fatigue_pre = factor(data$psq_scale_fatigue_pre,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_sleep_pre = factor(data$psq_scale_sleep_pre,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_pain_pre = factor(data$psq_scale_pain_pre,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_blness_since = factor(data$psq_scale_blness_since,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_cough_since = factor(data$psq_scale_cough_since,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_fatigue_since = factor(data$psq_scale_fatigue_since,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_sleep_since = factor(data$psq_scale_sleep_since,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_pain_since = factor(data$psq_scale_pain_since,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_blness_24hrs = factor(data$psq_scale_blness_24hrs,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_cough_24hrs = factor(data$psq_scale_cough_24hrs,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_fatigue_24hrs = factor(data$psq_scale_fatigue_24hrs,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_sleep_24hrs = factor(data$psq_scale_sleep_24hrs,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_scale_pain_24hrs = factor(data$psq_scale_pain_24hrs,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_traj_blness = factor(data$psq_traj_blness,levels=c("1","2","3"))
data$psq_traj_cough = factor(data$psq_traj_cough,levels=c("1","2","3"))
data$psq_traj_fatigue = factor(data$psq_traj_fatigue,levels=c("1","2","3"))
data$psq_traj_sleep = factor(data$psq_traj_sleep,levels=c("1","2","3"))
data$psq_traj_pain = factor(data$psq_traj_pain,levels=c("1","2","3"))
data$psq_blness = factor(data$psq_blness,levels=c("1","0"))
data$psq_cough = factor(data$psq_cough,levels=c("1","0"))
data$psq_fatigue = factor(data$psq_fatigue,levels=c("1","0"))
data$psq_sleep = factor(data$psq_sleep,levels=c("1","0"))
data$psq_pain = factor(data$psq_pain,levels=c("1","0"))
data$loss_of_sense_of_smell = factor(data$loss_of_sense_of_smell,levels=c("1","0"))
data$loss_of_taste = factor(data$loss_of_taste,levels=c("1","0"))
data$confusion_fuzzy_head = factor(data$confusion_fuzzy_head,levels=c("1","0"))
data$difficulty_with_communicat = factor(data$difficulty_with_communicat,levels=c("1","0"))
data$difficulty_with_concentrat = factor(data$difficulty_with_concentrat,levels=c("1","0"))
data$short_term_memory_loss = factor(data$short_term_memory_loss,levels=c("1","0"))
data$physical_slowing_down = factor(data$physical_slowing_down,levels=c("1","0"))
data$slowing_down_in_your_think = factor(data$slowing_down_in_your_think,levels=c("1","0"))
data$headache = factor(data$headache,levels=c("1","0"))
data$altered_personality_behavi = factor(data$altered_personality_behavi,levels=c("1","0"))
data$limb_weakness = factor(data$limb_weakness,levels=c("1","0"))
data$problems_with_balance = factor(data$problems_with_balance,levels=c("1","0"))
data$can_t_move_and_or_feel_one = factor(data$can_t_move_and_or_feel_one,levels=c("1","0"))
data$problems_seeing = factor(data$problems_seeing,levels=c("1","0"))
data$tingling_feeling_pins_and = factor(data$tingling_feeling_pins_and,levels=c("1","0"))
data$can_t_fully_move_or_contro = factor(data$can_t_fully_move_or_contro,levels=c("1","0"))
data$tremor_shakiness = factor(data$tremor_shakiness,levels=c("1","0"))
data$seizures = factor(data$seizures,levels=c("1","0"))
data$aching_in_your_muscles_pai = factor(data$aching_in_your_muscles_pai,levels=c("1","0"))
data$joint_pain_or_swelling = factor(data$joint_pain_or_swelling,levels=c("1","0"))
data$leg_ankle_swelling = factor(data$leg_ankle_swelling,levels=c("1","0"))
data$chest_pain = factor(data$chest_pain,levels=c("1","0"))
data$chest_tightness = factor(data$chest_tightness,levels=c("1","0"))
data$pain_on_breathing = factor(data$pain_on_breathing,levels=c("1","0"))
data$palpitations = factor(data$palpitations,levels=c("1","0"))
data$dizziness_or_lightheadness = factor(data$dizziness_or_lightheadness,levels=c("1","0"))
data$fainting_blackouts = factor(data$fainting_blackouts,levels=c("1","0"))
data$diarrhoea = factor(data$diarrhoea,levels=c("1","0"))
data$constipation = factor(data$constipation,levels=c("1","0"))
data$nausea_vomiting = factor(data$nausea_vomiting,levels=c("1","0"))
data$abdominal_pain = factor(data$abdominal_pain,levels=c("1","0"))
data$loss_of_appetite = factor(data$loss_of_appetite,levels=c("1","0"))
data$loss_of_control_of_passing = factor(data$loss_of_control_of_passing,levels=c("1","0"))
data$loss_of_control_of_opening = factor(data$loss_of_control_of_opening,levels=c("1","0"))
data$weight_loss = factor(data$weight_loss,levels=c("1","0"))
data$stomach_pain = factor(data$stomach_pain,levels=c("1","0"))
data$psq_symp_ed = factor(data$psq_symp_ed,levels=c("1","0","2"))
data$skin_rash = factor(data$skin_rash,levels=c("1","0"))
data$hair_loss = factor(data$hair_loss,levels=c("1","0"))
data$lumpy_lesions_purple_pink = factor(data$lumpy_lesions_purple_pink,levels=c("1","0"))
data$bleeding = factor(data$bleeding,levels=c("1","0"))
data$patient_sq_h_skin_rash___1 = factor(data$patient_sq_h_skin_rash___1,levels=c("0","1"))
data$patient_sq_h_skin_rash___2 = factor(data$patient_sq_h_skin_rash___2,levels=c("0","1"))
data$patient_sq_h_skin_rash___3 = factor(data$patient_sq_h_skin_rash___3,levels=c("0","1"))
data$patient_sq_h_skin_rash___4 = factor(data$patient_sq_h_skin_rash___4,levels=c("0","1"))
data$patient_sq_h_skin_rash___5 = factor(data$patient_sq_h_skin_rash___5,levels=c("0","1"))
data$patient_sq_h_skin_rash___6 = factor(data$patient_sq_h_skin_rash___6,levels=c("0","1"))
data$patient_sq_h_skin_rash___7 = factor(data$patient_sq_h_skin_rash___7,levels=c("0","1"))
data$patient_sq_h_other = factor(data$patient_sq_h_other,levels=c("1","0"))
data$patient_sq_i = factor(data$patient_sq_i,levels=c("1","0"))
data$patient_sq_j = factor(data$patient_sq_j,levels=c("0","1","2","3","4","5"))
data$psq_itu_admit = factor(data$psq_itu_admit,levels=c("1","0"))
data$psq_itu_airway = factor(data$psq_itu_airway,levels=c("1","0"))
data$psq_itu_swallow = factor(data$psq_itu_swallow,levels=c("1","0"))
data$psq_itu_voice = factor(data$psq_itu_voice,levels=c("1","0"))
data$psq_itu_airway_scale = factor(data$psq_itu_airway_scale,levels=c("0","1","2","3","4","5"))
data$psq_itu_swallow_scale = factor(data$psq_itu_swallow_scale,levels=c("0","1","2","3","4","5"))
data$psq_itu_voice_scale = factor(data$psq_itu_voice_scale,levels=c("0","1","2","3","4","5"))
data$patient_sq_l_t_seeing = factor(data$patient_sq_l_t_seeing,levels=c("0","1","2","3"))
data$patient_sq_l_t_hearing = factor(data$patient_sq_l_t_hearing,levels=c("0","1","2","3"))
data$patient_sq_l_t_walking = factor(data$patient_sq_l_t_walking,levels=c("0","1","2","3"))
data$patient_sq_l_t_remembering = factor(data$patient_sq_l_t_remembering,levels=c("0","1","2","3"))
data$patient_sq_l_t_self_care = factor(data$patient_sq_l_t_self_care,levels=c("0","1","2","3"))
data$patient_sq_l_t_communicate = factor(data$patient_sq_l_t_communicate,levels=c("0","1","2","3"))
data$patient_sq_l_b_seeing = factor(data$patient_sq_l_b_seeing,levels=c("0","1","2","3"))
data$patient_sq_l_b_hearing = factor(data$patient_sq_l_b_hearing,levels=c("0","1","2","3"))
data$patient_sq_l_b_walking = factor(data$patient_sq_l_b_walking,levels=c("0","1","2","3"))
data$patient_sq_l_b_remembering = factor(data$patient_sq_l_b_remembering,levels=c("0","1","2","3"))
data$patient_sq_l_b_self_care = factor(data$patient_sq_l_b_self_care,levels=c("0","1","2","3"))
data$patient_sq_l_b_communicate = factor(data$patient_sq_l_b_communicate,levels=c("0","1","2","3"))
data$patient_sq_n = factor(data$patient_sq_n,levels=c("0","1","2"))
data$patient_sq_o = factor(data$patient_sq_o,levels=c("1","0"))
data$patient_sq_p_smoking = factor(data$patient_sq_p_smoking,levels=c("1","2","3","4"))
data$patient_sq_p_drinking = factor(data$patient_sq_p_drinking,levels=c("1","2","3","4"))
data$patient_sq_p_eating = factor(data$patient_sq_p_eating,levels=c("1","2","3","4"))
data$patient_sq_p_activity = factor(data$patient_sq_p_activity,levels=c("1","2","3","4"))
data$psq_work_pre_covid = factor(data$psq_work_pre_covid,levels=c("1","2","3","4","5","6","7","8","9"))
data$patient_sq_q = factor(data$patient_sq_q,levels=c("1","2","3"))
data$patient_sq_q_today = factor(data$patient_sq_q_today,levels=c("1","2","3","4","5","6","7","8","9"))
data$patient_sq_q_change = factor(data$patient_sq_q_change,levels=c("1","2","3","4","5","6","7"))
data$psq_employ_pre_lockdown___1 = factor(data$psq_employ_pre_lockdown___1,levels=c("0","1"))
data$psq_employ_pre_lockdown___2 = factor(data$psq_employ_pre_lockdown___2,levels=c("0","1"))
data$psq_employ_pre_lockdown___3 = factor(data$psq_employ_pre_lockdown___3,levels=c("0","1"))
data$psq_employ_pre_lockdown___4 = factor(data$psq_employ_pre_lockdown___4,levels=c("0","1"))
data$psq_employ_pre_lockdown___5 = factor(data$psq_employ_pre_lockdown___5,levels=c("0","1"))
data$psq_employ_pre_lockdown___6 = factor(data$psq_employ_pre_lockdown___6,levels=c("0","1"))
data$psq_employ_pre_lockdown___7 = factor(data$psq_employ_pre_lockdown___7,levels=c("0","1"))
data$psq_employ_pre_lockdown___8 = factor(data$psq_employ_pre_lockdown___8,levels=c("0","1"))
data$psq_employ_pre_lockdown___9 = factor(data$psq_employ_pre_lockdown___9,levels=c("0","1"))
data$psq_employ_pre_ill___1 = factor(data$psq_employ_pre_ill___1,levels=c("0","1"))
data$psq_employ_pre_ill___2 = factor(data$psq_employ_pre_ill___2,levels=c("0","1"))
data$psq_employ_pre_ill___3 = factor(data$psq_employ_pre_ill___3,levels=c("0","1"))
data$psq_employ_pre_ill___4 = factor(data$psq_employ_pre_ill___4,levels=c("0","1"))
data$psq_employ_pre_ill___5 = factor(data$psq_employ_pre_ill___5,levels=c("0","1"))
data$psq_employ_pre_ill___6 = factor(data$psq_employ_pre_ill___6,levels=c("0","1"))
data$psq_employ_pre_ill___7 = factor(data$psq_employ_pre_ill___7,levels=c("0","1"))
data$psq_employ_pre_ill___8 = factor(data$psq_employ_pre_ill___8,levels=c("0","1"))
data$psq_employ_pre_ill___9 = factor(data$psq_employ_pre_ill___9,levels=c("0","1"))
data$psq_employ_pre_ill___10 = factor(data$psq_employ_pre_ill___10,levels=c("0","1"))
data$psq_employ_pre_ill___11 = factor(data$psq_employ_pre_ill___11,levels=c("0","1"))
data$psq_employ_since_home___1 = factor(data$psq_employ_since_home___1,levels=c("0","1"))
data$psq_employ_since_home___2 = factor(data$psq_employ_since_home___2,levels=c("0","1"))
data$psq_employ_since_home___3 = factor(data$psq_employ_since_home___3,levels=c("0","1"))
data$psq_employ_since_home___4 = factor(data$psq_employ_since_home___4,levels=c("0","1"))
data$psq_employ_since_home___5 = factor(data$psq_employ_since_home___5,levels=c("0","1"))
data$psq_employ_since_home___6 = factor(data$psq_employ_since_home___6,levels=c("0","1"))
data$psq_employ_since_home___7 = factor(data$psq_employ_since_home___7,levels=c("0","1"))
data$psq_employ_since_home___8 = factor(data$psq_employ_since_home___8,levels=c("0","1"))
data$psq_employ_since_home___9 = factor(data$psq_employ_since_home___9,levels=c("0","1"))
data$psq_employ_since_home___10 = factor(data$psq_employ_since_home___10,levels=c("0","1"))
data$psq_employ_since_home___11 = factor(data$psq_employ_since_home___11,levels=c("0","1"))
data$psq_shift_work = factor(data$psq_shift_work,levels=c("0","1","2","3","4","5"))
data$psq_shift_night = factor(data$psq_shift_night,levels=c("0","1","2","3","4","5"))
data$psq_feel_lonely = factor(data$psq_feel_lonely,levels=c("1","2","3"))
data$psq_bereavement = factor(data$psq_bereavement,levels=c("1","0"))
data$psq_furlough_yn = factor(data$psq_furlough_yn,levels=c("1","0"))
data$psq_furlough_when___1 = factor(data$psq_furlough_when___1,levels=c("0","1"))
data$psq_furlough_when___2 = factor(data$psq_furlough_when___2,levels=c("0","1"))
data$psq_ability_work = factor(data$psq_ability_work,levels=c("1","0"))
data$psq_lack_companion = factor(data$psq_lack_companion,levels=c("0","1","2"))
data$psq_left_out = factor(data$psq_left_out,levels=c("0","1","2"))
data$psq_isolated = factor(data$psq_isolated,levels=c("0","1","2"))
data$psq_lonely = factor(data$psq_lonely,levels=c("0","1","2"))
data$psq_satisfied_life = factor(data$psq_satisfied_life,levels=c("0","1","2","3","4","5","6","7","8","9","10"))
data$psq_not_mentioned = factor(data$psq_not_mentioned,levels=c("1","0"))
data$psq_feverish = factor(data$psq_feverish,levels=c("1","0","2"))
data$psq_feverish_time = factor(data$psq_feverish_time,levels=c("1","2","3","4","5"))
data$psq_feverish_reason = factor(data$psq_feverish_reason,levels=c("1","2","3","4","5","6","7","8"))
data$psq_tinnitus_since = factor(data$psq_tinnitus_since,levels=c("5","4","3","2","1","0"))
data$psq_tinnitus_before = factor(data$psq_tinnitus_before,levels=c("5","4","3","2","1","0"))
data$psq_balance_q1_since = factor(data$psq_balance_q1_since,levels=c("0","1"))
data$psq_balance_q2_since = factor(data$psq_balance_q2_since,levels=c("0","1"))
data$psq_balance_q1_before = factor(data$psq_balance_q1_before,levels=c("0","1"))
data$psq_balance_q2_before = factor(data$psq_balance_q2_before,levels=c("0","1"))
data$psq_vac_first_yn = factor(data$psq_vac_first_yn,levels=c("1","0","2"))
data$psq_vac_first_date_yn = factor(data$psq_vac_first_date_yn,levels=c("1","0","2"))
data$psq_vac_first_type_yn = factor(data$psq_vac_first_type_yn,levels=c("1","0"))
data$psq_vac_first_type = factor(data$psq_vac_first_type,levels=c("1","2","3","4"))
data$psq_vac_sec_yn = factor(data$psq_vac_sec_yn,levels=c("1","0","2"))
data$psq_vac_sec_date_yn = factor(data$psq_vac_sec_date_yn,levels=c("1","0","2"))
data$psq_vac_sec_type_yn = factor(data$psq_vac_sec_type_yn,levels=c("1","0"))
data$psq_vac_sec_type = factor(data$psq_vac_sec_type,levels=c("1","2","3","4"))
data$repeatable_symptoms_assessment_complete = factor(data$repeatable_symptoms_assessment_complete,levels=c("0","1","2"))
data$fbc_done___1 = factor(data$fbc_done___1,levels=c("0","1"))
data$fbc_done___2 = factor(data$fbc_done___2,levels=c("0","1"))
data$fbc_done___3 = factor(data$fbc_done___3,levels=c("0","1"))
data$fbc_done___4 = factor(data$fbc_done___4,levels=c("0","1"))
data$fbc_done___5 = factor(data$fbc_done___5,levels=c("0","1"))
data$fbc_done___6 = factor(data$fbc_done___6,levels=c("0","1"))
data$fbc_done___7 = factor(data$fbc_done___7,levels=c("0","1"))
data$haemo_less_greater = factor(data$haemo_less_greater,levels=c("1","2"))
data$wbc_less_greater = factor(data$wbc_less_greater,levels=c("1","2"))
data$neutro_less_greater = factor(data$neutro_less_greater,levels=c("1","2"))
data$lympho_less_greater = factor(data$lympho_less_greater,levels=c("1","2"))
data$eos_less_greater = factor(data$eos_less_greater,levels=c("1","2"))
data$haema_less_greater = factor(data$haema_less_greater,levels=c("1","2"))
data$plat_less_greater = factor(data$plat_less_greater,levels=c("1","2"))
data$ues_done___1 = factor(data$ues_done___1,levels=c("0","1"))
data$ues_done___2 = factor(data$ues_done___2,levels=c("0","1"))
data$ues_done___3 = factor(data$ues_done___3,levels=c("0","1"))
data$ues_done___4 = factor(data$ues_done___4,levels=c("0","1"))
data$ues_done___5 = factor(data$ues_done___5,levels=c("0","1"))
data$urea_less_greater = factor(data$urea_less_greater,levels=c("1","2"))
data$crea_less_greater = factor(data$crea_less_greater,levels=c("1","2"))
data$na_less_greater = factor(data$na_less_greater,levels=c("1","2"))
data$k_less_greater = factor(data$k_less_greater,levels=c("1","2"))
data$egfr_less_greater = factor(data$egfr_less_greater,levels=c("1","2"))
data$lft_done___1 = factor(data$lft_done___1,levels=c("0","1"))
data$lft_done___2 = factor(data$lft_done___2,levels=c("0","1"))
data$lft_done___3 = factor(data$lft_done___3,levels=c("0","1"))
data$lft_done___4 = factor(data$lft_done___4,levels=c("0","1"))
data$lft_done___5 = factor(data$lft_done___5,levels=c("0","1"))
data$lft_done___6 = factor(data$lft_done___6,levels=c("0","1"))
data$bili_less_greater = factor(data$bili_less_greater,levels=c("1","2"))
data$alt_less_greater = factor(data$alt_less_greater,levels=c("1","2"))
data$alp_less_greater = factor(data$alp_less_greater,levels=c("1","2"))
data$ggt_less_greater = factor(data$ggt_less_greater,levels=c("1","2"))
data$alb_less_greater = factor(data$alb_less_greater,levels=c("1","2"))
data$prot_less_greater = factor(data$prot_less_greater,levels=c("1","2"))
data$crp_done___1 = factor(data$crp_done___1,levels=c("0","1"))
data$crp_less_greater = factor(data$crp_less_greater,levels=c("1","2"))
data$bp_done___1 = factor(data$bp_done___1,levels=c("0","1"))
data$bp_done___2 = factor(data$bp_done___2,levels=c("0","1"))
data$bp_done___3 = factor(data$bp_done___3,levels=c("0","1"))
data$bp_done___4 = factor(data$bp_done___4,levels=c("0","1"))
data$cal_less_greater = factor(data$cal_less_greater,levels=c("1","2"))
data$pho_less_greater = factor(data$pho_less_greater,levels=c("1","2"))
data$mg_less_greater = factor(data$mg_less_greater,levels=c("1","2"))
data$oh_less_greater = factor(data$oh_less_greater,levels=c("1","2"))
data$lp_done___1 = factor(data$lp_done___1,levels=c("0","1"))
data$lp_done___2 = factor(data$lp_done___2,levels=c("0","1"))
data$lp_done___3 = factor(data$lp_done___3,levels=c("0","1"))
data$lp_done___4 = factor(data$lp_done___4,levels=c("0","1"))
data$cho_less_greater = factor(data$cho_less_greater,levels=c("1","2"))
data$tri_less_greater = factor(data$tri_less_greater,levels=c("1","2"))
data$hdl_less_greater = factor(data$hdl_less_greater,levels=c("1","2"))
data$ldl_less_greater = factor(data$ldl_less_greater,levels=c("1","2"))
data$cp_done___1 = factor(data$cp_done___1,levels=c("0","1"))
data$cp_done___2 = factor(data$cp_done___2,levels=c("0","1"))
data$cp_done___3 = factor(data$cp_done___3,levels=c("0","1"))
data$cp_done___4 = factor(data$cp_done___4,levels=c("0","1"))
data$cp_done___5 = factor(data$cp_done___5,levels=c("0","1"))
data$cp_done___6 = factor(data$cp_done___6,levels=c("0","1"))
data$trop_ctnt_less_greater = factor(data$trop_ctnt_less_greater,levels=c("1","2"))
data$trop_hsctnt_less_greater = factor(data$trop_hsctnt_less_greater,levels=c("1","2"))
data$trop_ctni_less_greater = factor(data$trop_ctni_less_greater,levels=c("1","2"))
data$trop_hsctni_less_greater = factor(data$trop_hsctni_less_greater,levels=c("1","2"))
data$bnp_less_greater = factor(data$bnp_less_greater,levels=c("1","2"))
data$pnbnp_less_greater = factor(data$pnbnp_less_greater,levels=c("1","2"))
data$hp_done___1 = factor(data$hp_done___1,levels=c("0","1"))
data$hp_done___2 = factor(data$hp_done___2,levels=c("0","1"))
data$hp_done___3 = factor(data$hp_done___3,levels=c("0","1"))
data$hp_done___4 = factor(data$hp_done___4,levels=c("0","1"))
data$ddi_unit = factor(data$ddi_unit,levels=c("1","2"))
data$ddi_assay = factor(data$ddi_assay,levels=c("1","2"))
data$ddi_less_greater = factor(data$ddi_less_greater,levels=c("1","2"))
data$fib_less_greater = factor(data$fib_less_greater,levels=c("1","2"))
data$inr_less_greater = factor(data$inr_less_greater,levels=c("1","2"))
data$fer_less_greater = factor(data$fer_less_greater,levels=c("1","2"))
data$dp_done___1 = factor(data$dp_done___1,levels=c("0","1"))
data$dp_done___2 = factor(data$dp_done___2,levels=c("0","1"))
data$dp_done___3 = factor(data$dp_done___3,levels=c("0","1"))
data$hba1c_less_greater = factor(data$hba1c_less_greater,levels=c("1","2"))
data$glu_less_greater = factor(data$glu_less_greater,levels=c("1","2"))
data$ins_less_greater = factor(data$ins_less_greater,levels=c("1","2"))
data$repeatable_laboratory_results_collection_log_routi_complete = factor(data$repeatable_laboratory_results_collection_log_routi_complete,levels=c("0","1","2"))
data$up_done___1 = factor(data$up_done___1,levels=c("0","1"))
data$up_done___2 = factor(data$up_done___2,levels=c("0","1"))
data$acr_less_greater = factor(data$acr_less_greater,levels=c("1","2"))
data$pcr_less_greater = factor(data$pcr_less_greater,levels=c("1","2"))
data$urina_done___1 = factor(data$urina_done___1,levels=c("0","1"))
data$urina_done___2 = factor(data$urina_done___2,levels=c("0","1"))
data$urina_done___3 = factor(data$urina_done___3,levels=c("0","1"))
data$urina_done___4 = factor(data$urina_done___4,levels=c("0","1"))
data$urina_done___5 = factor(data$urina_done___5,levels=c("0","1"))
data$urina_done___6 = factor(data$urina_done___6,levels=c("0","1"))
data$urina_done___7 = factor(data$urina_done___7,levels=c("0","1"))
data$urina_done___8 = factor(data$urina_done___8,levels=c("0","1"))
data$urina_done___9 = factor(data$urina_done___9,levels=c("0","1"))
data$urina_ph_less_greater = factor(data$urina_ph_less_greater,levels=c("1","2"))
data$urina_grav_less_greater = factor(data$urina_grav_less_greater,levels=c("1","2"))
data$urina_pro = factor(data$urina_pro,levels=c("1","0","2"))
data$urina_rbc = factor(data$urina_rbc,levels=c("1","0","2"))
data$urina_leu = factor(data$urina_leu,levels=c("1","0","2"))
data$urina_nit = factor(data$urina_nit,levels=c("1","0","2"))
data$urina_glu = factor(data$urina_glu,levels=c("1","0","2"))
data$urina_ket = factor(data$urina_ket,levels=c("1","0","2"))
data$urina_urina_bili = factor(data$urina_urina_bili,levels=c("1","0","2"))
data$repeatable_laboratory_results_collection_log_urine_complete = factor(data$repeatable_laboratory_results_collection_log_urine_complete,levels=c("0","1","2"))
data$auto_imm_done___1 = factor(data$auto_imm_done___1,levels=c("0","1"))
data$auto_imm_done___2 = factor(data$auto_imm_done___2,levels=c("0","1"))
data$auto_imm_done___3 = factor(data$auto_imm_done___3,levels=c("0","1"))
data$auto_imm_done___4 = factor(data$auto_imm_done___4,levels=c("0","1"))
data$auto_imm_done___5 = factor(data$auto_imm_done___5,levels=c("0","1"))
data$auto_imm_done___6 = factor(data$auto_imm_done___6,levels=c("0","1"))
data$auto_imm_done___7 = factor(data$auto_imm_done___7,levels=c("0","1"))
data$auto_imm_done___8 = factor(data$auto_imm_done___8,levels=c("0","1"))
data$auto_imm_done___9 = factor(data$auto_imm_done___9,levels=c("0","1"))
data$auto_imm_done___10 = factor(data$auto_imm_done___10,levels=c("0","1"))
data$auto_imm_done___11 = factor(data$auto_imm_done___11,levels=c("0","1"))
data$auto_imm_done___12 = factor(data$auto_imm_done___12,levels=c("0","1"))
data$ena = factor(data$ena,levels=c("1","0"))
data$anca = factor(data$anca,levels=c("1","0"))
data$manca_less_greater = factor(data$manca_less_greater,levels=c("1","2"))
data$panca_less_greater = factor(data$panca_less_greater,levels=c("1","2"))
data$dsdna_less_greater = factor(data$dsdna_less_greater,levels=c("1","2"))
data$acl_less_greater = factor(data$acl_less_greater,levels=c("1","2"))
data$ab2gpi_less_greater = factor(data$ab2gpi_less_greater,levels=c("1","2"))
data$lag_less_greater = factor(data$lag_less_greater,levels=c("1","2"))
data$accp_less_greater = factor(data$accp_less_greater,levels=c("1","2"))
data$rf_less_greater = factor(data$rf_less_greater,levels=c("1","2"))
data$imm_done___1 = factor(data$imm_done___1,levels=c("0","1"))
data$imm_done___2 = factor(data$imm_done___2,levels=c("0","1"))
data$imm_done___3 = factor(data$imm_done___3,levels=c("0","1"))
data$imm_done___4 = factor(data$imm_done___4,levels=c("0","1"))
data$imm_done___5 = factor(data$imm_done___5,levels=c("0","1"))
data$c3_less_greater = factor(data$c3_less_greater,levels=c("1","2"))
data$c4_less_greater = factor(data$c4_less_greater,levels=c("1","2"))
data$iga_less_greater = factor(data$iga_less_greater,levels=c("1","2"))
data$igm_less_greater = factor(data$igm_less_greater,levels=c("1","2"))
data$igg_less_greater = factor(data$igg_less_greater,levels=c("1","2"))
data$blood_virus_done___1 = factor(data$blood_virus_done___1,levels=c("0","1"))
data$blood_virus_done___2 = factor(data$blood_virus_done___2,levels=c("0","1"))
data$blood_virus_done___3 = factor(data$blood_virus_done___3,levels=c("0","1"))
data$hiv = factor(data$hiv,levels=c("1","0"))
data$hepb = factor(data$hepb,levels=c("1","0"))
data$hepc = factor(data$hepc,levels=c("1","0"))
data$repeatable_laboratory_results_collection_log_immun_complete = factor(data$repeatable_laboratory_results_collection_log_immun_complete,levels=c("0","1","2"))
data$haema_done___1 = factor(data$haema_done___1,levels=c("0","1"))
data$haema_done___2 = factor(data$haema_done___2,levels=c("0","1"))
data$haema_done___3 = factor(data$haema_done___3,levels=c("0","1"))
data$haema_done___4 = factor(data$haema_done___4,levels=c("0","1"))
data$folate_less_greater = factor(data$folate_less_greater,levels=c("1","2"))
data$b12_less_greater = factor(data$b12_less_greater,levels=c("1","2"))
data$iron_less_greater = factor(data$iron_less_greater,levels=c("1","2"))
data$ldh_less_greater = factor(data$ldh_less_greater,levels=c("1","2"))
data$tft_done___1 = factor(data$tft_done___1,levels=c("0","1"))
data$tft_done___2 = factor(data$tft_done___2,levels=c("0","1"))
data$tsh_less_greater = factor(data$tsh_less_greater,levels=c("1","2"))
data$t4_less_greater = factor(data$t4_less_greater,levels=c("1","2"))
data$other_done___1 = factor(data$other_done___1,levels=c("0","1"))
data$sars_cov2_result = factor(data$sars_cov2_result,levels=c("1","0","2"))
data$repeatable_laboratory_results_collection_log_addit_complete = factor(data$repeatable_laboratory_results_collection_log_addit_complete,levels=c("0","1","2"))
data$swab_pcr_result = factor(data$swab_pcr_result,levels=c("1","0","2"))
data$repeatable_sarscov2_swab_pcr_test_result_complete = factor(data$repeatable_sarscov2_swab_pcr_test_result_complete,levels=c("0","1","2"))

levels(data$redcap_event_name)=c("Hospital Discharge","6 Weeks","3 Months (1st Research Visit)","Add. Planned Clinical Visits","12 Months (2nd Research Visit)","Unscheduled")
levels(data$redcap_repeat_instrument)=c("Registration and Informed Consent","Split Tier Recruitment - Informed Consent","Medications Log","SARS-CoV-2 Swab PCR Test Result","Pulmonary Functional Tests","Walk Test - 6 Min / ISWT 15 Level","Laboratory Results Collection Log - Routine blood tests","Laboratory Results Collection Log -  Urine profile","Laboratory Results Collection Log -  Immunological profile","Laboratory Results Collection Log -  Additional blood tests","CRF4A Clinical Data Section *","CRF4B Research Data Section","EQ-5D-5L","General Anxiety Disorder 7 Questionnaire (GAD-7)","Patient Health Questionnaire-9 (PHQ-9)","MRC Dyspnoea Scale","SARC-F Questionnaire","General Practice Physical Activity Questionnaire","Dyspnoea-12","FACIT Fatigue Scale V4","PTSD Checklist for DSM-5 (PCL-5)","Brief Pain Inventory (Short Form)","Nottingham Extended ADL Scale","Montreal Cognitive Assessment (MOCA)","Rockwood Clinical Frailty Scale","Tier 2 Biological Research Samples Checklist","Tier 2 Core Sample Notification Form - Blood","Symptoms Assessment","CRF Emergency Visit","Adverse Events Log")
levels(data$redcap_data_access_group)=c("Addenbrookes Hospital - RGT01","Aintree University Hospital - REM21","Aneurin Bevan  - 7A6","Barnet Hospital - RAL26","Barnsley Hospital - RFF","Barts Health NHS Trust - R1H","Belfast City Hospital - ZT001","Bradford Royal Infirmary - RAE01","Bronglais General Hospital - 7A2AJ","Castle Hill Hospital - RWA16","Chesterfield Royal Hospital - RFS","Churchill Hospital - RTH02","Cwm Taf Morgannwg - 7A5","Dumfries & Galloway - SY9","Ealing Hospital - R1K04","Glangwili Hospital - 7A2AA","Glasgow Royal Infirmary - G107H","Glenfield Hospital - RWEAE","Great Western Hospital - RN3","Guys Hospital and St Thomas Hospital - RJ1","Gwynedd Hospital - 7A1AU","Hammersmith Hospital - RYJ03","Harefield Hospital - RT301","Harrogate and District Hospital - RCD","Hillingdon Hospital - RAS01","Kettering General Hospital - RNQ","Kings College Hospital - RJZ01","King's Mill Hospital - RK5BC","Lewisham and Greenwich NHS Trust - RJ2","Macclesfield District General Hospital - RJN71","Manchester Royal Infirmary - R0A02","Morriston/Singleton Hospital - 7A3","NHS Lanarkshire - SL9","Ninewells Hospital & Medical School - ST9","North Middlesex Hospital - RAPNM","Northwick Park Hospital - R1K01","Nottingham City Hospitals - RX1CC","Prince Philip Hospital - 7A2AL","Queen Elizabeth Hospital - RTHH6","Queen Elizabeth Hospital Birmingham - ???","Queen Elizabeth Hospital th - ???","Raigmore Hospital - SH9","Wrightington, Wigan And Leigh NHS Foundation Trust - RRF", "Royal Brompton Hospital - RT302","Royal Free Hospital - RAL01","Royal Hallamshire Hospital - RHQHH","Royal Infirmary of Edinburgh - S314H","Royal Papworth Hospital - RGM22","Royal Victoria Infirmary - RTD02","Salford Royal Hospital - RM3","Salisbury NHS Foundation Trust - RNZ","Somerset NHS Foundation Trust - RH5","Southampton General Hospital - RHM01","Southmead Hospital - RVJ01","St Georges Hospital - RJ701","St Marys Hospital - RYJ01","St. Jamess University Hospital - RR813","The Rotherham NHS Foundation Trust - RFR","The Whittington Hospital - RKEQ4","The William Harvey Hospital - ???","United Lincolnshire Hospitals NHS Trust - RWD","University College London Hospital - RRV","University Hospital Llandough - 7A4C1","Withybush General Hospital - 7A2BL","Wrexham Maelor Hospital - 7A1A4","Wythenshawe Hospital - R0A07","Yeovil District Hospital NHS Foundation Trust - RA4","York Teaching Hospital NHS Foundation Trust - RCB","Ysbyty Glan Clwyd - 7A1A1")
levels(data$tier_allocation)=c("Tier 1","Tier 2 (3 and 12 months)","Tier 2 (12 months only)")
# levels(data$econsent_site)=c("Addenbrookes Hospital","Aintree University Hospital","Aneurin Bevan","Barnet Hospital","Barts Health NHS Trust","Belfast City Hospital","Bradford Royal Infirmary","Bronglais General Hospital","Castle Hill Hospital","Churchill Hospital","Dumfries & Galloway","Ealing Hospital","Forth Valley Royal Hospital","Glangwili Hospital","Glasgow Royal Infirmary","Glenfield Hospital","Guys Hospital and St Thomas Hospital","Gwynedd Hospital","Hammersmith Hospital","Harefield Hospital","Heartlands Hospital","Hillingdon Hospital","Kings College Hospital","Manchester Royal Infirmary","Morriston/Singleton Hospital","Ninewells Hospital & Medical School","North Middlesex Hospital","Northwick Park Hospital","Nottingham City Hospitals","Prince Philip Hospital","Queen Elizabeth Hospital","Queen Elizabeth University Hospital","Raigmore Hospital","Royal Alexandra Hospital","Royal Brompton Hospital","Royal Free Hospital","Royal Hallamshire Hospital","Royal Infirmary of Edinburgh","Royal Liverpool University Hospital","Royal Papworth Hospital","Royal Victoria Infirmary","Salford Royal Hospital","Southampton General Hospital","Southmead Hospital","St Georges Hospital","St Marys Hospital","St. Jamess University Hospital","The Whittington Hospital","University College London Hospital","University Hospital Hairmyres","University Hospital Llandough","University Hospital Monklands","University Hospital Wishaw","Withybush General Hospital","Wrexham Maelor Hospital","Wythenshawe Hospital","Ysbyty Glan Clwyd")
# levels(data$econsent_tier_invite)=c("Tier 1","Tier 2")
levels(data$phosp_id_complete)=c("Incomplete","Unverified","Complete")
levels(data$econ_q1_resp_t1)=c("I agree")
levels(data$econ_q2_resp_t1)=c("I agree")
levels(data$econ_q3_resp_t1)=c("I agree")
levels(data$econ_q4_resp_t1)=c("I agree")
levels(data$econ_q5_resp_t1)=c("Yes","No")
levels(data$econ_q6_resp_t1)=c("Yes","No")
levels(data$econ_q7_resp_t1)=c("Yes","No")
levels(data$econ_q7_pt2_resp_t1)=c("Yes","No")
levels(data$econ_q8_resp_t1)=c("Yes","No")
levels(data$econ_q9_resp_t1)=c("I agree")
levels(data$econ_q10_resp_t1)=c("I agree")
levels(data$econ_q11_resp_t1)=c("I agree")
levels(data$econ_q12_resp_t1)=c("I agree")
levels(data$econ_q13_resp_t1)=c("I agree")
levels(data$econ_q14_resp_t1)=c("I agree")
levels(data$econ_q15_resp_t1)=c("I agree")
levels(data$econ_q16_resp_t1)=c("I agree")
levels(data$econ_q17_resp_t1)=c("I agree")
levels(data$econ_verify_resp_t1)=c("I agree")
levels(data$econsent_tier_1_complete)=c("Incomplete","Unverified","Complete")
levels(data$econ_q1_resp)=c("I agree")
levels(data$econ_q2_resp)=c("I agree")
levels(data$econ_q3_resp)=c("I agree")
levels(data$econ_q4_resp)=c("I agree")
levels(data$econ_q5_resp)=c("Yes","No")
levels(data$econ_q6_resp)=c("Yes","No")
levels(data$econ_q7_resp)=c("Yes","No")
levels(data$econ_q8_resp)=c("Yes","No")
levels(data$econ_q8_pt2_resp)=c("Yes","No")
levels(data$econ_q9_resp)=c("Yes","No")
levels(data$econ_q10_resp)=c("I agree")
levels(data$econ_q11_resp)=c("I agree")
levels(data$econ_q12_resp)=c("I agree")
levels(data$econ_q13_resp)=c("I agree")
levels(data$econ_q14_resp)=c("I agree")
levels(data$econ_q15_resp)=c("I agree")
levels(data$econ_q16_resp)=c("I agree")
levels(data$econ_q17_resp)=c("I agree")
levels(data$econ_q18_resp)=c("I agree")
levels(data$econ_verify_resp)=c("I agree")
levels(data$econsent_complete)=c("Incomplete","Unverified","Complete")
levels(data$consent_verify)=c("Yes","No")
levels(data$consent_ver)=c("Version 2 14-Jul-20, Face-to-face","Version 3 04-Aug-20, Face-to-face","Version 5 15-Oct-20, Face-to-face","Version 6 02-Nov-20, Face-to-face","Version 7 24-Nov-20, Face-to-face","Version 7.1 18-Dec-20, Face-to-face","Version 8.1 01-Apr-21, Face-to-face","Version 2 14-Jul-20, Postal/Telephone","Version 3 04-Aug-20, Postal/Telephone","Version 1 01-Sep-20, Postal","Version 2 02-Nov-20, Postal","Version 3 24-Nov-20, Postal","Version 3.1 18-Dec-20, Postal","Version 4.1 01-Apr-21, Postal","Version 2 15-Oct-20, Telephone","Version 3 02-Nov-20, Telephone","Version 4 24-Nov-20, Telephone","Version 4.1 18-Dec-20, Telephone","Version 5.1 01-Apr-21, Telephone","Tier 1 Version 1.1 01-Apr-21, Face-to-face","Tier 1 Version 1.1 01-Apr-21, Postal","Tier 1 Version 1.1 01-Apr-21, Telephone","Version 1 15-Oct-20, Consultee Declaration","Version 2 02-Nov-20, Consultee Declaration","Version 3 19-Feb-21, Consultee Declaration")
levels(data$consent_v2_q1)=c("Yes","No")
levels(data$consent_v3_q1)=c("Yes","No")
levels(data$consent_sa2_q1)=c("Yes","No")
levels(data$consent_sa3_q1)=c("Yes","No")
levels(data$consent_sa4_q1)=c("Yes","No")
levels(data$consent_nsa1_q1)=c("Yes","No")
levels(data$consent_sa5_q1)=c("Yes","No")
levels(data$consent_sa5_t1_q1)=c("Yes","No")
levels(data$consent_q2)=c("Yes","No")
levels(data$consent_q3)=c("Yes","No")
levels(data$consent_q4)=c("Yes","No")
levels(data$consent_q5)=c("Yes","No")
levels(data$consent_nsa1_q6)=c("Yes","No")
levels(data$consent_q6)=c("Yes","No")
levels(data$consent_q7)=c("Yes","No")
levels(data$consent_q7_pt2)=c("Yes","No")
levels(data$consent_q8)=c("Yes","No")
levels(data$consent_q9)=c("Yes","No")
levels(data$consent_q10)=c("Yes","No")
levels(data$consent_q11)=c("Yes","No")
levels(data$consent_q12)=c("Yes","No")
levels(data$consent_q13)=c("Yes","No")
levels(data$consent_q14)=c("Yes","No")
levels(data$consent_q15)=c("Yes","No")
levels(data$consent_q16)=c("Yes","No")
levels(data$consent_q17)=c("Yes","No")
levels(data$consultee_q1)=c("Yes","No")
levels(data$consultee_v2_q1)=c("Yes","No")
levels(data$consultee_v3_q1)=c("Yes","No")
levels(data$consultee_q2)=c("Yes","No")
levels(data$consultee_q3)=c("Yes","No")
levels(data$consultee_q4)=c("Yes","No")
levels(data$consultee_q5)=c("Yes","No")
levels(data$consultee_q6)=c("Yes","No")
levels(data$consultee_q7)=c("Yes","No")
levels(data$consultee_q8)=c("Yes","No")
levels(data$consultee_q9)=c("Yes","No")
levels(data$consultee_q10)=c("Yes","No")
levels(data$consultee_q11)=c("Yes","No")
levels(data$consultee_q12)=c("Yes","No")
levels(data$consultee_q13)=c("Yes","No")
levels(data$consultee_type)=c("Face-to-face","Telephone")
levels(data$consultee_signed_verified)=c("Yes","No")
levels(data$consent_signature_verified)=c("Yes","No")
levels(data$consent_countsign_verified)=c("Yes","No")
levels(data$consent_witness_sign)=c("Yes","No")
levels(data$consent_data_verify)=c("Yes","No")
levels(data$registration_and_informed_consent_complete)=c("Incomplete","Unverified","Complete")
levels(data$split_consent_verify___1)=c("Unchecked","Checked")
levels(data$split_consent_verify___2)=c("Unchecked","Checked")
levels(data$split_consent_verify___3)=c("Unchecked","Checked")
levels(data$split_consent_verify___4)=c("Unchecked","Checked")
levels(data$split_tier_ver)=c("Version 1.1 18-Dec-20, Face-to-face","Version 2.1 01-Apr-21, Face-to-face","Version 1.1 18-Dec-20, Postal","Version 2.1 01-Apr-21, Postal","Version 1.1 18-Dec-20, Telephone","Version 2.1 01-Apr-21, Telephone")
levels(data$split_tier1_q1)=c("Yes","No")
levels(data$split_tier1_sa5_q1)=c("Yes","No")
levels(data$split_tier1_q2)=c("Yes","No")
levels(data$split_tier1_q3)=c("Yes","No")
levels(data$split_tier1_q4)=c("Yes","No")
levels(data$split_tier1_q5)=c("Yes","No")
levels(data$split_tier1_q6)=c("Yes","No")
levels(data$split_tier1_q7)=c("Yes","No")
levels(data$split_tier1_q7pt2)=c("Yes","No")
levels(data$split_tier1_q8)=c("Yes","No")
levels(data$split_tier1_q9)=c("Yes","No")
levels(data$split_tier1_q10)=c("Yes","No")
levels(data$split_tier1_q11)=c("Yes","No")
levels(data$split_tier1_q12)=c("Yes","No")
levels(data$split_tier1_q13)=c("Yes","No")
levels(data$split_tier1_q14)=c("Yes","No")
levels(data$split_tier1_q15)=c("Yes","No")
levels(data$split_tier1_q16)=c("Yes","No")
levels(data$split_tier1_q17)=c("Yes","No")
levels(data$split_tier1_q18)=c("Yes","No")
levels(data$split_tier1_parti_sign)=c("Yes","No")
levels(data$split_tier1_research_sign)=c("Yes","No")
levels(data$split_tier1_witness_sign)=c("Yes","No")
levels(data$split_tier2_q1)=c("Yes","No")
levels(data$split_tier2_sa5_q1)=c("Yes","No")
levels(data$split_tier2_q2)=c("Yes","No")
levels(data$split_tier2_q3)=c("Yes","No")
levels(data$split_tier2_q4)=c("Yes","No")
levels(data$split_tier2_parti_sign)=c("Yes","No")
levels(data$split_tier2_research_sign)=c("Yes","No")
levels(data$split_tier2_witness_sign)=c("Yes","No")
levels(data$split_consent_data_verify___1)=c("Unchecked","Checked")
levels(data$split_consent_data_verify___2)=c("Unchecked","Checked")
levels(data$split_consent_data_verify___3)=c("Unchecked","Checked")
levels(data$split_consent_data_verify___4)=c("Unchecked","Checked")
levels(data$split_tier_recruitment_informed_consent_2_complete)=c("Incomplete","Unverified","Complete")
levels(data$inc_1)=c("Yes","No")
levels(data$inc_2)=c("Yes","No")
levels(data$inc_3)=c("Yes","No")
levels(data$exc_1)=c("Yes","No")
levels(data$exc_2)=c("Yes","No")
levels(data$exc_3)=c("Yes","No")
levels(data$exc_4)=c("Yes","No")
levels(data$eligibility_checklist_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf0_version)=c("Unversioned / eConsent","1.0","1.1")
levels(data$crf0_identifiable_patient_information_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf1a1_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf1a_sex)=c("Male","Female")
levels(data$crf1a_pregnant_yn)=c("Yes","No","Not known")
levels(data$crf1a_post_partum_yn)=c("Yes","No","Not known")
levels(data$crf1a_pregnancy_outcome)=c("Live Birth","Still Birth","Not Known")
levels(data$crf1a_delivery_date_yn)=c("Yes","No")
levels(data$crf1a_infant_c19_tested_yn)=c("Yes","No","Not known")
levels(data$crf1a_infant_c19_result_1)=c("Positive","Negative","Indeterminate")
levels(data$crf1a_date_first_sympt_yn)=c("Yes","No")
levels(data$crf1a_date_adm_yn)=c("Yes","No")
levels(data$crf1a_re_adm_with_c19)=c("Yes","No","N/K")
levels(data$crf1a_xfer_in)=c("Yes","No","N/K")
levels(data$crf1aprev_hosp_name_known)=c("Yes","No")
levels(data$crf1a_prev_adm_date_known)=c("Yes","No")
levels(data$crf1a_date_dis_yn)=c("Yes","No")
levels(data$crf1a_sev_dehydr)=c("Yes","No","N/K")
levels(data$crf1a_stcap_refill_2s)=c("Yes","No","N/K")
levels(data$crf1a_supp_o2)=c("Air","Any Oxygen therapy","N/K")
levels(data$crf1a_fever_history)=c("Yes","No","N/K")
levels(data$crf1a_cough)=c("Yes","No","N/K")
levels(data$crf1a_cough_sputum)=c("Yes","No","N/K")
levels(data$crf1a_cough_blood)=c("Yes","No","N/K")
levels(data$crf1a_sore_throat)=c("Yes","No","N/K")
levels(data$crf1a_runny_nose)=c("Yes","No","N/K")
levels(data$crf1a_ear_pain)=c("Yes","No","N/K")
levels(data$crf1a_wheezing)=c("Yes","No","N/K")
levels(data$crf1a_chest_pain)=c("Yes","No","N/K")
levels(data$crf1a_muscle_aches)=c("Yes","No","N/K")
levels(data$crf1a_join_pain)=c("Yes","No","N/K")
levels(data$crf1a_fatigue)=c("Yes","No","N/K")
levels(data$crf1a_shortness_breath)=c("Yes","No","N/K")
levels(data$crf1a_loss_taste)=c("Yes","No","N/K")
levels(data$crf1a_loss_smell)=c("Yes","No","N/K")
levels(data$crf1a_chest_indrawing)=c("Yes","No","N/K")
levels(data$crf1a_headache)=c("Yes","No","N/K")
levels(data$crf1a_confusion)=c("Yes","No","N/K")
levels(data$crf1a_seizures)=c("Yes","No","N/K")
levels(data$crf1a_pain)=c("Yes","No","N/K")
levels(data$crf1a_nausea)=c("Yes","No","N/K")
levels(data$crf1a_diarrhoea)=c("Yes","No","N/K")
levels(data$crf1a_conjunctivitis)=c("Yes","No","N/K")
levels(data$crf1a_skin_rash)=c("Yes","No","N/K")
levels(data$crf1a_skin_ulcers)=c("Yes","No","N/K")
levels(data$crf1a_lymphadenopathy)=c("Yes","No","N/K")
levels(data$crf1a_bleeding)=c("Yes","No","N/K")
levels(data$crf1a_bleeding_site_known)=c("Yes","No")
levels(data$crf1a_immunosuppressant)=c("Yes","No","N/K")
levels(data$crf1a_anti_infectives)=c("Yes","No","N/K")
levels(data$crf1a_acei)=c("Yes","No","N/K")
levels(data$crf1a_abbs)=c("Yes","No","N/K")
levels(data$crf1a_nsaid)=c("Yes","No","N/K")
levels(data$crf1a_con_meds_comp_yn)=c("Yes","No")
levels(data$crf1a_baseline_clinical_data_part_1_q1_q8_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf1a2_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf1a_com_card_mi)=c("Yes","No")
levels(data$crf1a_com_card_ihd)=c("Yes","No")
levels(data$crf1a_com_card_af)=c("Yes","No")
levels(data$crf1a_com_card_ht)=c("Yes","No")
levels(data$crf1a_com_card_chf)=c("Yes","No")
levels(data$crf1a_com_card_chd)=c("Yes","No")
levels(data$crf1a_com_card_vhd)=c("Yes","No")
levels(data$crf1a_com_card_pid)=c("Yes","No")
levels(data$crf1a_com_card_pvd)=c("Yes","No")
levels(data$crf1a_com_card_hcd)=c("Yes","No")
levels(data$crf1a_com_card_catia)=c("Previous but no residual weakness","Previous with residual hemiplegia","No")
levels(data$crf1a_com_card_other_yn)=c("Yes","No")
levels(data$crf1a_com_neupsy_dem)=c("Yes","No")
levels(data$crf1a_com_neupsy_other_yn)=c("Yes","No")
levels(data$crf1a_com_neupsy_da)=c("Yes","No")
levels(data$crf1a_com_neupsy_chron)=c("Yes","No")
levels(data$crf1a_com_neupsy_pam)=c("Yes","No")
levels(data$crf1a_com_neupsy_ptm)=c("Yes","No")
levels(data$crf1a_com_res_copd)=c("Yes","No")
levels(data$crf1a_com_res_ast)=c("Yes","No")
levels(data$crf1a_com_res_ild_yn)=c("Yes","No")
levels(data$crf1a_com_res_bron)=c("Yes","No")
levels(data$crf1a_com_res_osa)=c("Yes","No")
levels(data$crf1a_com_res_ohs)=c("Yes","No")
levels(data$crf1a_com_res_pe)=c("Yes","No")
levels(data$crf1a_com_res_other_yn)=c("Yes","No")
levels(data$crf1a_com_rheu_ctd)=c("Yes","No")
levels(data$crf1a_com_rheu_ra)=c("Yes","No")
levels(data$crf1a_com_rheu_ost)=c("Yes","No")
levels(data$crf1a_com_rheu_other_yn)=c("Yes","No")
levels(data$crf1a_com_gast_pud)=c("Yes","No")
levels(data$crf1a_com_gast_ld)=c("Mild","Mod/severe","No")
levels(data$crf1a_com_gast_gord)=c("Yes","No")
levels(data$crf1a_com_gast_ibd)=c("Yes","No")
levels(data$crf1a_com_gast_ibs)=c("Yes","No")
levels(data$crf1a_com_gast_other_yn)=c("Yes","No")
levels(data$crf1a_com_mer_diab)=c("Type 1","Type 2","No")
levels(data$crf1a_com_mer_diab_com)=c("Uncomplicated","End-organ damage")
levels(data$crf1a_com_mer_hypot)=c("Yes","No")
levels(data$crf1a_com_mer_hypert)=c("Yes","No")
levels(data$crf1a_com_mer_ckd_yn)=c("Yes","No")
levels(data$crf1a_com_mer_other_yn)=c("Yes","No")
levels(data$crf1a_com_mer_ckd_stage)=c("1","2","3","4","5")
levels(data$crf1a_com_mh_stm)=c("Localised","Metastatic","No")
levels(data$crf1a_com_mh_leuk_yn)=c("Yes","No")
levels(data$crf1a_com_mh_lymp_yn)=c("Yes","No")
levels(data$crf1a_com_mh_other_yn)=c("Yes","No")
levels(data$crf1a_com_id_aids)=c("Yes","No")
levels(data$crf1a_com_id_hiv)=c("Yes","No")
levels(data$crf1a_com_id_cvh)=c("None","Hepatitis B","Hepatitis C")
levels(data$crf1a_com_id_mt)=c("Never","Current active TB","Previously treated active TB","Previously treated latent TB")
levels(data$crf1a_com_id_other_yn)=c("Yes","No")
levels(data$crf1a_baseline_clinical_data_part_2_q9_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf1a3_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf1a_o2_supp)=c("Yes","No","N/K")
levels(data$crf1a_o2_cpapv)=c("Yes","No","N/K")
levels(data$crf1a_o2_blniv)=c("Yes","No","N/K")
levels(data$crf1a_o2_hfn)=c("Yes","No","N/K")
levels(data$crf1a_o2_imv)=c("Yes","No","N/K")
levels(data$crf1a_o2_ecmo)=c("Yes","No","N/K")
levels(data$crf1a_treat_at)=c("Yes","No","N/K")
levels(data$crf1a_treat_ss)=c("Yes","No","N/K")
levels(data$crf1a_treat_tdac)=c("Yes","No","N/K")
levels(data$crf1a_treat_proning)=c("Yes","No","N/K")
levels(data$crf1a_treat_rrt)=c("Yes","No","N/K")
levels(data$crf1a_treat_tocil)=c("Yes","No","N/K")
levels(data$crf1a_treat_saril)=c("Yes","No","N/K")
levels(data$crf1a_treat_remde)=c("Yes","No","N/K")
levels(data$crf1a_add_diag_pemt)=c("Yes","No","N/K")
levels(data$crf1a_add_diag_cvvh)=c("Yes","No","N/K")
levels(data$crf1a_add_diag_myoc)=c("Yes","No","N/K")
levels(data$crf1a_add_diag_cmp)=c("Yes","No","N/K")
levels(data$crf1a_add_diag)=c("Yes","No","N/K")
levels(data$crf1a_studies___1)=c("Unchecked","Checked")
levels(data$crf1a_studies___2)=c("Unchecked","Checked")
levels(data$crf1a_studies___22)=c("Unchecked","Checked")
levels(data$crf1a_studies___3)=c("Unchecked","Checked")
levels(data$crf1a_studies___4)=c("Unchecked","Checked")
levels(data$crf1a_studies___5)=c("Unchecked","Checked")
levels(data$crf1a_studies___6)=c("Unchecked","Checked")
levels(data$crf1a_studies___7)=c("Unchecked","Checked")
levels(data$crf1a_studies___8)=c("Unchecked","Checked")
levels(data$crf1a_studies___9)=c("Unchecked","Checked")
levels(data$crf1a_studies___10)=c("Unchecked","Checked")
levels(data$crf1a_studies___11)=c("Unchecked","Checked")
levels(data$crf1a_studies___12)=c("Unchecked","Checked")
levels(data$crf1a_studies___13)=c("Unchecked","Checked")
levels(data$crf1a_studies___14)=c("Unchecked","Checked")
levels(data$crf1a_studies___15)=c("Unchecked","Checked")
levels(data$crf1a_studies___16)=c("Unchecked","Checked")
levels(data$crf1a_studies___17)=c("Unchecked","Checked")
levels(data$crf1a_studies___18)=c("Unchecked","Checked")
levels(data$crf1a_studies___19)=c("Unchecked","Checked")
levels(data$crf1a_studies___20)=c("Unchecked","Checked")
levels(data$crf1a_studies___21)=c("Unchecked","Checked")
levels(data$crf1a_egfr_low)=c("Enter exact value",">90 mL/min/1.73m2","N/K")
levels(data$crf1a_alt_high)=c("Enter exact value","N/K")
levels(data$crf1a_alt_high_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_bnp_done)=c("Yes","No","N/K")
levels(data$crf1a_bnp_type)=c("NT-proBNP","BNP")
levels(data$crf1a_bnp_unit)=c("pg/ml","other")
levels(data$crf1a_bnp_high_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_bnp_last)=c("Enter exact value","Same as highest level")
levels(data$crf1a_bnp_last_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_trop_done)=c("Yes","No","N/K")
levels(data$crf1a_trop_type)=c("cTnI","cTnT","hs-cTnI","hs-cTnT")
levels(data$crf1a_trop_unit)=c("ng/ml","other")
levels(data$crf1a_trop_first_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_trop_high)=c("Enter exact value","Same as first level")
levels(data$crf1a_trop_high_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_haema_not_done___1)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___2)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___3)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___4)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___5)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___6)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___7)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___8)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___9)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___10)=c("Unchecked","Checked")
levels(data$crf1a_haema_not_done___11)=c("Unchecked","Checked")
levels(data$crf1a_haemo_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_wbc_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_neutro_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_lympho_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_eos_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_plt_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_mcv_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_inr_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_aptt_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_d_dimer_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_d_dimer_unit)=c("ug/mL or mg/L","ng/mL or ug/L")
levels(data$crf1a_d_dimer_assay)=c("FEU","DDU")
levels(data$crf1a_fib_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_biochem_not_done___1)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___2)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___3)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___4)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___5)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___6)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___7)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___8)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___9)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___10)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___11)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___12)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___13)=c("Unchecked","Checked")
levels(data$crf1a_biochem_not_done___14)=c("Unchecked","Checked")
levels(data$crf1a_na_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_k_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_urea_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_creat_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_biochem_egfr_90)=c("Yes","No")
levels(data$crf1a_alt_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_alp_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_bili_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_crp_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_ferr_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_mg_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_ser_cor_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_procal_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_inter6_less_great)=c("< (Less than)","> (Greater than)")
levels(data$crf1a_aki_adm)=c("None","Stage 1","Stage 2","Stage 3")
levels(data$crf1a_high_aki_adm)=c("None","Stage 1","Stage 2","Stage 3")
levels(data$crf1a_isaric_enrol_yn)=c("Yes","No")
levels(data$crf1a_baseline_clinical_data_part_3_q10_q15_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf1b_version)=c("Unversioned / eConsent","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf1b_eth)=c("(1) White - English / Welsh / Scottish / Northern Irish / British","(2) White - Irish","(3) White - Gypsy or Irish Traveller","(4) White - Any other White background","(5) Mixed/ Multiple Ethnic Backgrounds - White and Black Caribbean","(6) Mixed/ Multiple Ethnic Backgrounds - White and Black African","(7) Mixed/ Multiple Ethnic Backgrounds  - White and Asian","(8) Mixed/ Multiple Ethnic Backgrounds  - Any other Mixed/ Multiple ethnic background","(9) Asian/ Asian British -  Indian","(10) Asian/ Asian British - Pakistani","(11) Asian/ Asian British - Bangladeshi","(12) Asian/ Asian British - Chinese","(13) Asian/ Asian British - Any other Asian background","(14) Black/ African/ Caribbean/ Black British - African","(15) Black/ African/ Caribbean/ Black British - Caribbean","(16) Black/ African/ Caribbean/ Black British - Any other Black/ African/ Caribbean background","(17) Other ethnic group - Arab","(18) Other ethnic group - Any other ethnic group","Prefer not to say")
levels(data$crf1b_edu)=c("None","Primary school","Secondary school (GCSE level, NVQ level 1/2 or equivalent, typically age 16)","Sixth form college (A-levels, NVQ level 3 or equivalent, typically age 18)","Vocational qualification (NVQ level 4 or equivalent)","Undergraduate university degree or NVQ level 5 or equivalent","Post-graduate qualification","Prefer not to say")
levels(data$crf1b_income)=c("< £19,000","£19,001- £26,000","£26,001 - £35,000","£35,001 - £48,000","> £48,001","Prefer not to say")
levels(data$crf1b_disability_yn)=c("Yes","No","Prefer not to say")
levels(data$crf1b_living_arrangements)=c("Cohabiting","In a civil partnership","Married","Single (never married or never in a civil partnership)","Separated (but still legally married or in a civil partnership)","Divorced or civil partnership dissolved","Widowed or surviving partner from a civil partnership","Prefer not to say")
levels(data$crf1b_gender)=c("Male","Female","Intersex","Non Binary","If you prefer to use your own term, please describe below","Prefer not to say")
levels(data$crf1b_gender_identity)=c("Yes","No","Prefer not to say")
levels(data$crf1b_english_lang1)=c("Yes","No","Prefer not to say")
levels(data$crf1b_enrolled_in_study)=c("Yes","No","Prefer not to say")
levels(data$crf1b_shielding)=c("Not","Voluntary shielding","Extremely vulnerable","Letter issued by HCP","Prefer not to say")
levels(data$crf1b_occupation_known)=c("Enter below","Prefer not to say")
levels(data$crf1b_healthcare_worker)=c("Yes","No","Prefer not to say")
levels(data$crf1b_household___1)=c("Unchecked","Checked")
levels(data$crf1b_household___2)=c("Unchecked","Checked")
levels(data$crf1b_household___3)=c("Unchecked","Checked")
levels(data$crf1b_household___4)=c("Unchecked","Checked")
levels(data$crf1b_household___5)=c("Unchecked","Checked")
levels(data$crf1b_household___6)=c("Unchecked","Checked")
levels(data$crf1b_household___7)=c("Unchecked","Checked")
levels(data$crf1b_household___8)=c("Unchecked","Checked")
levels(data$crf1b_household___nk)=c("Unchecked","Checked")
levels(data$crf1b_caring)=c("None","Primary carer of a child/children (under 18)","Primary carer of a disabled child/children","Primary carer or assistant of a disabled adult (over 18)","Primary carer or assistant for an older person/people (over 65)","Secondary carer (another person carries out main caring role)","Prefer not to say")
levels(data$crf1b_confirm_comorbids)=c("Yes","No")
levels(data$crf1b_baseline_demographic_data_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf2a_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf2a_consultation_method)=c("Telephone Consultation","Face to face consultation")
levels(data$crf2a_not_completed)=c("Yes","No")
levels(data$crf2a_reason_not_done)=c("Language","Declined","Died","No answer","Other")
levels(data$crf2a_sex)=c("Male","Female")
levels(data$crf2a_pre_con_pulm)=c("Yes","No")
levels(data$crf2a_pre_con_card)=c("Yes","No")
levels(data$crf2a_pre_con_diab)=c("Yes","No")
levels(data$crf2a_pre_con_hypt)=c("Yes","No")
levels(data$crf2a_pre_con_other)=c("Yes","No")
levels(data$crf2a_consent)=c("Yes","No")
levels(data$crf2a_sta_newmed)=c("Yes","No")
levels(data$crf2a_sta_readm)=c("Yes","No")
levels(data$crf2a_sta_other)=c("Yes","No")
levels(data$crf2a_recovered)=c("Yes","No","Unsure")
levels(data$crf2a_eq5d5l_done)=c("Yes","No")
levels(data$crf2a_gppaq_done)=c("Yes","No")
levels(data$crf2a_sarcf_done)=c("Yes","No")
levels(data$crf2a_mrc_done)=c("Yes","No")
levels(data$crf2a_rcfs_done)=c("Yes","No")
levels(data$crf2a_health_problem_done)=c("Yes","No")
levels(data$crf2a_mental_done)=c("Yes","No")
levels(data$crf2a_nutrition_done)=c("Yes","No")
levels(data$crf2a_new_problems)=c("Yes","No")
levels(data$crf2a_checklist_ai)=c("Yes","No")
levels(data$crf2a_checklist_aii)=c("Yes","No")
levels(data$crf2a_checklist_aiii)=c("Yes","No")
levels(data$crf2a_checklist_aiv)=c("Yes","No")
levels(data$crf2a_checklist_av)=c("Yes","No")
levels(data$crf2a_checklist_avi)=c("Yes","No")
levels(data$crf2a_checklist_avii1)=c("Yes","No")
levels(data$crf2a_checklist_avii2)=c("Yes","No")
levels(data$crf2a_checklist_avii3)=c("Yes","No")
levels(data$crf2a_checklist_aviii)=c("Yes","No")
levels(data$crf2a_checklist_aix)=c("Yes","No")
levels(data$crf2a_checklist_ax)=c("Yes","No")
levels(data$crf2a_checklist_axi)=c("Yes","No")
levels(data$crf2a_checklist_b)=c("Yes","No")
levels(data$crf2a_checklist_c)=c("Yes","No")
levels(data$crf2a_checklist_d)=c("Yes","No")
levels(data$crf2a_followup_telephone_triage_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf2b_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf2b_post_dis_cxr_yn)=c("Yes","No")
levels(data$crf2b_post_dis_cxr_result)=c("Complete Resolution","Improving but some infiltrates","No change","Worsening")
levels(data$crf2b_ct_chest_or_ctpa_yn)=c("Yes","No")
levels(data$crf2b_outcome)=c("Discharged","Further follow up")
levels(data$crf2b_further_inv___1)=c("Unchecked","Checked")
levels(data$crf2b_further_inv___2)=c("Unchecked","Checked")
levels(data$crf2b_further_inv___3)=c("Unchecked","Checked")
levels(data$crf2b_further_inv___4)=c("Unchecked","Checked")
levels(data$crf2b_followup_triage_review_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf3a_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","1.6","2.0")
levels(data$crf3a_visit)=c("3 months visit","12 months visit")
levels(data$crf3a_rest_spo2_done)=c("Yes","No")
levels(data$crf3a_rest_hr_done)=c("Yes","No")
levels(data$crf3a_rest_bp_done)=c("Yes","No")
levels(data$crf3a_rest_temp_done)=c("Yes","No")
levels(data$crf3a_rest_height_done)=c("Yes","No")
levels(data$crf3a_rest_weight_done)=c("Yes","No")
levels(data$crf3a_base_cxr_done)=c("Completed","Not done")
levels(data$crf3a_base_ecg_done)=c("Completed","Not done")
levels(data$crf3a_base_cxr)=c("Normal","Extensive persistent changes >1/3 lung involvement","Suggestive of fibrotic lung disease","Indeterminate","Other")
levels(data$crf3a_ecg)=c("Sinus rhythm","Atrial fibrillation/flutter","ST segment/T wave changes","RBBB","LBBB")
levels(data$crf3a_outcome_fup)=c("Yes","No")
levels(data$crf3a_outcome_ras)=c("Yes","No")
levels(data$crf3a_outcome_rtc)=c("Yes","No")
levels(data$crf3a_outcome_rpc)=c("Yes","No")
levels(data$crf3a_outcome_rmhs)=c("Yes","No")
levels(data$crf3a_outcome_rrh)=c("Yes","No")
levels(data$crf3a_outcome_rdt)=c("Yes","No")
levels(data$crf3a_outcome_rsss)=c("Yes","No")
levels(data$crf3a_outcome_dis)=c("Yes","No")
levels(data$crf3a_tier)=c("Tier 1","Tier 2")
levels(data$crf3a_blood_done)=c("Yes","No")
levels(data$crf3a_blood_fbc)=c("Yes","No")
levels(data$crf3a_blood_ue)=c("Yes","No")
levels(data$crf3a_blood_egfr)=c("Yes","No")
levels(data$crf3a_blood_lfts)=c("Yes","No")
levels(data$crf3a_blood_crp)=c("Yes","No")
levels(data$crf3a_blood_bp)=c("Yes","No")
levels(data$crf3a_blood_25oh)=c("Yes","No")
levels(data$crf3a_blood_bnp)=c("Yes","No")
levels(data$crf3a_blood_trop)=c("Yes","No")
levels(data$crf3a_blood_ddim)=c("Yes","No")
levels(data$crf3a_blood_fib)=c("Yes","No")
levels(data$crf3a_blood_inr)=c("Yes","No")
levels(data$crf3a_blood_fer)=c("Yes","No")
levels(data$crf3a_blood_hba1c)=c("Yes","No")
levels(data$crf3a_blood_lp)=c("Yes","No")
levels(data$crf3a_blood_covid19)=c("Yes","No")
levels(data$crf3a_link_routine_blood)=c("Yes","No")
levels(data$crf3a_link_add_blood_sars)=c("Yes","No")
levels(data$crf3a_inv_resp___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___3)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___4)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___5)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___6)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___7)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___8)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___9)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___10)=c("Unchecked","Checked")
levels(data$crf3a_inv_resp___11)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___3)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___4)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___5)=c("Unchecked","Checked")
levels(data$crf3a_inv_cardiac___6)=c("Unchecked","Checked")
levels(data$crf3a_inv_haema___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_haema___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_haema___3)=c("Unchecked","Checked")
levels(data$crf3a_link_add_blood_haema)=c("Yes","No")
levels(data$crf3a_inv_renal___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___3)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___4)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___5)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___6)=c("Unchecked","Checked")
levels(data$crf3a_inv_renal___7)=c("Unchecked","Checked")
levels(data$crf3a_link_blood_urine)=c("Yes","No")
levels(data$crf3a_inv_immu___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_immu___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_immu___3)=c("Unchecked","Checked")
levels(data$crf3a_inv_immu___4)=c("Unchecked","Checked")
levels(data$crf3a_link_blood_immun)=c("Yes","No")
levels(data$crf3a_inv_neuro___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_neuro___2)=c("Unchecked","Checked")
levels(data$crf3a_inv_neuro___3)=c("Unchecked","Checked")
levels(data$crf3a_inv_neuro___4)=c("Unchecked","Checked")
levels(data$crf3a_inv_neuro___5)=c("Unchecked","Checked")
levels(data$crf3a_inv_neuro___6)=c("Unchecked","Checked")
levels(data$crf3a_quest___1)=c("Unchecked","Checked")
levels(data$crf3a_quest___2)=c("Unchecked","Checked")
levels(data$crf3a_quest___3)=c("Unchecked","Checked")
levels(data$crf3a_quest___4)=c("Unchecked","Checked")
levels(data$crf3a_quest___5)=c("Unchecked","Checked")
levels(data$crf3a_quest___6)=c("Unchecked","Checked")
levels(data$crf3a_quest___7)=c("Unchecked","Checked")
levels(data$crf3a_quest___8)=c("Unchecked","Checked")
levels(data$crf3a_quest___9)=c("Unchecked","Checked")
levels(data$crf3a_quest___10)=c("Unchecked","Checked")
levels(data$crf3a_quest___11)=c("Unchecked","Checked")
levels(data$crf3a_quest_mrc)=c("Yes","No")
levels(data$crf3a_quest_eq5d5l)=c("Yes","No")
levels(data$crf3a_quest_gad7)=c("Yes","No")
levels(data$crf3a_quest_phq9)=c("Yes","No")
levels(data$crf3a_quest_sarcf)=c("Yes","No")
levels(data$crf3a_quest_gppaq)=c("Yes","No")
levels(data$crf3a_quest_dys12)=c("Yes","No")
levels(data$crf3a_quest_facit)=c("Yes","No")
levels(data$crf3a_quest_bpi)=c("Yes","No")
levels(data$crf3a_quest_pcl5)=c("Yes","No")
levels(data$crf3a_quest_neadl)=c("Yes","No")
levels(data$crf3a_inv_quest___1)=c("Unchecked","Checked")
levels(data$crf3a_inv_quest___2)=c("Unchecked","Checked")
levels(data$crf3a_quest_moca)=c("Yes","No")
levels(data$crf3a_quest_rcfs)=c("Yes","No")
levels(data$crf3a_pft_done)=c("Yes","No")
levels(data$crf3a_echo_right)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crf3a_echo_left)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crf3a_tape_done)=c("Yes","No")
levels(data$crf3a_tape_finding___1)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___2)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___3)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___4)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___5)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___6)=c("Unchecked","Checked")
levels(data$crf3a_tape_finding___7)=c("Unchecked","Checked")
levels(data$crf3a_6mwt_done)=c("Yes","No")
levels(data$crf3a_clinical_data_section_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf3b_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","1.6","2.0")
levels(data$crf3b_ongoing_consent_done)=c("Yes","No")
levels(data$crf3b_visit)=c("3 months visit","12 months visit")
levels(data$crf3b_rest_spo2_done)=c("Yes","No")
levels(data$crf3b_rest_hr_done)=c("Yes","No")
levels(data$crf3b_rest_bp_done)=c("Yes","No")
levels(data$crf3b_rest_temp_done)=c("Yes","No")
levels(data$crf3b_rest_height_done)=c("Yes","No")
levels(data$crf3b_rest_weight_done)=c("Yes","No")
levels(data$crf3b_base_ecg_done)=c("Completed","Not done")
levels(data$crf3b_ecg)=c("Sinus rhythm","Atrial fibrillation/flutter","ST segment/T wave changes","RBBB","LBBB")
levels(data$crf3b_hcare_ehv)=c("Yes","No")
levels(data$crf3b_hcare_pacr)=c("Yes","No")
levels(data$crf3b_hcare_cgp)=c("Yes","No")
levels(data$crf3b_hcare_med)=c("Yes","No")
levels(data$crf3b_crfev_done)=c("Yes","No")
levels(data$crf3b_crf4_done)=c("Yes","No")
levels(data$crf3b_medlog_done)=c("Yes","No")
levels(data$crf3b_eq5d_done)=c("Yes","No")
levels(data$crf3b_mrc_done)=c("Yes","No")
levels(data$crf3b_social_history_done)=c("Yes","No")
levels(data$crf3b_new_prob)=c("Yes","No")
levels(data$crf3b_spost_livewell)=c("Yes","No","Unsure")
levels(data$crf3b_spost_iapt)=c("Yes","No","Unsure")
levels(data$crf3b_spost_shyg)=c("Yes","No","Unsure")
levels(data$crf3b_spost_mental)=c("Yes","No","Unsure")
levels(data$crf3b_spost_drinkfree)=c("Yes","No","Unsure")
levels(data$crf3b_spost_phyinac)=c("Yes","No","Unsure")
levels(data$crf3b_spost_smkadv)=c("Yes","No","Unsure")
levels(data$crf3b_spost_smkref)=c("Yes","No","Unsure")
levels(data$crf3b_spost_smkapp)=c("Yes","No","Unsure")
levels(data$crf3b_spost_wmgmt)=c("Yes","No","Unsure")
levels(data$crf3b_spost_heat)=c("Yes","No","Unsure")
levels(data$crf3b_inv_assess___1)=c("Unchecked","Checked")
levels(data$crf3b_inv_assess___2)=c("Unchecked","Checked")
levels(data$crf3b_inv_assess___3)=c("Unchecked","Checked")
levels(data$crf3b_assess_moca)=c("Yes","No")
levels(data$crf3b_assess_cfs)=c("Yes","No")
levels(data$crf3b_truecolours_check)=c("Yes","No")
levels(data$crf3b_quests___12)=c("Unchecked","Checked")
levels(data$crf3b_quests___13)=c("Unchecked","Checked")
levels(data$crf3b_quests___1)=c("Unchecked","Checked")
levels(data$crf3b_quests___2)=c("Unchecked","Checked")
levels(data$crf3b_quests___3)=c("Unchecked","Checked")
levels(data$crf3b_quests___4)=c("Unchecked","Checked")
levels(data$crf3b_quests___5)=c("Unchecked","Checked")
levels(data$crf3b_quests___6)=c("Unchecked","Checked")
levels(data$crf3b_quests___7)=c("Unchecked","Checked")
levels(data$crf3b_quests___8)=c("Unchecked","Checked")
levels(data$crf3b_quests___9)=c("Unchecked","Checked")
levels(data$crf3b_quests___10)=c("Unchecked","Checked")
levels(data$crf3b_quests___11)=c("Unchecked","Checked")
levels(data$crf3b_quest_pre_psq)=c("Yes","No")
levels(data$crf3b_quest_psq)=c("Yes","No")
levels(data$crf3b_quest_mrc)=c("Yes","No")
levels(data$crf3b_quest_eq5d5l)=c("Yes","No")
levels(data$crf3b_quest_gad7)=c("Yes","No")
levels(data$crf3b_quest_phq9)=c("Yes","No")
levels(data$crf3b_quest_sarcf)=c("Yes","No")
levels(data$crf3b_quest_gppaq)=c("Yes","No")
levels(data$crf3b_quest_dys12)=c("Yes","No")
levels(data$crf3b_quest_facit)=c("Yes","No")
levels(data$crf3b_quest_bpi)=c("Yes","No")
levels(data$crf3b_quest_pcl5)=c("Yes","No")
levels(data$crf3b_quest_neadl)=c("Yes","No")
levels(data$crf3b_fried_shrink)=c("Yes","No")
levels(data$crf3b_fried_energy)=c("Yes","No")
levels(data$crf3b_fried_rest_day)=c("Every day","Every week","Once","Not at all")
levels(data$crf3b_t2_core)=c("Yes","No")
levels(data$crf3b_t2_research)=c("Yes","No")
levels(data$crf3b_pft)=c("Yes","No")
levels(data$crf3b_qrisk3)=c("Yes","No")
levels(data$cr3b_waist_done)=c("Yes","No")
levels(data$crf3b_rehab_q1)=c("Yes","No","Not sure")
levels(data$crf3b_rehab_q2)=c("Yes","No","Not sure")
levels(data$crf3b_rehab_q3)=c("Face-to-face","Virtual/remote","Both")
levels(data$crf3b_rehab_q4_yn)=c("Yes","No")
levels(data$crf3b_rehab_q5)=c("Yes","No","Not sure")
levels(data$crf3b_rehab_q6)=c("Yes","No","Not sure")
levels(data$crf3b_psych_q1)=c("Yes","No","Not sure")
levels(data$crf3b_psych_q2___1)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___2)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___3)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___4)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___5)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___6)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___7)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___8)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___9)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___10)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___11)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___12)=c("Unchecked","Checked")
levels(data$crf3b_psych_q2___13)=c("Unchecked","Checked")
levels(data$crf3b_psych_q3)=c("Face-to-face","Virtual/remote","Both")
levels(data$crf3b_psych_q4)=c("Yes","No","Not sure")
levels(data$crf3b_bodycom_bia)=c("Yes","No")
levels(data$crf3b_bodycom_dxa)=c("Yes","No")
levels(data$crf3b_muscle_strength)=c("Yes","No")
levels(data$crf3b_iswt_1)=c("Yes","No")
levels(data$crf3b_iswt_2)=c("Yes","No")
levels(data$crf3b_sppb)=c("Yes","No")
levels(data$crf3b_amc_inform)=c("Yes","No")
levels(data$crf3b_amc_happy)=c("Yes","No")
levels(data$crf3b_amc_location)=c("Wrist","Upper Arm")
levels(data$crf3b_amc_strap)=c("Plastic","Velcro")
levels(data$crf3b_future_studies)=c("Yes","No")
levels(data$crf3b_research_data_section_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf3c_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","1.6","2.0")
levels(data$crf3c_psqi)=c("Yes","No")
levels(data$crf3c_meq)=c("Yes","No")
levels(data$crf3c_lcq)=c("Yes","No")
levels(data$crf3c_other_quest)=c("Yes","No")
levels(data$crf3c_t3_qmus)=c("Yes","No")
levels(data$crf3c_t3_mb)=c("Yes","No")
levels(data$crf3c_t3_bs)=c("Yes","No")
levels(data$crf3c_t3_genomicc)=c("Yes","No")
levels(data$crf3c_t3_lir_turtle)=c("Yes","No")
levels(data$crf3c_t3_other)=c("Yes","No")
levels(data$crf3c_genomicc_consent)=c("v2.4")
levels(data$crf3c_gen_coenrol_yn)=c("Yes","No")
levels(data$crf3c_gen_id_yn)=c("Yes","No")
levels(data$crf3c_gen_coenrol_consent)=c("Yes","No")
levels(data$crf3c_genomicc_withdrawal___1)=c("Unchecked","Checked")
levels(data$crf3c_genomicc_withdrawal___2)=c("Unchecked","Checked")
levels(data$crf3c_additional_research_procedures_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf4a_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf4a_rest_spo2_done)=c("Yes","No")
levels(data$crf4a_rest_hr_done)=c("Yes","No")
levels(data$crf4a_rest_bp_done)=c("Yes","No")
levels(data$crf4a_rest_temp_done)=c("Yes","No")
levels(data$crf4a_rest_height_done)=c("Yes","No")
levels(data$crf4a_rest_weight_done)=c("Yes","No")
levels(data$crf4a_base_cxr_done)=c("Completed","Not done")
levels(data$crf4a_base_ecg_done)=c("Completed","Not done")
levels(data$crf4a_base_cxr)=c("Normal","Extensive persistent changes >1/3 lung involvement","Suggestive of fibrotic lung disease","Indeterminate","Other")
levels(data$crf4a_ecg)=c("Sinus rhythm","Atrial fibrillation/flutter","ST segment/T wave changes","RBBB","LBBB")
levels(data$crf4a_outcome_fup)=c("Yes","No")
levels(data$crf4a_outcome_ras)=c("Yes","No")
levels(data$crf4a_outcome_rtc)=c("Yes","No")
levels(data$crf4a_outcome_rpc)=c("Yes","No")
levels(data$crf4a_outcome_rmhs)=c("Yes","No")
levels(data$crf4a_outcome_rrh)=c("Yes","No")
levels(data$crf4a_outcome_rdt)=c("Yes","No")
levels(data$crf4a_outcome_rsss)=c("Yes","No")
levels(data$crf4a_outcome_dis)=c("Yes","No")
levels(data$crf4a_tier)=c("Tier 1","Tier 2")
levels(data$crf4a_blood_done)=c("Yes","No")
levels(data$crf4a_blood_fbc)=c("Yes","No")
levels(data$crf4a_blood_ue)=c("Yes","No")
levels(data$crf4a_blood_egfr)=c("Yes","No")
levels(data$crf4a_blood_lfts)=c("Yes","No")
levels(data$crf4a_blood_crp)=c("Yes","No")
levels(data$crf4a_blood_bp)=c("Yes","No")
levels(data$crf4a_blood_25oh)=c("Yes","No")
levels(data$crf4a_blood_bnp)=c("Yes","No")
levels(data$crf4a_blood_trop)=c("Yes","No")
levels(data$crf4a_blood_ddim)=c("Yes","No")
levels(data$crf4a_blood_fib)=c("Yes","No")
levels(data$crf4a_blood_inr)=c("Yes","No")
levels(data$crf4a_blood_fer)=c("Yes","No")
levels(data$crf4a_blood_hba1c)=c("Yes","No")
levels(data$crf4a_blood_lp)=c("Yes","No")
levels(data$crf4a_blood_covid19)=c("Yes","No")
levels(data$crf4a_link_routine_blood)=c("Yes","No")
levels(data$crf4a_link_add_blood_sars)=c("Yes","No")
levels(data$crf4a_inv_resp___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___3)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___4)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___5)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___6)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___7)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___8)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___9)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___10)=c("Unchecked","Checked")
levels(data$crf4a_inv_resp___11)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___3)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___4)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___5)=c("Unchecked","Checked")
levels(data$crf4a_inv_cardiac___6)=c("Unchecked","Checked")
levels(data$crf4a_inv_haema___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_haema___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_haema___3)=c("Unchecked","Checked")
levels(data$crf4a_link_add_blood_haema)=c("Yes","No")
levels(data$crf4a_inv_renal___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___3)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___4)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___5)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___6)=c("Unchecked","Checked")
levels(data$crf4a_inv_renal___7)=c("Unchecked","Checked")
levels(data$crf4a_link_blood_urine)=c("Yes","No")
levels(data$crf4a_inv_immu___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_immu___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_immu___3)=c("Unchecked","Checked")
levels(data$crf4a_inv_immu___4)=c("Unchecked","Checked")
levels(data$crf4a_link_blood_immun)=c("Yes","No")
levels(data$crf4a_inv_neuro___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_neuro___2)=c("Unchecked","Checked")
levels(data$crf4a_inv_neuro___3)=c("Unchecked","Checked")
levels(data$crf4a_inv_neuro___4)=c("Unchecked","Checked")
levels(data$crf4a_inv_neuro___5)=c("Unchecked","Checked")
levels(data$crf4a_inv_neuro___6)=c("Unchecked","Checked")
levels(data$crf4a_quest___1)=c("Unchecked","Checked")
levels(data$crf4a_quest___2)=c("Unchecked","Checked")
levels(data$crf4a_quest___3)=c("Unchecked","Checked")
levels(data$crf4a_quest___4)=c("Unchecked","Checked")
levels(data$crf4a_quest___5)=c("Unchecked","Checked")
levels(data$crf4a_quest___6)=c("Unchecked","Checked")
levels(data$crf4a_quest___7)=c("Unchecked","Checked")
levels(data$crf4a_quest___8)=c("Unchecked","Checked")
levels(data$crf4a_quest___9)=c("Unchecked","Checked")
levels(data$crf4a_quest___10)=c("Unchecked","Checked")
levels(data$crf4a_quest___11)=c("Unchecked","Checked")
levels(data$crf4a_quest_mrc)=c("Yes","No")
levels(data$crf4a_quest_eq5d5l)=c("Yes","No")
levels(data$crf4a_quest_gad7)=c("Yes","No")
levels(data$crf4a_quest_phq9)=c("Yes","No")
levels(data$crf4a_quest_sarcf)=c("Yes","No")
levels(data$crf4a_quest_gppaq)=c("Yes","No")
levels(data$crf4a_quest_dys12)=c("Yes","No")
levels(data$crf4a_quest_facit)=c("Yes","No")
levels(data$crf4a_quest_bpi)=c("Yes","No")
levels(data$crf4a_quest_pcl5)=c("Yes","No")
levels(data$crf4a_quest_neadl)=c("Yes","No")
levels(data$crf4a_inv_quest___1)=c("Unchecked","Checked")
levels(data$crf4a_inv_quest___2)=c("Unchecked","Checked")
levels(data$crf4a_quest_moca)=c("Yes","No")
levels(data$crf4a_quest_rcfs)=c("Yes","No")
levels(data$crf4a_pft_done)=c("Yes","No")
levels(data$crf4a_echo_right)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crf4a_echo_left)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crf4a_tape_done)=c("Yes","No")
levels(data$crf4a_tape_finding___1)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___2)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___3)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___4)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___5)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___6)=c("Unchecked","Checked")
levels(data$crf4a_tape_finding___7)=c("Unchecked","Checked")
levels(data$crf4a_6mwt_done)=c("Yes","No")
levels(data$crf4a_clinical_data_section_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf4b_version)=c("Unversioned","1.0","1.1","1.2","1.3","1.4","1.5","2.0")
levels(data$crf4b_ongoing_confirmed)=c("Yes","No")
levels(data$crf4b_tier2_blood)=c("Yes","No")
levels(data$crf4b_research_data_section_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf_emergency_version)=c("Unversioned","1.0","1.1","2.0")
levels(data$crfev_symptoms___1)=c("Unchecked","Checked")
levels(data$crfev_symptoms___2)=c("Unchecked","Checked")
levels(data$crfev_symptoms___3)=c("Unchecked","Checked")
levels(data$crfev_symptoms___4)=c("Unchecked","Checked")
levels(data$crfev_symptoms___5)=c("Unchecked","Checked")
levels(data$crfev_symptoms___6)=c("Unchecked","Checked")
levels(data$crfev_symptoms___7)=c("Unchecked","Checked")
levels(data$crfev_symptoms___8)=c("Unchecked","Checked")
levels(data$crfev_symptoms___9)=c("Unchecked","Checked")
levels(data$crfev_symptoms___10)=c("Unchecked","Checked")
levels(data$crfev_symptoms___11)=c("Unchecked","Checked")
levels(data$crfev_symptoms___12)=c("Unchecked","Checked")
levels(data$crfev_symptoms___13)=c("Unchecked","Checked")
levels(data$crfev_symptoms___14)=c("Unchecked","Checked")
levels(data$crfev_symptoms___15)=c("Unchecked","Checked")
levels(data$crfev_symptoms___16)=c("Unchecked","Checked")
levels(data$crfev_itu_hdu_adm)=c("Yes","No","Unknown")
levels(data$crfev_med_change)=c("Yes","No","Unknown")
levels(data$crfev_dis_diagnosis___1)=c("Unchecked","Checked")
levels(data$crfev_dis_diagnosis___2)=c("Unchecked","Checked")
levels(data$crfev_cxr_done)=c("Yes","No")
levels(data$crfev_ecg_done)=c("Yes","No")
levels(data$crfev_xr_result___1)=c("Unchecked","Checked")
levels(data$crfev_xr_result___2)=c("Unchecked","Checked")
levels(data$crfev_xr_result___3)=c("Unchecked","Checked")
levels(data$crfev_xr_result___4)=c("Unchecked","Checked")
levels(data$crfev_xr_result___5)=c("Unchecked","Checked")
levels(data$crfev_ecg_result___1)=c("Unchecked","Checked")
levels(data$crfev_ecg_result___2)=c("Unchecked","Checked")
levels(data$crfev_ecg_result___3)=c("Unchecked","Checked")
levels(data$crfev_ecg_result___4)=c("Unchecked","Checked")
levels(data$crfev_ecg_result___5)=c("Unchecked","Checked")
levels(data$crfev_blood_done)=c("Yes","No","Unknown")
levels(data$crfev_other_inv_done)=c("Yes","No","Unknown")
levels(data$crfev_blood_desc)=c("Yes","No")
levels(data$crfev_add_inv_resp___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___3)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___4)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___5)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___6)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___7)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___8)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___9)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___10)=c("Unchecked","Checked")
levels(data$crfev_add_inv_resp___11)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___3)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___4)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___5)=c("Unchecked","Checked")
levels(data$crfev_add_inv_card___6)=c("Unchecked","Checked")
levels(data$crfev_add_inv_haema___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_haema___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_haema___3)=c("Unchecked","Checked")
levels(data$crfev_link_add_blood_haema)=c("Yes","No")
levels(data$crfev_add_inv_renal___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___3)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___4)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___5)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___6)=c("Unchecked","Checked")
levels(data$crfev_add_inv_renal___7)=c("Unchecked","Checked")
levels(data$crfev_link_blood_urine)=c("Yes","No")
levels(data$crfev_add_inv_immu___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_immu___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_immu___3)=c("Unchecked","Checked")
levels(data$crfev_add_inv_immu___4)=c("Unchecked","Checked")
levels(data$crfev_link_blood_immun)=c("Yes","No")
levels(data$crfev_add_inv_neuro___1)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___2)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___3)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___4)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___5)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___6)=c("Unchecked","Checked")
levels(data$crfev_add_inv_neuro___7)=c("Unchecked","Checked")
levels(data$crfev_echo_right)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crfev_echo_left)=c("Normal","Mild dysfunction","Moderate dysfunction","Severe dysfunction","Unable to visualise")
levels(data$crfev_tape_done)=c("Yes","No")
levels(data$crfev_tape_finding___1)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___2)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___3)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___4)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___5)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___6)=c("Unchecked","Checked")
levels(data$crfev_tape_finding___7)=c("Unchecked","Checked")
levels(data$crf_emergency_visit_complete)=c("Incomplete","Unverified","Complete")
levels(data$ae_sae)=c("Yes","No")
levels(data$sae_criteria)=c("Death","Life threatening","Hospitalisation","Medically significant","Congenital abnormality/birth defect")
levels(data$ae_severity)=c("Mild","Moderate","Severe","Fatal")
levels(data$ae_action)=c("None","Study interrupted","Drug therapy given","Non-drug therapy given")
levels(data$ae_outcome)=c("Resolved","Resolved with sequelae","Ongoing","Fatal","Unknown")
levels(data$adverse_events_log_complete)=c("Incomplete","Unverified","Complete")
levels(data$wd_type___1)=c("Unchecked","Checked")
levels(data$wd_type___2)=c("Unchecked","Checked")
levels(data$wd_sign_type)=c("Participant","Signatory other than participant")
levels(data$wd_pt_signature_verified)=c("Yes","No")
levels(data$wd_signatory_date_verified)=c("Yes","No")
levels(data$withdrawals_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf_early_data_collect_yn)=c("Yes","No")
levels(data$crf_early_main_reason___1)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___2)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___3)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___4)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___5)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___6)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___7)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___8)=c("Unchecked","Checked")
levels(data$crf_early_main_reason___9)=c("Unchecked","Checked")
levels(data$early_termination_crf_complete)=c("Incomplete","Unverified","Complete")
levels(data$crf_tier2_data_collect_yn)=c("Yes","No")
levels(data$crf_tier2_main_reason___1)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___2)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___3)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___4)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___5)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___6)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___7)=c("Unchecked","Checked")
levels(data$crf_tier2_main_reason___8)=c("Unchecked","Checked")
levels(data$crf_tier_2_consent_withdrawal_complete)=c("Incomplete","Unverified","Complete")
levels(data$med_class)=c("1 - Analgesia (including opioids)","2 - NSAIDS","3 - Beta blockers","4 - Ca2+ channel blockers","5 - ACE inhibitors","6 - Statin","7 - Anti-platelets","8 - Anticoagulants","9 - Diuretics","10 - Immunosuppressant","11 - Antibiotics","12 - Benzodiazepines","13 - Antidepressants","14 - Antipsychotics","15 - Anti-epilepsy","16 - Corticosteroids (oral)","17 - Inhalers containing ICS","18 - Bronchodilators (any form)","19 - Anti-fibrotics","20 - Vaccines","21 - Diabetes medications (including Insulin)","22 - Others")
levels(data$med_frequency)=c("OD = Once Daily","BD = Twice a day","TDS = three times a day","QDS = Four times a day","AD = alternate days","OW = once weekly","PRN = as required","O = Other")
levels(data$med_route)=c("01 = Oral","02 = IV","03 = IM","04 = SC","05 = Topical","06 = Rectal","07 = Nasal","08 = Transdermal","09 = Inhalant","10 = Sublingual","Other")
levels(data$repeatable_medications_log_complete)=c("Incomplete","Unverified","Complete")
levels(data$am_wear_location)=c("Wrist","Upper Arm")
levels(data$am_strap)=c("Plastic","Velcro")
levels(data$activity_monitor_completion_form_complete)=c("Incomplete","Unverified","Complete")
levels(data$mha_ph4_nervous)=c("Not at all","Several days","More than half the days","Nearly every day")
levels(data$mha_ph4_worrying)=c("Not at all","Several days","More than half the days","Nearly every day")
levels(data$mha_ph4_little_interest)=c("Not at all","Several days","More than half the days","Nearly every day")
levels(data$mha_ph4_depressed)=c("Not at all","Several days","More than half the days","Nearly every day")
levels(data$mha_ptsd_memories)=c("Yes","No")
levels(data$mha_ptsd_dreams)=c("Yes","No")
levels(data$mha_ptsd_thoughts)=c("Yes","No")
levels(data$mha_ptsd_memories_detail)=c("mild","moderate","severe","extreme")
levels(data$mha_ptsd_dreams_detail)=c("mild","moderate","severe","extreme")
levels(data$mha_ptsd_thoughts_detail)=c("mild","moderate","severe","extreme")
levels(data$mha_lonely_lack)=c("Harly ever","Some of the time","Often")
levels(data$mha_lonely_left)=c("Harly ever","Some of the time","Often")
levels(data$mha_lonely_iso)=c("Harly ever","Some of the time","Often")
levels(data$mha_lonely_lon)=c("Harly ever","Some of the time","Often")
levels(data$repeatable_mental_health_assessment_complete)=c("Incomplete","Unverified","Complete")
levels(data$nutri_concern_weight)=c("Yes","No")
levels(data$nutri_appetite)=c("0","1","2","3","4","5")
levels(data$nutri_advice)=c("Yes","No")
levels(data$repeatable_nutrition_complete)=c("Incomplete","Unverified","Complete")
levels(data$social_status_before)=c("Working full-time","Working part-time","Full time carer (children or other)","Unemployed","Unable to work due to chronic illness","Student","Retired","Medically retired","Prefer not to say")
levels(data$social_employ_pre_mar20)=c("FT employment","PT employment","Off sick","Caring for children","Caring for an adult","FT education","PT education","Unemployed","Retired")
levels(data$social_employ_pre_covid)=c("FT employment","PT employment","Off sick","Caring for children","Caring for an adult","FT education","PT education","Unemployed","Retired","Furloughed","Laid off due to outbreak")
levels(data$social_employ_post_covid)=c("FT employment","PT employment","Off sick","Caring for children","Caring for an adult","FT education","PT education","Unemployed","Retired","Furloughed","Laid off due to outbreak")
levels(data$social_shift_work)=c("Never","Rarely","Sometimes","Usually","Always","Dont know / prefer not to say")
levels(data$social_shift_night)=c("Never","Rarely","Sometimes","Usually","Always","Dont know / prefer not to say")
levels(data$social_affect_work)=c("Yes","No")
levels(data$social_exp_bereave)=c("Yes","No")
levels(data$repeatable_social_history_complete)=c("Incomplete","Unverified","Complete")
levels(data$hp_today_seeing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_today_hearing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_today_walking)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_today_remembering)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_today_self_care)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_today_communicating)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_seeing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_hearing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_walking)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_remebering)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_self_care)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$hp_precovid_communicating)=c("No - no difficulty","Yes - some difficulty","Yes - a lot of difficulty","Cannot do at all")
levels(data$repeatable_activity_difficulties_from_health_probl_complete)=c("Incomplete","Unverified","Complete")
levels(data$ls_smoke)=c("Never","Ex-smoker","Current smoker")
levels(data$ls_smoke_e)=c("Yes","No")
levels(data$ls_change_smoke)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$ls_change_drink)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$ls_change_food)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$ls_change_activity)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$repeatable_lifestyle_complete)=c("Incomplete","Unverified","Complete")
levels(data$eq5d_done)=c("Yes","No")
levels(data$eq5d_timepoints)=c("Pre-COVID","Current visit","Both")
levels(data$eq5d5l_q1_pre)=c("I have no problems in walking about","I have slight problems in walking about","I have moderate problems in walking about","I have severe problems in walking about","I am unable to walk about")
levels(data$eq5d5l_q2_pre)=c("I have no problems washing or dressing myself","I have slight problems washing or dressing myself","I have moderate problems washing or dressing myself","I have severe problems washing or dressing myself","I am unable to wash or dress myself")
levels(data$eq5d5l_q3_pre)=c("I have no problems doing my usual activities","I have slight problems with doing my usual activities","I have moderate problems doing my usual activities","I have severe problems doing my usual activities","I am unable to do my usual activities")
levels(data$eq5d5l_q4_pre)=c("I have no pain or discomfort","I have slight pain or discomfort","I have moderate pain or discomfort","I have severe pain or discomfort","I have extreme pain or discomfort")
levels(data$eq5d5l_q5_pre)=c("I am not anxious or depressed","I am slightly anxious or depressed","I am moderately anxious or depressed","I am severely anxious or depressed","I am extremely anxious or depressed")
levels(data$eq5d5l_q1)=c("I have no problems in walking about","I have slight problems in walking about","I have moderate problems in walking about","I have severe problems in walking about","I am unable to walk about")
levels(data$eq5d5l_q2)=c("I have no problems washing or dressing myself","I have slight problems washing or dressing myself","I have moderate problems washing or dressing myself","I have severe problems washing or dressing myself","I am unable to wash or dress myself")
levels(data$eq5d5l_q3)=c("I have no problems doing my usual activities","I have slight problems with doing my usual activities","I have moderate problems doing my usual activities","I have severe problems doing my usual activities","I am unable to do my usual activities")
levels(data$eq5d5l_q4)=c("I have no pain or discomfort","I have slight pain or discomfort","I have moderate pain or discomfort","I have severe pain or discomfort","I have extreme pain or discomfort")
levels(data$eq5d5l_q5)=c("I am not anxious or depressed","I am slightly anxious or depressed","I am moderately anxious or depressed","I am severely anxious or depressed","I am extremely anxious or depressed")
levels(data$repeatable_eq5d5l_complete)=c("Incomplete","Unverified","Complete")
levels(data$gad7_q1)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q2)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q3)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q4)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q5)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q6)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_q7)=c("Not at all","Several Days","More than half the days","Nearly every day")
levels(data$gad7_difficulty)=c("Not difficult at all","Somewhat difficult","Very difficult","Extremely difficult")
levels(data$repeatable_general_anxiety_disorder_7_questionnair_complete)=c("Incomplete","Unverified","Complete")
levels(data$phq9_q1)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q2)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q3)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q4)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q5)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q6)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q7)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q8)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$phq9_q9)=c("Not at all","Several Days","Over than half the days","Nearly every day")
levels(data$repeatable_patient_health_questionnaire9_phq9_complete)=c("Incomplete","Unverified","Complete")
levels(data$mrcds_visit___1)=c("Unchecked","Checked")
levels(data$mrcds_visit___2)=c("Unchecked","Checked")
levels(data$mrcds_blness_exer_pre)=c("Yes","No")
levels(data$mrcds_short_level_pre)=c("Yes","No")
levels(data$mrcds_walk_slower_pre)=c("Yes","No")
levels(data$mrcds_after_walk_pre)=c("Yes","No")
levels(data$mrcds_leave_house_pre)=c("Yes","No")
levels(data$mrcds_blness_exer_since)=c("Yes","No")
levels(data$mrcds_short_level_since)=c("Yes","No")
levels(data$mrcds_walk_slower_since)=c("Yes","No")
levels(data$mrcds_after_walk_since)=c("Yes","No")
levels(data$mrcds_leave_house_since)=c("Yes","No")
levels(data$repeatable_mrc_dyspnoea_scale_complete)=c("Incomplete","Unverified","Complete")
levels(data$sarcf_strength)=c("[0] None","[1] Some","[2] A lot or unable")
levels(data$sarcf_walk_difficult)=c("[0] None","[1] Some","[2] A lot, use aids or unable")
levels(data$sarcf_rise_from_a_chair)=c("[0] None","[1] Some","[2] A lot or unable without help")
levels(data$sarcf_climb_stairs)=c("[0] None","[1] Some","[2] A lot or unable")
levels(data$sarcf_falls)=c("[0] None","[1] 1-3 falls","[2] 4 or more falls")
levels(data$repeatable_sarcf_questionnaire_complete)=c("Incomplete","Unverified","Complete")
levels(data$gppaq_physical_amount)=c("I am not in employment (e.g. retired, retired for health reasons, unemployed, full-time carer etc.)","I spend most of my time at work sitting (such as in an office)","I spend most of my time at work standing or walking. However, my work does not require much intense physical effort (e.g. shop assistant, hairdresser, security guard, childminder, etc.)","My work involves definite physical effort including handling of heavy objects and use of tools (e.g. plumber, electrician, carpenter, cleaner, hospital nurse, gardener, postal delivery workers etc.)","My work involves vigorous physical activity including handling of very heavy objects (e.g. scaffolder, construction worker, refuse collector, etc.)")
levels(data$gppaq_pe)=c("None","Some but less than one hour","1 hour but less than 3 hours","3 hours or more")
levels(data$gppaq_cycling)=c("None","Some but less than one hour","1 hour but less than 3 hours","3 hours or more")
levels(data$gppaq_walking)=c("None","Some but less than one hour","1 hour but less than 3 hours","3 hours or more")
levels(data$gppaq_housework_childcare)=c("None","Some but less than one hour","1 hour but less than 3 hours","3 hours or more")
levels(data$gppaq_garden_diy)=c("None","Some but less than one hour","1 hour but less than 3 hours","3 hours or more")
levels(data$gppaq_walk_pace)=c("Slow pace (i.e. less than 3 mph)","Steady average pace","Brisk pace","Fast pace (i.e. over 4 mph)")
levels(data$gppaq_result)=c("Active","Moderately active","Moderately inactive","Inactive")
levels(data$repeatable_general_practice_physical_activity_ques_complete)=c("Incomplete","Unverified","Complete")
levels(data$dyspnoea_not_go_in)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_more_work)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_short)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_catching)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_not_air)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_uncomfortable)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_exhausting)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_depressed)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_miserable)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_distressing)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_agitated)=c("None","Mild","Moderate","Severe")
levels(data$dyspnoea_irritating)=c("None","Mild","Moderate","Severe")
levels(data$repeatable_dyspnoea12_complete)=c("Incomplete","Unverified","Complete")
levels(data$facit_fatigued)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_feel_weak)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_feel_listless)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_feel_tired)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_trouble_starting)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_trouble_finishing)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_energy)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_usual_activities)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_sleep_in_the_day)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_too_tired_to_eat)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_help_usual_acti)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_frustrated)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$facit_limit_social)=c("Not at all","A little bit","Somewhat","Quite a bit","Very much")
levels(data$repeatable_facit_fatigue_scale_v4_complete)=c("Incomplete","Unverified","Complete")
levels(data$pcl5_memories)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_dreams)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_suddenly)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_upset)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_physical_reactions)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_avoiding_memories)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_avoiding_reminder)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_trouble_remembering)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_negative_beliefs)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_blaming)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_negative_feeling)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_loss_interest)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_feeling_distant)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_trouble_positive)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_irritable_behavior)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_risky)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_superalert)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_jumpy)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_concentrating)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$pcl5_trouble_sleep)=c("Not at all","A little bit","Moderately","Quite a bit","Extremely")
levels(data$repeatable_ptsd_checklist_for_dsm5_pcl5_complete)=c("Incomplete","Unverified","Complete")
levels(data$bpi_unusual_pain_yn)=c("Yes","No")
levels(data$bpi_pain_sites___1)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___2)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___3)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___4)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___5)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___6)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___7)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___8)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___9)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___10)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___11)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___12)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___13)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___14)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___15)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___16)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___17)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___18)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___19)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___20)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___21)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___22)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___23)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___24)=c("Unchecked","Checked")
levels(data$bpi_pain_sites___25)=c("Unchecked","Checked")
levels(data$bpi_worst)=c("0 - No Pain","1","2","3","4","5","6","7","8","9","10 - pain as bad as you can imagine")
levels(data$bpi_least)=c("0 - No Pain","1","2","3","4","5","6","7","8","9","10 - pain as bad as you can imagine")
levels(data$bpi_average)=c("0 - No Pain","1","2","3","4","5","6","7","8","9","10 - pain as bad as you can imagine")
levels(data$bpi_rightnow)=c("0 - No Pain","1","2","3","4","5","6","7","8","9","10 - pain as bad as you can imagine")
levels(data$bpi_relief)=c("0% - No relief","10%","20%","30%","40%","50%","60%","70%","80%","90%","100% - Complete relief")
levels(data$bpi_past24_general)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_mood)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_walking)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_work)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_relation)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_sleep)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$bpi_past24_enjoyment)=c("0 - Does not interfere","1","2","3","4","5","6","7","8","9","10 - Completely interferes")
levels(data$repeatable_brief_pain_inventory_short_form_complete)=c("Incomplete","Unverified","Complete")
levels(data$neadl_1)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_2)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_3)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_4)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_5)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_6)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_7)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_8)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_9)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_10)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_11)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_12)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_13)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_14)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_15)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_16)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_17)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_18)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_19)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_20)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_21)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$neadl_22)=c("Not at all","With help","On my own with difficulty","On my own")
levels(data$repeatable_nottingham_extended_adl_scale_complete)=c("Incomplete","Unverified","Complete")
levels(data$moca_ve___1)=c("Unchecked","Checked")
levels(data$moca_ve___2)=c("Unchecked","Checked")
levels(data$moca_ve___3)=c("Unchecked","Checked")
levels(data$moca_ve___4)=c("Unchecked","Checked")
levels(data$moca_ve___5)=c("Unchecked","Checked")
levels(data$moca_naming___1)=c("Unchecked","Checked")
levels(data$moca_naming___2)=c("Unchecked","Checked")
levels(data$moca_naming___3)=c("Unchecked","Checked")
levels(data$moca_mem_1___1)=c("Unchecked","Checked")
levels(data$moca_mem_1___2)=c("Unchecked","Checked")
levels(data$moca_mem_1___3)=c("Unchecked","Checked")
levels(data$moca_mem_1___4)=c("Unchecked","Checked")
levels(data$moca_mem_1___5)=c("Unchecked","Checked")
levels(data$moca_mem_2___1)=c("Unchecked","Checked")
levels(data$moca_mem_2___2)=c("Unchecked","Checked")
levels(data$moca_mem_2___3)=c("Unchecked","Checked")
levels(data$moca_mem_2___4)=c("Unchecked","Checked")
levels(data$moca_mem_2___5)=c("Unchecked","Checked")
levels(data$moca_att___1)=c("Unchecked","Checked")
levels(data$moca_att___2)=c("Unchecked","Checked")
levels(data$moca_att___3)=c("Unchecked","Checked")
levels(data$moca_att___4)=c("Unchecked","Checked")
levels(data$moca_att___5)=c("Unchecked","Checked")
levels(data$moca_att___6)=c("Unchecked","Checked")
levels(data$moca_att___7)=c("Unchecked","Checked")
levels(data$moca_att___8)=c("Unchecked","Checked")
levels(data$moca_lang_repeat___1)=c("Unchecked","Checked")
levels(data$moca_lang_repeat___2)=c("Unchecked","Checked")
levels(data$moca_abstract___1)=c("Unchecked","Checked")
levels(data$moca_abstract___2)=c("Unchecked","Checked")
levels(data$moca_recall___1)=c("Unchecked","Checked")
levels(data$moca_recall___2)=c("Unchecked","Checked")
levels(data$moca_recall___3)=c("Unchecked","Checked")
levels(data$moca_recall___4)=c("Unchecked","Checked")
levels(data$moca_recall___5)=c("Unchecked","Checked")
levels(data$moca_recall_opt_cat___1)=c("Unchecked","Checked")
levels(data$moca_recall_opt_cat___2)=c("Unchecked","Checked")
levels(data$moca_recall_opt_cat___3)=c("Unchecked","Checked")
levels(data$moca_recall_opt_cat___4)=c("Unchecked","Checked")
levels(data$moca_recall_opt_cat___5)=c("Unchecked","Checked")
levels(data$moca_recall_opt_choice___1)=c("Unchecked","Checked")
levels(data$moca_recall_opt_choice___2)=c("Unchecked","Checked")
levels(data$moca_recall_opt_choice___3)=c("Unchecked","Checked")
levels(data$moca_recall_opt_choice___4)=c("Unchecked","Checked")
levels(data$moca_recall_opt_choice___5)=c("Unchecked","Checked")
levels(data$moca_orient___1)=c("Unchecked","Checked")
levels(data$moca_orient___2)=c("Unchecked","Checked")
levels(data$moca_orient___3)=c("Unchecked","Checked")
levels(data$moca_orient___4)=c("Unchecked","Checked")
levels(data$moca_orient___5)=c("Unchecked","Checked")
levels(data$moca_orient___6)=c("Unchecked","Checked")
levels(data$repeatable_montreal_cognitive_assessment_moca_complete)=c("Incomplete","Unverified","Complete")
levels(data$rcf_known)=c("Yes","No")
levels(data$rcf_score)=c("1 = Very Fit","2 = Well","3 = Managing Well","4 = Vulnerable","5 = Mildly Frail","6 = Moderately Frail","7 = Severely Frail","8 = Very Severely Frail","9 = Terminally Ill")
levels(data$repeatable_rockwood_clinical_frailty_scale_complete)=c("Incomplete","Unverified","Complete")
levels(data$k_bild_breathless)=c("1. Every time","2. Most times","3. Several Times","4. Some times","5. Occasionally","6. Rarely","7. Never")
levels(data$k_bild_lung_condition)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_lung_complaint)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_avoid)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_contol_lung_cond)=c("1. None of the time","2. Hardly any of the time","3. A little of the time","4. Some of the time","5. A good bit of the time","6. Most of the time","7. All of the time")
levels(data$k_bild_dump)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_air_hunger)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_anxious)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_wheeze_sounds)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_disease_worse)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_interferred_work)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_complaint_worse)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_carrying_limited)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_end_life)=c("1. All of the time","2. Most of the time","3. A good bit of the time","4. Some of the time","5. A little of the time","6. Hardly any of the time","7. None of the time")
levels(data$k_bild_financia_worse)=c("1. A significant amount","2. A large amount","3. A considerable amount","4. A reasonable amount","5. A small amount","6. Hardly at all","7. Not at all")
levels(data$repeatable_kings_brief_ild_questionnaire_kbild_complete)=c("Incomplete","Unverified","Complete")
levels(data$iparc_visit)=c("3 month","6 month","12 month","Other")
levels(data$iparc_shortness)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_feeling_weak)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_feeling_tired)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_feeling_sleepy)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_loss_appetite)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_feeling_restless)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_uncontrolled)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_side_effects)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_losing_independence)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_daily_activities)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$iparc_household_tasks)=c("Not at all","A little bit","Quite a bit","Very much")
levels(data$repeatable_iparc_questionnaire_complete)=c("Incomplete","Unverified","Complete")
levels(data$psqi_visit)=c("3 Months","12 Months")
levels(data$psqi_q5a)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5b)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5c)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5d)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5e)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5f)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5g)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5h)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5i)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q5j)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q6)=c("Very good","Fairly good","Fairly bad","Very bad")
levels(data$psqi_q7)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q8)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q9)=c("No problem at all","Only a very slight problem","Somewhat of a problem","A very big problem")
levels(data$psqi_q10)=c("No bed partner or room mate","Partner/room mate in other room","Partner in same room, but not same bed","Partner in same bed")
levels(data$psqi_q10a)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q10b)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q10c)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q10d)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$psqi_q10e)=c("Not during past month","Less than once a week","Once or twice a week","Three or more times a week")
levels(data$repeatable_pittsburgh_sleep_quality_index_psqi_complete)=c("Incomplete","Unverified","Complete")
levels(data$meq_visit)=c("3 Months","12 Months")
levels(data$meq_q1)=c("5:00 - 6:29 am","6:30 - 7:44 am","7:45 - 9:44 am","9:45 - 10:59 am","11:00 - 11:59 am","Midday - 5:00 am")
levels(data$meq_q2)=c("8:00 - 8:59 pm","9:00 - 10:14 pm","10:15 pm - 12:29 am","12:30 - 1:44 am","1:45 - 2:59 am","3:00 am - 8:00 pm")
levels(data$meq_q3)=c("Not at all dependent","Slightly dependent","Fairly dependent","Very dependent")
levels(data$meq_q4)=c("Not at all easy","Not very easy","Fairly easy","Very easy")
levels(data$meq_q5)=c("Not at all alert","Slightly alert","Fairly alert","Very alert")
levels(data$meq_q6)=c("Not at all hungry","Slightly hungry","Fairly hungry","Very hungry")
levels(data$meq_q7)=c("Very tired","Fairly tired","Fairly refreshed","Very refreshed")
levels(data$meq_q8)=c("Seldom or never later","Less than one hour later","1-2 hours later","More than two hours later")
levels(data$meq_q9)=c("Would be in good form","Would be in reasonable form","Would find it difficult","Would find it very difficult")
levels(data$meq_q10)=c("8:00 - 8:59 pm","9:00 - 10:14 pm","10:15 pm - 12:44 am","12:45 - 1:59 am","2:00 - 3:00 am")
levels(data$meq_q11)=c("8:00 - 10:00 am","11:00 am - 1:00 pm","3:00 - 5:00 pm","7:00 - 9:00 pm")
levels(data$meq_q12)=c("Not at all tired","A little tired","Fairly tired","Very tired")
levels(data$meq_q13)=c("Will wake up at usual time, but will NOT fall back asleep","Will wake up at usual time and will doze thereafter","Will wake up at usual time but will fall asleep again","Will NOT wake up until later than usual")
levels(data$meq_q14)=c("would NOT go to bed until watch was over","Would take a nap before and sleep after","Would take a good sleep before and nap after","Would sleep only before watch")
levels(data$meq_q15)=c("8:00 - 10:00 am","11:00 am - 1:00 pm","3:00 - 5:00 pm","7:00 - 9:00 pm")
levels(data$meq_q16)=c("Would be in good form","Would be in reasonable form","Would find it difficult","Would find it very difficult")
levels(data$meq_q17)=c("5 hours starting between 4:00 - 7:59 am","5 hours starting between 8:00 - 8:59 am","5 hours starting between 9:00 am - 1:59 pm","5 hours starting between 2:00 - 4:59 pm","5 hours starting between 5:00 pm - 3:59 am")
levels(data$meq_q18)=c("5:00 - 7:59 am","8:00 - 9:59 am","10:00 am - 4:59 pm","5:00 - 9:59 pm","0:00 pm - 4:59 am")
levels(data$meq_q19)=c("Definitely a morning type","Rather more a morning type than an evening type","Rather more an evening type than a morning type","Definitely an evening type")
levels(data$repeatable_morningnesseveningness_questionnaire_me_complete)=c("Incomplete","Unverified","Complete")
levels(data$cough_visit)=c("3 months","12 months")
levels(data$lcq_q1)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q2)=c("Every time","Most times","Several times","Some times","Occasionally","Rarely","Never")
levels(data$lcq_q3)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q4)=c("None of the time","Hardly any of the time","A little of the time","Some of the time","A good bit of the time","Most of the time","All of the time")
levels(data$lcq_q5)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q6)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q7)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q8)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q9)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q10)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q11)=c("All of the time (continuously)","Most times during the day","Several times during the day","Some times during the day","Occasionally through the day","Rarely","None")
levels(data$lcq_q12)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q13)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q14)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q15)=c("None of the time","Hardly any of the time","A little of the time","Some of the time","A good bit of the time","Most of the time","All of the time")
levels(data$lcq_q16)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q17)=c("All of the time","Most of the time","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q18)=c("Every time","Most times","A good bit of the time","Some of the time","A little of the time","Hardly any of the time","None of the time")
levels(data$lcq_q19)=c("Every time I cough","Most times when I cough","Several times when I cough","Some times when I cough","Occasionally when I cough","Rarely","Never")
levels(data$repeatable_leicester_cough_questionnaire_complete)=c("Incomplete","Unverified","Complete")
levels(data$pft_spm_done)=c("Yes","No")
levels(data$pft_spm_reason_not_done)=c("No capacity/equipment not available","Participant too unwell","Spirometry contraindicated e.g. active TB, recent eye or abdominal surgery","Participant declined")
levels(data$pft_spm_has_report)=c("Yes","No")
levels(data$pft_is_post_bronc)=c("Yes","No")
levels(data$pft_tests_done___1)=c("Unchecked","Checked")
levels(data$pft_tests_done___2)=c("Unchecked","Checked")
levels(data$pft_tests_done___3)=c("Unchecked","Checked")
levels(data$pft_tests_done___4)=c("Unchecked","Checked")
levels(data$pft_tests_done___5)=c("Unchecked","Checked")
levels(data$pft_tests_done___6)=c("Unchecked","Checked")
levels(data$pft_tests_done___7)=c("Unchecked","Checked")
levels(data$pft_tlco_unit)=c("mL/mmHg/min","mmol/min/kPa (SI)")
levels(data$pft_kco_unit)=c("mL/mmHg/min","mmol/min/kPa (SI)")
levels(data$repeatable_pulmonary_functional_tests_complete)=c("Incomplete","Unverified","Complete")
levels(data$wt_type)=c("6 Minute Walk Test","Incremental shuttle walk test (ISWT) Modified 15 level")
levels(data$wt_done)=c("Yes","No")
levels(data$wt_visit)=c("3 months","12 months","Additional planned clinical visit")
levels(data$wt_aid)=c("Yes","No")
levels(data$wt_o2)=c("Yes","No")
levels(data$mt_reason___1)=c("Unchecked","Checked")
levels(data$mt_reason___2)=c("Unchecked","Checked")
levels(data$mt_reason___4)=c("Unchecked","Checked")
levels(data$mt_reason___3)=c("Unchecked","Checked")
levels(data$repeatable_walk_test_6_min_iswt_15_level_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2ct_fasting)=c("Yes","No")
levels(data$t2ct_type_last_meal)=c("Heavy meal","Medium meal","Light meal","Snack")
levels(data$t2ct_blood_fbc)=c("Yes","No")
levels(data$t2ct_blood_ues)=c("Yes","No")
levels(data$t2ct_blood_egfr)=c("Yes","No")
levels(data$t2ct_blood_lfts)=c("Yes","No")
levels(data$t2ct_blood_crp)=c("Yes","No")
levels(data$t2ct_blood_bone)=c("Yes","No")
levels(data$t2ct_blood_25oh)=c("Yes","No")
levels(data$t2ct_blood_bnp)=c("Yes","No")
levels(data$t2ct_blood_trop)=c("Yes","No")
levels(data$t2ct_blood_dd)=c("Yes","No")
levels(data$t2ct_blood_fib)=c("Yes","No")
levels(data$t2ct_blood_inr)=c("Yes","No")
levels(data$t2ct_blood_fer)=c("Yes","No")
levels(data$t2ct_blood_hba1c)=c("Yes","No")
levels(data$t2ct_blood_lipid)=c("Yes","No")
levels(data$t2ct_link_routine_blood)=c("Yes","No")
levels(data$t2ct_urine_albumbin)=c("Yes","No")
levels(data$t2ct_urine_protein)=c("Yes","No")
levels(data$t2ct_urine_urinalysis)=c("Yes","No")
levels(data$t2ct_link_blood_urine)=c("Yes","No")
levels(data$t2ct_fast_lipid)=c("Yes","No")
levels(data$t2ct_fast_gluc)=c("Yes","No")
levels(data$t2ct_fast_insul)=c("Yes","No")
levels(data$t2ct_link_fast_blood)=c("Yes","No")
levels(data$repeatable_tier_2_core_tests_checklist_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2brs_cirate)=c("Yes","No")
levels(data$t2brs_sst_s1)=c("Yes","No")
levels(data$t2brs_sst_s3)=c("Yes","No")
levels(data$t2brs_lithium)=c("Yes","No")
levels(data$t2brs_edta_e1)=c("Yes","No")
levels(data$t2brs_edta_e2)=c("Yes","No")
levels(data$t2brs_rna)=c("Yes","No")
levels(data$t2brs_core_form_blood)=c("Yes","No")
levels(data$t2brs_other_oral_sample)=c("Yes","No")
levels(data$t2brs_other_oral_control)=c("Yes","No")
levels(data$t2brs_other_sputum)=c("Yes","No")
levels(data$t2brs_other_urine)=c("Yes","No")
levels(data$t2brs_core_form_oral)=c("Yes","No")
levels(data$t2brs_core_form_sputum)=c("Yes","No")
levels(data$t2brs_core_form_urine)=c("Yes","No")
levels(data$repeatable_tier_2_biological_research_samples_chec_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2c_blood_citrate)=c("Yes","No")
levels(data$t2c_blood_s1)=c("Yes","No")
levels(data$t2c_blood_s2)=c("Yes","No")
levels(data$t2c_blood_heparin)=c("Yes","No")
levels(data$t2c_blood_e1)=c("Yes","No")
levels(data$t2c_blood_e2)=c("Yes","No")
levels(data$t2c_blood_tempus)=c("Yes","No")
levels(data$t2c_blood_tube_inv_citrate)=c("Yes","No")
levels(data$t2c_blood_tube_inv_s1)=c("Yes","No")
levels(data$t2c_blood_tube_inv_s2)=c("Yes","No")
levels(data$t2c_blood_tube_inv_heparin)=c("Yes","No")
levels(data$t2c_blood_tube_inv_e1)=c("Yes","No")
levels(data$t2c_blood_tube_inv_e2)=c("Yes","No")
levels(data$t2c_blood_tube_inv_tempus)=c("Yes","No")
levels(data$repeatable_tier_2_core_sample_notification_form_bl_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2c_oral_wash_taken)=c("Yes","No")
levels(data$t2c_oral_control_taken)=c("Yes","No")
levels(data$repeatable_tier_2_core_sample_notification_form_or_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2c_sputum_taken)=c("Yes","No")
levels(data$repeatable_tier_2_core_sample_notification_form_sp_complete)=c("Incomplete","Unverified","Complete")
levels(data$t2c_urine_taken)=c("Yes","No")
levels(data$repeatable_tier_2_core_sample_notification_form_ur_complete)=c("Incomplete","Unverified","Complete")
levels(data$qrisk3_done)=c("Yes","No")
levels(data$qrisk3_visit)=c("3 months","12 months")
levels(data$qrisk3_eth)=c("White or not stated","Indian","Pakistani","Bangladeshi","Other Asian","Black Caribbean","Black African","Chinese","Other ethnic group")
levels(data$qrisk3_diab)=c("None","Type 1","Type 2")
levels(data$qrisk3_smoke)=c("Non-smoker","Ex-smoker","Light smoker (less than 10)","Moderate smoker (10-19)","Heavy smoker (20 or above)")
levels(data$qrisk3_other_heart)=c("Yes","No")
levels(data$qrisk3_other_ckd)=c("Yes","No")
levels(data$qrisk3_other_af)=c("Yes","No")
levels(data$qrisk3_other_bpt)=c("Yes","No")
levels(data$qrisk3_other_migraines)=c("Yes","No")
levels(data$qrisk3_other_ra)=c("Yes","No")
levels(data$qrisk3_other_sle)=c("Yes","No")
levels(data$qrisk3_other_smi)=c("Yes","No")
levels(data$qrisk3_other_aam)=c("Yes","No")
levels(data$qrisk3_other_rst)=c("Yes","No")
levels(data$qrisk3_other_ed)=c("Yes","No")
levels(data$repeatable_qrisk3_complete)=c("Incomplete","Unverified","Complete")
levels(data$bia_done)=c("Yes","No")
levels(data$repeatable_body_composition_measurements_bia_complete)=c("Incomplete","Unverified","Complete")
levels(data$dxa_done)=c("Yes","No")
levels(data$dxa_fracture)=c("Yes","No")
levels(data$dxa_fracture_parent)=c("Yes","No","N/K")
levels(data$repeatable_body_composition_measurements_dxa_complete)=c("Incomplete","Unverified","Complete")
levels(data$ms_hs_done)=c("Yes","No")
levels(data$ms_hs_dom)=c("Left","Right")
levels(data$ms_qs_done)=c("Yes","No")
levels(data$ms_qs_dom)=c("Left","Right")
levels(data$repeatable_muscle_strength_complete)=c("Incomplete","Unverified","Complete")
levels(data$sppb_visit)=c("3 months","12 months")
levels(data$sppb_done)=c("Yes","No")
levels(data$sppb_balance)=c("Unable to hold side by side stance for > 9 seconds","Side by side stance for 10 seconds, but unable to hold semi tandem for 10 seconds","Semi tandem for 10 seconds, unable to hold full tandem for > 2 seconds","Full tandem for 3 - 9 seconds","Full tandem for 10 seconds")
levels(data$sppb_walk)=c("Unable to walk","If time is more than 8.70 seconds","If time is 6.21 to 8.70 seconds","If time is 4.82 to 6.20 seconds","If time is less than 4.82 seconds")
levels(data$sppb_chair)=c("If the participant was unable to complete the 5 chair stands","If chair stand time is 16.7 seconds or more","If chair stand time is 13.7 seconds or more","If chair stand time is 11.2 to 13.6 seconds","If chair stand time is 11.1 seconds or less")
levels(data$repeatable_short_physical_performance_battery_sppb_complete)=c("Incomplete","Unverified","Complete")
levels(data$pre_psq_version)=c("1.0")
levels(data$psq_scale_blness_pre2)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_cough_pre2)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_fatigue_pre2)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_sleep_pre2)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_pain_pre2)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$pre_psq_mrcds)=c("Yes","No")
levels(data$pre_psq_social)=c("Yes","No")
levels(data$pre_psq_eq5d5l)=c("Yes","No")
levels(data$patient_sq_l_b_seeing2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_hearing2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_walking2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_remembering2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_self_care2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_communicate2)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$psq_tinnitus_before2)=c("Yes, most or all of the time","Yes, a lot of the time","Yes, some of the time","No, not in the past year","No, never","Do not know/Prefer not to answer")
levels(data$psq_balance_q1_before2)=c("Yes","No")
levels(data$psq_balance_q2_before2)=c("Yes","No")
levels(data$precovid_patient_symptom_questionnaire_complete)=c("Incomplete","Unverified","Complete")
levels(data$symptom_version)=c("Unversioned","1.0","1.1","1.2","2.0","3.0","4.1")
levels(data$psq_recovered)=c("Yes","No","Not sure")
levels(data$psq_scale_blness_pre)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_cough_pre)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_fatigue_pre)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_sleep_pre)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_pain_pre)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_blness_since)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_cough_since)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_fatigue_since)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_sleep_since)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_pain_since)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_blness_24hrs)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_cough_24hrs)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_fatigue_24hrs)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_sleep_24hrs)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_scale_pain_24hrs)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_traj_blness)=c("Same","Better","Worse")
levels(data$psq_traj_cough)=c("Same","Better","Worse")
levels(data$psq_traj_fatigue)=c("Same","Better","Worse")
levels(data$psq_traj_sleep)=c("Same","Better","Worse")
levels(data$psq_traj_pain)=c("Same","Better","Worse")
levels(data$psq_blness)=c("Yes","No")
levels(data$psq_cough)=c("Yes","No")
levels(data$psq_fatigue)=c("Yes","No")
levels(data$psq_sleep)=c("Yes","No")
levels(data$psq_pain)=c("Yes","No")
levels(data$loss_of_sense_of_smell)=c("Yes","No")
levels(data$loss_of_taste)=c("Yes","No")
levels(data$confusion_fuzzy_head)=c("Yes","No")
levels(data$difficulty_with_communicat)=c("Yes","No")
levels(data$difficulty_with_concentrat)=c("Yes","No")
levels(data$short_term_memory_loss)=c("Yes","No")
levels(data$physical_slowing_down)=c("Yes","No")
levels(data$slowing_down_in_your_think)=c("Yes","No")
levels(data$headache)=c("Yes","No")
levels(data$altered_personality_behavi)=c("Yes","No")
levels(data$limb_weakness)=c("Yes","No")
levels(data$problems_with_balance)=c("Yes","No")
levels(data$can_t_move_and_or_feel_one)=c("Yes","No")
levels(data$problems_seeing)=c("Yes","No")
levels(data$tingling_feeling_pins_and)=c("Yes","No")
levels(data$can_t_fully_move_or_contro)=c("Yes","No")
levels(data$tremor_shakiness)=c("Yes","No")
levels(data$seizures)=c("Yes","No")
levels(data$aching_in_your_muscles_pai)=c("Yes","No")
levels(data$joint_pain_or_swelling)=c("Yes","No")
levels(data$leg_ankle_swelling)=c("Yes","No")
levels(data$chest_pain)=c("Yes","No")
levels(data$chest_tightness)=c("Yes","No")
levels(data$pain_on_breathing)=c("Yes","No")
levels(data$palpitations)=c("Yes","No")
levels(data$dizziness_or_lightheadness)=c("Yes","No")
levels(data$fainting_blackouts)=c("Yes","No")
levels(data$diarrhoea)=c("Yes","No")
levels(data$constipation)=c("Yes","No")
levels(data$nausea_vomiting)=c("Yes","No")
levels(data$abdominal_pain)=c("Yes","No")
levels(data$loss_of_appetite)=c("Yes","No")
levels(data$loss_of_control_of_passing)=c("Yes","No")
levels(data$loss_of_control_of_opening)=c("Yes","No")
levels(data$weight_loss)=c("Yes","No")
levels(data$stomach_pain)=c("Yes","No")
levels(data$psq_symp_ed)=c("Yes","No","N/A")
levels(data$skin_rash)=c("Yes","No")
levels(data$hair_loss)=c("Yes","No")
levels(data$lumpy_lesions_purple_pink)=c("Yes","No")
levels(data$bleeding)=c("Yes","No")
levels(data$patient_sq_h_skin_rash___1)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___2)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___3)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___4)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___5)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___6)=c("Unchecked","Checked")
levels(data$patient_sq_h_skin_rash___7)=c("Unchecked","Checked")
levels(data$patient_sq_h_other)=c("Yes","No")
levels(data$patient_sq_i)=c("Yes","No")
levels(data$patient_sq_j)=c("0","1","2","3","4","5")
levels(data$psq_itu_admit)=c("Yes","No")
levels(data$psq_itu_airway)=c("Yes","No")
levels(data$psq_itu_swallow)=c("Yes","No")
levels(data$psq_itu_voice)=c("Yes","No")
levels(data$psq_itu_airway_scale)=c("0","1","2","3","4","5")
levels(data$psq_itu_swallow_scale)=c("0","1","2","3","4","5")
levels(data$psq_itu_voice_scale)=c("0","1","2","3","4","5")
levels(data$patient_sq_l_t_seeing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_t_hearing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_t_walking)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_t_remembering)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_t_self_care)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_t_communicate)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_seeing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_hearing)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_walking)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_remembering)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_self_care)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_l_b_communicate)=c("No - no difficulty","Yes - some difficulty","Yes - a lot difficulty","Cannot do at all")
levels(data$patient_sq_n)=c("Never","Ex-smoker","Current smoker")
levels(data$patient_sq_o)=c("Yes","No")
levels(data$patient_sq_p_smoking)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$patient_sq_p_drinking)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$patient_sq_p_eating)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$patient_sq_p_activity)=c("I do this more often","I do this less often","No difference","N/A")
levels(data$psq_work_pre_covid)=c("Working Full-time","Working Part-time","Full time carer (children or other)","Unemployed","Unable to work due to chronic illness","Student","Retired","Medically retired","Prefer not to say")
levels(data$patient_sq_q)=c("Same as before","Different from before","Prefer not to say")
levels(data$patient_sq_q_today)=c("Working full-time","Working part-time","Full time carer (children or other)","Unemployed","Unable to work due to chronic illness","Student","Retired","Medically retired","Prefer not to say")
levels(data$patient_sq_q_change)=c("Poor health","New caring responsibility","Working hours reduced by employer","Made redundant","Sick leave","Other","Prefer not to say")
levels(data$psq_employ_pre_lockdown___1)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___2)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___3)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___4)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___5)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___6)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___7)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___8)=c("Unchecked","Checked")
levels(data$psq_employ_pre_lockdown___9)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___1)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___2)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___3)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___4)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___5)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___6)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___7)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___8)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___9)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___10)=c("Unchecked","Checked")
levels(data$psq_employ_pre_ill___11)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___1)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___2)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___3)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___4)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___5)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___6)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___7)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___8)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___9)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___10)=c("Unchecked","Checked")
levels(data$psq_employ_since_home___11)=c("Unchecked","Checked")
levels(data$psq_shift_work)=c("Never","Rarely","Sometimes","Usually","Always","Dont know")
levels(data$psq_shift_night)=c("Never","Rarely","Sometimes","Usually","Always","Dont know")
levels(data$psq_feel_lonely)=c("Very lonely","Lonely at times","Never lonely")
levels(data$psq_bereavement)=c("Yes","No")
levels(data$psq_furlough_yn)=c("Yes","No")
levels(data$psq_furlough_when___1)=c("Unchecked","Checked")
levels(data$psq_furlough_when___2)=c("Unchecked","Checked")
levels(data$psq_ability_work)=c("Yes","No")
levels(data$psq_lack_companion)=c("Hardly ever","Some of the time","Often")
levels(data$psq_left_out)=c("Hardly ever","Some of the time","Often")
levels(data$psq_isolated)=c("Hardly ever","Some of the time","Often")
levels(data$psq_lonely)=c("Hardly ever","Some of the time","Often")
levels(data$psq_satisfied_life)=c("0","1","2","3","4","5","6","7","8","9","10")
levels(data$psq_not_mentioned)=c("Yes","No")
levels(data$psq_feverish)=c("Yes","No","Not sure")
levels(data$psq_feverish_time)=c("Within the last 7 days","Between 1 to 2 weeks ago","Between 2 to 4 weeks ago","Between 1 to 2 months ago","Between 2 to 3 months ago")
levels(data$psq_feverish_reason)=c("COVID-19","Other respiratory infection (cough/cold/sore throat)","Somach infection (diarrhoea/vomiting)","Urinary infection","TB","Other","Unknown","Prefer not to say")
levels(data$psq_tinnitus_since)=c("Yes, most or all of the time","Yes, a lot of the time","Yes, some of the time","No, not in the past year","No, never","Do not know/Prefer not to answer")
levels(data$psq_tinnitus_before)=c("Yes, most or all of the time","Yes, a lot of the time","Yes, some of the time","No, not in the past year","No, never","Do not know/Prefer not to answer")
levels(data$psq_balance_q1_since)=c("No","Yes")
levels(data$psq_balance_q2_since)=c("No","Yes")
levels(data$psq_balance_q1_before)=c("No","Yes")
levels(data$psq_balance_q2_before)=c("No","Yes")
levels(data$psq_vac_first_yn)=c("Yes","No","Not known")
levels(data$psq_vac_first_date_yn)=c("Yes","No","Not known")
levels(data$psq_vac_first_type_yn)=c("Yes","No")
levels(data$psq_vac_first_type)=c("Oxford/AstraZeneca","Pfizer/Bio-N-Tec","Moderna","Other")
levels(data$psq_vac_sec_yn)=c("Yes","No","Not known")
levels(data$psq_vac_sec_date_yn)=c("Yes","No","Not known")
levels(data$psq_vac_sec_type_yn)=c("Yes","No")
levels(data$psq_vac_sec_type)=c("Oxford/AstraZeneca","Pfizer/Bio-N-Tec","Moderna","Other")
levels(data$repeatable_symptoms_assessment_complete)=c("Incomplete","Unverified","Complete")
levels(data$fbc_done___1)=c("Unchecked","Checked")
levels(data$fbc_done___2)=c("Unchecked","Checked")
levels(data$fbc_done___3)=c("Unchecked","Checked")
levels(data$fbc_done___4)=c("Unchecked","Checked")
levels(data$fbc_done___5)=c("Unchecked","Checked")
levels(data$fbc_done___6)=c("Unchecked","Checked")
levels(data$fbc_done___7)=c("Unchecked","Checked")
levels(data$haemo_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$wbc_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$neutro_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$lympho_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$eos_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$haema_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$plat_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ues_done___1)=c("Unchecked","Checked")
levels(data$ues_done___2)=c("Unchecked","Checked")
levels(data$ues_done___3)=c("Unchecked","Checked")
levels(data$ues_done___4)=c("Unchecked","Checked")
levels(data$ues_done___5)=c("Unchecked","Checked")
levels(data$urea_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$crea_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$na_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$k_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$egfr_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$lft_done___1)=c("Unchecked","Checked")
levels(data$lft_done___2)=c("Unchecked","Checked")
levels(data$lft_done___3)=c("Unchecked","Checked")
levels(data$lft_done___4)=c("Unchecked","Checked")
levels(data$lft_done___5)=c("Unchecked","Checked")
levels(data$lft_done___6)=c("Unchecked","Checked")
levels(data$bili_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$alt_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$alp_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ggt_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$alb_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$prot_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$crp_done___1)=c("Unchecked","Checked")
levels(data$crp_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$bp_done___1)=c("Unchecked","Checked")
levels(data$bp_done___2)=c("Unchecked","Checked")
levels(data$bp_done___3)=c("Unchecked","Checked")
levels(data$bp_done___4)=c("Unchecked","Checked")
levels(data$cal_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$pho_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$mg_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$oh_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$lp_done___1)=c("Unchecked","Checked")
levels(data$lp_done___2)=c("Unchecked","Checked")
levels(data$lp_done___3)=c("Unchecked","Checked")
levels(data$lp_done___4)=c("Unchecked","Checked")
levels(data$cho_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$tri_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$hdl_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ldl_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$cp_done___1)=c("Unchecked","Checked")
levels(data$cp_done___2)=c("Unchecked","Checked")
levels(data$cp_done___3)=c("Unchecked","Checked")
levels(data$cp_done___4)=c("Unchecked","Checked")
levels(data$cp_done___5)=c("Unchecked","Checked")
levels(data$cp_done___6)=c("Unchecked","Checked")
levels(data$trop_ctnt_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$trop_hsctnt_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$trop_ctni_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$trop_hsctni_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$bnp_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$pnbnp_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$hp_done___1)=c("Unchecked","Checked")
levels(data$hp_done___2)=c("Unchecked","Checked")
levels(data$hp_done___3)=c("Unchecked","Checked")
levels(data$hp_done___4)=c("Unchecked","Checked")
levels(data$ddi_unit)=c("ug/mL or mg/L","ng/mL or ug/L")
levels(data$ddi_assay)=c("FEU","DDU")
levels(data$ddi_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$fib_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$inr_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$fer_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$dp_done___1)=c("Unchecked","Checked")
levels(data$dp_done___2)=c("Unchecked","Checked")
levels(data$dp_done___3)=c("Unchecked","Checked")
levels(data$hba1c_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$glu_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ins_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$repeatable_laboratory_results_collection_log_routi_complete)=c("Incomplete","Unverified","Complete")
levels(data$up_done___1)=c("Unchecked","Checked")
levels(data$up_done___2)=c("Unchecked","Checked")
levels(data$acr_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$pcr_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$urina_done___1)=c("Unchecked","Checked")
levels(data$urina_done___2)=c("Unchecked","Checked")
levels(data$urina_done___3)=c("Unchecked","Checked")
levels(data$urina_done___4)=c("Unchecked","Checked")
levels(data$urina_done___5)=c("Unchecked","Checked")
levels(data$urina_done___6)=c("Unchecked","Checked")
levels(data$urina_done___7)=c("Unchecked","Checked")
levels(data$urina_done___8)=c("Unchecked","Checked")
levels(data$urina_done___9)=c("Unchecked","Checked")
levels(data$urina_ph_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$urina_grav_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$urina_pro)=c("Positive","Negtive","Trace")
levels(data$urina_rbc)=c("Positive","Negtive","Trace")
levels(data$urina_leu)=c("Positive","Negtive","Trace")
levels(data$urina_nit)=c("Positive","Negtive","Trace")
levels(data$urina_glu)=c("Positive","Negtive","Trace")
levels(data$urina_ket)=c("Positive","Negtive","Trace")
levels(data$urina_urina_bili)=c("Positive","Negtive","Trace")
levels(data$repeatable_laboratory_results_collection_log_urine_complete)=c("Incomplete","Unverified","Complete")
levels(data$auto_imm_done___1)=c("Unchecked","Checked")
levels(data$auto_imm_done___2)=c("Unchecked","Checked")
levels(data$auto_imm_done___3)=c("Unchecked","Checked")
levels(data$auto_imm_done___4)=c("Unchecked","Checked")
levels(data$auto_imm_done___5)=c("Unchecked","Checked")
levels(data$auto_imm_done___6)=c("Unchecked","Checked")
levels(data$auto_imm_done___7)=c("Unchecked","Checked")
levels(data$auto_imm_done___8)=c("Unchecked","Checked")
levels(data$auto_imm_done___9)=c("Unchecked","Checked")
levels(data$auto_imm_done___10)=c("Unchecked","Checked")
levels(data$auto_imm_done___11)=c("Unchecked","Checked")
levels(data$auto_imm_done___12)=c("Unchecked","Checked")
levels(data$ena)=c("Positive","Negative")
levels(data$anca)=c("Positive","Negative")
levels(data$manca_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$panca_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$dsdna_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$acl_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ab2gpi_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$lag_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$accp_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$rf_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$imm_done___1)=c("Unchecked","Checked")
levels(data$imm_done___2)=c("Unchecked","Checked")
levels(data$imm_done___3)=c("Unchecked","Checked")
levels(data$imm_done___4)=c("Unchecked","Checked")
levels(data$imm_done___5)=c("Unchecked","Checked")
levels(data$c3_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$c4_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$iga_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$igm_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$igg_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$blood_virus_done___1)=c("Unchecked","Checked")
levels(data$blood_virus_done___2)=c("Unchecked","Checked")
levels(data$blood_virus_done___3)=c("Unchecked","Checked")
levels(data$hiv)=c("Positive","Negtive")
levels(data$hepb)=c("Positive","Negtive")
levels(data$hepc)=c("Positive","Negtive")
levels(data$repeatable_laboratory_results_collection_log_immun_complete)=c("Incomplete","Unverified","Complete")
levels(data$haema_done___1)=c("Unchecked","Checked")
levels(data$haema_done___2)=c("Unchecked","Checked")
levels(data$haema_done___3)=c("Unchecked","Checked")
levels(data$haema_done___4)=c("Unchecked","Checked")
levels(data$folate_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$b12_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$iron_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$ldh_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$tft_done___1)=c("Unchecked","Checked")
levels(data$tft_done___2)=c("Unchecked","Checked")
levels(data$tsh_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$t4_less_greater)=c("< (Less than)","> (Greater than)")
levels(data$other_done___1)=c("Unchecked","Checked")
levels(data$sars_cov2_result)=c("Positive","Negative","Indeterminate")
levels(data$repeatable_laboratory_results_collection_log_addit_complete)=c("Incomplete","Unverified","Complete")
levels(data$swab_pcr_result)=c("Positive","Negative","Indeterminate")
levels(data$repeatable_sarscov2_swab_pcr_test_result_complete)=c("Incomplete","Unverified","Complete")


data$study_id = ff_label(data$study_id, 'REDCap ID')
data$redcap_event_name = ff_label(data$redcap_event_name, 'Event Name')
data$redcap_repeat_instrument = ff_label(data$redcap_repeat_instrument, 'Repeat Instrument')
data$redcap_repeat_instance = ff_label(data$redcap_repeat_instance, 'Repeat Instance')
data$redcap_data_access_group = ff_label(data$redcap_data_access_group, 'Data Access Group')
#data$phosp_id_timestamp = ff_label(data$phosp_id_timestamp, 'Survey Timestamp')
data$phosp_id = ff_label(data$phosp_id, 'PHOSP ID')
data$tier_allocation = ff_label(data$tier_allocation, 'Tier allocation Please complete this at the time of registration.  Select Tier 1 for participants who are recruited to Tier 1 for the duration of the study. Select Tier 2 (3 and 12 months) where participants are anticipated to or have already attended a 3 months Tier 2 research visit. Select Tier 2 (12 months only) where participants were unable to attend a 3 months Tier 2 research visit but have attended a 12 months Tier 2 research visit. If a Tier 2 participant changes to Tier 1 participation prior to having their first research visit, please change this field to Tier 1. If a Tier 2 participant changes to Tier 1 participation following their first research visit, this field should not be updated.')
# data$econsent_code = ff_label(data$econsent_code, 'Invitation code')
# data$econsent_site = ff_label(data$econsent_site, 'Recruitment site')
# data$econsent_tier_invite = ff_label(data$econsent_tier_invite, 'Patient tier invitation')
data$phosp_id_complete = ff_label(data$phosp_id_complete, 'Complete?')
#data$econsent_tier_1_timestamp = ff_label(data$econsent_tier_1_timestamp, 'Survey Timestamp')
data$econ_q1_resp_t1 = ff_label(data$econ_q1_resp_t1, 'NA')
data$econ_q2_resp_t1 = ff_label(data$econ_q2_resp_t1, 'NA')
data$econ_q3_resp_t1 = ff_label(data$econ_q3_resp_t1, 'NA')
data$econ_q4_resp_t1 = ff_label(data$econ_q4_resp_t1, 'NA')
data$econ_q5_resp_t1 = ff_label(data$econ_q5_resp_t1, 'NA')
data$econ_q6_resp_t1 = ff_label(data$econ_q6_resp_t1, 'NA')
data$econ_q7_resp_t1 = ff_label(data$econ_q7_resp_t1, 'NA')
data$econ_q7_pt2_resp_t1 = ff_label(data$econ_q7_pt2_resp_t1, 'NA')
data$econ_q8_resp_t1 = ff_label(data$econ_q8_resp_t1, 'NA')
data$econ_q9_resp_t1 = ff_label(data$econ_q9_resp_t1, 'NA')
data$econ_q10_resp_t1 = ff_label(data$econ_q10_resp_t1, 'NA')
data$econ_q11_resp_t1 = ff_label(data$econ_q11_resp_t1, 'NA')
data$econ_q12_resp_t1 = ff_label(data$econ_q12_resp_t1, 'NA')
data$econ_q13_resp_t1 = ff_label(data$econ_q13_resp_t1, 'NA')
data$econ_q14_resp_t1 = ff_label(data$econ_q14_resp_t1, 'NA')
data$econ_q15_resp_t1 = ff_label(data$econ_q15_resp_t1, 'NA')
data$econ_q16_resp_t1 = ff_label(data$econ_q16_resp_t1, 'NA')
data$econ_q17_resp_t1 = ff_label(data$econ_q17_resp_t1, 'NA')
data$econ_verify_resp_t1 = ff_label(data$econ_verify_resp_t1, 'NA')
data$econsent_date_t1 = ff_label(data$econsent_date_t1, 'eConsent Completion Date')
data$econsent_researcher_date_t1 = ff_label(data$econsent_researcher_date_t1, 'eConsent Review Date')
data$econsent_tier_1_complete = ff_label(data$econsent_tier_1_complete, 'Complete?')
#data$econsent_timestamp = ff_label(data$econsent_timestamp, 'Survey Timestamp')
data$econ_q1_resp = ff_label(data$econ_q1_resp, 'NA')
data$econ_q2_resp = ff_label(data$econ_q2_resp, 'NA')
data$econ_q3_resp = ff_label(data$econ_q3_resp, 'NA')
data$econ_q4_resp = ff_label(data$econ_q4_resp, 'NA')
data$econ_q5_resp = ff_label(data$econ_q5_resp, 'NA')
data$econ_q6_resp = ff_label(data$econ_q6_resp, 'NA')
data$econ_q7_resp = ff_label(data$econ_q7_resp, 'NA')
data$econ_q8_resp = ff_label(data$econ_q8_resp, 'NA')
data$econ_q8_pt2_resp = ff_label(data$econ_q8_pt2_resp, 'NA')
data$econ_q9_resp = ff_label(data$econ_q9_resp, 'NA')
data$econ_q10_resp = ff_label(data$econ_q10_resp, 'NA')
data$econ_q11_resp = ff_label(data$econ_q11_resp, 'NA')
data$econ_q12_resp = ff_label(data$econ_q12_resp, 'NA')
data$econ_q13_resp = ff_label(data$econ_q13_resp, 'NA')
data$econ_q14_resp = ff_label(data$econ_q14_resp, 'NA')
data$econ_q15_resp = ff_label(data$econ_q15_resp, 'NA')
data$econ_q16_resp = ff_label(data$econ_q16_resp, 'NA')
data$econ_q17_resp = ff_label(data$econ_q17_resp, 'NA')
data$econ_q18_resp = ff_label(data$econ_q18_resp, 'NA')
data$econ_verify_resp = ff_label(data$econ_verify_resp, 'NA')
data$econsent_date = ff_label(data$econsent_date, 'eConsent Completion Date')
data$econsent_researcher_date = ff_label(data$econsent_researcher_date, 'eConsent Review Date')
data$econsent_complete = ff_label(data$econsent_complete, 'Complete?')
#data$registration_and_informed_consent_timestamp = ff_label(data$registration_and_informed_consent_timestamp, 'Survey Timestamp')
data$consent_verify = ff_label(data$consent_verify, 'I confirm that the original consent form has been reviewed and completed correctly.If Yes, please complete the consent form details below.If No, please complete the incorrect consent form details below, re-consent the participant with a correctly completed consent form (using the latest consent version approved for your site) and enter these consent details in a new instance of the Registration and Informed Consent data instrument.')
data$consent_ver = ff_label(data$consent_ver, 'Consent version')
data$consent_v2_q1 = ff_label(data$consent_v2_q1, 'I have read the information sheet (or it has been read to me) for this study dated 14-Jul-2020, Version 2. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_v3_q1 = ff_label(data$consent_v3_q1, 'I have read the information sheet (or it has been read to me) for this study dated 04-Aug-2020, Version 3. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_sa2_q1 = ff_label(data$consent_sa2_q1, 'I have read the information sheet (or it has been read to me) for this study dated 01-Sep-2020, Version 4. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_sa3_q1 = ff_label(data$consent_sa3_q1, 'I have read the information sheet (or it has been read to me) for this study dated 02-Nov-2020, Version 5. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_sa4_q1 = ff_label(data$consent_sa4_q1, 'I have read the information sheet (or it has been read to me) for this study dated 24-Nov-2020, Version 6. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_nsa1_q1 = ff_label(data$consent_nsa1_q1, 'I have read the information sheet (or it has been read to me) for this study dated 18-Dec-2020, Version 6.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_sa5_q1 = ff_label(data$consent_sa5_q1, 'I have read the information sheet (or it has been read to me) for this study dated 01-Apr-2021, Version 7.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_sa5_t1_q1 = ff_label(data$consent_sa5_t1_q1, 'I have read the information sheet (or it has been read to me) for this study dated 01-Apr-2021, Version 1.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$consent_q2 = ff_label(data$consent_q2, 'I understand that my participation is voluntary and that I am free to withdraw from the study at any time. I do not need to give a reason and my medical care or rights will be unaffected.  Consent item initialled?')
data$consent_q3 = ff_label(data$consent_q3, 'I understand that the information and samples collected up until the point I withdraw will still be used in research and information will continue to be collected about my health from central NHS records, hospital and my GP, unless I contact the study team and state otherwise.  Consent item initialled?')
data$consent_q4 = ff_label(data$consent_q4, 'I agree that information including all assessments and interventions performed as part of my routine clinical care and held on national databases before, during and for up to 25 years after my COVID-19 hospitalisation can be shared with the study team where this is relevant to my participation in the PHOSP-COVID study. The medical information may be located in local or national health and research organisations. I understand that information that identifies me will be passed securely to such bodies to make this possible. I understand I can opt out of this at any time by writing to the study team.  Consent item initialled?')
data$consent_q5 = ff_label(data$consent_q5, 'I agree that left over samples taken as part of my routine care by my GP  or the hospital, can be used for the research. This would only take place  after the tests required for my care have been carried out.  Select response initialled.')
data$consent_nsa1_q6 = ff_label(data$consent_nsa1_q6, 'I agree to my email address being used to send me a link to complete electronic questionnaires about my symptoms during the first year after my discharge from hospital.  Select response initialled.')
data$consent_q6 = ff_label(data$consent_q6, 'I agree to undergo some or all of the additional Tier 2 research tests and investigations as described in the participant information sheet. The nature  of the tests and investigations and any possible risks have been explained  to me. I understand that if I tick No and choose not to take part in these  additional research investigations then the study will still be collecting information, imaging, data and left over samples from my normal clinical care for use in research.  Select response initialled.')
data$consent_q7 = ff_label(data$consent_q7, 'I agree that any samples that I provide will be analysed to determine factors related to my COVID-19 susceptibility, severity, recovery and longer term  health effects, and that I will not be provided with the results of these analyses.  Select response initialled.')
data$consent_q7_pt2 = ff_label(data$consent_q7_pt2, 'I agree that my DNA (genetic variation) will be analysed for this study and that I will not be provided with the results of the DNA analysis.  Select response initialled.')
data$consent_q8 = ff_label(data$consent_q8, 'I agree to be contacted directly about future ethically approved  studies based either on the results of sample analyses (including DNA),  on my health status, or on other personal characteristics (for example, age, ethnicity, biological sex). I will not be obliged to take part in any such study  once contacted.  Select response initialled.')
data$consent_q9 = ff_label(data$consent_q9, 'I understand that my personal data may be shared with researchers running other research projects I participate in. Data that I provide for other research studies may be collected and analysed along with the data that I have provided for this study. I understand and agree.  Consent item initialled?')
data$consent_q10 = ff_label(data$consent_q10, 'I understand and agree that to facilitate this research project, the study team may need to share my personal information with other organisations. An example of this will be passing my NHS number and other details to NHS Digital to allow my records to be located and shared with the researchers.  Consent item initialled?')
data$consent_q11 = ff_label(data$consent_q11, 'I understand that data collected during the study, or obtained from samples, may be looked at by regulatory authorities, authorised individuals from the University of Leicester, this hospital, NHS Trust, funding bodies, regulatory authorities or public health agencies, where it is relevant to my taking part in this research. I give permission for these individuals to have access to my records.  Consent item initialled?')
data$consent_q12 = ff_label(data$consent_q12, 'I agree that my samples, may be sent elsewhere in the world to be analysed. I also agree that my samples may be used in additional ethically approved research in the future, including after the end of this study,  if necessary in different parts of the world.  These samples include those already taken as part of my routine care and any samples left-over after tests requested by my doctor. My samples will be stored securely and researchers that use my samples will not be able to identify me from my samples.  Consent item initialled?')
data$consent_q13 = ff_label(data$consent_q13, 'I understand that data that can identify me will be stored on University  of Leicester and University of Leicester Hospitals NHS Trust Hospitals sites separately and securely, and that to enable approved researchers to undertake  research projects securely a copy of the data will be kept in a Trusted  Research Environment (Data Safe Haven).  Consent item initialled?')
data$consent_q14 = ff_label(data$consent_q14, 'I agree that my research data and samples from the study may be made available to other approved researchers and academic partners for future ethically approved research. This could include researchers in other countries and in commercial companies. I understand that such researchers will not be able to identify me from my data or samples.  Consent item initialled?')
data$consent_q15 = ff_label(data$consent_q15, 'I agree that my GP will be informed of my participation in this study.  Consent item initialled?')
data$consent_q16 = ff_label(data$consent_q16, 'I understand that healthcare professionals will be made aware of any abnormal test or assessment results where this is relevant to my ongoing clinical care.  Consent item initialled?')
data$consent_q17 = ff_label(data$consent_q17, 'I agree to take part in the above study.  Consent item initialled?')
data$consultee_q1 = ff_label(data$consultee_q1, '1. Information about the study has been provided to me:  I, [consultee_name], have been consulted about [participant_name]s participation in this research project.  I have read the Consultee Information Sheet v2 dated 15-OCT-2020 and had the opportunity to ask questions about the study and I understand what is involved.  Consent item initialled?')
data$consultee_v2_q1 = ff_label(data$consultee_v2_q1, '1. Information about the study has been provided to me:  I, [consultee_name], have been consulted about [participant_name]s participation in this research project.  I have read the Consultee Information Sheet V3 dated 02-Nov-2020 and had the opportunity to ask questions about the study and I understand what is involved.  Consent item initialled?')
data$consultee_v3_q1 = ff_label(data$consultee_v3_q1, '1. Information about the study has been provided to me:  I, [consultee_name], have been consulted about [participant_name]s participation in this research project.  I have read the Consultee Information Sheet V4 dated 19-Feb-2021 and had the opportunity to ask questions about the study and I understand what is involved.  Consent item initialled?')
data$consultee_q2 = ff_label(data$consultee_q2, '2. In my opinion he/she would have no objection to taking part in the above study.  Consent item initialled?')
data$consultee_q3 = ff_label(data$consultee_q3, '3. I understand that I can request he/she is withdrawn from the study at any time, without giving any reason and without his/her care or legal rights being affected.   Consent item initialled?')
data$consultee_q4 = ff_label(data$consultee_q4, '4. I understand that the information and samples collected up until the point I request he/she is withdrawn will still be used in research unless I contact the study team and state otherwise.  Consent item initialled?')
data$consultee_q5 = ff_label(data$consultee_q5, '5. Access to his/her information:   I understand that information including all assessments and interventions performed as part of his/her routine clinical care and held on national databases before, during and for up to 25 years after his/her COVID-19 hospitalisation can be shared with the study team where this is relevant to his/her participation in the PHOSP-COVID study. The medical information may be located in local or national health and research organisations. I understand that information that identifies him/her will be passed securely to such bodies to make this possible.  Consent item initialled?')
data$consultee_q6 = ff_label(data$consultee_q6, '6. Use of leftover clinical test samples:   I understand that left over samples taken as part of his/her routine care by their GP or the hospital, can be used for the research. This would only take place after the tests required for his/her care have been carried out.  Consent item initialled?')
data$consultee_q7 = ff_label(data$consultee_q7, '7. Use of data from other research studies he/she may be participating in:   I understand that his/her personal data may be shared with researchers running other research projects he/she is participating in. Data that he/she provides for other research studies may be collected and analysed along with the data that he/she has provided for this study.  Consent item initialled?')
data$consultee_q8 = ff_label(data$consultee_q8, '8. Transfer of personal data:  I understand that to facilitate this research project, the study team may need to share his/her personal information with other organisations. An example of this will be passing his/her NHS number and other details to NHS Digital to allow his/her records to be located and shared with the researchers.  Consent item initialled?')
data$consultee_q9 = ff_label(data$consultee_q9, '9. Data regulation:  I understand that data collected during the study, or obtained from samples, may be looked at by regulatory authorities, authorised individuals from the University of Leicester, this hospital, NHS Trust, funding bodies, regulatory authorities or public health agencies, where it is relevant to his/her taking part in this research.   Consent item initialled?')
data$consultee_q10 = ff_label(data$consultee_q10, '10. Sample analysis:   I understand that his/her samples, may be sent elsewhere in the world to be analysed. I also understand that his/her samples may be used in additional ethically approved research in the future, including after the end of this study, if necessary in different parts of the world.  These samples include those already taken as part of his/her routine care and any samples left-over after tests requested by his/her doctor. His/Her samples will be stored securely and researchers that use his/her samples will not be able to identify him/her from the samples.  Consent item initialled?')
data$consultee_q11 = ff_label(data$consultee_q11, '11. I understand that data that can identify him/her will be stored on University  of Leicester and University of Leicester Hospitals NHS Trust Hospitals sites separately and securely, and that to enable approved researchers to undertake  research projects securely a copy of the data will be kept in a Trusted  Research Environment (Data Safe Haven).  Consent item initialled?')
data$consultee_q12 = ff_label(data$consultee_q12, '12. Use by other researchers:   I understand that his/her research data and samples from the study may be made available to other approved researchers and academic partners for future ethically approved research. This could include researchers in other countries and in commercial companies.   Consent item initialled?')
data$consultee_q13 = ff_label(data$consultee_q13, '13. I understand that his/her GP will be informed of his/her participation in this study.  Consent item initialled?')
data$consultee_type = ff_label(data$consultee_type, 'Consultee Declaration Type')
data$consultee_signed_verified = ff_label(data$consultee_signed_verified, 'Consultee Signature')
data$consultee_signed_date = ff_label(data$consultee_signed_date, 'Consultee Signed Date')
data$consent_signature_verified = ff_label(data$consent_signature_verified, 'Participant Signature')
data$consent_date = ff_label(data$consent_date, 'Participant Signed Date')
data$consent_countsign_verified = ff_label(data$consent_countsign_verified, 'Researcher Signature')
data$consent_countersign_date = ff_label(data$consent_countersign_date, 'Researcher Signed Date')
data$consent_witness_sign = ff_label(data$consent_witness_sign, 'Witness/Translator Signature')
data$consent_witness_date = ff_label(data$consent_witness_date, 'Witness/Translator Signed Date')
data$consent_data_verify = ff_label(data$consent_data_verify, 'I verify that the data entered above has been transcribed completely and accurately into REDCap from the original consent form.')
data$registration_and_informed_consent_complete = ff_label(data$registration_and_informed_consent_complete, 'Complete?')
#data$split_tier_recruitment_informed_consent_2_timestamp = ff_label(data$split_tier_recruitment_informed_consent_2_timestamp, 'Survey Timestamp')
data$split_consent_verify___1 = ff_label(data$split_consent_verify___1, 'I confirm that the original consent form has been reviewed and completed correctly.If Yes, please complete the consent form details below.If No, please complete the incorrect consent form details below, re-consent the participant with a correctly completed consent form (using the latest consent version approved for your site) and enter these consent details in a new instance of the Registration and Informed Consent data instrument. (choice=Yes (Tier 1 consent form))')
data$split_consent_verify___2 = ff_label(data$split_consent_verify___2, 'I confirm that the original consent form has been reviewed and completed correctly.If Yes, please complete the consent form details below.If No, please complete the incorrect consent form details below, re-consent the participant with a correctly completed consent form (using the latest consent version approved for your site) and enter these consent details in a new instance of the Registration and Informed Consent data instrument. (choice=No (Tier 1 consent form))')
data$split_consent_verify___3 = ff_label(data$split_consent_verify___3, 'I confirm that the original consent form has been reviewed and completed correctly.If Yes, please complete the consent form details below.If No, please complete the incorrect consent form details below, re-consent the participant with a correctly completed consent form (using the latest consent version approved for your site) and enter these consent details in a new instance of the Registration and Informed Consent data instrument. (choice=Yes (Tier 2 consent form))')
data$split_consent_verify___4 = ff_label(data$split_consent_verify___4, 'I confirm that the original consent form has been reviewed and completed correctly.If Yes, please complete the consent form details below.If No, please complete the incorrect consent form details below, re-consent the participant with a correctly completed consent form (using the latest consent version approved for your site) and enter these consent details in a new instance of the Registration and Informed Consent data instrument. (choice=No (Tier 2 consent form))')
data$split_tier_ver = ff_label(data$split_tier_ver, 'Consent version')
data$split_tier1_q1 = ff_label(data$split_tier1_q1, 'I have read the information sheet (or it has been read to me) for this study dated 18-Dec-2020, Version 6.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$split_tier1_sa5_q1 = ff_label(data$split_tier1_sa5_q1, 'I have read the information sheet (or it has been read to me) for this study dated 01-Apr-2021, Version 7.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$split_tier1_q2 = ff_label(data$split_tier1_q2, 'I understand that my participation is voluntary and that I am free to withdraw from the study at any time. I do not need to give a reason and my medical care or rights will be unaffected.  Consent item initialled?')
data$split_tier1_q3 = ff_label(data$split_tier1_q3, 'I understand that the information and samples collected up until the point I withdraw will still be used in research and information will continue to be collected about my health from central NHS records, hospital and my GP, unless I contact the study team and state otherwise.  Consent item initialled?')
data$split_tier1_q4 = ff_label(data$split_tier1_q4, 'I agree that information including all assessments and interventions performed as part of my routine clinical care and held on national databases before, during and for up to 25 years after my COVID-19 hospitalisation can be shared with the study team where this is relevant to my participation in the PHOSP-COVID study. The medical information may be located in local or national health and research organisations. I understand that information that identifies me will be passed securely to such bodies to make this possible. I understand I can opt out of this at any time by writing to the study team.  Consent item initialled?')
data$split_tier1_q5 = ff_label(data$split_tier1_q5, 'I agree that left over samples taken as part of my routine care by my GP  or the hospital, can be used for the research. This would only take place  after the tests required for my care have been carried out.  Select response initialled.')
data$split_tier1_q6 = ff_label(data$split_tier1_q6, 'I agree to my email address being used to send me a link to complete electronic questionnaires about my symptoms during the first year after my discharge from hospital.  Select response initialled.')
data$split_tier1_q7 = ff_label(data$split_tier1_q7, 'I agree that any samples that I provide will be analysed to determine factors related to my COVID-19 susceptibility, severity, recovery and longer term  health effects, and that I will not be provided with the results of these analyses.  Select response initialled.')
data$split_tier1_q7pt2 = ff_label(data$split_tier1_q7pt2, 'I agree that my DNA (genetic variation) will be analysed for this study and that I will not be provided with the results of the DNA analysis.  Select response initialled.')
data$split_tier1_q8 = ff_label(data$split_tier1_q8, 'I agree to be contacted directly about future ethically approved  studies based either on the results of sample analyses (including DNA),  on my health status, or on other personal characteristics (for example, age, ethnicity, biological sex). I will not be obliged to take part in any such study  once contacted.  Select response initialled.')
data$split_tier1_q9 = ff_label(data$split_tier1_q9, 'I understand that my personal data may be shared with researchers running other research projects I participate in. Data that I provide for other research studies may be collected and analysed along with the data that I have provided for this study. I understand and agree.  Consent item initialled?')
data$split_tier1_q10 = ff_label(data$split_tier1_q10, 'I understand and agree that to facilitate this research project, the study team may need to share my personal information with other organisations. An example of this will be passing my NHS number and other details to NHS Digital to allow my records to be located and shared with the researchers.  Consent item initialled?')
data$split_tier1_q11 = ff_label(data$split_tier1_q11, 'I understand that data collected during the study, or obtained from samples, may be looked at by regulatory authorities, authorised individuals from the University of Leicester, this hospital, NHS Trust, funding bodies, regulatory authorities or public health agencies, where it is relevant to my taking part in this research. I give permission for these individuals to have access to my records.  Consent item initialled?')
data$split_tier1_q12 = ff_label(data$split_tier1_q12, 'I agree that my samples, may be sent elsewhere in the world to be analysed. I also agree that my samples may be used in additional ethically approved research in the future, including after the end of this study,  if necessary in different parts of the world.  These samples include those already taken as part of my routine care and any samples left-over after tests requested by my doctor. My samples will be stored securely and researchers that use my samples will not be able to identify me from my samples.  Consent item initialled?')
data$split_tier1_q13 = ff_label(data$split_tier1_q13, 'I understand that data that can identify me will be stored on local site, onward referral site and University  of Leicester and University of Leicester Hospitals NHS Trust Hospitals sites separately and securely, and that to enable approved researchers to undertake  research projects securely a copy of the data will be kept in a Trusted  Research Environment (Data Safe Haven).  Consent item initialled?')
data$split_tier1_q14 = ff_label(data$split_tier1_q14, 'I agree that my research data and samples from the study may be made available to other approved researchers and academic partners for future ethically approved research. This could include researchers in other countries and in commercial companies. I understand that such researchers will not be able to identify me from my data or samples.  Consent item initialled?')
data$split_tier1_q15 = ff_label(data$split_tier1_q15, 'I agree that my GP will be informed of my participation in this study.  Consent item initialled?')
data$split_tier1_q16 = ff_label(data$split_tier1_q16, 'I understand that healthcare professionals will be made aware of any abnormal test or assessment results where this is relevant to my ongoing clinical care.  Consent item initialled?')
data$split_tier1_q17 = ff_label(data$split_tier1_q17, 'I would like to be considered to take part in additional research tests and samples as described in the participant information sheet (Tier 2).  I agree to be contacted by the study team for consideration in Tier 2.  I understand that by saying yes does not mean I have to take part and that I can decide not to take part at a later date.  Select response initialled.')
data$split_tier1_q18 = ff_label(data$split_tier1_q18, 'I agree to take part in the above study, participating in Tier 1.  Consent item initialled?')
data$split_tier1_parti_sign = ff_label(data$split_tier1_parti_sign, 'Participant Signature')
data$split_tier1_parti_date = ff_label(data$split_tier1_parti_date, 'Participant Signed Date')
data$split_tier1_research_sign = ff_label(data$split_tier1_research_sign, 'Researcher Signature')
data$split_tier1_research_date = ff_label(data$split_tier1_research_date, 'Researcher Signed Date')
data$split_tier1_witness_sign = ff_label(data$split_tier1_witness_sign, 'Witness/Translator Signature')
data$split_tier1_witness_date = ff_label(data$split_tier1_witness_date, 'Witness/Translator Signed Date')
data$split_tier2_q1 = ff_label(data$split_tier2_q1, 'I have had the opportunity to read again the information sheet (or it has been read to me) for this study dated 18-Dec-2020, Version 6.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$split_tier2_sa5_q1 = ff_label(data$split_tier2_sa5_q1, 'I have had the opportunity to read again the information sheet (or it has been read to me) for this study dated 01-Apr-2021, Version 7.1. I understand the information and have had the opportunity to ask questions for clarification. These have been answered satisfactorily.  Consent item initialled?')
data$split_tier2_q2 = ff_label(data$split_tier2_q2, 'I understand that my consent above for the study remains valid, and that I am hereby only consenting to take part in additional research visits and testing.  Consent item initialled?')
data$split_tier2_q3 = ff_label(data$split_tier2_q3, 'I agree to undergo some or all of the additional research tests and investigations as described in the participant information sheet. The nature of the tests and investigations and any possible risks have been explained  to me.   Select response initialled.')
data$split_tier2_q4 = ff_label(data$split_tier2_q4, 'I continue to agree to take part in the above study, now participating in both Tier 1 and Tier 2.  Consent item initialled?')
data$split_tier2_parti_sign = ff_label(data$split_tier2_parti_sign, 'Participant Signature')
data$split_tier2_parti_date = ff_label(data$split_tier2_parti_date, 'Participant Signed Date')
data$split_tier2_research_sign = ff_label(data$split_tier2_research_sign, 'Researcher Signature')
data$split_tier2_research_date = ff_label(data$split_tier2_research_date, 'Researcher Signed Date')
data$split_tier2_witness_sign = ff_label(data$split_tier2_witness_sign, 'Witness/Translator Signature')
data$split_tier2_witness_date = ff_label(data$split_tier2_witness_date, 'Witness/Translator Signed Date')
data$split_consent_data_verify___1 = ff_label(data$split_consent_data_verify___1, 'I verify that the data entered above has been transcribed completely and accurately into REDCap from the original consent form. (choice=Yes (Tier 1 consent form))')
data$split_consent_data_verify___2 = ff_label(data$split_consent_data_verify___2, 'I verify that the data entered above has been transcribed completely and accurately into REDCap from the original consent form. (choice=No (Tier 1 consent form))')
data$split_consent_data_verify___3 = ff_label(data$split_consent_data_verify___3, 'I verify that the data entered above has been transcribed completely and accurately into REDCap from the original consent form. (choice=Yes (Tier 2 consent form))')
data$split_consent_data_verify___4 = ff_label(data$split_consent_data_verify___4, 'I verify that the data entered above has been transcribed completely and accurately into REDCap from the original consent form. (choice=No (Tier 2 consent form))')
data$split_tier_recruitment_informed_consent_2_complete = ff_label(data$split_tier_recruitment_informed_consent_2_complete, 'Complete?')
data$inc_1 = ff_label(data$inc_1, '1.1 Participant admitted to an admissions unit or ward at a UK hospital and discharged with suspected COVID-19')
data$inc_2 = ff_label(data$inc_2, '1.2 Participant is willing and able to give informed consent for participation in the study')
data$inc_3 = ff_label(data$inc_3, '1.3 Aged 18 years or above.')
data$exc_1 = ff_label(data$exc_1, '2.1 Confirmed diagnosis of a pathogen unrelated to the objectives of this study and no indication or likelihood of co-infection with a relevant pathogen.')
data$exc_2 = ff_label(data$exc_2, '2.2 Attendance at an A&E or emergency department only')
data$exc_3 = ff_label(data$exc_3, '2.3 Refusal by participant, parent or appropriate representative.')
data$exc_4 = ff_label(data$exc_4, '2.4 Other life limiting illness with life expectancy < 6 months such as disseminated malignancy.')
data$eligibility_checklist_complete = ff_label(data$eligibility_checklist_complete, 'Complete?')
#data$crf0_identifiable_patient_information_timestamp = ff_label(data$crf0_identifiable_patient_information_timestamp, 'Survey Timestamp')
data$crf0_version = ff_label(data$crf0_version, 'CRF0 Version Completed')
data$crf0_nhs_chi_num = ff_label(data$crf0_nhs_chi_num, 'NHS / CHI number')
data$post_code = ff_label(data$post_code, 'Post Code')
data$crf0_identifiable_patient_information_complete = ff_label(data$crf0_identifiable_patient_information_complete, 'Complete?')
data$crf1a1_version = ff_label(data$crf1a1_version, 'CRF1 Version Completed')
data$crf1a_date = ff_label(data$crf1a_date, 'Date of collection')
data$crf1a_sex = ff_label(data$crf1a_sex, '1) Sex at birth')
data$crf1a_pregnant_yn = ff_label(data$crf1a_pregnant_yn, 'Pregnant?')
data$crf1a_gestational_weeks = ff_label(data$crf1a_gestational_weeks, 'If pregnant, gestation weeks at admission')
data$crf1a_post_partum_yn = ff_label(data$crf1a_post_partum_yn, 'Post-partum?')
data$crf1a_pregnancy_outcome = ff_label(data$crf1a_pregnancy_outcome, 'Pregnancy outcome:')
data$crf1a_delivery_date_yn = ff_label(data$crf1a_delivery_date_yn, 'Delivery date known?')
data$crf1a_delivery_date = ff_label(data$crf1a_delivery_date, 'Delivery date:')
data$crf1a_infant_c19_tested_yn = ff_label(data$crf1a_infant_c19_tested_yn, 'Has infant been tested for COVID?')
data$crf1a_infant_c19_result_1 = ff_label(data$crf1a_infant_c19_result_1, 'Infant COVID-19 test result:')
data$crf1a_date_first_sympt_yn = ff_label(data$crf1a_date_first_sympt_yn, 'Is the date of first/earliest symptoms known?')
data$crf1a_date_first_symptoms = ff_label(data$crf1a_date_first_symptoms, 'Date of first/earliest symptoms')
data$crf1a_date_adm_yn = ff_label(data$crf1a_date_adm_yn, 'Is the date of admission to this hospital known?')
data$crf1a_date_adm = ff_label(data$crf1a_date_adm, 'Date of admission to this hospital')
data$age_admission = ff_label(data$age_admission, 'Age at Admission (Years)Please enter date of birth (CRF0) and date of admission (CRF1A) to calculate')
data$crf1a_re_adm_with_c19 = ff_label(data$crf1a_re_adm_with_c19, 'Is this a re-admission with COVID-19?')
data$crf1a_re_adm_rsn = ff_label(data$crf1a_re_adm_rsn, 'If yes, reason for re-admission:')
data$crf1a_xfer_in = ff_label(data$crf1a_xfer_in, 'Was the patient transferred from another hospital?')
data$crf1aprev_hosp_name_known = ff_label(data$crf1aprev_hosp_name_known, 'Is the name of the previous hospital known?')
data$crf1a_name_xfer_in_hosp = ff_label(data$crf1a_name_xfer_in_hosp, 'What was the name of the previous hospital?')
data$crf1a_prev_adm_date_known = ff_label(data$crf1a_prev_adm_date_known, 'Is the date of the previous hospital admission known?')
data$crf1a_xfer_in_adm_date = ff_label(data$crf1a_xfer_in_adm_date, 'If yes: What was the admission date?')
data$crf1a_date_dis_yn = ff_label(data$crf1a_date_dis_yn, 'Is the date of discharge from hospital known?This could be the date of discharge directly from the PHOSP site hospital or the date of discharge from another hospital if the patient was transferred for further acute inpatient care (this includes acute hospitals and medical step-downs but not rehab centres)')
data$crf1a_date_dis = ff_label(data$crf1a_date_dis, 'Date of discharge from hospitalThis could be the date of discharge directly from the PHOSP site hospital or the date of discharge from another hospital if the patient was transferred for further acute inpatient care (this includes acute hospitals and medical step-downs but not rehab centres)')
data$duration_adm = ff_label(data$duration_adm, 'Duration of Admission (Days)Please enter date of admission (CRF1A) and date of discharge (CRF1A) to calculate')
data$crf1a_temperature = ff_label(data$crf1a_temperature, 'Temperature')
data$crf1a_hr = ff_label(data$crf1a_hr, 'Heart Rate')
data$crf1a_respiratory_rate = ff_label(data$crf1a_respiratory_rate, 'Respiratory Rate')
data$crf1a_bp_sys = ff_label(data$crf1a_bp_sys, 'Blood pressure  (Sys)')
data$crf1a_bp_dia = ff_label(data$crf1a_bp_dia, 'Blood pressure  (Dia)')
data$crf1a_sev_dehydr = ff_label(data$crf1a_sev_dehydr, 'Severe Dehydration')
data$crf1a_stcap_refill_2s = ff_label(data$crf1a_stcap_refill_2s, 'Sternal capillary refill time > 2 seconds')
data$crf1a_o2_sat = ff_label(data$crf1a_o2_sat, 'Oxygen saturation')
data$crf1a_supp_o2 = ff_label(data$crf1a_supp_o2, 'Supplemental oxygen')
data$crf1a_fever_history = ff_label(data$crf1a_fever_history, 'a) History of fever')
data$crf1a_cough = ff_label(data$crf1a_cough, 'b) Cough')
data$crf1a_cough_sputum = ff_label(data$crf1a_cough_sputum, 'bi) Cough With sputum')
data$crf1a_cough_blood = ff_label(data$crf1a_cough_blood, 'bii) Cough Blood/ haemoptysis')
data$crf1a_sore_throat = ff_label(data$crf1a_sore_throat, 'c) Sore throat')
data$crf1a_runny_nose = ff_label(data$crf1a_runny_nose, 'd) Runny nose (rhinorrhoea)')
data$crf1a_ear_pain = ff_label(data$crf1a_ear_pain, 'e) Ear pain')
data$crf1a_wheezing = ff_label(data$crf1a_wheezing, 'f) Wheezing')
data$crf1a_chest_pain = ff_label(data$crf1a_chest_pain, 'g) Chest pain')
data$crf1a_muscle_aches = ff_label(data$crf1a_muscle_aches, 'h) Muscle aches (Myalgia)')
data$crf1a_join_pain = ff_label(data$crf1a_join_pain, 'i) Joint pain (Arthralgia)')
data$crf1a_fatigue = ff_label(data$crf1a_fatigue, 'j) Fatigue/ Malaise')
data$crf1a_shortness_breath = ff_label(data$crf1a_shortness_breath, 'k) Shortness of breath (dyspnoea)')
data$crf1a_loss_taste = ff_label(data$crf1a_loss_taste, 'l) Disturbance or loss of taste (Ageusia)')
data$crf1a_loss_smell = ff_label(data$crf1a_loss_smell, 'm) Disturbance or loss of smell (Anosmia)')
data$crf1a_chest_indrawing = ff_label(data$crf1a_chest_indrawing, 'n) Lower chest wall indrawing')
data$crf1a_headache = ff_label(data$crf1a_headache, 'o) Headache')
data$crf1a_confusion = ff_label(data$crf1a_confusion, 'p) Altered consciousness/confusion')
data$crf1a_seizures = ff_label(data$crf1a_seizures, 'q) Seizures')
data$crf1a_pain = ff_label(data$crf1a_pain, 'r) Abdominal Pain')
data$crf1a_nausea = ff_label(data$crf1a_nausea, 's) Vomiting / Nausea')
data$crf1a_diarrhoea = ff_label(data$crf1a_diarrhoea, 't) Diarrhoea')
data$crf1a_conjunctivitis = ff_label(data$crf1a_conjunctivitis, 'u) Conjunctivitis')
data$crf1a_skin_rash = ff_label(data$crf1a_skin_rash, 'v) Skin rash')
data$crf1a_skin_ulcers = ff_label(data$crf1a_skin_ulcers, 'w) Skin ulcers')
data$crf1a_lymphadenopathy = ff_label(data$crf1a_lymphadenopathy, 'x) Lymphadenopathy')
data$crf1a_bleeding = ff_label(data$crf1a_bleeding, 'y) Bleeding (Haemorrhage)')
data$crf1a_bleeding_site_known = ff_label(data$crf1a_bleeding_site_known, 'Bleeding site known?')
data$crf1a_bleed_site = ff_label(data$crf1a_bleed_site, 'If bleeding: specify site(s):')
data$crf1a_immunosuppressant = ff_label(data$crf1a_immunosuppressant, 'a) Immunosuppressant e.g. oral (not inhaled) corticosteroids (not low dose hydrocortisone)')
data$crf1a_anti_infectives = ff_label(data$crf1a_anti_infectives, 'b) Anti-infectives for this illness episode prior to admission?')
data$crf1a_acei = ff_label(data$crf1a_acei, 'c) Angiotensin converting enzyme inhibitors (ACEI)?')
data$crf1a_abbs = ff_label(data$crf1a_abbs, 'd) Angiotensin II receptor blockers (ARBs)?')
data$crf1a_nsaid = ff_label(data$crf1a_nsaid, 'e) Non-steroidal anti-inflammatory (NSAID)?')
data$crf1a_con_meds_comp_yn = ff_label(data$crf1a_con_meds_comp_yn, 'Medication log complete? [form-link:repeatable_medications_log:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf1a_baseline_clinical_data_part_1_q1_q8_complete = ff_label(data$crf1a_baseline_clinical_data_part_1_q1_q8_complete, 'Complete?')
data$crf1a2_version = ff_label(data$crf1a2_version, 'CRF1 Version Completed')
data$crf1a_com_card_mi = ff_label(data$crf1a_com_card_mi, 'i) Myocardial Infarction')
data$crf1a_com_card_ihd = ff_label(data$crf1a_com_card_ihd, 'ii) Ischaemic Heart Disease')
data$crf1a_com_card_af = ff_label(data$crf1a_com_card_af, 'iii) Atrial fibrillation')
data$crf1a_com_card_ht = ff_label(data$crf1a_com_card_ht, 'iv) Hypertension')
data$crf1a_com_card_chf = ff_label(data$crf1a_com_card_chf, 'v) Congestive heart failure')
data$crf1a_com_card_chd = ff_label(data$crf1a_com_card_chd, 'vi) Congenital heart disease')
data$crf1a_com_card_vhd = ff_label(data$crf1a_com_card_vhd, 'vii) Valvular Heart Disease')
data$crf1a_com_card_pid = ff_label(data$crf1a_com_card_pid, 'viii) Pacemaker/Implantable defibrillator')
data$crf1a_com_card_pvd = ff_label(data$crf1a_com_card_pvd, 'ix) Peripheral vascular disease')
data$crf1a_com_card_hcd = ff_label(data$crf1a_com_card_hcd, 'x) Hypercholesterolaemia/dyslipidaemia')
data$crf1a_com_card_catia = ff_label(data$crf1a_com_card_catia, 'xi) Cerebrovascular accident or transient ischemic attack')
data$crf1a_com_card_other_yn = ff_label(data$crf1a_com_card_other_yn, 'xii) Other chronic cardiovascular disease')
data$crf1a_com_card_other = ff_label(data$crf1a_com_card_other, 'xii) Other chronic cardiovascular disease Detail')
data$crf1a_com_neupsy_dem = ff_label(data$crf1a_com_neupsy_dem, 'i) Dementia')
data$crf1a_com_neupsy_other_yn = ff_label(data$crf1a_com_neupsy_other_yn, 'ii) Any other chronic neurological disorder')
data$crf1a_com_neupsy_da = ff_label(data$crf1a_com_neupsy_da, 'iii) Depression or Anxiety')
data$crf1a_com_neupsy_chron = ff_label(data$crf1a_com_neupsy_chron, 'iv) Chronic fatigue syndrome, fibromyalgia or chronic pain')
data$crf1a_com_neupsy_pam = ff_label(data$crf1a_com_neupsy_pam, 'v) Any previous treatment with antidepressant medication')
data$crf1a_com_neupsy_ptm = ff_label(data$crf1a_com_neupsy_ptm, 'vi) Any previous treatment by a mental health professional (eg. psychologist, psychiatrist, councillor) for a mental health problem')
data$crf1a_com_neupsy_other = ff_label(data$crf1a_com_neupsy_other, 'Other chronic neurological disorder')
data$crf1a_com_res_copd = ff_label(data$crf1a_com_res_copd, 'i) Chronic obstructive pulmonary disease')
data$crf1a_com_res_ast = ff_label(data$crf1a_com_res_ast, 'ii) Asthma')
data$crf1a_com_res_ild_yn = ff_label(data$crf1a_com_res_ild_yn, 'iii) Interstitial lung disease')
data$crf1a_com_res_bron = ff_label(data$crf1a_com_res_bron, 'iv) Bronchiectasis')
data$crf1a_com_res_osa = ff_label(data$crf1a_com_res_osa, 'v) Obstructive sleep apnoea')
data$crf1a_com_res_ohs = ff_label(data$crf1a_com_res_ohs, 'vi) Obesity hypoventilation syndrome')
data$crf1a_com_res_pe = ff_label(data$crf1a_com_res_pe, 'vii) Pleural effusion')
data$crf1a_com_res_other_yn = ff_label(data$crf1a_com_res_other_yn, 'viii) Other chronic respiratory disorder')
data$crf1a_com_res_ild = ff_label(data$crf1a_com_res_ild, 'Interstitial lung disease Detail')
data$crf1a_com_res_other = ff_label(data$crf1a_com_res_other, 'Other chronic respiratory disorder Detail')
data$crf1a_com_rheu_ctd = ff_label(data$crf1a_com_rheu_ctd, 'i) Connective tissue disease')
data$crf1a_com_rheu_ra = ff_label(data$crf1a_com_rheu_ra, 'ii) Rheumatoid arthritis')
data$crf1a_com_rheu_ost = ff_label(data$crf1a_com_rheu_ost, 'iii) Osteoarthritis')
data$crf1a_com_rheu_other_yn = ff_label(data$crf1a_com_rheu_other_yn, 'iv) Other chronic rheumatological disease')
data$crf1a_com_rheu_other = ff_label(data$crf1a_com_rheu_other, 'Other chronic rheumatological disease Detail')
data$crf1a_com_gast_pud = ff_label(data$crf1a_com_gast_pud, 'i) Peptic ulcer disease')
data$crf1a_com_gast_ld = ff_label(data$crf1a_com_gast_ld, 'ii) Liver Disease')
data$crf1a_com_gast_gord = ff_label(data$crf1a_com_gast_gord, 'iii) Gastro-oesophageal reflux disease')
data$crf1a_com_gast_ibd = ff_label(data$crf1a_com_gast_ibd, 'iv) Inflammatory bowel disease')
data$crf1a_com_gast_ibs = ff_label(data$crf1a_com_gast_ibs, 'v) Irritable bowel syndrome')
data$crf1a_com_gast_other_yn = ff_label(data$crf1a_com_gast_other_yn, 'vi) Other chronic gastrointestinal disorder')
data$crf1a_com_gast_other = ff_label(data$crf1a_com_gast_other, 'Other chronic gastrointestinal disorder Detail')
data$crf1a_com_mer_diab = ff_label(data$crf1a_com_mer_diab, 'i) Diabetes')
data$crf1a_com_mer_diab_com = ff_label(data$crf1a_com_mer_diab_com, 'i) Diabetes Complications')
data$crf1a_com_mer_hypot = ff_label(data$crf1a_com_mer_hypot, 'ii) Hypothyroidism')
data$crf1a_com_mer_hypert = ff_label(data$crf1a_com_mer_hypert, 'iii) Hyperthyroidism')
data$crf1a_com_mer_ckd_yn = ff_label(data$crf1a_com_mer_ckd_yn, 'iv) Chronic kidney disease')
data$crf1a_com_mer_other_yn = ff_label(data$crf1a_com_mer_other_yn, 'v) Other chronic metabolic/endocrine disorder')
data$crf1a_com_mer_ckd_stage = ff_label(data$crf1a_com_mer_ckd_stage, 'Chronic kidney disease Stage (if known)')
data$crf1a_com_mer_other = ff_label(data$crf1a_com_mer_other, 'Other chronic metabolic/endocrine disorder  Specify:')
data$crf1a_com_mh_stm = ff_label(data$crf1a_com_mh_stm, 'i) Solid Tumour Malignancy')
data$crf1a_com_mh_stm_detail = ff_label(data$crf1a_com_mh_stm_detail, 'i) Solid Tumour Malignancy Detail')
data$crf1a_com_mh_leuk_yn = ff_label(data$crf1a_com_mh_leuk_yn, 'ii) Leukaemia')
data$crf1a_com_mh_lymp_yn = ff_label(data$crf1a_com_mh_lymp_yn, 'iii) Lymphoma')
data$crf1a_com_mh_other_yn = ff_label(data$crf1a_com_mh_other_yn, 'iv) Other chronic haematological disorder')
data$crf1a_com_mh_leuk_detail = ff_label(data$crf1a_com_mh_leuk_detail, 'Leukaemia Detail')
data$crf1a_com_mh_lymp = ff_label(data$crf1a_com_mh_lymp, 'Lymphoma Detail')
data$crf1a_com_mh_other = ff_label(data$crf1a_com_mh_other, 'Other chronic haematological disorder Detail')
data$crf1a_com_id_aids = ff_label(data$crf1a_com_id_aids, 'i) AIDS (Not including HIV without complications)')
data$crf1a_com_id_hiv = ff_label(data$crf1a_com_id_hiv, 'ii) HIV')
data$crf1a_com_id_cvh = ff_label(data$crf1a_com_id_cvh, 'iii) Chronic viral hepatitis')
data$crf1a_com_id_mt = ff_label(data$crf1a_com_id_mt, 'iv) Mycobacterium Tuberculosis')
data$crf1a_com_id_other_yn = ff_label(data$crf1a_com_id_other_yn, 'v) Other chronic infectious disease')
data$crf1a_com_id_other = ff_label(data$crf1a_com_id_other, 'Other chronic infectious disease Detail')
data$crf1a_com_other = ff_label(data$crf1a_com_other, '9.i) Other co-morbidities not included above One co-morbidity per line')
data$crf1a_baseline_clinical_data_part_2_q9_complete = ff_label(data$crf1a_baseline_clinical_data_part_2_q9_complete, 'Complete?')
data$crf1a3_version = ff_label(data$crf1a3_version, 'CRF1 Version Completed')
data$crf1a_o2_supp = ff_label(data$crf1a_o2_supp, 'a) Supplemental oxygen')
data$crf1a_o2_cpapv = ff_label(data$crf1a_o2_cpapv, 'b) Continuous Positive Airway Pressure Ventilation')
data$crf1a_o2_blniv = ff_label(data$crf1a_o2_blniv, 'c) Bi-Level Non-Invasive Ventilation')
data$crf1a_o2_hfn = ff_label(data$crf1a_o2_hfn, 'd) High Flow Nasal O2')
data$crf1a_o2_imv = ff_label(data$crf1a_o2_imv, 'e) Invasive Mechanical Ventilation')
data$crf1a_o2_ecmo = ff_label(data$crf1a_o2_ecmo, 'f) Extra-Corporeal Membrane Oxygenation')
data$crf1a_treat_at = ff_label(data$crf1a_treat_at, 'a) Antibiotic therapy')
data$crf1a_treat_ss = ff_label(data$crf1a_treat_ss, 'b) Systemic (oral or IV) steroids')
data$crf1a_treat_tdac = ff_label(data$crf1a_treat_tdac, 'c) Therapeutic dose anti-coagulation')
data$crf1a_treat_proning = ff_label(data$crf1a_treat_proning, 'd) Proning')
data$crf1a_treat_rrt = ff_label(data$crf1a_treat_rrt, 'e) Renal replacement therapy')
data$crf1a_treat_tocil = ff_label(data$crf1a_treat_tocil, 'f) Tocilizumab')
data$crf1a_treat_saril = ff_label(data$crf1a_treat_saril, 'g) Sarilumab')
data$crf1a_treat_remde = ff_label(data$crf1a_treat_remde, 'h) Remdesivir')
data$crf1a_add_diag_pemt = ff_label(data$crf1a_add_diag_pemt, 'a) Pulmonary Embolism/micro thrombi')
data$crf1a_add_diag_cvvh = ff_label(data$crf1a_add_diag_cvvh, 'b) Renal failure requiring CVVH or Haemodialysis')
data$crf1a_add_diag_myoc = ff_label(data$crf1a_add_diag_myoc, 'c) Myocarditis')
data$crf1a_add_diag_cmp = ff_label(data$crf1a_add_diag_cmp, 'd) Cardiomyopathy')
data$crf1a_add_diag = ff_label(data$crf1a_add_diag, 'e) Coronary thrombosis')
data$crf1a_studies___1 = ff_label(data$crf1a_studies___1, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=GenOMICC)')
data$crf1a_studies___2 = ff_label(data$crf1a_studies___2, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=RECOVERY)')
data$crf1a_studies___22 = ff_label(data$crf1a_studies___22, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=RECOVERY-RS)')
data$crf1a_studies___3 = ff_label(data$crf1a_studies___3, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=REMAP-CAP)')
data$crf1a_studies___4 = ff_label(data$crf1a_studies___4, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=Synairgen SG016)')
data$crf1a_studies___5 = ff_label(data$crf1a_studies___5, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=CAN-COVID)')
data$crf1a_studies___6 = ff_label(data$crf1a_studies___6, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=RUXCOVID)')
data$crf1a_studies___7 = ff_label(data$crf1a_studies___7, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=ACCORD-2)')
data$crf1a_studies___8 = ff_label(data$crf1a_studies___8, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=PACA)')
data$crf1a_studies___9 = ff_label(data$crf1a_studies___9, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=Tocilizumab)')
data$crf1a_studies___10 = ff_label(data$crf1a_studies___10, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=REALIST)')
data$crf1a_studies___11 = ff_label(data$crf1a_studies___11, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=ACTT-EU/UK)')
data$crf1a_studies___12 = ff_label(data$crf1a_studies___12, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=Remdesivir Moderate)')
data$crf1a_studies___13 = ff_label(data$crf1a_studies___13, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=Remdesivir Severe)')
data$crf1a_studies___14 = ff_label(data$crf1a_studies___14, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=COVACTA)')
data$crf1a_studies___15 = ff_label(data$crf1a_studies___15, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=TACTIC-R)')
data$crf1a_studies___16 = ff_label(data$crf1a_studies___16, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=C-19-ACS)')
data$crf1a_studies___17 = ff_label(data$crf1a_studies___17, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=ILIAD-7-UK)')
data$crf1a_studies___18 = ff_label(data$crf1a_studies___18, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=LIBERATE)')
data$crf1a_studies___19 = ff_label(data$crf1a_studies___19, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=ATOMIC2)')
data$crf1a_studies___20 = ff_label(data$crf1a_studies___20, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=STOP-COVID)')
data$crf1a_studies___21 = ff_label(data$crf1a_studies___21, '13) Was the patient enrolled in any COVID Studies during hospitalisation? (choice=Other)')
data$crf1a_genomicc_id = ff_label(data$crf1a_genomicc_id, 'GenOMICC ID')
data$crf1a_studies_other = ff_label(data$crf1a_studies_other, 'Other COVID IMP studies enrolled One study per line')
data$crf1a_egfr_low = ff_label(data$crf1a_egfr_low, '14.a) Lowest measured eGFR')
data$crf1a_egfr_low_value = ff_label(data$crf1a_egfr_low_value, '14.a) Lowest measured eGFR  Value')
data$crf1a_egfr_low_date = ff_label(data$crf1a_egfr_low_date, '14.a) Lowest measured eGFR  Date of sample')
data$crf1a_alt_high = ff_label(data$crf1a_alt_high, '14.b) Highest measured ALT')
data$crf1a_alt_high_less_great = ff_label(data$crf1a_alt_high_less_great, '14.b) Highest measured ALT Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_alt_high_value = ff_label(data$crf1a_alt_high_value, '14.b) Highest measured ALT  Value')
data$crf1a_alt_high_date = ff_label(data$crf1a_alt_high_date, '14.b) Highest measured ALT  Date of sample')
data$crf1a_bnp_done = ff_label(data$crf1a_bnp_done, '14.c) BNP Measurements  i) Was BNP or NT-proBNP measured during admission?')
data$crf1a_bnp_type = ff_label(data$crf1a_bnp_type, '14.c) BNP Measurements  ii) What measure was used?')
data$crf1a_bnp_unit = ff_label(data$crf1a_bnp_unit, '14.c) BNP Measurements  iii) What units were used?')
data$crf1a_bnp_unit_other = ff_label(data$crf1a_bnp_unit_other, '14.c) BNP Measurements  Unit')
data$crf1a_bnp_high_less_great = ff_label(data$crf1a_bnp_high_less_great, '14.c) BNP Measurements iv) Highest level recorded during admission Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_bnp_high = ff_label(data$crf1a_bnp_high, '14.c) BNP Measurements  iv) Highest level recorded during admission  Value')
data$crf1a_bnp_high_date = ff_label(data$crf1a_bnp_high_date, '14.c) BNP Measurements  iv) Highest level recorded during admission  Date of sample')
data$crf1a_bnp_last = ff_label(data$crf1a_bnp_last, '14.c) BNP Measurements  v) Level of last measurement prior to discharge')
data$crf1a_bnp_last_less_great = ff_label(data$crf1a_bnp_last_less_great, '14.c) BNP Measurements v) Level of last measurement prior to discharge Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_bnp_last_value = ff_label(data$crf1a_bnp_last_value, '14.c) BNP Measurements  v) Level of last measurement prior to discharge  Value')
data$crf1a_bnp_last_date = ff_label(data$crf1a_bnp_last_date, '14.c) BNP Measurements  v) Level of last measurement prior to discharge  Date of sample')
data$crf1a_trop_done = ff_label(data$crf1a_trop_done, '14.d) Troponin Measurements  i) Was Troponin measured during admission?')
data$crf1a_trop_type = ff_label(data$crf1a_trop_type, '14.d) Troponin Measurements  ii) What measure of Troponin was used?')
data$crf1a_trop_unit = ff_label(data$crf1a_trop_unit, '14.d) Troponin Measurements  iii) What units were used?')
data$crf1a_trop_unit_other = ff_label(data$crf1a_trop_unit_other, '14.d) Troponin Measurements  Unit')
data$crf1a_trop_first_less_great = ff_label(data$crf1a_trop_first_less_great, '14.d) Troponin Measurements iv) First level recorded during hospital admission Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_trop_first = ff_label(data$crf1a_trop_first, '14.d) Troponin Measurements  iv) First level recorded during hospital admission')
data$crf1a_trop_first_date = ff_label(data$crf1a_trop_first_date, '14.d) Troponin Measurements  iv) First level recorded during hospital admission  Date of sample')
data$crf1a_trop_high = ff_label(data$crf1a_trop_high, '14.d) Troponin Measurements  v) Highest level recorded during admission')
data$crf1a_trop_high_less_great = ff_label(data$crf1a_trop_high_less_great, '14.d) Troponin Measurements v) Highest level recorded during admission Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_trop_high_value = ff_label(data$crf1a_trop_high_value, '14.d) Troponin Measurements  v) Highest level recorded during admission  Value')
data$crf1a_trop_high_date = ff_label(data$crf1a_trop_high_date, '14.d) Troponin Measurements  v) Highest level recorded during admission  Date of sample')
data$crf1a_haema_not_done___1 = ff_label(data$crf1a_haema_not_done___1, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Haemoglobin (Hb))')
data$crf1a_haema_not_done___2 = ff_label(data$crf1a_haema_not_done___2, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=White Blood Cell (WBC) count)')
data$crf1a_haema_not_done___3 = ff_label(data$crf1a_haema_not_done___3, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Neutrophil count)')
data$crf1a_haema_not_done___4 = ff_label(data$crf1a_haema_not_done___4, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Lymphocyte count)')
data$crf1a_haema_not_done___5 = ff_label(data$crf1a_haema_not_done___5, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Eosinophil count)')
data$crf1a_haema_not_done___6 = ff_label(data$crf1a_haema_not_done___6, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Platelet (PLT) count)')
data$crf1a_haema_not_done___7 = ff_label(data$crf1a_haema_not_done___7, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Mean cell volume (MCV))')
data$crf1a_haema_not_done___8 = ff_label(data$crf1a_haema_not_done___8, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=INR)')
data$crf1a_haema_not_done___9 = ff_label(data$crf1a_haema_not_done___9, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=APTT)')
data$crf1a_haema_not_done___10 = ff_label(data$crf1a_haema_not_done___10, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=D-dimer level)')
data$crf1a_haema_not_done___11 = ff_label(data$crf1a_haema_not_done___11, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Fibrinogen level)')
data$crf1a_haemo_less_great = ff_label(data$crf1a_haemo_less_great, 'Haemoglobin (Hb) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_haemoglobin = ff_label(data$crf1a_haemoglobin, 'Haemoglobin (Hb)')
data$crf1a_wbc_less_great = ff_label(data$crf1a_wbc_less_great, 'White Blood Cell (WBC) Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_wbc = ff_label(data$crf1a_wbc, 'White Blood Cell (WBC) count')
data$crf1a_neutro_less_great = ff_label(data$crf1a_neutro_less_great, 'Neutrophil Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_neutrophil_count = ff_label(data$crf1a_neutrophil_count, 'Neutrophil count')
data$crf1a_lympho_less_great = ff_label(data$crf1a_lympho_less_great, 'Lymphocyte Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_haema_lymph = ff_label(data$crf1a_haema_lymph, 'Lymphocyte count')
data$crf1a_eos_less_great = ff_label(data$crf1a_eos_less_great, 'Eosinophil Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_eosinophil_count = ff_label(data$crf1a_eosinophil_count, 'Eosinophil count')
data$crf1a_plt_less_great = ff_label(data$crf1a_plt_less_great, 'Platelet (PLT) Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_platelet_plt_count = ff_label(data$crf1a_platelet_plt_count, 'Platelet (PLT) count')
data$crf1a_mcv_less_great = ff_label(data$crf1a_mcv_less_great, 'Mean Cell Volume (MCV) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_mcv = ff_label(data$crf1a_mcv, 'Mean cell volume (MCV)')
data$crf1a_inr_less_great = ff_label(data$crf1a_inr_less_great, 'INR Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_inr = ff_label(data$crf1a_inr, 'INR')
data$crf1a_aptt_less_great = ff_label(data$crf1a_aptt_less_great, 'APTT Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_aptt = ff_label(data$crf1a_aptt, 'APTT')
data$crf1a_d_dimer_less_great = ff_label(data$crf1a_d_dimer_less_great, 'D-dimer level Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_d_dimer_unit = ff_label(data$crf1a_d_dimer_unit, 'D-dimer level  Please select unit of measurement used')
data$crf1a_d_dimer_assay = ff_label(data$crf1a_d_dimer_assay, 'D-dimer level  Please select unit of measurement used')
data$crf1a_d_dimer_level = ff_label(data$crf1a_d_dimer_level, 'D-dimer level')
data$crf1a_fib_less_great = ff_label(data$crf1a_fib_less_great, 'Fibrinogen level Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_fibrinogen = ff_label(data$crf1a_fibrinogen, 'Fibrinogen level')
data$crf1a_biochem_not_done___1 = ff_label(data$crf1a_biochem_not_done___1, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Sodium (Na))')
data$crf1a_biochem_not_done___2 = ff_label(data$crf1a_biochem_not_done___2, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Potassium (K))')
data$crf1a_biochem_not_done___3 = ff_label(data$crf1a_biochem_not_done___3, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Urea)')
data$crf1a_biochem_not_done___4 = ff_label(data$crf1a_biochem_not_done___4, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Creatinine)')
data$crf1a_biochem_not_done___5 = ff_label(data$crf1a_biochem_not_done___5, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=eGFR)')
data$crf1a_biochem_not_done___6 = ff_label(data$crf1a_biochem_not_done___6, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Alanine aminotransferase (ALT))')
data$crf1a_biochem_not_done___7 = ff_label(data$crf1a_biochem_not_done___7, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Alkaline phosphatase (ALP))')
data$crf1a_biochem_not_done___8 = ff_label(data$crf1a_biochem_not_done___8, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Total Bilirubin)')
data$crf1a_biochem_not_done___9 = ff_label(data$crf1a_biochem_not_done___9, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=CRP)')
data$crf1a_biochem_not_done___10 = ff_label(data$crf1a_biochem_not_done___10, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Ferritin)')
data$crf1a_biochem_not_done___11 = ff_label(data$crf1a_biochem_not_done___11, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Magnesium (mg))')
data$crf1a_biochem_not_done___12 = ff_label(data$crf1a_biochem_not_done___12, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Serum Cortisol)')
data$crf1a_biochem_not_done___13 = ff_label(data$crf1a_biochem_not_done___13, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Procalcitonin)')
data$crf1a_biochem_not_done___14 = ff_label(data$crf1a_biochem_not_done___14, 'Please tick any test that is NOT DONE If any other units used, please convert to match the units specified in the fields below (choice=Interleukin-6)')
data$crf1a_na_less_great = ff_label(data$crf1a_na_less_great, 'Sodium (Na) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_na = ff_label(data$crf1a_na, 'Sodium (Na)')
data$crf1a_k_less_great = ff_label(data$crf1a_k_less_great, 'Potassium (K) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_k = ff_label(data$crf1a_k, 'Potassium (K)')
data$crf1a_urea_less_great = ff_label(data$crf1a_urea_less_great, 'Urea Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_urea = ff_label(data$crf1a_urea, 'Urea')
data$crf1a_creat_less_great = ff_label(data$crf1a_creat_less_great, 'Creatinine Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_creatinine = ff_label(data$crf1a_creatinine, 'Creatinine')
data$crf1a_biochem_egfr_90 = ff_label(data$crf1a_biochem_egfr_90, 'Is eGFR value > 90?')
data$crf1a_egfr_int = ff_label(data$crf1a_egfr_int, 'eGFR')
data$crf1a_alt_less_great = ff_label(data$crf1a_alt_less_great, 'Alanine aminotransferase (ALT) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_alt = ff_label(data$crf1a_alt, 'Alanine aminotransferase (ALT)')
data$crf1a_alp_less_great = ff_label(data$crf1a_alp_less_great, 'Alkaline phosphatase (ALP) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_alp = ff_label(data$crf1a_alp, 'Alkaline phosphatase (ALP)')
data$crf1a_bili_less_great = ff_label(data$crf1a_bili_less_great, 'Total Bilirubin Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_bilirubin = ff_label(data$crf1a_bilirubin, 'Total Bilirubin')
data$crf1a_crp_less_great = ff_label(data$crf1a_crp_less_great, 'CRP Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_crp = ff_label(data$crf1a_crp, 'CRP')
data$crf1a_ferr_less_great = ff_label(data$crf1a_ferr_less_great, 'Ferritin Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_ferritin = ff_label(data$crf1a_ferritin, 'Ferritin')
data$crf1a_mg_less_great = ff_label(data$crf1a_mg_less_great, 'Magnesium (mg) Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_mg = ff_label(data$crf1a_mg, 'Magnesium (mg)')
data$crf1a_ser_cor_less_great = ff_label(data$crf1a_ser_cor_less_great, 'Serum Cortisol Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_serum_cortisol = ff_label(data$crf1a_serum_cortisol, 'Serum Cortisol')
data$crf1a_procal_less_great = ff_label(data$crf1a_procal_less_great, 'Procalcitonin Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_procalcitonin = ff_label(data$crf1a_procalcitonin, 'Procalcitonin')
data$crf1a_inter6_less_great = ff_label(data$crf1a_inter6_less_great, 'Interleukin-6 Please select if test result provided is not an exact value and enter the value in the field below.')
data$crf1a_interleukin_6 = ff_label(data$crf1a_interleukin_6, 'Interleukin-6')
data$crf1a_aki_adm = ff_label(data$crf1a_aki_adm, 'AKI Stage at admission')
data$crf1a_high_aki_adm = ff_label(data$crf1a_high_aki_adm, 'Highest AKI Stage during admission')
data$crf1a_isaric_enrol_yn = ff_label(data$crf1a_isaric_enrol_yn, 'ISARIC 4C  Has the patient been enrolled in the ISARIC-4C study?')
data$crf1a_isaric_id = ff_label(data$crf1a_isaric_id, 'ISARIC-4C  Study number')
data$crf1a_baseline_clinical_data_part_3_q10_q15_complete = ff_label(data$crf1a_baseline_clinical_data_part_3_q10_q15_complete, 'Complete?')
#data$crf1b_baseline_demographic_data_timestamp = ff_label(data$crf1b_baseline_demographic_data_timestamp, 'Survey Timestamp')
data$crf1b_version = ff_label(data$crf1b_version, 'CRF1B Version Completed')
data$crf1b_date = ff_label(data$crf1b_date, 'Date of completion')
data$crf1b_eth = ff_label(data$crf1b_eth, 'a) Ethnicity')
data$crf1b_eth_other = ff_label(data$crf1b_eth_other, '[crf1b_eth]  Please describe')
data$crf1b_edu = ff_label(data$crf1b_edu, 'b) Education (highest level completed)')
data$crf1b_income = ff_label(data$crf1b_income, 'c) Annual household income (select one)')
data$crf1b_disability_yn = ff_label(data$crf1b_disability_yn, 'd) Do you have a disability?  (A disability is a physical or mental impairment which impacts on your ability to do day-to-day activities and, which has lasted, or is expected to last for at least 12 months.)')
data$crf1b_disability_desc = ff_label(data$crf1b_disability_desc, 'If yes, how would you describe your disability?')
data$crf1b_living_arrangements = ff_label(data$crf1b_living_arrangements, 'e) Are you currently?')
data$crf1b_gender = ff_label(data$crf1b_gender, 'f) Gender')
data$crf1b_gender_desc = ff_label(data$crf1b_gender_desc, 'Please describe')
data$crf1b_gender_identity = ff_label(data$crf1b_gender_identity, 'g) Do you identify as the same identity you were assigned to at birth?')
data$crf1b_english_lang1 = ff_label(data$crf1b_english_lang1, 'h) Is English your first language?')
data$crf1b_enrolled_in_study = ff_label(data$crf1b_enrolled_in_study, 'i) Are you enrolled in the COVID Symptom Study (Kings College & ZOE team app)')
data$crf1b_shielding = ff_label(data$crf1b_shielding, 'a) Shielding Status prior to COVID admission (select one)')
data$crf1b_occupation_known = ff_label(data$crf1b_occupation_known, 'b) Occupation')
data$crf1b_occupation = ff_label(data$crf1b_occupation, 'b) Occupation')
data$crf1b_healthcare_worker = ff_label(data$crf1b_healthcare_worker, 'c) Are you employed as Healthcare worker?')
data$crf1b_household___1 = ff_label(data$crf1b_household___1, 'd) Who lives in the same household (select all that apply) (choice=Spouse/partner)')
data$crf1b_household___2 = ff_label(data$crf1b_household___2, 'd) Who lives in the same household (select all that apply) (choice=Children < 4 years)')
data$crf1b_household___3 = ff_label(data$crf1b_household___3, 'd) Who lives in the same household (select all that apply) (choice=Children 4 - 16 years)')
data$crf1b_household___4 = ff_label(data$crf1b_household___4, 'd) Who lives in the same household (select all that apply) (choice=Own/partners children >16 years)')
data$crf1b_household___5 = ff_label(data$crf1b_household___5, 'd) Who lives in the same household (select all that apply) (choice=Own/partners parents < 75 years)')
data$crf1b_household___6 = ff_label(data$crf1b_household___6, 'd) Who lives in the same household (select all that apply) (choice=Own/partners parents >75 years)')
data$crf1b_household___7 = ff_label(data$crf1b_household___7, 'd) Who lives in the same household (select all that apply) (choice=Other relatives who are adults)')
data$crf1b_household___8 = ff_label(data$crf1b_household___8, 'd) Who lives in the same household (select all that apply) (choice=Other non-related adults)')
data$crf1b_household___nk = ff_label(data$crf1b_household___nk, 'd) Who lives in the same household (select all that apply) (choice=Prefer not to say)')
data$crf1b_caring = ff_label(data$crf1b_caring, 'e) Caring responsibilities')
data$crf1b_confirm_comorbids = ff_label(data$crf1b_confirm_comorbids, 'f) Co-morbidities - Please confirm list of comorbidities from CRF 1a section 9 with patient')
data$crf1b_baseline_demographic_data_complete = ff_label(data$crf1b_baseline_demographic_data_complete, 'Complete?')
data$crf2a_version = ff_label(data$crf2a_version, 'CRF2 Version Completed')
data$crf2a_date = ff_label(data$crf2a_date, 'Date of consultation')
# data$crf2a_consulting_clinician = ff_label(data$crf2a_consulting_clinician, 'Consulting clinician')
data$crf2a_consultation_method = ff_label(data$crf2a_consultation_method, 'Consultation Method')
data$crf2a_not_completed = ff_label(data$crf2a_not_completed, 'Unable to complete?')
data$crf2a_reason_not_done = ff_label(data$crf2a_reason_not_done, 'Reason unable to complete')
data$crf2a_not_done_other = ff_label(data$crf2a_not_done_other, 'Other(specify):')
data$crf2a_age = ff_label(data$crf2a_age, 'Age')
data$crf2a_sex = ff_label(data$crf2a_sex, 'Sex at birth')
data$crf2a_date_discharged = ff_label(data$crf2a_date_discharged, 'Date discharged from hospital')
data$crf2a_lives_with = ff_label(data$crf2a_lives_with, 'Lives with')
data$crf2a_pre_con_pulm = ff_label(data$crf2a_pre_con_pulm, 'Pulmonary')
data$crf2a_pre_con_card = ff_label(data$crf2a_pre_con_card, 'Cardiovascular')
data$crf2a_pre_con_diab = ff_label(data$crf2a_pre_con_diab, 'Diabetes')
data$crf2a_pre_con_hypt = ff_label(data$crf2a_pre_con_hypt, 'Hypertension')
data$crf2a_pre_con_other = ff_label(data$crf2a_pre_con_other, 'Other')
data$crf2a_pre_con_other_detail = ff_label(data$crf2a_pre_con_other_detail, 'Other (Specify)')
data$crf2a_consent = ff_label(data$crf2a_consent, 'I am contacting all patients who have been discharged from (hospital name) after having had a diagnosis of coronavirus disease (Covid-19). The purpose of this call is to find out if you are experiencing problems related to your recent illness with coronavirus. We will document this in your clinical notes. We will use this information to better understand your needs and to see what we can do to help. It will also inform what local services we need.  This call will take around 10-15 minutes. If there are any topics you dont want to talk about you can stop the conversation at any point. Do you agree to talk to me about this today?')
data$crf2a_sta_newmed = ff_label(data$crf2a_sta_newmed, 'a) Have you had any new medical problems?')
data$crf2a_sta_readm = ff_label(data$crf2a_sta_readm, 'b) Have you needed readmission to hospital since your discharge?')
data$crf2a_sta_other = ff_label(data$crf2a_sta_other, 'c) Have you used any other health services since discharge (e.g. your GP?)')
data$crf2a_sta_newmed_detail = ff_label(data$crf2a_sta_newmed_detail, 'New medical problems details:')
data$crf2a_sta_other_detail = ff_label(data$crf2a_sta_other_detail, 'Other health services details:')
data$crf2a_recovered = ff_label(data$crf2a_recovered, 'd) Do you feel fully recovered from COVID19')
data$crf2a_eq5d5l_done = ff_label(data$crf2a_eq5d5l_done, 'a) EQ-5D-5LHave you completed a EQ-5D-5L form?[form-link:repeatable_eq5d5l:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_gppaq_done = ff_label(data$crf2a_gppaq_done, 'b) General Practice Physical Activity QuestionnaireHave you completed a General Practice Physical Activity Questionnaire form? [form-link:repeatable_general_practice_physical_activity_ques:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_sarcf_done = ff_label(data$crf2a_sarcf_done, 'c) SARC-F QuestionnaireHave you completed a SARC-F Questionnaire form? [form-link:repeatable_sarcf_questionnaire:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_mrc_done = ff_label(data$crf2a_mrc_done, 'd) MRC Dyspnoea ScaleHave you completed MRC Dyspnoea Scale forms for both Before COVID and Since COVID? [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]This will open the forms in new window. Please complete it, then come back and continue here.')
data$crf2a_rcfs_done = ff_label(data$crf2a_rcfs_done, 'e)  Rockwood Clinical Frailty ScaleHave you completed a Rockwood Clinical Frailty Scale form? [form-link:repeatable_rockwood_clinical_frailty_scale:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_health_problem_done = ff_label(data$crf2a_health_problem_done, 'f) The next questions ask about difficulties you may have doing certain activities because of a HEALTH PROBLEM. This is part of the Symptoms Assessment Questionnaire (Please complete section l). [form-link:repeatable_symptoms_assessment:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_mental_done = ff_label(data$crf2a_mental_done, '[form-link:repeatable_mental_health_assessment:Click here to complete]  This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_nutrition_done = ff_label(data$crf2a_nutrition_done, '[form-link:repeatable_nutrition:Click here to complete]  This will open the form in new window. Please complete it, then come back and continue here.')
data$crf2a_new_problems = ff_label(data$crf2a_new_problems, '10. Are you experiencing any new problems that we havent mentioned?')
data$crf2a_new_problems_detail = ff_label(data$crf2a_new_problems_detail, 'New problems experienced')
data$crf2a_info_at_discharge = ff_label(data$crf2a_info_at_discharge, '11. What information would have been helpful to receive at discharge?')
data$crf2a_checklist_ai = ff_label(data$crf2a_checklist_ai, 'i) https://www.nhs.uk/live-well/')
data$crf2a_checklist_aii = ff_label(data$crf2a_checklist_aii, 'ii) Improving Access to Psychological Therapies (IAPT)')
data$crf2a_checklist_aiii = ff_label(data$crf2a_checklist_aiii, 'iii) Sleep hygiene https://w ww.nhs.uk/live-well/sleep-and-tiredness/')
data$crf2a_checklist_aiv = ff_label(data$crf2a_checklist_aiv, 'iv) Mental wellbeing - Daylight app/weblink https://www.nhs.uk/conditions/stress-anxiety-depression/improve-mental- wellbeing/')
data$crf2a_checklist_av = ff_label(data$crf2a_checklist_av, 'v) Alcohol - Drink free days  https://www.nhs.uk/oneyou/apps/')
data$crf2a_checklist_avi = ff_label(data$crf2a_checklist_avi, 'vi) Physical inactivity -  couch to 5K or Active 10 https://www.nhs.uk/live-well/exercise/')
data$crf2a_checklist_avii1 = ff_label(data$crf2a_checklist_avii1, 'vii) Smoking: Advice https://www.nhs.uk/live-well/quit-smoking/')
data$crf2a_checklist_avii2 = ff_label(data$crf2a_checklist_avii2, 'vii) Smoking cessation referral')
data$crf2a_checklist_avii3 = ff_label(data$crf2a_checklist_avii3, 'vii) Smoke free app')
data$crf2a_checklist_aviii = ff_label(data$crf2a_checklist_aviii, 'viii) Weight management: http://www.nhs.uk/live-well/healthyweight/start-the-nhs-weight-loss-plan/')
data$crf2a_checklist_aix = ff_label(data$crf2a_checklist_aix, 'ix) Healthy eating - add local links https://www.nhs.uk/live-well/eat-well/')
data$crf2a_checklist_ax = ff_label(data$crf2a_checklist_ax, 'x) Rehabilitation services - add local links')
data$crf2a_checklist_axi = ff_label(data$crf2a_checklist_axi, 'xi) Social prescribing')
data$crf2a_checklist_b = ff_label(data$crf2a_checklist_b, '13.b) Follow locally agreed pathway where symptoms/ problems identified above (particularly progressive breathlessness)')
data$crf2a_checklist_c = ff_label(data$crf2a_checklist_c, '13.c) Send CXR request if no face to face follow up, and arrange review')
data$crf2a_checklist_d = ff_label(data$crf2a_checklist_d, '13.d) Discuss sending research PIS - Does the participant consent to being contacted about future research?')
data$crf2a_followup_telephone_triage_complete = ff_label(data$crf2a_followup_telephone_triage_complete, 'Complete?')
data$crf2b_version = ff_label(data$crf2b_version, 'CRF2 Version Completed')
data$crf2b_review_date = ff_label(data$crf2b_review_date, 'Date of Review')
# data$crf2b_person_reviewing = ff_label(data$crf2b_person_reviewing, 'Person reviewing')
# data$crf2b_reviewer_role = ff_label(data$crf2b_reviewer_role, 'Role')
data$crf2b_post_dis_cxr_yn = ff_label(data$crf2b_post_dis_cxr_yn, '1.a) Was a post discharge CXR Performed?')
data$crf2b_post_dis_cxr_result = ff_label(data$crf2b_post_dis_cxr_result, '1.a.i) If yes, what was the result? (clinician interpretation)')
data$crf2b_ct_chest_or_ctpa_yn = ff_label(data$crf2b_ct_chest_or_ctpa_yn, '1.b) CT Chest or CTPA Performed?')
data$crf2b_outcome = ff_label(data$crf2b_outcome, '2) Outcome')
data$crf2b_further_inv___1 = ff_label(data$crf2b_further_inv___1, '3) Further investigations arranged? (choice=CT Chest)')
data$crf2b_further_inv___2 = ff_label(data$crf2b_further_inv___2, '3) Further investigations arranged? (choice=CTPA)')
data$crf2b_further_inv___3 = ff_label(data$crf2b_further_inv___3, '3) Further investigations arranged? (choice=Echocardiogram)')
data$crf2b_further_inv___4 = ff_label(data$crf2b_further_inv___4, '3) Further investigations arranged? (choice=Pulmonary Functions Tests)')
data$crf2b_followup_triage_review_complete = ff_label(data$crf2b_followup_triage_review_complete, 'Complete?')
data$crf3a_version = ff_label(data$crf3a_version, 'CRF3 Version Completed')
data$crf3a_consent_date = ff_label(data$crf3a_consent_date, 'Date of consent:')
data$crf3a_visit_date = ff_label(data$crf3a_visit_date, 'Date of consultation:')
data$crf3a_visit = ff_label(data$crf3a_visit, 'With which research visit does this clinical visit align?')
data$crf3a_rest_spo2_done = ff_label(data$crf3a_rest_spo2_done, 'a) Pulse Oximetry (SpO2)')
data$crf3a_rest_hr_done = ff_label(data$crf3a_rest_hr_done, 'b) Heart rate')
data$crf3a_rest_bp_done = ff_label(data$crf3a_rest_bp_done, 'c) Blood pressure')
data$crf3a_rest_temp_done = ff_label(data$crf3a_rest_temp_done, 'd) Temperature')
data$crf3a_rest_height_done = ff_label(data$crf3a_rest_height_done, 'e) Height (cm)')
data$crf3a_rest_weight_done = ff_label(data$crf3a_rest_weight_done, 'f) Weight (kg)')
data$crf3a_rest_spo2 = ff_label(data$crf3a_rest_spo2, 'a) Resting Pulse Oximetry (SpO2):')
data$crf3a_rest_hr = ff_label(data$crf3a_rest_hr, 'b) Resting heart rate:')
data$crf3a_rest_bp_sys = ff_label(data$crf3a_rest_bp_sys, 'c) Resting blood pressure (systolic):')
data$crf3a_rest_bp_dia = ff_label(data$crf3a_rest_bp_dia, 'c) Resting blood pressure (diastolic):')
data$crf3a_rest_temp = ff_label(data$crf3a_rest_temp, 'd) Temperature:')
data$crf3a_rest_height = ff_label(data$crf3a_rest_height, 'e) Height (cm):')
data$crf3a_rest_weight = ff_label(data$crf3a_rest_weight, 'f) Weight (kg):')
data$crf3a_base_cxr_done = ff_label(data$crf3a_base_cxr_done, 'a) Chest XR')
data$crf3a_base_ecg_done = ff_label(data$crf3a_base_ecg_done, 'b) ECG')
data$crf3a_base_cxr = ff_label(data$crf3a_base_cxr, 'a) Chest XR result:')
data$crf3a_ecg = ff_label(data$crf3a_ecg, 'b) ECG result:')
data$crf3a_base_ecg_hr = ff_label(data$crf3a_base_ecg_hr, 'b) ECG heart rate:')
data$crf3a_outcome_fup = ff_label(data$crf3a_outcome_fup, '1. Further follow up')
data$crf3a_outcome_ras = ff_label(data$crf3a_outcome_ras, '2. Referred to another speciality')
data$crf3a_outcome_rtc = ff_label(data$crf3a_outcome_rtc, '3. Referred to a tertiary centre for specialised care')
data$crf3a_outcome_rpc = ff_label(data$crf3a_outcome_rpc, '4. Referred/discharged to palliative care')
data$crf3a_outcome_rmhs = ff_label(data$crf3a_outcome_rmhs, '5. Referred to mental health services including IAPT')
data$crf3a_outcome_rrh = ff_label(data$crf3a_outcome_rrh, '6. Referred to Rehabilitation')
data$crf3a_outcome_rdt = ff_label(data$crf3a_outcome_rdt, '7. Referred to Dietician or similar')
data$crf3a_outcome_rsss = ff_label(data$crf3a_outcome_rsss, '8. Referred to a Stop Smoking Service')
data$crf3a_outcome_dis = ff_label(data$crf3a_outcome_dis, '9. Discharged from clinical review')
data$crf3a_tier = ff_label(data$crf3a_tier, '4. Tier allocation')
data$crf3a_blood_done = ff_label(data$crf3a_blood_done, 'Were any blood tests requested?')
data$crf3a_blood_fbc = ff_label(data$crf3a_blood_fbc, 'FBC')
data$crf3a_blood_ue = ff_label(data$crf3a_blood_ue, 'U&Es')
data$crf3a_blood_egfr = ff_label(data$crf3a_blood_egfr, 'eGFR')
data$crf3a_blood_lfts = ff_label(data$crf3a_blood_lfts, 'LFTs')
data$crf3a_blood_crp = ff_label(data$crf3a_blood_crp, 'CRP')
data$crf3a_blood_bp = ff_label(data$crf3a_blood_bp, 'Bone profile')
data$crf3a_blood_25oh = ff_label(data$crf3a_blood_25oh, '25-Hydroxyvitamin D (25-OH)')
data$crf3a_blood_bnp = ff_label(data$crf3a_blood_bnp, 'BNP/Pro-NT BNP')
data$crf3a_blood_trop = ff_label(data$crf3a_blood_trop, 'Troponin')
data$crf3a_blood_ddim = ff_label(data$crf3a_blood_ddim, 'D Dimer')
data$crf3a_blood_fib = ff_label(data$crf3a_blood_fib, 'Fibrinogen')
data$crf3a_blood_inr = ff_label(data$crf3a_blood_inr, 'INR')
data$crf3a_blood_fer = ff_label(data$crf3a_blood_fer, 'Ferritin')
data$crf3a_blood_hba1c = ff_label(data$crf3a_blood_hba1c, 'HbA1C')
data$crf3a_blood_lp = ff_label(data$crf3a_blood_lp, 'Lipid profile (non-fasting)')
data$crf3a_blood_covid19 = ff_label(data$crf3a_blood_covid19, 'SARS-Cov-2 Serology')
data$crf3a_link_routine_blood = ff_label(data$crf3a_link_routine_blood, 'If any blood tests performed, please enter results in the Laboratory Results Collection Log - Routine blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_routi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_link_add_blood_sars = ff_label(data$crf3a_link_add_blood_sars, 'If Sars-CoV-2 Serology performed, please enter results in the Laboratory Results Collection Log - Additional blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_addit:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_inv_resp___1 = ff_label(data$crf3a_inv_resp___1, 'Respiratory (choice=Spirometry)')
data$crf3a_inv_resp___2 = ff_label(data$crf3a_inv_resp___2, 'Respiratory (choice=Full pulmonary function tests)')
data$crf3a_inv_resp___3 = ff_label(data$crf3a_inv_resp___3, 'Respiratory (choice=Fractional exhaled nitric oxide (FeNO))')
data$crf3a_inv_resp___4 = ff_label(data$crf3a_inv_resp___4, 'Respiratory (choice=Nijmegen questionnaire)')
data$crf3a_inv_resp___5 = ff_label(data$crf3a_inv_resp___5, 'Respiratory (choice=Incremental shuttle walk test (ISWT))')
data$crf3a_inv_resp___6 = ff_label(data$crf3a_inv_resp___6, 'Respiratory (choice=Six-minute walk test)')
data$crf3a_inv_resp___7 = ff_label(data$crf3a_inv_resp___7, 'Respiratory (choice=Cardio-pulmonary exercise test)')
data$crf3a_inv_resp___8 = ff_label(data$crf3a_inv_resp___8, 'Respiratory (choice=CT chest with contrast)')
data$crf3a_inv_resp___9 = ff_label(data$crf3a_inv_resp___9, 'Respiratory (choice=HRCT)')
data$crf3a_inv_resp___10 = ff_label(data$crf3a_inv_resp___10, 'Respiratory (choice=CTPA)')
data$crf3a_inv_resp___11 = ff_label(data$crf3a_inv_resp___11, 'Respiratory (choice=Pulmonary perfusion scan)')
data$crf3a_inv_cardiac___1 = ff_label(data$crf3a_inv_cardiac___1, 'Cardiac (choice=Cardiac MRI)')
data$crf3a_inv_cardiac___2 = ff_label(data$crf3a_inv_cardiac___2, 'Cardiac (choice=Echocardiogram)')
data$crf3a_inv_cardiac___3 = ff_label(data$crf3a_inv_cardiac___3, 'Cardiac (choice=24/48 hrs tape)')
data$crf3a_inv_cardiac___4 = ff_label(data$crf3a_inv_cardiac___4, 'Cardiac (choice=Right heart catheterisation)')
data$crf3a_inv_cardiac___5 = ff_label(data$crf3a_inv_cardiac___5, 'Cardiac (choice=Coronary angiogram/CT angiogram)')
data$crf3a_inv_cardiac___6 = ff_label(data$crf3a_inv_cardiac___6, 'Cardiac (choice=Cardiac perfusion scan)')
data$crf3a_inv_haema___1 = ff_label(data$crf3a_inv_haema___1, 'Haematological (choice=Thyroid function tests)')
data$crf3a_inv_haema___2 = ff_label(data$crf3a_inv_haema___2, 'Haematological (choice=Blood borne viruses (BBV) screen)')
data$crf3a_inv_haema___3 = ff_label(data$crf3a_inv_haema___3, 'Haematological (choice=Haematinics)')
data$crf3a_link_add_blood_haema = ff_label(data$crf3a_link_add_blood_haema, 'If Thyroid Function Tests or Haematinics (Haematological Profile) performed, please enter results in the Laboratory Results Collection Log - Additional Blood Tests and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_addit:Click here to complete]  If BBV Screen performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_inv_renal___1 = ff_label(data$crf3a_inv_renal___1, 'Renal (choice=USS abdomen)')
data$crf3a_inv_renal___2 = ff_label(data$crf3a_inv_renal___2, 'Renal (choice=USS Kidneys)')
data$crf3a_inv_renal___3 = ff_label(data$crf3a_inv_renal___3, 'Renal (choice=CT abdomen/pelvis)')
data$crf3a_inv_renal___4 = ff_label(data$crf3a_inv_renal___4, 'Renal (choice=Urinalysis)')
data$crf3a_inv_renal___5 = ff_label(data$crf3a_inv_renal___5, 'Renal (choice=Urine albumin: creatinine ratio)')
data$crf3a_inv_renal___6 = ff_label(data$crf3a_inv_renal___6, 'Renal (choice=Urine protein: creatinine ratio)')
data$crf3a_inv_renal___7 = ff_label(data$crf3a_inv_renal___7, 'Renal (choice=Renal biopsy)')
data$crf3a_link_blood_urine = ff_label(data$crf3a_link_blood_urine, 'If Urinalysis, Urine albumin : creatinine ratio or Urine protein : creatinine ratio performed, please enter results in the Laboratory Results Collection Log - Urine Profile and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_urine:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_inv_immu___1 = ff_label(data$crf3a_inv_immu___1, 'Immunological (choice=Vasculitis screen)')
data$crf3a_inv_immu___2 = ff_label(data$crf3a_inv_immu___2, 'Immunological (choice=Complements factors)')
data$crf3a_inv_immu___3 = ff_label(data$crf3a_inv_immu___3, 'Immunological (choice=Immunoglobulins)')
data$crf3a_inv_immu___4 = ff_label(data$crf3a_inv_immu___4, 'Immunological (choice=Rheumatoid factor/Anti-CCP)')
data$crf3a_link_blood_immun = ff_label(data$crf3a_link_blood_immun, 'If any immunological procedures performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_inv_neuro___1 = ff_label(data$crf3a_inv_neuro___1, 'Neurology/Mental health (choice=CT brain)')
data$crf3a_inv_neuro___2 = ff_label(data$crf3a_inv_neuro___2, 'Neurology/Mental health (choice=MRI brain)')
data$crf3a_inv_neuro___3 = ff_label(data$crf3a_inv_neuro___3, 'Neurology/Mental health (choice=Nerve conduction studies)')
data$crf3a_inv_neuro___4 = ff_label(data$crf3a_inv_neuro___4, 'Neurology/Mental health (choice=Mini-International Neuro-psychiatric Interview (M.I.N.I.))')
data$crf3a_inv_neuro___5 = ff_label(data$crf3a_inv_neuro___5, 'Neurology/Mental health (choice=Columbia-Suicide Severity Rating Scale)')
data$crf3a_inv_neuro___6 = ff_label(data$crf3a_inv_neuro___6, 'Neurology/Mental health (choice=Sleep Condition Indicator)')
data$crf3a_inv_other = ff_label(data$crf3a_inv_other, 'Other, please specify')
data$crf3a_quest___1 = ff_label(data$crf3a_quest___1, 'Questionnaires completed (choice=MRC dyspnoea scale)')
data$crf3a_quest___2 = ff_label(data$crf3a_quest___2, 'Questionnaires completed (choice=EQ-5D-5L)')
data$crf3a_quest___3 = ff_label(data$crf3a_quest___3, 'Questionnaires completed (choice=Generalised Anxiety Disorder Assessment (GAD-7))')
data$crf3a_quest___4 = ff_label(data$crf3a_quest___4, 'Questionnaires completed (choice=Patient Health Questionnaire (PHQ-9))')
data$crf3a_quest___5 = ff_label(data$crf3a_quest___5, 'Questionnaires completed (choice=Sarcopenia screen (SARC-F))')
data$crf3a_quest___6 = ff_label(data$crf3a_quest___6, 'Questionnaires completed (choice=General Practice Physical Activity Questionnaire (GPPAQ))')
data$crf3a_quest___7 = ff_label(data$crf3a_quest___7, 'Questionnaires completed (choice=Dyspnoea-12)')
data$crf3a_quest___8 = ff_label(data$crf3a_quest___8, 'Questionnaires completed (choice=Fatigue (FACIT))')
data$crf3a_quest___9 = ff_label(data$crf3a_quest___9, 'Questionnaires completed (choice=Brief Pain Inventory (BPI))')
data$crf3a_quest___10 = ff_label(data$crf3a_quest___10, 'Questionnaires completed (choice=Post-Traumatic Stress Disorder (PTSD) checklist (PCL-5))')
data$crf3a_quest___11 = ff_label(data$crf3a_quest___11, 'Questionnaires completed (choice=Nottingham extended activity of daily living (NEADL))')
data$crf3a_quest_mrc = ff_label(data$crf3a_quest_mrc, '1. Have you completed a MRC dyspnoea scale form?  [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_eq5d5l = ff_label(data$crf3a_quest_eq5d5l, '2. Have you completed a EQ-5D-5L form?  [form-link:repeatable_eq5d5l:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_gad7 = ff_label(data$crf3a_quest_gad7, '3. Have you completed a GAD-7 form?  [form-link:repeatable_general_anxiety_disorder_7_questionnair:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_phq9 = ff_label(data$crf3a_quest_phq9, '4. Have you completed a PHQ-9 form?  [form-link:repeatable_patient_health_questionnaire9_phq9:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_sarcf = ff_label(data$crf3a_quest_sarcf, '5. Have you completed a SARC-F form?  [form-link:repeatable_sarcf_questionnaire:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_gppaq = ff_label(data$crf3a_quest_gppaq, '6. Have you completed a GPPAQ form?  [form-link:repeatable_general_practice_physical_activity_ques:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_dys12 = ff_label(data$crf3a_quest_dys12, '7. Have you completed a Dyspnoea-12 form?  [form-link:repeatable_dyspnoea12:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_facit = ff_label(data$crf3a_quest_facit, '8. Have you completed a FACIT form?  [form-link:repeatable_facit_fatigue_scale_v4:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_bpi = ff_label(data$crf3a_quest_bpi, '9. Have you completed a BPI form?  [form-link:repeatable_brief_pain_inventory_short_form:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_pcl5 = ff_label(data$crf3a_quest_pcl5, '10. Have you completed a PCL-5 form?  [form-link:repeatable_ptsd_checklist_for_dsm5_pcl5:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_neadl = ff_label(data$crf3a_quest_neadl, '11. Have you completed a NEADL form?  [form-link:repeatable_nottingham_extended_adl_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_inv_quest___1 = ff_label(data$crf3a_inv_quest___1, 'Assessments completed (choice=Montreal Cognitive Assessment (MoCA))')
data$crf3a_inv_quest___2 = ff_label(data$crf3a_inv_quest___2, 'Assessments completed (choice=Clinical Frailty Scale)')
data$crf3a_quest_moca = ff_label(data$crf3a_quest_moca, '1. Have you completed a MoCA form?  [form-link:repeatable_montreal_cognitive_assessment_moca:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_quest_rcfs = ff_label(data$crf3a_quest_rcfs, '2. Have you completed a Rockwood Clinical Frailty Scale form?  [form-link:repeatable_rockwood_clinical_frailty_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3a_pft_done = ff_label(data$crf3a_pft_done, '[form-link:repeatable_pulmonary_functional_tests:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf3a_echo_date = ff_label(data$crf3a_echo_date, 'Echocardiogram Date performed')
data$crf3a_echo_right = ff_label(data$crf3a_echo_right, 'Echocardiogram Results - Right ventricle')
data$crf3a_echo_left = ff_label(data$crf3a_echo_left, 'Echocardiogram Results - Left ventricle')
data$crf3a_echo_pap = ff_label(data$crf3a_echo_pap, 'Echocardiogram  Estimated PAP')
data$crf3a_tape_done = ff_label(data$crf3a_tape_done, '24/48 hours tape Symptom diary completed')
data$crf3a10_tape_date = ff_label(data$crf3a10_tape_date, '24/48 hours tape Date performed')
data$crf3a_tape_finding___1 = ff_label(data$crf3a_tape_finding___1, '24/48 hours tape Findings (choice=Sinus rhythm)')
data$crf3a_tape_finding___2 = ff_label(data$crf3a_tape_finding___2, '24/48 hours tape Findings (choice=Atrial flutter/fibrillation)')
data$crf3a_tape_finding___3 = ff_label(data$crf3a_tape_finding___3, '24/48 hours tape Findings (choice=Significant bradycardia)')
data$crf3a_tape_finding___4 = ff_label(data$crf3a_tape_finding___4, '24/48 hours tape Findings (choice=Significant tachycardia)')
data$crf3a_tape_finding___5 = ff_label(data$crf3a_tape_finding___5, '24/48 hours tape Findings (choice=Heart block)')
data$crf3a_tape_finding___6 = ff_label(data$crf3a_tape_finding___6, '24/48 hours tape Findings (choice=Sinus pause > 3 seconds)')
data$crf3a_tape_finding___7 = ff_label(data$crf3a_tape_finding___7, '24/48 hours tape Findings (choice=Burden of ectopic > 10%)')
data$crf3a10_tape_heartblock = ff_label(data$crf3a10_tape_heartblock, '24/48 hours tape Heart block details')
data$crf3a_nijm_date = ff_label(data$crf3a_nijm_date, 'Nijmegen questionnaire Date performed')
data$crf3a_nijm_result = ff_label(data$crf3a_nijm_result, 'Nijmegen questionnaire Result')
data$crf3a_cpet_date = ff_label(data$crf3a_cpet_date, 'Cardio-pulmonary exercise test Date performed')
data$crf3a_cpet_result = ff_label(data$crf3a_cpet_result, 'Cardio-pulmonary exercise test Result (Peak Vo2)')
data$crf3a_feno_date = ff_label(data$crf3a_feno_date, 'Fractional exhaled nitric oxide (FeNO) Date performed')
data$crf3a_feno_result = ff_label(data$crf3a_feno_result, 'Fractional exhaled nitric oxide (FeNO) Result')
data$crf3a_6mwt_done = ff_label(data$crf3a_6mwt_done, '[form-link:repeatable_walk_test_6_min_iswt_15_level:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf3a_clinical_data_section_complete = ff_label(data$crf3a_clinical_data_section_complete, 'Complete?')
data$crf3b_version = ff_label(data$crf3b_version, 'CRF3 Version CompletedPLEASE ENSURE YOU SELECT THE CORRECT VERSION OF CRF3B COMPLETED AS THIS WILL AFFECT THE FIELDS DISPLAYED BELOW.')
data$crf3b_date_consent = ff_label(data$crf3b_date_consent, 'Date of consent')
data$crf3b_ongoing_consent_done = ff_label(data$crf3b_ongoing_consent_done, 'Ongoing consent confirmed verbally?')
data$crf3b_date_visit = ff_label(data$crf3b_date_visit, 'Date of visit')
data$crf3b_visit = ff_label(data$crf3b_visit, 'Type of this visit')
data$crf3b_rest_spo2_done = ff_label(data$crf3b_rest_spo2_done, 'a) Pulse Oximetry (SpO2)')
data$crf3b_rest_hr_done = ff_label(data$crf3b_rest_hr_done, 'b) Heart rate')
data$crf3b_rest_bp_done = ff_label(data$crf3b_rest_bp_done, 'c) Blood pressure')
data$crf3b_rest_temp_done = ff_label(data$crf3b_rest_temp_done, 'd) Temperature')
data$crf3b_rest_height_done = ff_label(data$crf3b_rest_height_done, 'e) Height (cm)')
data$crf3b_rest_weight_done = ff_label(data$crf3b_rest_weight_done, 'f) Weight (kg)')
data$crf3b_rest_spo2 = ff_label(data$crf3b_rest_spo2, 'a) Resting Pulse Oximetry (SpO2):')
data$crf3b_rest_hr = ff_label(data$crf3b_rest_hr, 'b) Resting heart rate:')
data$crf3b_rest_bp_sys = ff_label(data$crf3b_rest_bp_sys, 'c) Resting blood pressure (systolic):')
data$crf3b_rest_bp_dia = ff_label(data$crf3b_rest_bp_dia, 'c) Resting blood pressure (diastolic):')
data$crf3b_rest_temp = ff_label(data$crf3b_rest_temp, 'd) Temperature:')
data$crf3b_rest_height = ff_label(data$crf3b_rest_height, 'e) Height (cm):')
data$crf3b_rest_weight = ff_label(data$crf3b_rest_weight, 'f) Weight (kg):')
data$crf3b_base_ecg_done = ff_label(data$crf3b_base_ecg_done, 'ECG')
data$crf3b_ecg = ff_label(data$crf3b_ecg, 'ECG result:')
data$crf3b_base_ecg_hr = ff_label(data$crf3b_base_ecg_hr, 'ECG heart rate:')
data$crf3b_hcare_ehv = ff_label(data$crf3b_hcare_ehv, 'Emergency hospital visit')
data$crf3b_hcare_pacr = ff_label(data$crf3b_hcare_pacr, 'Planned additional COVID-related review')
data$crf3b_hcare_cgp = ff_label(data$crf3b_hcare_cgp, 'Contacts with GP for a clinical review')
data$crf3b_hcare_med = ff_label(data$crf3b_hcare_med, 'Any changes in regular medication')
data$crf3b_crfev_done = ff_label(data$crf3b_crfev_done, 'Please complete the Emergency Visit CRF located in the Unscheduled Event tab in REDCap. Have you completed Emergency Visit CRF?')
data$crf3b_crf4_done = ff_label(data$crf3b_crf4_done, 'Please complete CRF4 for any additional planned COVID-related clinical visits. Have you completed CRF4?')
data$crf3b_medlog_done = ff_label(data$crf3b_medlog_done, 'Have you completed or updated medication log?  [form-link:repeatable_medications_log:Click here to complete]')
data$crf3b_eq5d_done = ff_label(data$crf3b_eq5d_done, 'Have you completed a EQ-5D-5L form (Pre-COVID)?   [form-link:repeatable_eq5d5l:Click here to complete]   This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_mrc_done = ff_label(data$crf3b_mrc_done, 'Have you completed a MRC dyspnoea scale form (Before COVID)?   [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]   This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_social_history_done = ff_label(data$crf3b_social_history_done, 'Have you completed a Social History form?    [form-link:repeatable_social_history:Click here to complete]    This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_new_prob = ff_label(data$crf3b_new_prob, 'Are you experiencing any new problems that we havent mentioned?')
data$crf3b_new_prob_detail = ff_label(data$crf3b_new_prob_detail, 'Please provide details for these new problems')
data$crf3b_info_dis = ff_label(data$crf3b_info_dis, 'What information would have been helpful to receive at discharge?')
data$crf3b_spost_livewell = ff_label(data$crf3b_spost_livewell, 'https://www.nhs.uk/live-well/')
data$crf3b_spost_iapt = ff_label(data$crf3b_spost_iapt, 'Improving Access to Psychological Therapies (IAPT)')
data$crf3b_spost_shyg = ff_label(data$crf3b_spost_shyg, 'Sleep hygiene')
data$crf3b_spost_mental = ff_label(data$crf3b_spost_mental, 'Mental wellbeing - Daylight app/weblink')
data$crf3b_spost_drinkfree = ff_label(data$crf3b_spost_drinkfree, 'Alcohol - Drink free days')
data$crf3b_spost_phyinac = ff_label(data$crf3b_spost_phyinac, 'Physical inactivity - couch to 5K or Active 10')
data$crf3b_spost_smkadv = ff_label(data$crf3b_spost_smkadv, 'Smoking Advice https://www.nhs.uk/live-well/quit-smoking/')
data$crf3b_spost_smkref = ff_label(data$crf3b_spost_smkref, 'Smoking cessation referral')
data$crf3b_spost_smkapp = ff_label(data$crf3b_spost_smkapp, 'Smoke free app')
data$crf3b_spost_wmgmt = ff_label(data$crf3b_spost_wmgmt, 'Weight management: http://www.nhs.uk/live-well/healthyweight/start-the-nhs-weight-loss-plan/')
data$crf3b_spost_heat = ff_label(data$crf3b_spost_heat, 'Healthy eating:')
data$crf3b_inv_assess___1 = ff_label(data$crf3b_inv_assess___1, '(choice=Montreal Cognitive Assessment (MoCA))')
data$crf3b_inv_assess___2 = ff_label(data$crf3b_inv_assess___2, '(choice=Clinical Frailty Scale)')
data$crf3b_inv_assess___3 = ff_label(data$crf3b_inv_assess___3, '(choice=Fried Frailty assessment)')
data$crf3b_assess_moca = ff_label(data$crf3b_assess_moca, '1. Have you completed a MoCA form?  [form-link:repeatable_montreal_cognitive_assessment_moca:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_assess_cfs = ff_label(data$crf3b_assess_cfs, '2. Have you completed a Rockwood Clinical Frailty Scale form?  [form-link:repeatable_rockwood_clinical_frailty_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_truecolours_check = ff_label(data$crf3b_truecolours_check, 'Is the participant completing questionnaires using True Colours?Please select Yes if the participant completed the questionnaires for this research visit on True Colours - the data does not need to be entered in REDCap.Please select No if the participant completed the questionnaires for this research visit using the paper questionnaire booklet - complete the questionnaires on REDCap.')
data$crf3b_quests___12 = ff_label(data$crf3b_quests___12, 'Questionnaires (choice=Pre-COVID Patient Symptom Questionnaire (Only to be completed once during study))')
data$crf3b_quests___13 = ff_label(data$crf3b_quests___13, 'Questionnaires (choice=Patient Symptom Questionnaire)')
data$crf3b_quests___1 = ff_label(data$crf3b_quests___1, 'Questionnaires (choice=MRC dyspnoea scale)')
data$crf3b_quests___2 = ff_label(data$crf3b_quests___2, 'Questionnaires (choice=EQ-5D-5L)')
data$crf3b_quests___3 = ff_label(data$crf3b_quests___3, 'Questionnaires (choice=Generalised Anxiety Disorder Assessment (GAD-7))')
data$crf3b_quests___4 = ff_label(data$crf3b_quests___4, 'Questionnaires (choice=Patient Health Questionnaire (PHQ-9))')
data$crf3b_quests___5 = ff_label(data$crf3b_quests___5, 'Questionnaires (choice=Sarcopenia screen (SARC-F))')
data$crf3b_quests___6 = ff_label(data$crf3b_quests___6, 'Questionnaires (choice=General Practice Physical Activity Questionnaire (GPPAQ))')
data$crf3b_quests___7 = ff_label(data$crf3b_quests___7, 'Questionnaires (choice=Dyspnoea-12)')
data$crf3b_quests___8 = ff_label(data$crf3b_quests___8, 'Questionnaires (choice=Fatigue (FACIT))')
data$crf3b_quests___9 = ff_label(data$crf3b_quests___9, 'Questionnaires (choice=Brief Pain Inventory (BPI))')
data$crf3b_quests___10 = ff_label(data$crf3b_quests___10, 'Questionnaires (choice=Post-Traumatic Stress Disorder (PTSD) checklist (PCL-5))')
data$crf3b_quests___11 = ff_label(data$crf3b_quests___11, 'Questionnaires (choice=Nottingham extended activity of daily living (NEADL))')
data$crf3b_quest_pre_psq = ff_label(data$crf3b_quest_pre_psq, '1. Have you completed a Pre-COVID Patient Symptom Questionnaire form?If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.[form-link:precovid_patient_symptom_questionnaire:Click here to complete]This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_psq = ff_label(data$crf3b_quest_psq, '2. Have you completed a Patient Symptom Questionnaire form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_symptoms_assessment:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_mrc = ff_label(data$crf3b_quest_mrc, '3. Have you completed a MRC dyspnoea scale form (Since COVID)?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_eq5d5l = ff_label(data$crf3b_quest_eq5d5l, '4. Have you completed a EQ-5D-5L form (Current visit)?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_eq5d5l:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_gad7 = ff_label(data$crf3b_quest_gad7, '5. Have you completed a GAD-7 form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_general_anxiety_disorder_7_questionnair:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_phq9 = ff_label(data$crf3b_quest_phq9, '6. Have you completed a PHQ-9 form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_patient_health_questionnaire9_phq9:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_sarcf = ff_label(data$crf3b_quest_sarcf, '7. Have you completed a SARC-F form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_sarcf_questionnaire:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_gppaq = ff_label(data$crf3b_quest_gppaq, '8. Have you completed a GPPAQ form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_general_practice_physical_activity_ques:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_dys12 = ff_label(data$crf3b_quest_dys12, '9. Have you completed a Dyspnoea-12 form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_dyspnoea12:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_facit = ff_label(data$crf3b_quest_facit, '10. Have you completed a FACIT form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_facit_fatigue_scale_v4:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_bpi = ff_label(data$crf3b_quest_bpi, '11. Have you completed a BPI form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_brief_pain_inventory_short_form:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_pcl5 = ff_label(data$crf3b_quest_pcl5, '12. Have you completed a PCL-5 form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_ptsd_checklist_for_dsm5_pcl5:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_quest_neadl = ff_label(data$crf3b_quest_neadl, '13. Have you completed a NEADL form?  If this has been completed on True Colours as part of the Tier 2 research visit, please select No and do not complete the data instrument in REDCap.  [form-link:repeatable_nottingham_extended_adl_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_fried_date = ff_label(data$crf3b_fried_date, 'Date completed')
data$crf3b_fried_shrink = ff_label(data$crf3b_fried_shrink, '1. Shrinking In the last year, has the patient lost more than 10lb (4.5 kilograms) unintentionally?')
data$crf3b_fried_energy = ff_label(data$crf3b_fried_energy, '2. Exhaustion Q1: Do they feel full of energy?')
data$crf3b_fried_rest_day = ff_label(data$crf3b_fried_rest_day, '2. Exhaustion Q2: During the last 4 weeks how often have they rested in bed during the day?')
data$crf3b_t2_core = ff_label(data$crf3b_t2_core, 'Have you completed a Tier 2 Core Tests Checklist? [form-link:repeatable_tier_2_core_tests_checklist:Click here to complete] This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_t2_research = ff_label(data$crf3b_t2_research, 'Have you completed a Tier 2 Biological Research Samples Checklist?  [form-link:repeatable_tier_2_biological_research_samples_chec:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3b_pft = ff_label(data$crf3b_pft, 'Have you completed Pulmonary function tests (PFTs) forms?  [form-link:repeatable_pulmonary_functional_tests:Click here to complete]  This will open the form in new window. Please complete it, then come back and continue here.')
data$crf3b_qrisk3 = ff_label(data$crf3b_qrisk3, 'Have you completed a QRISK®3 form? [form-link:repeatable_qrisk3:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$cr3b_waist_done = ff_label(data$cr3b_waist_done, 'Waist circumference measurement Completed')
data$cr3b_waist_result = ff_label(data$cr3b_waist_result, 'Waist circumference measurement Result')
data$crf3b_rehab_q1 = ff_label(data$crf3b_rehab_q1, '1. Has the patient been referred to a rehabilitation programme after their hospital admission with COVID-19?')
data$crf3b_rehab_q2 = ff_label(data$crf3b_rehab_q2, '2. Did they attend any rehabilitation session(s)?')
data$crf3b_rehab_q3 = ff_label(data$crf3b_rehab_q3, '3. What was the nature of the session(s)?')
data$crf3b_rehab_q4_yn = ff_label(data$crf3b_rehab_q4_yn, '4. Is the total number of sessions attended by the patient so far known?')
data$crf3b_rehab_q4 = ff_label(data$crf3b_rehab_q4, '4. Total number of sessions attended by the patient so far')
data$crf3b_rehab_q5 = ff_label(data$crf3b_rehab_q5, '5. Has the patient completed the programme & attended the discharge assessment?')
data$crf3b_rehab_q6 = ff_label(data$crf3b_rehab_q6, '6. Did they find the programme helpful?')
data$crf3b_psych_q1 = ff_label(data$crf3b_psych_q1, '1. Has the patient been referred to any psychology service after their hospital admission with COVID-19?')
data$crf3b_psych_q2___1 = ff_label(data$crf3b_psych_q2___1, '2. Please select all that apply. (choice=Post ICU psychology service)')
data$crf3b_psych_q2___2 = ff_label(data$crf3b_psych_q2___2, '2. Please select all that apply. (choice=Psychiatric liaison service)')
data$crf3b_psych_q2___3 = ff_label(data$crf3b_psych_q2___3, '2. Please select all that apply. (choice=Improving Access to Psychological Therapies (IAPT))')
data$crf3b_psych_q2___4 = ff_label(data$crf3b_psych_q2___4, '2. Please select all that apply. (choice=Acute Hospital Clinical Health Psychology service)')
data$crf3b_psych_q2___5 = ff_label(data$crf3b_psych_q2___5, '2. Please select all that apply. (choice=Community Mental Health Team (adult))')
data$crf3b_psych_q2___6 = ff_label(data$crf3b_psych_q2___6, '2. Please select all that apply. (choice=Community Mental Health Team (older adult))')
data$crf3b_psych_q2___7 = ff_label(data$crf3b_psych_q2___7, '2. Please select all that apply. (choice=Psychological Therapies service for serious mental illness (SMI))')
data$crf3b_psych_q2___8 = ff_label(data$crf3b_psych_q2___8, '2. Please select all that apply. (choice=Mental health Crisis Resolution and Home Treatment service)')
data$crf3b_psych_q2___9 = ff_label(data$crf3b_psych_q2___9, '2. Please select all that apply. (choice=In patient mental health service)')
data$crf3b_psych_q2___10 = ff_label(data$crf3b_psych_q2___10, '2. Please select all that apply. (choice=Counselling services (Third sector or primary care based))')
data$crf3b_psych_q2___11 = ff_label(data$crf3b_psych_q2___11, '2. Please select all that apply. (choice=Private providers of psychological therapy)')
data$crf3b_psych_q2___12 = ff_label(data$crf3b_psych_q2___12, '2. Please select all that apply. (choice=Other)')
data$crf3b_psych_q2___13 = ff_label(data$crf3b_psych_q2___13, '2. Please select all that apply. (choice=Not known)')
data$crf3b_psych_q2_other = ff_label(data$crf3b_psych_q2_other, '2. Other post-discharge psychology services - Please specify')
data$crf3b_psych_q3 = ff_label(data$crf3b_psych_q3, '3. What was the nature of the session(s)?')
data$crf3b_psych_q4 = ff_label(data$crf3b_psych_q4, '4. Did they find the service(s) helpful?')
data$crf3b_bodycom_bia = ff_label(data$crf3b_bodycom_bia, 'BIA')
data$crf3b_bodycom_dxa = ff_label(data$crf3b_bodycom_dxa, 'DXA')
data$crf3b_muscle_strength = ff_label(data$crf3b_muscle_strength, 'Have you completed a muscle strength form?  [form-link:repeatable_muscle_strength:Click here to complete]  This will open the form in new window. Please complete it, then come back and continue here.')
data$crf3b_iswt_1 = ff_label(data$crf3b_iswt_1, 'ISWT measurement 1')
data$crf3b_iswt_2 = ff_label(data$crf3b_iswt_2, 'ISWT measurement 2')
data$crf3b_sppb = ff_label(data$crf3b_sppb, 'Have you completed a short physical performance battery (SPPB)  form?  [form-link:repeatable_short_physical_performance_battery_sppb:Click here to complete]  This will open the form in new window. Please complete it, then come back and continue here.')
data$crf3b_amc_inform = ff_label(data$crf3b_amc_inform, '1. Has the participant been informed about the activity monitor?')
data$crf3b_amc_happy = ff_label(data$crf3b_amc_happy, '2. Is the participant happy to receive and wear the activity monitor?')
data$crf3b_amc_location = ff_label(data$crf3b_amc_location, '3. Wear location')
data$crf3b_amc_strap = ff_label(data$crf3b_amc_strap, '4. Strap Type')
data$crf3b_amc_notes = ff_label(data$crf3b_amc_notes, '5. Activity Monitor checklist - Notes')
data$crf3b_future_studies = ff_label(data$crf3b_future_studies, 'Future studies  Is the participant happy to be contacted about future studies?')
data$crf3b_research_data_section_complete = ff_label(data$crf3b_research_data_section_complete, 'Complete?')
data$crf3c_version = ff_label(data$crf3c_version, 'CRF3 Version Completed')
data$crf3c_psqi = ff_label(data$crf3c_psqi, 'Pittsburgh Sleep Quality Index (PSQI)  [form-link:repeatable_pittsburgh_sleep_quality_index_psqi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3c_meq = ff_label(data$crf3c_meq, 'Morningness-Eveningness Questionnaire (MEQ)  [form-link:repeatable_morningnesseveningness_questionnaire_me:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3c_lcq = ff_label(data$crf3c_lcq, 'Leicester Cough Questionnaire (LCQ)  [form-link:repeatable_leicester_cough_questionnaire:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf3c_other_quest = ff_label(data$crf3c_other_quest, 'Other questionnaire(s)')
data$crf3c_quest_other_detail = ff_label(data$crf3c_quest_other_detail, 'Other questionnaire(s) completed')
data$crf3c_t3_qmus = ff_label(data$crf3c_t3_qmus, 'Quadriceps muscles ultrasound (US) performed')
data$crf3c_t3_mb = ff_label(data$crf3c_t3_mb, 'Muscle biopsy performed')
data$crf3c_t3_bs = ff_label(data$crf3c_t3_bs, 'Breath samples')
data$crf3c_t3_genomicc = ff_label(data$crf3c_t3_genomicc, 'Consent to participate in GenOMICC')
data$crf3c_t3_lir_turtle = ff_label(data$crf3c_t3_lir_turtle, 'Longitudinal immune responses to SARS-CoV-2 in recovered hospitalised patients  [PI: Turtle]')
data$crf3c_t3_other = ff_label(data$crf3c_t3_other, 'Other')
data$crf3c_genomicc_consent = ff_label(data$crf3c_genomicc_consent, 'GenOMICC Consent Version')
data$crf3c_t3_other_detail = ff_label(data$crf3c_t3_other_detail, 'Other tests completed')
data$crf3c_gen_coenrol_yn = ff_label(data$crf3c_gen_coenrol_yn, 'Has the participant already been recruited to the GenOMICC Study?  If no, please ask if they would consider co-enrolment in the GenOMICC study.')
data$crf3c_gen_id_yn = ff_label(data$crf3c_gen_id_yn, 'Is the GenOMICC study ID known?')
data$crf3c_gen_id = ff_label(data$crf3c_gen_id, 'GenOMICC study ID')
data$crf3c_gen_coenrol_consent = ff_label(data$crf3c_gen_coenrol_consent, 'Has the patient consented to co-enrolment in the GenOMICC Study?')
data$crf3c_gen_consent_ver = ff_label(data$crf3c_gen_consent_ver, 'If yes, please document the GenOMICC consent form version number:')
data$crf3c_genomicc_withdrawal___1 = ff_label(data$crf3c_genomicc_withdrawal___1, 'GenOMICC Withdrawal Status (Only complete if applicable - tick as appropriate) Please provide the following information if the patient withdraws from the GenOMICC study. (choice=Partial withdrawal)')
data$crf3c_genomicc_withdrawal___2 = ff_label(data$crf3c_genomicc_withdrawal___2, 'GenOMICC Withdrawal Status (Only complete if applicable - tick as appropriate) Please provide the following information if the patient withdraws from the GenOMICC study. (choice=Full withdrawal)')
data$crf3c_genomicc_p_with_date = ff_label(data$crf3c_genomicc_p_with_date, 'GenOMICC Partial Withdrawal Date')
data$crf3c_genomicc_f_with_date = ff_label(data$crf3c_genomicc_f_with_date, 'GenOMICC Full Withdrawal Date')
data$crf3c_additional_research_procedures_complete = ff_label(data$crf3c_additional_research_procedures_complete, 'Complete?')
data$crf4a_version = ff_label(data$crf4a_version, 'CRF4 Version Completed')
data$crf4a_consent_date = ff_label(data$crf4a_consent_date, 'Date of consent:')
data$crf4a_visit_date = ff_label(data$crf4a_visit_date, 'Date of consultation:')
data$crf4a_rest_spo2_done = ff_label(data$crf4a_rest_spo2_done, 'a) Pulse Oximetry (SpO2)')
data$crf4a_rest_hr_done = ff_label(data$crf4a_rest_hr_done, 'b) Heart rate')
data$crf4a_rest_bp_done = ff_label(data$crf4a_rest_bp_done, 'c) Blood pressure')
data$crf4a_rest_temp_done = ff_label(data$crf4a_rest_temp_done, 'd) Temperature')
data$crf4a_rest_height_done = ff_label(data$crf4a_rest_height_done, 'e) Height (cm)')
data$crf4a_rest_weight_done = ff_label(data$crf4a_rest_weight_done, 'f) Weight (kg)')
data$crf4a_rest_spo2 = ff_label(data$crf4a_rest_spo2, 'a) Resting Pulse Oximetry (SpO2):')
data$crf4a_rest_hr = ff_label(data$crf4a_rest_hr, 'b) Resting heart rate:')
data$crf4a_rest_bp_sys = ff_label(data$crf4a_rest_bp_sys, 'c) Resting blood pressure (systolic):')
data$crf4a_rest_bp_dia = ff_label(data$crf4a_rest_bp_dia, 'c) Resting blood pressure (diastolic):')
data$crf4a_rest_temp = ff_label(data$crf4a_rest_temp, 'd) Temperature')
data$crf4a_rest_height = ff_label(data$crf4a_rest_height, 'e) Height (cm):')
data$crf4a_rest_weight = ff_label(data$crf4a_rest_weight, 'f) Weight (kg):')
data$crf4a_base_cxr_done = ff_label(data$crf4a_base_cxr_done, 'a) Chest XR')
data$crf4a_base_ecg_done = ff_label(data$crf4a_base_ecg_done, 'b) ECG')
data$crf4a_base_cxr = ff_label(data$crf4a_base_cxr, 'a) Chest XR result:')
data$crf4a_ecg = ff_label(data$crf4a_ecg, 'b) ECG result:')
data$crf4a_base_ecg_hr = ff_label(data$crf4a_base_ecg_hr, 'b) ECG heart rate:')
data$crf4a_outcome_fup = ff_label(data$crf4a_outcome_fup, '1. Further follow up')
data$crf4a_outcome_ras = ff_label(data$crf4a_outcome_ras, '2. Referred to another speciality')
data$crf4a_outcome_rtc = ff_label(data$crf4a_outcome_rtc, '3. Referred to a tertiary centre for specialised care')
data$crf4a_outcome_rpc = ff_label(data$crf4a_outcome_rpc, '4. Referred/discharged to palliative care')
data$crf4a_outcome_rmhs = ff_label(data$crf4a_outcome_rmhs, '5. Referred to mental health services including IAPT')
data$crf4a_outcome_rrh = ff_label(data$crf4a_outcome_rrh, '6. Referred to Rehabilitation')
data$crf4a_outcome_rdt = ff_label(data$crf4a_outcome_rdt, '7. Referred to Dietician or similar')
data$crf4a_outcome_rsss = ff_label(data$crf4a_outcome_rsss, '8. Referred to a Stop Smoking Service')
data$crf4a_outcome_dis = ff_label(data$crf4a_outcome_dis, '9. Discharged from clinical review')
data$crf4a_tier = ff_label(data$crf4a_tier, '4. Tier allocation')
data$crf4a_blood_done = ff_label(data$crf4a_blood_done, 'Were any blood tests requested?')
data$crf4a_blood_fbc = ff_label(data$crf4a_blood_fbc, 'FBC')
data$crf4a_blood_ue = ff_label(data$crf4a_blood_ue, 'U&Es')
data$crf4a_blood_egfr = ff_label(data$crf4a_blood_egfr, 'eGFR')
data$crf4a_blood_lfts = ff_label(data$crf4a_blood_lfts, 'LFTs')
data$crf4a_blood_crp = ff_label(data$crf4a_blood_crp, 'CRP')
data$crf4a_blood_bp = ff_label(data$crf4a_blood_bp, 'Bone profile')
data$crf4a_blood_25oh = ff_label(data$crf4a_blood_25oh, '25-Hydroxyvitamin D (25-OH)')
data$crf4a_blood_bnp = ff_label(data$crf4a_blood_bnp, 'BNP/Pro-NT BNP')
data$crf4a_blood_trop = ff_label(data$crf4a_blood_trop, 'Troponin')
data$crf4a_blood_ddim = ff_label(data$crf4a_blood_ddim, 'D Dimer')
data$crf4a_blood_fib = ff_label(data$crf4a_blood_fib, 'Fibrinogen')
data$crf4a_blood_inr = ff_label(data$crf4a_blood_inr, 'INR')
data$crf4a_blood_fer = ff_label(data$crf4a_blood_fer, 'Ferritin')
data$crf4a_blood_hba1c = ff_label(data$crf4a_blood_hba1c, 'HbA1C')
data$crf4a_blood_lp = ff_label(data$crf4a_blood_lp, 'Lipid profile (non-fasting)')
data$crf4a_blood_covid19 = ff_label(data$crf4a_blood_covid19, 'SARS-Cov-2 Serology')
data$crf4a_link_routine_blood = ff_label(data$crf4a_link_routine_blood, 'If any blood tests performed, please enter results in the Laboratory Results Collection Log - Routine blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_routi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_link_add_blood_sars = ff_label(data$crf4a_link_add_blood_sars, 'If Sars-CoV-2 Serology performed, please enter results in the Laboratory Results Collection Log - Additional blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_addit:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_inv_resp___1 = ff_label(data$crf4a_inv_resp___1, 'Respiratory (choice=Spirometry)')
data$crf4a_inv_resp___2 = ff_label(data$crf4a_inv_resp___2, 'Respiratory (choice=Full pulmonary function tests)')
data$crf4a_inv_resp___3 = ff_label(data$crf4a_inv_resp___3, 'Respiratory (choice=Fractional exhaled nitric oxide (FeNO))')
data$crf4a_inv_resp___4 = ff_label(data$crf4a_inv_resp___4, 'Respiratory (choice=Nijmegen questionnaire)')
data$crf4a_inv_resp___5 = ff_label(data$crf4a_inv_resp___5, 'Respiratory (choice=Incremental shuttle walk test (ISWT))')
data$crf4a_inv_resp___6 = ff_label(data$crf4a_inv_resp___6, 'Respiratory (choice=Six-minute walk test)')
data$crf4a_inv_resp___7 = ff_label(data$crf4a_inv_resp___7, 'Respiratory (choice=Cardio-pulmonary exercise test)')
data$crf4a_inv_resp___8 = ff_label(data$crf4a_inv_resp___8, 'Respiratory (choice=CT chest with contrast)')
data$crf4a_inv_resp___9 = ff_label(data$crf4a_inv_resp___9, 'Respiratory (choice=HRCT)')
data$crf4a_inv_resp___10 = ff_label(data$crf4a_inv_resp___10, 'Respiratory (choice=CTPA)')
data$crf4a_inv_resp___11 = ff_label(data$crf4a_inv_resp___11, 'Respiratory (choice=Pulmonary perfusion scan)')
data$crf4a_inv_cardiac___1 = ff_label(data$crf4a_inv_cardiac___1, 'Cardiac (choice=Cardiac MRI)')
data$crf4a_inv_cardiac___2 = ff_label(data$crf4a_inv_cardiac___2, 'Cardiac (choice=Echocardiogram)')
data$crf4a_inv_cardiac___3 = ff_label(data$crf4a_inv_cardiac___3, 'Cardiac (choice=24/48 hrs tape)')
data$crf4a_inv_cardiac___4 = ff_label(data$crf4a_inv_cardiac___4, 'Cardiac (choice=Right heart catheterisation)')
data$crf4a_inv_cardiac___5 = ff_label(data$crf4a_inv_cardiac___5, 'Cardiac (choice=Coronary angiogram/CT angiogram)')
data$crf4a_inv_cardiac___6 = ff_label(data$crf4a_inv_cardiac___6, 'Cardiac (choice=Cardiac perfusion scan)')
data$crf4a_inv_haema___1 = ff_label(data$crf4a_inv_haema___1, 'Haematological (choice=Thyroid function tests)')
data$crf4a_inv_haema___2 = ff_label(data$crf4a_inv_haema___2, 'Haematological (choice=Blood borne viruses (BBV) screen)')
data$crf4a_inv_haema___3 = ff_label(data$crf4a_inv_haema___3, 'Haematological (choice=Haematinics)')
data$crf4a_link_add_blood_haema = ff_label(data$crf4a_link_add_blood_haema, 'If Thyroid Function Tests or Haematinics (Haematological Profile) performed, please enter results in the Laboratory Results Collection Log - Additional Blood Tests and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_addit:Click here to complete]  If BBV Screen performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_inv_renal___1 = ff_label(data$crf4a_inv_renal___1, 'Renal (choice=USS abdomen)')
data$crf4a_inv_renal___2 = ff_label(data$crf4a_inv_renal___2, 'Renal (choice=USS Kidneys)')
data$crf4a_inv_renal___3 = ff_label(data$crf4a_inv_renal___3, 'Renal (choice=CT abdomen/pelvis)')
data$crf4a_inv_renal___4 = ff_label(data$crf4a_inv_renal___4, 'Renal (choice=Urinalysis)')
data$crf4a_inv_renal___5 = ff_label(data$crf4a_inv_renal___5, 'Renal (choice=Urine albumin: creatinine ratio)')
data$crf4a_inv_renal___6 = ff_label(data$crf4a_inv_renal___6, 'Renal (choice=Urine protein: creatinine ratio)')
data$crf4a_inv_renal___7 = ff_label(data$crf4a_inv_renal___7, 'Renal (choice=Renal biopsy)')
data$crf4a_link_blood_urine = ff_label(data$crf4a_link_blood_urine, 'If Urinalysis, Urine albumin : creatinine ratio or Urine protein : creatinine ratio performed, please enter results in the Laboratory Results Collection Log - Urine Profile and mark as Yes when completed..  [form-link:repeatable_laboratory_results_collection_log_urine:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_inv_immu___1 = ff_label(data$crf4a_inv_immu___1, 'Immunological (choice=Vasculitis screen)')
data$crf4a_inv_immu___2 = ff_label(data$crf4a_inv_immu___2, 'Immunological (choice=Complements factors)')
data$crf4a_inv_immu___3 = ff_label(data$crf4a_inv_immu___3, 'Immunological (choice=Immunoglobulins)')
data$crf4a_inv_immu___4 = ff_label(data$crf4a_inv_immu___4, 'Immunological (choice=Rheumatoid factor/Anti-CCP)')
data$crf4a_link_blood_immun = ff_label(data$crf4a_link_blood_immun, 'If any immunological procedures performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed..  [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_inv_neuro___1 = ff_label(data$crf4a_inv_neuro___1, 'Neurology/Mental health (choice=CT brain)')
data$crf4a_inv_neuro___2 = ff_label(data$crf4a_inv_neuro___2, 'Neurology/Mental health (choice=MRI brain)')
data$crf4a_inv_neuro___3 = ff_label(data$crf4a_inv_neuro___3, 'Neurology/Mental health (choice=Nerve conduction studies)')
data$crf4a_inv_neuro___4 = ff_label(data$crf4a_inv_neuro___4, 'Neurology/Mental health (choice=Mini-International Neuro-psychiatric Interview (M.I.N.I.))')
data$crf4a_inv_neuro___5 = ff_label(data$crf4a_inv_neuro___5, 'Neurology/Mental health (choice=Columbia-Suicide Severity Rating Scale)')
data$crf4a_inv_neuro___6 = ff_label(data$crf4a_inv_neuro___6, 'Neurology/Mental health (choice=Sleep Condition Indicator)')
data$crf4a_inv_other = ff_label(data$crf4a_inv_other, 'Other, please specify')
data$crf4a_quest___1 = ff_label(data$crf4a_quest___1, 'Questionnaires completed (choice=MRC dyspnoea scale)')
data$crf4a_quest___2 = ff_label(data$crf4a_quest___2, 'Questionnaires completed (choice=EQ-5D-5L)')
data$crf4a_quest___3 = ff_label(data$crf4a_quest___3, 'Questionnaires completed (choice=Generalised Anxiety Disorder Assessment (GAD-7))')
data$crf4a_quest___4 = ff_label(data$crf4a_quest___4, 'Questionnaires completed (choice=Patient Health Questionnaire (PHQ-9))')
data$crf4a_quest___5 = ff_label(data$crf4a_quest___5, 'Questionnaires completed (choice=Sarcopenia screen (SARC-F))')
data$crf4a_quest___6 = ff_label(data$crf4a_quest___6, 'Questionnaires completed (choice=General Practice Physical Activity Questionnaire (GPPAQ))')
data$crf4a_quest___7 = ff_label(data$crf4a_quest___7, 'Questionnaires completed (choice=Dyspnoea-12)')
data$crf4a_quest___8 = ff_label(data$crf4a_quest___8, 'Questionnaires completed (choice=Fatigue (FACIT))')
data$crf4a_quest___9 = ff_label(data$crf4a_quest___9, 'Questionnaires completed (choice=Brief Pain Inventory (BPI))')
data$crf4a_quest___10 = ff_label(data$crf4a_quest___10, 'Questionnaires completed (choice=Post-Traumatic Stress Disorder (PTSD) checklist (PCL-5))')
data$crf4a_quest___11 = ff_label(data$crf4a_quest___11, 'Questionnaires completed (choice=Nottingham extended activity of daily living (NEADL))')
data$crf4a_quest_mrc = ff_label(data$crf4a_quest_mrc, '1. Have you completed a MRC dyspnoea scale form?  [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_eq5d5l = ff_label(data$crf4a_quest_eq5d5l, '2. Have you completed a EQ-5D-5L form?  [form-link:repeatable_eq5d5l:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_gad7 = ff_label(data$crf4a_quest_gad7, '3. Have you completed a GAD-7 form?  [form-link:repeatable_general_anxiety_disorder_7_questionnair:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_phq9 = ff_label(data$crf4a_quest_phq9, '4. Have you completed a PHQ-9 form?  [form-link:repeatable_patient_health_questionnaire9_phq9:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_sarcf = ff_label(data$crf4a_quest_sarcf, '5. Have you completed a SARC-F form?  [form-link:repeatable_sarcf_questionnaire:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_gppaq = ff_label(data$crf4a_quest_gppaq, '6. Have you completed a GPPAQ form?  [form-link:repeatable_general_practice_physical_activity_ques:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_dys12 = ff_label(data$crf4a_quest_dys12, '7. Have you completed a Dyspnoea-12 form?  [form-link:repeatable_dyspnoea12:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_facit = ff_label(data$crf4a_quest_facit, '8. Have you completed a FACIT form?  [form-link:repeatable_facit_fatigue_scale_v4:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_bpi = ff_label(data$crf4a_quest_bpi, '9. Have you completed a BPI form?  [form-link:repeatable_brief_pain_inventory_short_form:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_pcl5 = ff_label(data$crf4a_quest_pcl5, '10. Have you completed a PCL-5 form?  [form-link:repeatable_ptsd_checklist_for_dsm5_pcl5:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_neadl = ff_label(data$crf4a_quest_neadl, '11. Have you completed a NEADL form?  [form-link:repeatable_nottingham_extended_adl_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_inv_quest___1 = ff_label(data$crf4a_inv_quest___1, 'Assessments completed (choice=Montreal Cognitive Assessment (MoCA))')
data$crf4a_inv_quest___2 = ff_label(data$crf4a_inv_quest___2, 'Assessments completed (choice=Clinical Frailty Scale)')
data$crf4a_quest_moca = ff_label(data$crf4a_quest_moca, '1. Have you completed a MoCA form?  [form-link:repeatable_montreal_cognitive_assessment_moca:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_quest_rcfs = ff_label(data$crf4a_quest_rcfs, '2. Have you completed a Rockwood Clinical Frailty Scale form?  [form-link:repeatable_rockwood_clinical_frailty_scale:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4a_pft_done = ff_label(data$crf4a_pft_done, '[form-link:repeatable_pulmonary_functional_tests:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf4a_echo_date = ff_label(data$crf4a_echo_date, 'Echocardiogram Date performed')
data$crf4a_echo_right = ff_label(data$crf4a_echo_right, 'Echocardiogram Results - Right ventricle')
data$crf4a_echo_left = ff_label(data$crf4a_echo_left, 'Echocardiogram Results - Left ventricle')
data$crf4a_echo_pap = ff_label(data$crf4a_echo_pap, 'Echocardiogram  Estimated PAP')
data$crf4a_tape_done = ff_label(data$crf4a_tape_done, '24/48 hours tape Symptom diary completed')
data$crf4a10_tape_date = ff_label(data$crf4a10_tape_date, '24/48 hours tape Date performed')
data$crf4a_tape_finding___1 = ff_label(data$crf4a_tape_finding___1, '24/48 hours tape Findings (choice=Sinus rhythm)')
data$crf4a_tape_finding___2 = ff_label(data$crf4a_tape_finding___2, '24/48 hours tape Findings (choice=Atrial flutter/fibrillation)')
data$crf4a_tape_finding___3 = ff_label(data$crf4a_tape_finding___3, '24/48 hours tape Findings (choice=Significant bradycardia)')
data$crf4a_tape_finding___4 = ff_label(data$crf4a_tape_finding___4, '24/48 hours tape Findings (choice=Significant tachycardia)')
data$crf4a_tape_finding___5 = ff_label(data$crf4a_tape_finding___5, '24/48 hours tape Findings (choice=Heart block)')
data$crf4a_tape_finding___6 = ff_label(data$crf4a_tape_finding___6, '24/48 hours tape Findings (choice=Sinus pause > 3 seconds)')
data$crf4a_tape_finding___7 = ff_label(data$crf4a_tape_finding___7, '24/48 hours tape Findings (choice=Burden of ectopic > 10%)')
data$crf4a10_tape_heartblock = ff_label(data$crf4a10_tape_heartblock, '24/48 hours tape Heart block details')
data$crf4a_nijm_date = ff_label(data$crf4a_nijm_date, 'Nijmegen questionnaire Date performed')
data$crf4a_nijm_result = ff_label(data$crf4a_nijm_result, 'Nijmegen questionnaire Result')
data$crf4a_cpet_date = ff_label(data$crf4a_cpet_date, 'Cardio-pulmonary exercise test Date performed')
data$crf4a_cpet_result = ff_label(data$crf4a_cpet_result, 'Cardio-pulmonary exercise test Result (Peak Vo2)')
data$crf4a_feno_date = ff_label(data$crf4a_feno_date, 'Fractional exhaled nitric oxide (FeNO) Date performed')
data$crf4a_feno_result = ff_label(data$crf4a_feno_result, 'Fractional exhaled nitric oxide (FeNO) Result')
data$crf4a_6mwt_done = ff_label(data$crf4a_6mwt_done, '[form-link:repeatable_walk_test_6_min_iswt_15_level:Click here to complete] This will open the form in new window. Please complete it, then come back and continue here.')
data$crf4a_clinical_data_section_complete = ff_label(data$crf4a_clinical_data_section_complete, 'Complete?')
data$crf4b_version = ff_label(data$crf4b_version, 'CRF4 Version Completed')
data$crf4b_date_consent = ff_label(data$crf4b_date_consent, 'Date of consent')
data$crf4b_ongoing_confirmed = ff_label(data$crf4b_ongoing_confirmed, 'Ongoing consent confirmed verbally?')
data$crf4b_date_visit = ff_label(data$crf4b_date_visit, 'Date of visit')
data$crf4b_tier2_blood = ff_label(data$crf4b_tier2_blood, 'Have you completed a Tier 2 Blood Research Samples Checklist?  [form-link:repeatable_tier_2_biological_research_samples_chec:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crf4b_research_data_section_complete = ff_label(data$crf4b_research_data_section_complete, 'Complete?')
data$crf_emergency_version = ff_label(data$crf_emergency_version, 'CRF Emergency Visit Version Completed')
data$crfev_date = ff_label(data$crfev_date, 'Date of completion')
data$crfev_symptoms___1 = ff_label(data$crfev_symptoms___1, '(choice=1.	Shortness of breath/difficulty breathing)')
data$crfev_symptoms___2 = ff_label(data$crfev_symptoms___2, '(choice=2.	Cough)')
data$crfev_symptoms___3 = ff_label(data$crfev_symptoms___3, '(choice=3.	Fatigue)')
data$crfev_symptoms___4 = ff_label(data$crfev_symptoms___4, '(choice=4.	Fever)')
data$crfev_symptoms___5 = ff_label(data$crfev_symptoms___5, '(choice=5.	Chest pain)')
data$crfev_symptoms___6 = ff_label(data$crfev_symptoms___6, '(choice=6.	Palpitations)')
data$crfev_symptoms___7 = ff_label(data$crfev_symptoms___7, '(choice=7.	Dizziness/lightheadness)')
data$crfev_symptoms___8 = ff_label(data$crfev_symptoms___8, '(choice=8.	Fainting/blackouts)')
data$crfev_symptoms___9 = ff_label(data$crfev_symptoms___9, '(choice=9.	Leg/ankle swelling)')
data$crfev_symptoms___10 = ff_label(data$crfev_symptoms___10, '(choice=10.	Gastrointestinal symptoms (e.g. diarrhoea, vomiting, abdominal pain))')
data$crfev_symptoms___11 = ff_label(data$crfev_symptoms___11, '(choice=11.	Neurological symptoms (including limb weakness, speech disturbance))')
data$crfev_symptoms___12 = ff_label(data$crfev_symptoms___12, '(choice=12.	Mental health related symptoms (including panic attacks, suicidal thoughts, overdose))')
data$crfev_symptoms___13 = ff_label(data$crfev_symptoms___13, '(choice=13.	Confusion, altered level of consciousness)')
data$crfev_symptoms___14 = ff_label(data$crfev_symptoms___14, '(choice=14.	Urinary tract symptoms)')
data$crfev_symptoms___15 = ff_label(data$crfev_symptoms___15, '(choice=15.	Trauma/injuries/fractures)')
data$crfev_symptoms___16 = ff_label(data$crfev_symptoms___16, '(choice=16.	Others (specify))')
data$crfev_symptoms_other = ff_label(data$crfev_symptoms_other, 'Other presenting symptom(s)')
data$crfev_date_visit = ff_label(data$crfev_date_visit, 'Date of visit/admission')
data$crfev_date_discharge = ff_label(data$crfev_date_discharge, 'Date of discharge')
data$crfev_stay_days = ff_label(data$crfev_stay_days, 'Length of stay')
data$crfev_itu_hdu_adm = ff_label(data$crfev_itu_hdu_adm, 'ITU/HDU admission')
data$crfev_med_change = ff_label(data$crfev_med_change, 'Any change in medications?')
data$crfev_dis_diagnosis___1 = ff_label(data$crfev_dis_diagnosis___1, 'Diagnosis given upon discharge (choice=COVID related)')
data$crfev_dis_diagnosis___2 = ff_label(data$crfev_dis_diagnosis___2, 'Diagnosis given upon discharge (choice=Non-COVID related)')
data$crfev_dis_diagnosis_detail = ff_label(data$crfev_dis_diagnosis_detail, 'Diagnosis given upon discharge Detail One per line')
data$crfev_cxr_done = ff_label(data$crfev_cxr_done, 'a) Chest XR')
data$crfev_ecg_done = ff_label(data$crfev_ecg_done, 'b) ECG')
data$crfev_xr_result___1 = ff_label(data$crfev_xr_result___1, 'Chest X-Ray result (choice=Normal)')
data$crfev_xr_result___2 = ff_label(data$crfev_xr_result___2, 'Chest X-Ray result (choice=Extensive persistent changes >1/3 lung involvement)')
data$crfev_xr_result___3 = ff_label(data$crfev_xr_result___3, 'Chest X-Ray result (choice=Suggestive of fibrotic lung disease)')
data$crfev_xr_result___4 = ff_label(data$crfev_xr_result___4, 'Chest X-Ray result (choice=Indeterminate)')
data$crfev_xr_result___5 = ff_label(data$crfev_xr_result___5, 'Chest X-Ray result (choice=Other)')
data$crfev_ecg_result___1 = ff_label(data$crfev_ecg_result___1, 'ECG result (choice=Sinus rhythm)')
data$crfev_ecg_result___2 = ff_label(data$crfev_ecg_result___2, 'ECG result (choice=Atrial fibrillation/flutter)')
data$crfev_ecg_result___3 = ff_label(data$crfev_ecg_result___3, 'ECG result (choice=ST segment/T wave changes)')
data$crfev_ecg_result___4 = ff_label(data$crfev_ecg_result___4, 'ECG result (choice=RBBB)')
data$crfev_ecg_result___5 = ff_label(data$crfev_ecg_result___5, 'ECG result (choice=LBBB)')
data$crfev_ecg_hr = ff_label(data$crfev_ecg_hr, 'ECG result Heart rate')
data$crfev_blood_done = ff_label(data$crfev_blood_done, 'Any blood tests performed on admission?')
data$crfev_other_inv_done = ff_label(data$crfev_other_inv_done, 'Any other investigations/procedures completed?')
data$crfev_blood_desc = ff_label(data$crfev_blood_desc, 'If any blood tests performed, please enter results in the Laboratory Results Collection Log - Routine blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_routi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crfev_add_inv_resp___1 = ff_label(data$crfev_add_inv_resp___1, 'Respiratory (choice=Spirometry)')
data$crfev_add_inv_resp___2 = ff_label(data$crfev_add_inv_resp___2, 'Respiratory (choice=Full pulmonary function tests)')
data$crfev_add_inv_resp___3 = ff_label(data$crfev_add_inv_resp___3, 'Respiratory (choice=Fractional exhaled nitric oxide (FeNO))')
data$crfev_add_inv_resp___4 = ff_label(data$crfev_add_inv_resp___4, 'Respiratory (choice=Nijmegen questionnaire)')
data$crfev_add_inv_resp___5 = ff_label(data$crfev_add_inv_resp___5, 'Respiratory (choice=Incremental shuttle walk test (ISWT))')
data$crfev_add_inv_resp___6 = ff_label(data$crfev_add_inv_resp___6, 'Respiratory (choice=Six-minute walk test)')
data$crfev_add_inv_resp___7 = ff_label(data$crfev_add_inv_resp___7, 'Respiratory (choice=Cardio-pulmonary exercise test)')
data$crfev_add_inv_resp___8 = ff_label(data$crfev_add_inv_resp___8, 'Respiratory (choice=CT chest with contrast)')
data$crfev_add_inv_resp___9 = ff_label(data$crfev_add_inv_resp___9, 'Respiratory (choice=HRCT)')
data$crfev_add_inv_resp___10 = ff_label(data$crfev_add_inv_resp___10, 'Respiratory (choice=CTPA)')
data$crfev_add_inv_resp___11 = ff_label(data$crfev_add_inv_resp___11, 'Respiratory (choice=Pulmonary perfusion scan)')
data$crfev_add_inv_card___1 = ff_label(data$crfev_add_inv_card___1, 'Cardiac (choice=Cardiac MRI)')
data$crfev_add_inv_card___2 = ff_label(data$crfev_add_inv_card___2, 'Cardiac (choice=Echocardiogram)')
data$crfev_add_inv_card___3 = ff_label(data$crfev_add_inv_card___3, 'Cardiac (choice=24/48 hrs tape)')
data$crfev_add_inv_card___4 = ff_label(data$crfev_add_inv_card___4, 'Cardiac (choice=Right heart catheterisation)')
data$crfev_add_inv_card___5 = ff_label(data$crfev_add_inv_card___5, 'Cardiac (choice=Coronary angiogram/CT angiogram)')
data$crfev_add_inv_card___6 = ff_label(data$crfev_add_inv_card___6, 'Cardiac (choice=Cardiac perfusion scan)')
data$crfev_add_inv_haema___1 = ff_label(data$crfev_add_inv_haema___1, 'Haematological (choice=Thyroid function tests)')
data$crfev_add_inv_haema___2 = ff_label(data$crfev_add_inv_haema___2, 'Haematological (choice=Blood borne viruses (BBV) screen)')
data$crfev_add_inv_haema___3 = ff_label(data$crfev_add_inv_haema___3, 'Haematological (choice=Haematinics)')
data$crfev_link_add_blood_haema = ff_label(data$crfev_link_add_blood_haema, 'If Thyroid Function Tests or Haematinics (Haematological Profile) performed, please enter results in the Laboratory Results Collection Log - Additional Blood Tests and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_addit:Click here to complete]  If BBV Screen performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed.   [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crfev_add_inv_renal___1 = ff_label(data$crfev_add_inv_renal___1, 'Renal (choice=USS abdomen)')
data$crfev_add_inv_renal___2 = ff_label(data$crfev_add_inv_renal___2, 'Renal (choice=USS Kidneys)')
data$crfev_add_inv_renal___3 = ff_label(data$crfev_add_inv_renal___3, 'Renal (choice=CT abdomen/pelvis)')
data$crfev_add_inv_renal___4 = ff_label(data$crfev_add_inv_renal___4, 'Renal (choice=Urinalysis)')
data$crfev_add_inv_renal___5 = ff_label(data$crfev_add_inv_renal___5, 'Renal (choice=Urine albumin: creatinine ratio)')
data$crfev_add_inv_renal___6 = ff_label(data$crfev_add_inv_renal___6, 'Renal (choice=Urine protein: creatinine ratio)')
data$crfev_add_inv_renal___7 = ff_label(data$crfev_add_inv_renal___7, 'Renal (choice=Renal biopsy)')
data$crfev_link_blood_urine = ff_label(data$crfev_link_blood_urine, 'If Urinalysis, Urine albumin : creatinine ratio or Urine protein : creatinine ratio performed, please enter results in the Laboratory Results Collection Log - Urine Profile and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_urine:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crfev_add_inv_immu___1 = ff_label(data$crfev_add_inv_immu___1, 'Immunological (choice=Vasculitis screen)')
data$crfev_add_inv_immu___2 = ff_label(data$crfev_add_inv_immu___2, 'Immunological (choice=Complements factors)')
data$crfev_add_inv_immu___3 = ff_label(data$crfev_add_inv_immu___3, 'Immunological (choice=Immunoglobulins)')
data$crfev_add_inv_immu___4 = ff_label(data$crfev_add_inv_immu___4, 'Immunological (choice=Rheumatoid factor/Anti-CCP)')
data$crfev_link_blood_immun = ff_label(data$crfev_link_blood_immun, 'If any immunological procedures performed, please enter results in the Laboratory Results Collection Log - Immunological Profile and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_immun:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$crfev_add_inv_neuro___1 = ff_label(data$crfev_add_inv_neuro___1, 'Neurology/Mental health (choice=CT brain)')
data$crfev_add_inv_neuro___2 = ff_label(data$crfev_add_inv_neuro___2, 'Neurology/Mental health (choice=MRI brain)')
data$crfev_add_inv_neuro___3 = ff_label(data$crfev_add_inv_neuro___3, 'Neurology/Mental health (choice=Nerve conduction studies)')
data$crfev_add_inv_neuro___4 = ff_label(data$crfev_add_inv_neuro___4, 'Neurology/Mental health (choice=Mini-International Neuro-psychiatric)')
data$crfev_add_inv_neuro___5 = ff_label(data$crfev_add_inv_neuro___5, 'Neurology/Mental health (choice=Interview (M.I.N.I.))')
data$crfev_add_inv_neuro___6 = ff_label(data$crfev_add_inv_neuro___6, 'Neurology/Mental health (choice=Columbia-Suicide Severity Rating Scale)')
data$crfev_add_inv_neuro___7 = ff_label(data$crfev_add_inv_neuro___7, 'Neurology/Mental health (choice=Sleep Condition Indicator)')
data$crfev_add_inv_other = ff_label(data$crfev_add_inv_other, 'Other tests')
data$crfev_echo_date = ff_label(data$crfev_echo_date, 'Echocardiogram Date performed')
data$crfev_echo_right = ff_label(data$crfev_echo_right, 'Echocardiogram Results - Right ventricle')
data$crfev_echo_left = ff_label(data$crfev_echo_left, 'Echocardiogram Results - Left ventricle')
data$crfev_echo_pap = ff_label(data$crfev_echo_pap, 'Echocardiogram  Estimated PAP')
data$crfev_tape_done = ff_label(data$crfev_tape_done, '24/48 hours tape Symptom diary completed')
data$crfev_tape_date = ff_label(data$crfev_tape_date, '24/48 hours tape Date performed')
data$crfev_tape_finding___1 = ff_label(data$crfev_tape_finding___1, '24/48 hours tape Findings (choice=Sinus rhythm)')
data$crfev_tape_finding___2 = ff_label(data$crfev_tape_finding___2, '24/48 hours tape Findings (choice=Atrial flutter/fibrillation)')
data$crfev_tape_finding___3 = ff_label(data$crfev_tape_finding___3, '24/48 hours tape Findings (choice=Significant bradycardia)')
data$crfev_tape_finding___4 = ff_label(data$crfev_tape_finding___4, '24/48 hours tape Findings (choice=Significant tachycardia)')
data$crfev_tape_finding___5 = ff_label(data$crfev_tape_finding___5, '24/48 hours tape Findings (choice=Heart block)')
data$crfev_tape_finding___6 = ff_label(data$crfev_tape_finding___6, '24/48 hours tape Findings (choice=Sinus pause > 3 seconds)')
data$crfev_tape_finding___7 = ff_label(data$crfev_tape_finding___7, '24/48 hours tape Findings (choice=Burden of ectopic > 10%)')
data$crfev_tape_heartblock = ff_label(data$crfev_tape_heartblock, '24/48 hours tape Heart block details')
data$crfev_nij_date = ff_label(data$crfev_nij_date, 'Nijmegen questionnaire Date performed')
data$crfev_nij_result = ff_label(data$crfev_nij_result, 'Nijmegen questionnaire Result')
data$crfev_cpet_date = ff_label(data$crfev_cpet_date, 'Cardio-pulmonary exercise test Date performed')
data$crfev_cpet_result = ff_label(data$crfev_cpet_result, 'Cardio-pulmonary exercise test Result (Peak Vo2)')
data$crfev_feno_date = ff_label(data$crfev_feno_date, 'Fractional exhaled nitric oxide (FeNO) Date performed')
data$crfev_feno_result = ff_label(data$crfev_feno_result, 'Fractional exhaled nitric oxide (FeNO) Result')
data$crf_emergency_visit_complete = ff_label(data$crf_emergency_visit_complete, 'Complete?')
data$ae_event = ff_label(data$ae_event, 'Adverse Event and relationship to the study procedure')
data$ae_sae = ff_label(data$ae_sae, 'Is this a serious adverse event (SAE)?')
data$sae_criteria = ff_label(data$sae_criteria, 'SAE criteria')
data$ae_severity = ff_label(data$ae_severity, 'Severity')
data$ae_action = ff_label(data$ae_action, 'Action')
data$ae_action_det = ff_label(data$ae_action_det, 'Action (Further details if required)')
data$ae_start_date = ff_label(data$ae_start_date, 'Start Date (DD/MM/YYYY)')
data$ae_stop_date = ff_label(data$ae_stop_date, 'Stop Date (DD/MM/YYYY)')
data$ae_outcome = ff_label(data$ae_outcome, 'Outcome')
data$adverse_events_log_complete = ff_label(data$adverse_events_log_complete, 'Complete?')
data$wd_type___1 = ff_label(data$wd_type___1, 'Withdrawal Type (choice=1. I wish to withdraw from the study. I no longer wish to be contacted about the research or be asked to provide additional samples or information. I agree that the study team can continue to access data from my electronic records.)')
data$wd_type___2 = ff_label(data$wd_type___2, 'Withdrawal Type (choice=2. I wish to withdraw from the study. I no longer wish to be contacted about the research or be asked to provide additional samples or information. My electronic records should no longer be accessed by the study team.)')
data$wd_sign_type = ff_label(data$wd_sign_type, 'Person Signing Withdrawal Form')
data$wd_pt_signature_verified = ff_label(data$wd_pt_signature_verified, 'Participant signature verified?')
data$wd_date = ff_label(data$wd_date, 'Withdrawal Date')
data$wd_signatory_date_verified = ff_label(data$wd_signatory_date_verified, 'Signatory verified?')
data$wd_signatory_date = ff_label(data$wd_signatory_date, 'Signatory Date')
data$withdrawals_complete = ff_label(data$withdrawals_complete, 'Complete?')
data$crf_early_comp_date = ff_label(data$crf_early_comp_date, 'Date of completion/contact with participant')
data$crf_early_withdraw_date = ff_label(data$crf_early_withdraw_date, 'Date of withdrawal from study')
data$crf_early_data_collect_yn = ff_label(data$crf_early_data_collect_yn, 'Is the participant willing for data to be collected from their Healthcare records for the remainder of the trial?If Yes, DO NOT COMPLETE THIS FORM - Use the Tier 2 Consent Withdrawal CRF')
data$crf_early_main_reason___1 = ff_label(data$crf_early_main_reason___1, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Participant decision)')
data$crf_early_main_reason___2 = ff_label(data$crf_early_main_reason___2, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Adverse event)')
data$crf_early_main_reason___3 = ff_label(data$crf_early_main_reason___3, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Participant non-compliance)')
data$crf_early_main_reason___4 = ff_label(data$crf_early_main_reason___4, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Lost to follow up)')
data$crf_early_main_reason___5 = ff_label(data$crf_early_main_reason___5, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Investigator decision)')
data$crf_early_main_reason___6 = ff_label(data$crf_early_main_reason___6, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Sponsor decision)')
data$crf_early_main_reason___7 = ff_label(data$crf_early_main_reason___7, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Participant ineligible)')
data$crf_early_main_reason___8 = ff_label(data$crf_early_main_reason___8, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Participant deceased (Enter date of death as withdrawal date))')
data$crf_early_main_reason___9 = ff_label(data$crf_early_main_reason___9, 'Main reason for withdrawal/discontinuation  TICK ONE OPTION ONLY (choice=Other - give details)')
data$crf_early_other_details = ff_label(data$crf_early_other_details, 'Other - Give details')
data$early_termination_crf_complete = ff_label(data$early_termination_crf_complete, 'Complete?')
data$crf_tier2_comp_date = ff_label(data$crf_tier2_comp_date, 'Date of completion/contact with participant')
data$crf_tier2_withdraw_date = ff_label(data$crf_tier2_withdraw_date, 'Date of withdrawal from study')
data$crf_tier2_data_collect_yn = ff_label(data$crf_tier2_data_collect_yn, 'Is the participant willing for data to be collected from their Healthcare records for the remainder of the trial? (Tier 1 data)If No, DO NOT COMPLETE THIS FORM - Use the Early Termination CRF')
data$crf_tier2_main_reason___1 = ff_label(data$crf_tier2_main_reason___1, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Work commitments)')
data$crf_tier2_main_reason___2 = ff_label(data$crf_tier2_main_reason___2, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Family commitments)')
data$crf_tier2_main_reason___3 = ff_label(data$crf_tier2_main_reason___3, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Time constraints)')
data$crf_tier2_main_reason___4 = ff_label(data$crf_tier2_main_reason___4, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Moving out of area)')
data$crf_tier2_main_reason___5 = ff_label(data$crf_tier2_main_reason___5, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Illness)')
data$crf_tier2_main_reason___6 = ff_label(data$crf_tier2_main_reason___6, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Not interested)')
data$crf_tier2_main_reason___7 = ff_label(data$crf_tier2_main_reason___7, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Lost to follow up)')
data$crf_tier2_main_reason___8 = ff_label(data$crf_tier2_main_reason___8, 'Main reason for Tier 2 consent withdrawal  TICK ONE OPTION ONLY (choice=Other - give details)')
data$crf_tier2_other_details = ff_label(data$crf_tier2_other_details, 'Other - Give details')
data$crf_tier_2_consent_withdrawal_complete = ff_label(data$crf_tier_2_consent_withdrawal_complete, 'Complete?')
data$med_name = ff_label(data$med_name, 'Name of medication')
data$med_class = ff_label(data$med_class, 'Class number and name')
data$med_start_date = ff_label(data$med_start_date, 'Start Date (MM/YYYY)')
data$med_stop_date = ff_label(data$med_stop_date, 'Stop Date (MM/YYYY)')
data$med_dose = ff_label(data$med_dose, 'Dose')
data$med_unit = ff_label(data$med_unit, 'Unit')
data$med_frequency = ff_label(data$med_frequency, 'Frequency')
data$med_route = ff_label(data$med_route, 'Route')
data$med_route_other = ff_label(data$med_route_other, 'Route Other')
data$med_reason = ff_label(data$med_reason, 'Indication/Reason (if due to AE give the AE number)')
data$repeatable_medications_log_complete = ff_label(data$repeatable_medications_log_complete, 'Complete?')
data$am_date_dispatch = ff_label(data$am_date_dispatch, 'Date dispatched to participant')
data$am_serial = ff_label(data$am_serial, 'Serial number')
data$am_date_received = ff_label(data$am_date_received, 'Date received from participant')
data$am_wear_location = ff_label(data$am_wear_location, 'Wear location')
data$am_strap = ff_label(data$am_strap, 'Strap type')
data$am_date_downloaded = ff_label(data$am_date_downloaded, 'Date of data download completion')
data$activity_monitor_completion_form_complete = ff_label(data$activity_monitor_completion_form_complete, 'Complete?')
data$mha_ph4_nervous = ff_label(data$mha_ph4_nervous, '1 - Feeling nervous, anxious or on edge')
data$mha_ph4_worrying = ff_label(data$mha_ph4_worrying, '2 - Not being able to stop or control worrying')
data$mha_ph4_little_interest = ff_label(data$mha_ph4_little_interest, '3 - Little interest or pleasure in doing things')
data$mha_ph4_depressed = ff_label(data$mha_ph4_depressed, '4 - Feeling down, depressed or hopeless')
data$mha_ph2_anxiety_score = ff_label(data$mha_ph2_anxiety_score, 'PH2 Anxiety score (1 + 2)')
data$mha_ph2_depr_score_2 = ff_label(data$mha_ph2_depr_score_2, 'PH2 Depression score (3 + 4)')
data$mha_ptsd_memories = ff_label(data$mha_ptsd_memories, 'i)	Have you had any unwanted memories of your illness or hospital admission whilst you were awake, so not counting dreams?')
data$mha_ptsd_dreams = ff_label(data$mha_ptsd_dreams, 'ii)	Have you had any unpleasant dreams about your illness or hospital admission?')
data$mha_ptsd_thoughts = ff_label(data$mha_ptsd_thoughts, 'iii)	Have you tried to avoid thoughts or feelings about your illness or hospital admission?')
data$mha_ptsd_memories_detail = ff_label(data$mha_ptsd_memories_detail, 'i) How much do these memories bother you?')
data$mha_ptsd_dreams_detail = ff_label(data$mha_ptsd_dreams_detail, 'ii) How much do these dreams bother you?')
data$mha_ptsd_thoughts_detail = ff_label(data$mha_ptsd_thoughts_detail, 'iii) How much effort do you make to avoid these thoughts or feelings?')
data$mha_lonely_lack = ff_label(data$mha_lonely_lack, 'How often do you feel that you lack companionship?')
data$mha_lonely_left = ff_label(data$mha_lonely_left, 'How often do you feel left out?')
data$mha_lonely_iso = ff_label(data$mha_lonely_iso, 'How often do you feel isolated from others?')
data$mha_lonely_lon = ff_label(data$mha_lonely_lon, 'How often do you feel lonely?')
data$repeatable_mental_health_assessment_complete = ff_label(data$repeatable_mental_health_assessment_complete, 'Complete?')
data$nutri_concern_weight = ff_label(data$nutri_concern_weight, 'a)	Are you or your family concerned that you have lost significant weight (5-10%) in the last year, or may now be underweight?')
data$nutri_appetite = ff_label(data$nutri_appetite, 'b) Regarding your appetite or interest in eating (since COVID19), please rank  your appetite or interest in eating on a scale of 0-5   (0 being same as usual/no problems, 5 being very severe problems/reduction)')
data$nutri_advice = ff_label(data$nutri_advice, 'c) Would you like nutritional advice or to speak to a nutrition professional?')
data$repeatable_nutrition_complete = ff_label(data$repeatable_nutrition_complete, 'Complete?')
data$social_status_before = ff_label(data$social_status_before, 'a) Before you got COVID-19 what was your occupation/working status (paid or unpaid work)?')
data$social_employ_pre_mar20 = ff_label(data$social_employ_pre_mar20, 'b.i) What was/ is your employment status? Before March 2020')
data$social_employ_pre_covid = ff_label(data$social_employ_pre_covid, 'b.ii) What was/ is your employment status? Before you were admitted to hospital with COVID')
data$social_employ_post_covid = ff_label(data$social_employ_post_covid, 'b.iii) What was/ is your employment status? Since you were discharged from hospital after COVID')
data$social_shift_work = ff_label(data$social_shift_work, 'c) Prior to COVID did your work involve shift work?')
data$social_shift_night = ff_label(data$social_shift_night, 'd) Prior to COVID did your work involve night shift?')
data$social_affect_work = ff_label(data$social_affect_work, 'e) Has your illness affected your ability to do your usual work?')
data$social_exp_bereave = ff_label(data$social_exp_bereave, 'f) Have you experienced a close bereavement due to COVID19')
data$social_bereav_relation = ff_label(data$social_bereav_relation, 'f) Relationship in the bereavement')
data$repeatable_social_history_complete = ff_label(data$repeatable_social_history_complete, 'Complete?')
data$hp_today_seeing = ff_label(data$hp_today_seeing, 'Do you have difficulty seeing, even if wearing glasses?')
data$hp_today_hearing = ff_label(data$hp_today_hearing, 'Do you have difficulty hearing, even if using a hearing aid?')
data$hp_today_walking = ff_label(data$hp_today_walking, 'Do you have difficulty walking or climbing steps?')
data$hp_today_remembering = ff_label(data$hp_today_remembering, 'Do you have difficulty remembering or concentrating?')
data$hp_today_self_care = ff_label(data$hp_today_self_care, 'Do you have difficulty (with self-care such as) washing all over or dressing?')
data$hp_today_communicating = ff_label(data$hp_today_communicating, 'Using your usual (customary) language, do you have difficulty communicating, for example understanding or being understood?')
data$hp_precovid_seeing = ff_label(data$hp_precovid_seeing, 'Do you have difficulty seeing, even if wearing glasses?')
data$hp_precovid_hearing = ff_label(data$hp_precovid_hearing, 'Do you have difficulty hearing, even if using a hearing aid?')
data$hp_precovid_walking = ff_label(data$hp_precovid_walking, 'Do you have difficulty walking or climbing steps?')
data$hp_precovid_remebering = ff_label(data$hp_precovid_remebering, 'Do you have difficulty remembering or concentrating?')
data$hp_precovid_self_care = ff_label(data$hp_precovid_self_care, 'Do you have difficulty (with self-care such as) washing all over or dressing?')
data$hp_precovid_communicating = ff_label(data$hp_precovid_communicating, 'Using your usual (customary) language, do you have difficulty communicating, for example understanding or being understood?')
data$repeatable_activity_difficulties_from_health_probl_complete = ff_label(data$repeatable_activity_difficulties_from_health_probl_complete, 'Complete?')
data$ls_alco_unit = ff_label(data$ls_alco_unit, 'a) How many units of alcohol, on average, do you consume per week?')
data$ls_smoke = ff_label(data$ls_smoke, 'b)	Do you or have you ever smoked cigarettes?')
data$ls_smoke_e = ff_label(data$ls_smoke_e, 'c) Do you currently use an e-cigarette or vape?')
data$ls_change_smoke = ff_label(data$ls_change_smoke, 'Smoking')
data$ls_change_drink = ff_label(data$ls_change_drink, 'Drinking alcohol')
data$ls_change_food = ff_label(data$ls_change_food, 'Eating healthy food')
data$ls_change_activity = ff_label(data$ls_change_activity, 'Physical activity (include walking, cycling, & other activities)')
data$repeatable_lifestyle_complete = ff_label(data$repeatable_lifestyle_complete, 'Complete?')
data$eq5d_done = ff_label(data$eq5d_done, 'Completed')
data$eq5d_date = ff_label(data$eq5d_date, 'Date')
data$eq5d_timepoints = ff_label(data$eq5d_timepoints, 'Is this questionnaire evaluating health state for pre-COVID, current visit or both?  Pre-COVID available in: CRF2 or CRF3B (prior to version 2.0 - only complete if not completed in CRF2) or Pre-COVID Patient Symptom Questionnaire  Current visit available in: CRF2, CRF3A, CRF4A, Patient Questionnaire Booklet (part of Tier 2 research visit)')
data$eq5d5l_q1_pre = ff_label(data$eq5d5l_q1_pre, 'Mobility Pre-COVID')
data$eq5d5l_q2_pre = ff_label(data$eq5d5l_q2_pre, 'Self-Care Pre-COVID')
data$eq5d5l_q3_pre = ff_label(data$eq5d5l_q3_pre, 'Usual activities (e.g. work, study, housework, family or leisure activities) Pre-COVID')
data$eq5d5l_q4_pre = ff_label(data$eq5d5l_q4_pre, 'Pain/ Discomfort Pre-COVID')
data$eq5d5l_q5_pre = ff_label(data$eq5d5l_q5_pre, 'Anxiety/ Depression Pre-COVID')
data$eq5d5l_summary_pre = ff_label(data$eq5d5l_summary_pre, 'How good or bad is your health overall? Pre-COVID')
data$eq5d5l_q1 = ff_label(data$eq5d5l_q1, 'Mobility Current visit')
data$eq5d5l_q2 = ff_label(data$eq5d5l_q2, 'Self-Care Current visit')
data$eq5d5l_q3 = ff_label(data$eq5d5l_q3, 'Usual activities (e.g. work, study, housework, family or leisure activities) Current visit')
data$eq5d5l_q4 = ff_label(data$eq5d5l_q4, 'Pain/ Discomfort Current visit')
data$eq5d5l_q5 = ff_label(data$eq5d5l_q5, 'Anxiety/ Depression Current visit')
data$eq5d5l_summary = ff_label(data$eq5d5l_summary, 'How good or bad is your health overall? Current visit')
data$repeatable_eq5d5l_complete = ff_label(data$repeatable_eq5d5l_complete, 'Complete?')
data$gad7_date = ff_label(data$gad7_date, 'Date')
data$gad7_q1 = ff_label(data$gad7_q1, 'Feeling nervous, anxious, or on edge')
data$gad7_q2 = ff_label(data$gad7_q2, 'Not being able to stop or control worrying')
data$gad7_q3 = ff_label(data$gad7_q3, 'Worrying too much about different things')
data$gad7_q4 = ff_label(data$gad7_q4, 'Trouble relaxing')
data$gad7_q5 = ff_label(data$gad7_q5, 'Being so restless that its hard to sit still')
data$gad7_q6 = ff_label(data$gad7_q6, 'Becoming easily annoyed or irritable')
data$gad7_q7 = ff_label(data$gad7_q7, 'Feeling afraid as if something awful might happen')
data$gad7_summary = ff_label(data$gad7_summary, 'Total Score')
data$gad7_difficulty = ff_label(data$gad7_difficulty, 'If you checked off any problems, how difficult have these problems made it for you to do your work, take care of things at home, or get along with other people?')
data$repeatable_general_anxiety_disorder_7_questionnair_complete = ff_label(data$repeatable_general_anxiety_disorder_7_questionnair_complete, 'Complete?')
data$phq9_date = ff_label(data$phq9_date, 'Date')
data$phq9_q1 = ff_label(data$phq9_q1, 'Little interest or pleasure in doing things')
data$phq9_q2 = ff_label(data$phq9_q2, 'Feeling down, depressed, or hopeless')
data$phq9_q3 = ff_label(data$phq9_q3, 'Trouble falling or staying asleep, sleeping too much')
data$phq9_q4 = ff_label(data$phq9_q4, 'Feeling tired or having little energy')
data$phq9_q5 = ff_label(data$phq9_q5, 'Poor appetite or overeating')
data$phq9_q6 = ff_label(data$phq9_q6, 'Feeling bad about yourself - or that you are a failure or have let yourself or your family down')
data$phq9_q7 = ff_label(data$phq9_q7, 'Trouble concentrating on things, such as reading the newspaper or watching television')
data$phq9_q8 = ff_label(data$phq9_q8, 'Moving or speaking so slowly that other people could have noticed. Or the opposite - being so fidgety or restless that you have been moving around a lot more than usual')
data$phq9_q9 = ff_label(data$phq9_q9, 'Thoughts that you would be better off dead or of hurting yourself in some way')
data$phq9_summary = ff_label(data$phq9_summary, 'Total Score')
data$phq9_score_minimal = ff_label(data$phq9_score_minimal, 'Severity Score: Minimal (0 - 4)')
data$phq9_score_mild = ff_label(data$phq9_score_mild, 'Severity Score: Mild (5 - 9)')
data$phq9_score_mod = ff_label(data$phq9_score_mod, 'Severity Score: Moderate (10 - 14)')
data$phq9_score_mod_sev = ff_label(data$phq9_score_mod_sev, 'Severity Score: Moderately Severe (15 - 19)')
data$phq9_score_sev = ff_label(data$phq9_score_sev, 'Severity Score: Severe (20 - 27)')
data$repeatable_patient_health_questionnaire9_phq9_complete = ff_label(data$repeatable_patient_health_questionnaire9_phq9_complete, 'Complete?')
data$mrcds_visit___1 = ff_label(data$mrcds_visit___1, 'Time pointBefore COVID available in:CRF2 or CRF3B (prior to version 2.0 - only complete if not completed in CRF2) or Pre-COVID Patient Symptom Questionnaire Since COVID/current visit available in:CRF2, CRF3A, CRF4A, Patient Questionnaire Booklet (part of Tier 2 research visit) (choice=Before COVID)')
data$mrcds_visit___2 = ff_label(data$mrcds_visit___2, 'Time pointBefore COVID available in:CRF2 or CRF3B (prior to version 2.0 - only complete if not completed in CRF2) or Pre-COVID Patient Symptom Questionnaire Since COVID/current visit available in:CRF2, CRF3A, CRF4A, Patient Questionnaire Booklet (part of Tier 2 research visit) (choice=Since COVID / Current visit)')
data$mrc_date = ff_label(data$mrc_date, 'Date')
data$mrcds_blness_exer_pre = ff_label(data$mrcds_blness_exer_pre, 'Were / Are you not troubled by breathless except on strenuous exercise')
data$mrcds_short_level_pre = ff_label(data$mrcds_short_level_pre, 'Were / Are you short of breath when hurrying on a level or when walking up a slight hill?')
data$mrcds_walk_slower_pre = ff_label(data$mrcds_walk_slower_pre, 'Did / Do you walk slower than most people on the level, stop after a mile or so, or stop after 15 minutes walking at own pace?')
data$mrcds_after_walk_pre = ff_label(data$mrcds_after_walk_pre, 'Did / Do  you have to stop for breath after walking 100 yards, or after a few minutes on level ground?')
data$mrcds_leave_house_pre = ff_label(data$mrcds_leave_house_pre, 'Were / Are you too breathless to leave the house, or breathless when dressing/undressing?')
data$mrcds_blness_exer_since = ff_label(data$mrcds_blness_exer_since, 'Were / Are you not troubled by breathless except on strenuous exercise')
data$mrcds_short_level_since = ff_label(data$mrcds_short_level_since, 'Were / Are you short of breath when hurrying on a level or when walking up a slight hill?')
data$mrcds_walk_slower_since = ff_label(data$mrcds_walk_slower_since, 'Did / Do you walk slower than most people on the level, stop after a mile or so, or stop after 15 minutes walking at own pace?')
data$mrcds_after_walk_since = ff_label(data$mrcds_after_walk_since, 'Did / Do  you have to stop for breath after walking 100 yards, or after a few minutes on level ground?')
data$mrcds_leave_house_since = ff_label(data$mrcds_leave_house_since, 'Were / Are you too breathless to leave the house, or breathless when dressing/undressing?')
data$repeatable_mrc_dyspnoea_scale_complete = ff_label(data$repeatable_mrc_dyspnoea_scale_complete, 'Complete?')
data$sarcf_date = ff_label(data$sarcf_date, 'Date')
data$sarcf_strength = ff_label(data$sarcf_strength, 'How much difficulty do you have in lifting and carrying 10 pounds?')
data$sarcf_walk_difficult = ff_label(data$sarcf_walk_difficult, 'How much difficulty do you have walking across a room?')
data$sarcf_rise_from_a_chair = ff_label(data$sarcf_rise_from_a_chair, 'How much difficulty do you have transferring from a chair or bed?')
data$sarcf_climb_stairs = ff_label(data$sarcf_climb_stairs, 'How much difficulty do you have climbing a flight of ten stairs?')
data$sarcf_falls = ff_label(data$sarcf_falls, 'How many times have you fallen in the past year?')
data$sarcf_summary = ff_label(data$sarcf_summary, 'Total Score:')
data$repeatable_sarcf_questionnaire_complete = ff_label(data$repeatable_sarcf_questionnaire_complete, 'Complete?')
data$gppaq_date = ff_label(data$gppaq_date, 'Date')
data$gppaq_physical_amount = ff_label(data$gppaq_physical_amount, 'i) Please tell us the type and amount of physical activity involved in your work.')
data$gppaq_pe = ff_label(data$gppaq_pe, 'Physical exercise such as swimming, jogging, aerobics, football, tennis, gym workout etc.')
data$gppaq_cycling = ff_label(data$gppaq_cycling, 'Cycling, including cycling to work and during leisure time')
data$gppaq_walking = ff_label(data$gppaq_walking, 'Walking, including walking to work, shopping, for pleasure etc.')
data$gppaq_housework_childcare = ff_label(data$gppaq_housework_childcare, 'Housework/Childcare')
data$gppaq_garden_diy = ff_label(data$gppaq_garden_diy, 'Gardening/DIY')
data$gppaq_walk_pace = ff_label(data$gppaq_walk_pace, 'iii) How would you describe your usual walking pace?')
data$gppaq_occ_score = ff_label(data$gppaq_occ_score, 'Occupation Score')
data$gppaq_ex_score = ff_label(data$gppaq_ex_score, 'Exercise Score')
data$gppaq_pai = ff_label(data$gppaq_pai, 'GPPAQ Physical Activity Index (PAI)')
data$gppaq_result = ff_label(data$gppaq_result, 'Please tick result:')
data$repeatable_general_practice_physical_activity_ques_complete = ff_label(data$repeatable_general_practice_physical_activity_ques_complete, 'Complete?')
data$d12_date = ff_label(data$d12_date, 'Date')
data$dyspnoea_not_go_in = ff_label(data$dyspnoea_not_go_in, '1. My breath does not go in all the way')
data$dyspnoea_more_work = ff_label(data$dyspnoea_more_work, '2. My breathing requires more work')
data$dyspnoea_short = ff_label(data$dyspnoea_short, '3. I feel short of breath')
data$dyspnoea_catching = ff_label(data$dyspnoea_catching, '4. I have difficulty catching my breath')
data$dyspnoea_not_air = ff_label(data$dyspnoea_not_air, '5. I cannot get enough air')
data$dyspnoea_uncomfortable = ff_label(data$dyspnoea_uncomfortable, '6. My breathing is uncomfortable')
data$dyspnoea_exhausting = ff_label(data$dyspnoea_exhausting, '7. My breathing is exhausting')
data$dyspnoea_depressed = ff_label(data$dyspnoea_depressed, '8. My breathing makes me feel depressed')
data$dyspnoea_miserable = ff_label(data$dyspnoea_miserable, '9. My breathing makes me feel miserable')
data$dyspnoea_distressing = ff_label(data$dyspnoea_distressing, '10. My breathing is distressing')
data$dyspnoea_agitated = ff_label(data$dyspnoea_agitated, '11. My breathing makes me agitated')
data$dyspnoea_irritating = ff_label(data$dyspnoea_irritating, '12. My breathing is irritating')
data$d12_summary = ff_label(data$d12_summary, 'Dyspnoea-12 Score')
data$repeatable_dyspnoea12_complete = ff_label(data$repeatable_dyspnoea12_complete, 'Complete?')
data$facit_date = ff_label(data$facit_date, 'Date')
data$facit_fatigued = ff_label(data$facit_fatigued, 'I feel fatigued')
data$facit_feel_weak = ff_label(data$facit_feel_weak, 'I feel weak all over')
data$facit_feel_listless = ff_label(data$facit_feel_listless, 'I feel listless (washed out)')
data$facit_feel_tired = ff_label(data$facit_feel_tired, 'I feel tired')
data$facit_trouble_starting = ff_label(data$facit_trouble_starting, 'I have trouble starting things because I am tired')
data$facit_trouble_finishing = ff_label(data$facit_trouble_finishing, 'I have trouble finishing things because I am tired')
data$facit_energy = ff_label(data$facit_energy, 'I have energy')
data$facit_usual_activities = ff_label(data$facit_usual_activities, 'I am able to do my usual activities')
data$facit_sleep_in_the_day = ff_label(data$facit_sleep_in_the_day, 'I need to sleep during the day')
data$facit_too_tired_to_eat = ff_label(data$facit_too_tired_to_eat, 'I am too tired to eat')
data$facit_help_usual_acti = ff_label(data$facit_help_usual_acti, 'I need help doing my usual activities')
data$facit_frustrated = ff_label(data$facit_frustrated, 'I am frustrated by being too tired to do the things I want to do')
data$facit_limit_social = ff_label(data$facit_limit_social, 'I have to limit my social activity because I am tired')
data$facit_item1_score = ff_label(data$facit_item1_score, 'Item 1 Score')
data$facit_item1_comp = ff_label(data$facit_item1_comp, 'Item 1 Completed')
data$facit_item2_score = ff_label(data$facit_item2_score, 'Item 2 Score')
data$facit_item2_comp = ff_label(data$facit_item2_comp, 'Item 2 Completed')
data$facit_item3_score = ff_label(data$facit_item3_score, 'Item 3 Score')
data$facit_item3_comp = ff_label(data$facit_item3_comp, 'Item 3 Completed')
data$facit_item4_score = ff_label(data$facit_item4_score, 'Item 4 Score')
data$facit_item4_comp = ff_label(data$facit_item4_comp, 'Item 4 Completed')
data$facit_item5_score = ff_label(data$facit_item5_score, 'Item 5 Score')
data$facit_item5_comp = ff_label(data$facit_item5_comp, 'Item 5 Completed')
data$facit_item6_score = ff_label(data$facit_item6_score, 'Item 6 Score')
data$facit_item6_comp = ff_label(data$facit_item6_comp, 'Item 6 Completed')
data$facit_item7_score = ff_label(data$facit_item7_score, 'Item 7 Score')
data$facit_item7_comp = ff_label(data$facit_item7_comp, 'Item 7 Completed')
data$facit_item8_score = ff_label(data$facit_item8_score, 'Item 8 Score')
data$facit_item8_comp = ff_label(data$facit_item8_comp, 'Item 8 Completed')
data$facit_item9_score = ff_label(data$facit_item9_score, 'Item 9 Score')
data$facit_item9_comp = ff_label(data$facit_item9_comp, 'Item 9 Completed')
data$facit_item10_score = ff_label(data$facit_item10_score, 'Item 10 Score')
data$facit_item10_comp = ff_label(data$facit_item10_comp, 'Item 10 Completed')
data$facit_item11_score = ff_label(data$facit_item11_score, 'Item 11 Score')
data$facit_item11_comp = ff_label(data$facit_item11_comp, 'Item 11 Completed')
data$facit_item12_score = ff_label(data$facit_item12_score, 'Item 12 Score')
data$facit_item12_comp = ff_label(data$facit_item12_comp, 'Item 12 Completed')
data$facit_item13_score = ff_label(data$facit_item13_score, 'Item 13 Score')
data$facit_item13_comp = ff_label(data$facit_item13_comp, 'Item 13 Completed')
data$facit_item_total = ff_label(data$facit_item_total, 'Item Total')
data$facit_items_comp = ff_label(data$facit_items_comp, 'Items Completed')
data$facit_v4_summary = ff_label(data$facit_v4_summary, 'Facit Fatigue Subscale Score')
data$repeatable_facit_fatigue_scale_v4_complete = ff_label(data$repeatable_facit_fatigue_scale_v4_complete, 'Complete?')
data$ptsd_date = ff_label(data$ptsd_date, 'Date')
data$pcl5_date = ff_label(data$pcl5_date, 'Date')
data$pcl5_memories = ff_label(data$pcl5_memories, '1. Repeated, disturbing, and unwanted memories of the stressful experience?')
data$pcl5_dreams = ff_label(data$pcl5_dreams, '2. Repeated, disturbing dreams of the stressful experience?')
data$pcl5_suddenly = ff_label(data$pcl5_suddenly, '3. Suddenly feeling or acting as if the stressful experience were actually happening again (as if you were actually back there reliving it)?')
data$pcl5_upset = ff_label(data$pcl5_upset, '4. Feeling very upset when something reminded you of the stressful experience?')
data$pcl5_physical_reactions = ff_label(data$pcl5_physical_reactions, '5. Having strong physical reactions when something reminded you of the stressful experience (for example, heart pounding, trouble breathing, sweating)?')
data$pcl5_avoiding_memories = ff_label(data$pcl5_avoiding_memories, '6. Avoiding memories, thoughts, or feelings related to the stressful experience?')
data$pcl5_avoiding_reminder = ff_label(data$pcl5_avoiding_reminder, '7. Avoiding external reminders of the stressful experience (for example, people, places, conversations, activities, objects, or situations)?')
data$pcl5_trouble_remembering = ff_label(data$pcl5_trouble_remembering, '8. Trouble remembering important parts of the stressful experience?')
data$pcl5_negative_beliefs = ff_label(data$pcl5_negative_beliefs, '9. Having strong negative beliefs about yourself, other people, or the world (for example, having thoughts such as: I am bad, there is something seriously wrong with me, no one can be trusted, the world is completely dangerous)?')
data$pcl5_blaming = ff_label(data$pcl5_blaming, '10. Blaming yourself or someone else for the stressful experience or what happened after it?')
data$pcl5_negative_feeling = ff_label(data$pcl5_negative_feeling, '11. Having strong negative feelings such as fear, horror, anger, guilt, or shame?')
data$pcl5_loss_interest = ff_label(data$pcl5_loss_interest, '12. Loss of interest in activities that you used to enjoy?')
data$pcl5_feeling_distant = ff_label(data$pcl5_feeling_distant, '13. Feeling distant or cut off from other people?')
data$pcl5_trouble_positive = ff_label(data$pcl5_trouble_positive, '14. Trouble experiencing positive feelings (for example, being unable to feel happiness or have loving feelings for people close to you)?')
data$pcl5_irritable_behavior = ff_label(data$pcl5_irritable_behavior, '15. Irritable behavior, angry outbursts, or acting aggressively?')
data$pcl5_risky = ff_label(data$pcl5_risky, '16. Taking too many risks or doing things that could cause you harm?')
data$pcl5_superalert = ff_label(data$pcl5_superalert, '17. Being superalert or watchful or on guard?')
data$pcl5_jumpy = ff_label(data$pcl5_jumpy, '18. Feeling jumpy or easily startled?')
data$pcl5_concentrating = ff_label(data$pcl5_concentrating, '19. Having difficulty concentrating?')
data$pcl5_trouble_sleep = ff_label(data$pcl5_trouble_sleep, '20. Trouble falling or staying asleep?')
data$pcl5_summary = ff_label(data$pcl5_summary, 'PCL-5 Total Severity Score')
data$repeatable_ptsd_checklist_for_dsm5_pcl5_complete = ff_label(data$repeatable_ptsd_checklist_for_dsm5_pcl5_complete, 'Complete?')
data$bpi_date = ff_label(data$bpi_date, 'Date')
data$bpi_unusual_pain_yn = ff_label(data$bpi_unusual_pain_yn, '1) Throughout our lives, most of us have had pain from time to time (such as minor headaches, sprains, and toothaches) Have you had pain other than these everyday kinds of pain today?')
data$bpi_pain_sites___1 = ff_label(data$bpi_pain_sites___1, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=face)')
data$bpi_pain_sites___2 = ff_label(data$bpi_pain_sites___2, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back head)')
data$bpi_pain_sites___3 = ff_label(data$bpi_pain_sites___3, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front left shoulder)')
data$bpi_pain_sites___4 = ff_label(data$bpi_pain_sites___4, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front right shoulder)')
data$bpi_pain_sites___5 = ff_label(data$bpi_pain_sites___5, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back left shoulder)')
data$bpi_pain_sites___6 = ff_label(data$bpi_pain_sites___6, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back right shoulder)')
data$bpi_pain_sites___7 = ff_label(data$bpi_pain_sites___7, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front left torso)')
data$bpi_pain_sites___8 = ff_label(data$bpi_pain_sites___8, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front right torso)')
data$bpi_pain_sites___9 = ff_label(data$bpi_pain_sites___9, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back left torso)')
data$bpi_pain_sites___10 = ff_label(data$bpi_pain_sites___10, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back right torso)')
data$bpi_pain_sites___11 = ff_label(data$bpi_pain_sites___11, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front left arm)')
data$bpi_pain_sites___12 = ff_label(data$bpi_pain_sites___12, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front right arm)')
data$bpi_pain_sites___13 = ff_label(data$bpi_pain_sites___13, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back left arm)')
data$bpi_pain_sites___14 = ff_label(data$bpi_pain_sites___14, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back right arm)')
data$bpi_pain_sites___15 = ff_label(data$bpi_pain_sites___15, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=left hand)')
data$bpi_pain_sites___16 = ff_label(data$bpi_pain_sites___16, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=right hand)')
data$bpi_pain_sites___17 = ff_label(data$bpi_pain_sites___17, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front left leg)')
data$bpi_pain_sites___18 = ff_label(data$bpi_pain_sites___18, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=front right leg)')
data$bpi_pain_sites___19 = ff_label(data$bpi_pain_sites___19, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back left leg)')
data$bpi_pain_sites___20 = ff_label(data$bpi_pain_sites___20, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=back right leg)')
data$bpi_pain_sites___21 = ff_label(data$bpi_pain_sites___21, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=left foot)')
data$bpi_pain_sites___22 = ff_label(data$bpi_pain_sites___22, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=right foot)')
data$bpi_pain_sites___23 = ff_label(data$bpi_pain_sites___23, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=groin)')
data$bpi_pain_sites___24 = ff_label(data$bpi_pain_sites___24, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=left buttock)')
data$bpi_pain_sites___25 = ff_label(data$bpi_pain_sites___25, '2) On the diagram shade the areas where you feel pain. Put an X on the area that hurts the most. Please use your best judgement when selecting these options. If a mark is made on the midline please select both sides. (choice=right buttock)')
data$bpi_worst = ff_label(data$bpi_worst, '3) Please rate your pain by circling the one number that best describes your pain at its WORST in the past 24 hours.')
data$bpi_least = ff_label(data$bpi_least, '4) Please rate your pain by circling the one number that best describes your pain at its LEAST  in the past 24 hours.')
data$bpi_average = ff_label(data$bpi_average, '5) Please rate your pain by circling the one number that best describes your pain on the AVERAGE.')
data$bpi_rightnow = ff_label(data$bpi_rightnow, '6) Please rate your pain by circling the one number that tells how much pain you have RIGHT NOW.')
data$bpi_treatments = ff_label(data$bpi_treatments, '7) What treatments or medications are you receiving for your pain?')
data$bpi_relief = ff_label(data$bpi_relief, '8) In the past 24 hours, how much RELIEF have pain treatments or medications provided? Please circle the one percentage that most shows how much relief you have received.')
data$bpi_past24_general = ff_label(data$bpi_past24_general, 'A. General activity')
data$bpi_past24_mood = ff_label(data$bpi_past24_mood, 'B. Mood')
data$bpi_past24_walking = ff_label(data$bpi_past24_walking, 'C. Walking ability')
data$bpi_past24_work = ff_label(data$bpi_past24_work, 'D. Normal work (includes both work outside the home and housework)')
data$bpi_past24_relation = ff_label(data$bpi_past24_relation, 'E. Relations with other people')
data$bpi_past24_sleep = ff_label(data$bpi_past24_sleep, 'F. Sleep')
data$bpi_past24_enjoyment = ff_label(data$bpi_past24_enjoyment, 'G. Enjoyment of life')
data$repeatable_brief_pain_inventory_short_form_complete = ff_label(data$repeatable_brief_pain_inventory_short_form_complete, 'Complete?')
data$neadl_date = ff_label(data$neadl_date, 'Date')
data$neadl_1 = ff_label(data$neadl_1, '1. Walk around outside?')
data$neadl_2 = ff_label(data$neadl_2, '2. Climb stairs?')
data$neadl_3 = ff_label(data$neadl_3, '3. Get in and out of the car?')
data$neadl_4 = ff_label(data$neadl_4, '4. Walk over uneven ground?')
data$neadl_5 = ff_label(data$neadl_5, '5. Cross roads?')
data$neadl_6 = ff_label(data$neadl_6, '6. Travel on public transport?')
data$neadl_7 = ff_label(data$neadl_7, '7. Manage to feed yourself?')
data$neadl_8 = ff_label(data$neadl_8, '8. Manage to make yourself a hot drink?')
data$neadl_9 = ff_label(data$neadl_9, '9. Take hot drinks from one room to another?')
data$neadl_10 = ff_label(data$neadl_10, '10. Do the washing up?')
data$neadl_11 = ff_label(data$neadl_11, '11. Make yourself a hot snack?')
data$neadl_12 = ff_label(data$neadl_12, '12. Manage your own money when you are out?')
data$neadl_13 = ff_label(data$neadl_13, '13. Wash small items of clothing?')
data$neadl_14 = ff_label(data$neadl_14, '14. Do your own housework?')
data$neadl_15 = ff_label(data$neadl_15, '15. Do your own shopping?')
data$neadl_16 = ff_label(data$neadl_16, '16. Do a full clothes wash?')
data$neadl_17 = ff_label(data$neadl_17, '17. Read newspapers or books?')
data$neadl_18 = ff_label(data$neadl_18, '18. Use the telephone?')
data$neadl_19 = ff_label(data$neadl_19, '19. Write letters?')
data$neadl_20 = ff_label(data$neadl_20, '20. Go out socially?')
data$neadl_21 = ff_label(data$neadl_21, '21. Manage your own garden?')
data$neadl_22 = ff_label(data$neadl_22, '22. Drive a car?')
data$neadl_score_part_1 = ff_label(data$neadl_score_part_1, 'NEADL Score Part 1')
data$neadl_score_part_2 = ff_label(data$neadl_score_part_2, 'NEADL Score Part 2')
data$neadl_score_part_3 = ff_label(data$neadl_score_part_3, 'NEADL Score Part 3')
data$neadl_score_part_4 = ff_label(data$neadl_score_part_4, 'NEADL Score Part 4')
data$neadl_score_part_5 = ff_label(data$neadl_score_part_5, 'NEADL Score Part 5')
data$neadl_score_part_6 = ff_label(data$neadl_score_part_6, 'NEADL Score Part 6')
data$neadl_score_part_7 = ff_label(data$neadl_score_part_7, 'NEADL Score Part 7')
data$neadl_score_part_8 = ff_label(data$neadl_score_part_8, 'NEADL Score Part 8')
data$neadl_score_part_9 = ff_label(data$neadl_score_part_9, 'NEADL Score Part 9')
data$neadl_score_part_10 = ff_label(data$neadl_score_part_10, 'NEADL Score Part 10')
data$neadl_score_part_11 = ff_label(data$neadl_score_part_11, 'NEADL Score Part 11')
data$neadl_score_part_12 = ff_label(data$neadl_score_part_12, 'NEADL Score Part 12')
data$neadl_score_part_13 = ff_label(data$neadl_score_part_13, 'NEADL Score Part 13')
data$neadl_score_part_14 = ff_label(data$neadl_score_part_14, 'NEADL Score Part 14')
data$neadl_score_part_15 = ff_label(data$neadl_score_part_15, 'NEADL Score Part 15')
data$neadl_score_part_16 = ff_label(data$neadl_score_part_16, 'NEADL Score Part 16')
data$neadl_score_part_17 = ff_label(data$neadl_score_part_17, 'NEADL Score Part 17')
data$neadl_score_part_18 = ff_label(data$neadl_score_part_18, 'NEADL Score Part 18')
data$neadl_score_part_19 = ff_label(data$neadl_score_part_19, 'NEADL Score Part 19')
data$neadl_score_part_20 = ff_label(data$neadl_score_part_20, 'NEADL Score Part 20')
data$neadl_score_part_21 = ff_label(data$neadl_score_part_21, 'NEADL Score Part 21')
data$neadl_score_part_22 = ff_label(data$neadl_score_part_22, 'NEADL Score Part 22')
data$neadl_summary = ff_label(data$neadl_summary, 'NEADL Total Score')
data$repeatable_nottingham_extended_adl_scale_complete = ff_label(data$repeatable_nottingham_extended_adl_scale_complete, 'Complete?')
data$moca_date = ff_label(data$moca_date, 'Date')
data$moca_ve___1 = ff_label(data$moca_ve___1, 'Visuospatial/Executive (choice=Begin -> End)')
data$moca_ve___2 = ff_label(data$moca_ve___2, 'Visuospatial/Executive (choice=Copy cube)')
data$moca_ve___3 = ff_label(data$moca_ve___3, 'Visuospatial/Executive (choice=Draw clock - Contour)')
data$moca_ve___4 = ff_label(data$moca_ve___4, 'Visuospatial/Executive (choice=Draw clock - Numbers)')
data$moca_ve___5 = ff_label(data$moca_ve___5, 'Visuospatial/Executive (choice=Draw clock - Hands)')
data$moca_ve_points = ff_label(data$moca_ve_points, 'Visuospatial/Executive Score')
data$moca_naming___1 = ff_label(data$moca_naming___1, 'Naming (choice=Lion)')
data$moca_naming___2 = ff_label(data$moca_naming___2, 'Naming (choice=Rhino)')
data$moca_naming___3 = ff_label(data$moca_naming___3, 'Naming (choice=Camel)')
data$moca_naming_points = ff_label(data$moca_naming_points, 'Naming Score')
data$moca_mem_1___1 = ff_label(data$moca_mem_1___1, 'Memory 1st trial (choice=FACE)')
data$moca_mem_1___2 = ff_label(data$moca_mem_1___2, 'Memory 1st trial (choice=VELVET)')
data$moca_mem_1___3 = ff_label(data$moca_mem_1___3, 'Memory 1st trial (choice=CHURCH)')
data$moca_mem_1___4 = ff_label(data$moca_mem_1___4, 'Memory 1st trial (choice=DAISY)')
data$moca_mem_1___5 = ff_label(data$moca_mem_1___5, 'Memory 1st trial (choice=RED)')
data$moca_mem_2___1 = ff_label(data$moca_mem_2___1, 'Memory 2nd trial (choice=FACE)')
data$moca_mem_2___2 = ff_label(data$moca_mem_2___2, 'Memory 2nd trial (choice=VELVET)')
data$moca_mem_2___3 = ff_label(data$moca_mem_2___3, 'Memory 2nd trial (choice=CHURCH)')
data$moca_mem_2___4 = ff_label(data$moca_mem_2___4, 'Memory 2nd trial (choice=DAISY)')
data$moca_mem_2___5 = ff_label(data$moca_mem_2___5, 'Memory 2nd trial (choice=RED)')
data$moca_att___1 = ff_label(data$moca_att___1, 'Attention (choice=Repeat digits in forward order)')
data$moca_att___2 = ff_label(data$moca_att___2, 'Attention (choice=Repeat digits in backward order)')
data$moca_att___3 = ff_label(data$moca_att___3, 'Attention (choice=Tap letter A)')
data$moca_att___4 = ff_label(data$moca_att___4, 'Attention (choice=Subtraction - 93)')
data$moca_att___5 = ff_label(data$moca_att___5, 'Attention (choice=Subtraction - 86)')
data$moca_att___6 = ff_label(data$moca_att___6, 'Attention (choice=Subtraction - 79)')
data$moca_att___7 = ff_label(data$moca_att___7, 'Attention (choice=Subtraction - 72)')
data$moca_att___8 = ff_label(data$moca_att___8, 'Attention (choice=Subtraction - 65)')
data$moca_att_points = ff_label(data$moca_att_points, 'Attention Score')
data$moca_lang_repeat___1 = ff_label(data$moca_lang_repeat___1, 'Language Repeat sentence (choice=Repeat 1)')
data$moca_lang_repeat___2 = ff_label(data$moca_lang_repeat___2, 'Language Repeat sentence (choice=Repeat 2)')
data$moca_lang_words = ff_label(data$moca_lang_words, 'Language Words named within one minute')
data$moca_lang_points = ff_label(data$moca_lang_points, 'Language Score')
data$moca_abstract___1 = ff_label(data$moca_abstract___1, 'Abstraction Similarity between words (choice=train - bicycle)')
data$moca_abstract___2 = ff_label(data$moca_abstract___2, 'Abstraction Similarity between words (choice=watch - ruler)')
data$moca_abstract_points = ff_label(data$moca_abstract_points, 'Abstraction Score')
data$moca_recall___1 = ff_label(data$moca_recall___1, 'Delayed recall Has to recall words WITH NO CUE (choice=FACE)')
data$moca_recall___2 = ff_label(data$moca_recall___2, 'Delayed recall Has to recall words WITH NO CUE (choice=VELVET)')
data$moca_recall___3 = ff_label(data$moca_recall___3, 'Delayed recall Has to recall words WITH NO CUE (choice=CHURCH)')
data$moca_recall___4 = ff_label(data$moca_recall___4, 'Delayed recall Has to recall words WITH NO CUE (choice=DAISY)')
data$moca_recall___5 = ff_label(data$moca_recall___5, 'Delayed recall Has to recall words WITH NO CUE (choice=RED)')
data$moca_recall_opt_cat___1 = ff_label(data$moca_recall_opt_cat___1, 'With category cue (choice=FACE)')
data$moca_recall_opt_cat___2 = ff_label(data$moca_recall_opt_cat___2, 'With category cue (choice=VELVET)')
data$moca_recall_opt_cat___3 = ff_label(data$moca_recall_opt_cat___3, 'With category cue (choice=CHURCH)')
data$moca_recall_opt_cat___4 = ff_label(data$moca_recall_opt_cat___4, 'With category cue (choice=DAISY)')
data$moca_recall_opt_cat___5 = ff_label(data$moca_recall_opt_cat___5, 'With category cue (choice=RED)')
data$moca_recall_opt_choice___1 = ff_label(data$moca_recall_opt_choice___1, 'With multiple choice cue (choice=FACE)')
data$moca_recall_opt_choice___2 = ff_label(data$moca_recall_opt_choice___2, 'With multiple choice cue (choice=VELVET)')
data$moca_recall_opt_choice___3 = ff_label(data$moca_recall_opt_choice___3, 'With multiple choice cue (choice=CHURCH)')
data$moca_recall_opt_choice___4 = ff_label(data$moca_recall_opt_choice___4, 'With multiple choice cue (choice=DAISY)')
data$moca_recall_opt_choice___5 = ff_label(data$moca_recall_opt_choice___5, 'With multiple choice cue (choice=RED)')
data$moca_recall_points = ff_label(data$moca_recall_points, 'Delayed recall Score')
data$moca_orient___1 = ff_label(data$moca_orient___1, 'Orientation (choice=Date)')
data$moca_orient___2 = ff_label(data$moca_orient___2, 'Orientation (choice=Month)')
data$moca_orient___3 = ff_label(data$moca_orient___3, 'Orientation (choice=Year)')
data$moca_orient___4 = ff_label(data$moca_orient___4, 'Orientation (choice=Day)')
data$moca_orient___5 = ff_label(data$moca_orient___5, 'Orientation (choice=Place)')
data$moca_orient___6 = ff_label(data$moca_orient___6, 'Orientation (choice=City)')
data$moca_orient_points = ff_label(data$moca_orient_points, 'Orientation Score')
data$mocal_total = ff_label(data$mocal_total, 'Total score')
data$repeatable_montreal_cognitive_assessment_moca_complete = ff_label(data$repeatable_montreal_cognitive_assessment_moca_complete, 'Complete?')
data$rcf_date = ff_label(data$rcf_date, 'Date')
data$rcf_known = ff_label(data$rcf_known, 'Score known?')
data$rcf_score = ff_label(data$rcf_score, 'Score')
data$repeatable_rockwood_clinical_frailty_scale_complete = ff_label(data$repeatable_rockwood_clinical_frailty_scale_complete, 'Complete?')
data$k_bild_name = ff_label(data$k_bild_name, 'PATIENT INFORMATION:   Name')
data$k_bild_date = ff_label(data$k_bild_date, 'Date')
data$k_bild_breathless = ff_label(data$k_bild_breathless, '1. In the last 2 weeks, I have been breathless climbing stairs or walking up an incline or hill.')
data$k_bild_lung_condition = ff_label(data$k_bild_lung_condition, '2.	In the last 2 weeks, because of my lung condition, my chest has felt tight.')
data$k_bild_lung_complaint = ff_label(data$k_bild_lung_complaint, '3.	In the last 2 weeks have you  worried about the seriousness of your lung complaint?')
data$k_bild_avoid = ff_label(data$k_bild_avoid, '4.	In the last 2 weeks have you avoided doing things that make you breathless?')
data$k_bild_contol_lung_cond = ff_label(data$k_bild_contol_lung_cond, '5.	In the last 2 weeks have you felt in control of your lung condition?')
data$k_bild_dump = ff_label(data$k_bild_dump, '6.	In the last 2 weeks, has your lung complaint made you feel fed up or down in the dumps?')
data$k_bild_air_hunger = ff_label(data$k_bild_air_hunger, '7.	In the last 2 weeks, I have felt the urge to breathe, also known as air hunger.')
data$k_bild_anxious = ff_label(data$k_bild_anxious, '8.	In the last 2 weeks, my lung condition has made me feel anxious.')
data$k_bild_wheeze_sounds = ff_label(data$k_bild_wheeze_sounds, '9.	In the last 2 weeks, how often have you experienced wheeze or whistling sounds from your chest?')
data$k_bild_disease_worse = ff_label(data$k_bild_disease_worse, '10.	In the last two weeks how much of the time have you felt your lung disease is getting worse?')
data$k_bild_interferred_work = ff_label(data$k_bild_interferred_work, '11.	In the last 2 weeks has your lung condition interfered with your job or other daily tasks?')
data$k_bild_complaint_worse = ff_label(data$k_bild_complaint_worse, '12.	In the last 2 weeks have you expected your lung complaint to get worse?')
data$k_bild_carrying_limited = ff_label(data$k_bild_carrying_limited, '13.	In the last 2 weeks, how much has your lung condition limited you carrying things, for example, groceries?')
data$k_bild_end_life = ff_label(data$k_bild_end_life, '14.	In the last 2 weeks, has your lung condition made you think more about the end of your life?')
data$k_bild_financia_worse = ff_label(data$k_bild_financia_worse, '15.	Are you financially worse off because of your lung condition?')
data$repeatable_kings_brief_ild_questionnaire_kbild_complete = ff_label(data$repeatable_kings_brief_ild_questionnaire_kbild_complete, 'Complete?')
data$iparc_date_completion = ff_label(data$iparc_date_completion, 'Date of completion')
data$iparc_visit = ff_label(data$iparc_visit, 'Visit')
data$iparc_shortness = ff_label(data$iparc_shortness, 'Shortness of breath')
data$iparc_feeling_weak = ff_label(data$iparc_feeling_weak, 'Feeling weak')
data$iparc_feeling_tired = ff_label(data$iparc_feeling_tired, 'Feeling tired')
data$iparc_feeling_sleepy = ff_label(data$iparc_feeling_sleepy, 'Feeling sleepy in the day')
data$iparc_loss_appetite = ff_label(data$iparc_loss_appetite, 'Loss of appetite')
data$iparc_feeling_restless = ff_label(data$iparc_feeling_restless, 'Feeling restless and agitated')
data$iparc_uncontrolled = ff_label(data$iparc_uncontrolled, 'Uncontrolled symptoms')
data$iparc_side_effects = ff_label(data$iparc_side_effects, 'Side effects of treatment')
data$iparc_losing_independence = ff_label(data$iparc_losing_independence, 'Losing independence')
data$iparc_daily_activities = ff_label(data$iparc_daily_activities, 'Ability to carry out daily activities')
data$iparc_household_tasks = ff_label(data$iparc_household_tasks, 'Ability to carry out household tasks')
data$iparc_column_not_at_all = ff_label(data$iparc_column_not_at_all, 'Column totals: Not at all')
data$iparc_column_a_little_bit = ff_label(data$iparc_column_a_little_bit, 'Column totals: A little bit')
data$iparc_column_quite_a_bit = ff_label(data$iparc_column_quite_a_bit, 'Column totals: Quite a bit')
data$iparc_column_very_much = ff_label(data$iparc_column_very_much, 'Column totals:Very Much')
data$iparc_total_score = ff_label(data$iparc_total_score, 'Total Score:')
data$repeatable_iparc_questionnaire_complete = ff_label(data$repeatable_iparc_questionnaire_complete, 'Complete?')
data$psqi_date = ff_label(data$psqi_date, 'Date of Completion')
data$psqi_visit = ff_label(data$psqi_visit, 'Visit')
data$psqi_q1 = ff_label(data$psqi_q1, '1. During the past month, what time have you usually gone to bed at night?')
data$psqi_q2 = ff_label(data$psqi_q2, '2. During the past month, how long (in minutes) has it usually taken you to fall asleep each night?')
data$psqi_q3 = ff_label(data$psqi_q3, '3. During the past month, what time have you usually gotten up in the morning?')
data$psqi_hours_bed = ff_label(data$psqi_hours_bed, 'Please calculate the number of hours spent in bed using responses for Questions 1 and Questions 3 (This is required to calculate the score for Component 4: Sleep Efficiency).')
data$psqi_q4 = ff_label(data$psqi_q4, '4. During the past month, how many hours of actual sleep did you get at night? (This may be different than the number of hours you spent in bed.)')
data$psqi_q5a = ff_label(data$psqi_q5a, 'a) Cannot get to sleep within 30 minutes')
data$psqi_q5b = ff_label(data$psqi_q5b, 'b) Wake up in the middle of the night or early morning')
data$psqi_q5c = ff_label(data$psqi_q5c, 'c) Have to get up to use the bathroom')
data$psqi_q5d = ff_label(data$psqi_q5d, 'd) Cannot breathe comfortably')
data$psqi_q5e = ff_label(data$psqi_q5e, 'e) Cough or snore loudly')
data$psqi_q5f = ff_label(data$psqi_q5f, 'f) Feel too cold')
data$psqi_q5g = ff_label(data$psqi_q5g, 'g) Feel too hot')
data$psqi_q5h = ff_label(data$psqi_q5h, 'h) Had bad dreams')
data$psqi_q5i = ff_label(data$psqi_q5i, 'i) Have pain')
data$psqi_q5j = ff_label(data$psqi_q5j, 'j) How often during the past month have you had trouble sleeping because of other reasons?')
data$psqi_5j_other = ff_label(data$psqi_5j_other, 'j) Other reasons, please describe')
data$psqi_q6 = ff_label(data$psqi_q6, '6. During the past month, how would you rate your sleep quality overall?')
data$psqi_q7 = ff_label(data$psqi_q7, '7. During the past month, how often have you taken medicine to help you sleep (prescribed or over the counter)?')
data$psqi_q8 = ff_label(data$psqi_q8, '8. During the past month, how often have you had trouble staying awake while driving, eating meals, or engaging in social activity?')
data$psqi_q9 = ff_label(data$psqi_q9, '9. During the past month, how much of a problem has it been for you to keep up enough enthusiasm to get things done?')
data$psqi_q10 = ff_label(data$psqi_q10, '10. Do you have a bed partner or room mate?')
data$psqi_q10a = ff_label(data$psqi_q10a, 'a) Loud snoring')
data$psqi_q10b = ff_label(data$psqi_q10b, 'b) Long pauses between breaths while asleep')
data$psqi_q10c = ff_label(data$psqi_q10c, 'c) Legs twitching or jerking while you sleep')
data$psqi_q10d = ff_label(data$psqi_q10d, 'd) Episodes of disorientation or confusion during sleep')
data$psqi_q10e = ff_label(data$psqi_q10e, 'e) Other restlessness while you sleep')
data$psqi_q10e_other = ff_label(data$psqi_q10e_other, 'e) Other restlessness, please describe')
data$psqi_comp1 = ff_label(data$psqi_comp1, 'Component 1: Subjective Sleep Quality')
data$psqi_comp2_calc = ff_label(data$psqi_comp2_calc, 'Sleep Latency Calculation')
data$psqi_comp2 = ff_label(data$psqi_comp2, 'Component 2: Sleep Latency')
data$psqi_comp3 = ff_label(data$psqi_comp3, 'Component 3: Sleep Duration')
data$psqi_comp4_calc = ff_label(data$psqi_comp4_calc, 'Sleep Efficiency Calculation')
data$psqi_comp4 = ff_label(data$psqi_comp4, 'Component 4: Sleep Efficiency')
data$psqi_comp5_calc = ff_label(data$psqi_comp5_calc, 'Sleep Disturbance Calculation')
data$psqi_comp5 = ff_label(data$psqi_comp5, 'Component 5: Sleep Disturbance')
data$psqi_comp6 = ff_label(data$psqi_comp6, 'Component 6: Use of Sleep Medication')
data$psqi_comp7_calc = ff_label(data$psqi_comp7_calc, 'Daytime Dysfunction Calculation')
data$psqi_comp7 = ff_label(data$psqi_comp7, 'Component 7: Daytime Dysfunction')
data$psqi_global = ff_label(data$psqi_global, 'PSQI Global Score')
data$repeatable_pittsburgh_sleep_quality_index_psqi_complete = ff_label(data$repeatable_pittsburgh_sleep_quality_index_psqi_complete, 'Complete?')
data$meq_date = ff_label(data$meq_date, 'Date of completion')
data$meq_visit = ff_label(data$meq_visit, 'Visit')
data$meq_q1 = ff_label(data$meq_q1, '1. What time would you get up if you were entirely free to plan your day?')
data$meq_q2 = ff_label(data$meq_q2, '2. What time would you go to bed if you were entirely free to plan your evening?')
data$meq_q3 = ff_label(data$meq_q3, '3. If there is a specific time at which you have to get up in the morning, to what extent do you depend on being woken up by an alarm clock?')
data$meq_q4 = ff_label(data$meq_q4, '4. How easy do you find it to get up in the morning (when you are not woken up unexpectedly)?')
data$meq_q5 = ff_label(data$meq_q5, '5. How alert do you feel during the first half hour after you wake up in the morning?')
data$meq_q6 = ff_label(data$meq_q6, '6. How hungry do you feel during the first half-hour after you wake up in the morning?')
data$meq_q7 = ff_label(data$meq_q7, '7. During the first half-hour after you wake up in the morning, how tired do you feel?')
data$meq_q8 = ff_label(data$meq_q8, '8. If you have no commitment the next day, what time would you go to bed compared to your usual bedtime?')
data$meq_q9 = ff_label(data$meq_q9, '9. You have decided to engage in some physical exercise. A friend suggests that you do this for one hour twice a week and the best time for him/her is between 7:00 - 8:00 am. Bearing in mind nothing but your own internal clock, how do you think you would perform?')
data$meq_q10 = ff_label(data$meq_q10, '10. At what time of day do you feel you become tired as a result of need for sleep?')
data$meq_q11 = ff_label(data$meq_q11, '11. You want to be at your peak performance for a test that you know is going to be mentally exhausting and will last for two hours. You are entirely free to plan your day. Considering only your own internal clock, which ONE of the four testing times would you choose?')
data$meq_q12 = ff_label(data$meq_q12, '12. If you got into bed at 11:00 pm, how tired would you be?')
data$meq_q13 = ff_label(data$meq_q13, '13. For some reason, you have gone to bed several hours later than usual, but there is no need to get up at any particular time the next morning. Which ONE of the following are you most likely to do?')
data$meq_q14 = ff_label(data$meq_q14, '14. One night you have to remain awake between 4:00 - 6:00 am in order to carry out a night watch. You have no commitments the next day. Which ONE of the alternatives will suite you best?')
data$meq_q15 = ff_label(data$meq_q15, '15. You have to do two hours of hard physical work. You are entirely free to plan your day and considering only your own internal clock which ONE of the following times would you choose?')
data$meq_q16 = ff_label(data$meq_q16, '16. You have decided to engage in hard physical exercise. A friend suggests that you do this for one hour twice a week and the best time for him/her is between 10:00 - 11:00 pm. Bearing in mind nothing else but your own internal clock, how well do you think you would perform?')
data$meq_q17 = ff_label(data$meq_q17, '17. Suppose that you can choose your school hours. Assume that you went to school for five hours per day and that school was interesting and enjoyable. Which five consecutive hours would you select?')
data$meq_q18 = ff_label(data$meq_q18, '18. At what time of the day do you think that you reach your feeling best peak?')
data$meq_q19 = ff_label(data$meq_q19, '19. One hears about morning and evening types of people. Which ONE of these types do you consider yourself to be?')
data$meq_total = ff_label(data$meq_total, 'MEQ Total Score')
data$repeatable_morningnesseveningness_questionnaire_me_complete = ff_label(data$repeatable_morningnesseveningness_questionnaire_me_complete, 'Complete?')
data$cough_date_completion = ff_label(data$cough_date_completion, 'Date of completion')
data$cough_visit = ff_label(data$cough_visit, 'Visit')
data$lcq_q1 = ff_label(data$lcq_q1, '1) In the last 2 weeks, have you had chest or stomach pains as a result of your cough?')
data$lcq_q2 = ff_label(data$lcq_q2, '2) In the last 2 weeks, have you been bothered by sputum (phlegm) production when you cough?')
data$lcq_q3 = ff_label(data$lcq_q3, '3) In the last 2 weeks, have you been tired because of your cough?')
data$lcq_q4 = ff_label(data$lcq_q4, '4) In the last 2 weeks, have you felt in control of your cough?')
data$lcq_q5 = ff_label(data$lcq_q5, '5) How often during the last 2 weeks have you felt embarrassed by your coughing?')
data$lcq_q6 = ff_label(data$lcq_q6, '6) In the last 2 weeks, my cough has made me feel anxious')
data$lcq_q7 = ff_label(data$lcq_q7, '7) In the last 2 weeks, my cough has interfered with my job or other daily tasks')
data$lcq_q8 = ff_label(data$lcq_q8, '8) In the last 2 weeks, I felt that my cough interfered with the overall enjoyment of my life')
data$lcq_q9 = ff_label(data$lcq_q9, '9)  In the last 2 weeks, exposure to paint or fumes has made me cough')
data$lcq_q10 = ff_label(data$lcq_q10, '10) In the last 2 weeks, has your cough disturbed your sleep?')
data$lcq_q11 = ff_label(data$lcq_q11, '11) In the last 2 weeks, how many times a day have you had a coughing bout?')
data$lcq_q12 = ff_label(data$lcq_q12, '12) In the last 2 weeks, my cough has made me feel frustrated')
data$lcq_q13 = ff_label(data$lcq_q13, '13) In the last 2 weeks, my cough has made me feel fed up')
data$lcq_q14 = ff_label(data$lcq_q14, '14) In the last 2 weeks, have you suffered from a hoarse voice as a result of your cough?')
data$lcq_q15 = ff_label(data$lcq_q15, '15) In the last 2 weeks, have you had a lot of energy?')
data$lcq_q16 = ff_label(data$lcq_q16, '16) In the last 2 weeks, have you worried that your cough may indicate serious illness?')
data$lcq_q17 = ff_label(data$lcq_q17, '17) In the last 2 weeks, have you been concerned that other people think something is wrong with you, because of your cough?')
data$lcq_q18 = ff_label(data$lcq_q18, '18)  In the last 2 weeks, my cough has interrupted conversation or telephone calls')
data$lcq_q19 = ff_label(data$lcq_q19, '19) In the last 2 weeks, I feel that my cough has annoyed my partner, family, or friends')
data$lcq_physical = ff_label(data$lcq_physical, 'Physical Domain Score')
data$lcq_psycho = ff_label(data$lcq_psycho, 'Psychological Domain Score')
data$lcq_social = ff_label(data$lcq_social, 'Social Domain Score')
data$lcq_total = ff_label(data$lcq_total, 'Total Score')
data$repeatable_leicester_cough_questionnaire_complete = ff_label(data$repeatable_leicester_cough_questionnaire_complete, 'Complete?')
data$pft_spm_done = ff_label(data$pft_spm_done, 'Spirometry completed?')
data$pft_spm_reason_not_done = ff_label(data$pft_spm_reason_not_done, 'Reason spirometry not completed')
data$pft_spm_date = ff_label(data$pft_spm_date, 'Date completed')
data$pft_spm_has_report = ff_label(data$pft_spm_has_report, 'Report/printout available')
data$ptf_equipment = ff_label(data$ptf_equipment, 'Name & type of equipment')
data$pft_is_post_bronc = ff_label(data$pft_is_post_bronc, 'Was this testing performed after bronchodilation?')
data$pft_tests_done___1 = ff_label(data$pft_tests_done___1, 'Has any of the following pulmonary function tests been performed? (choice=FEV1)')
data$pft_tests_done___2 = ff_label(data$pft_tests_done___2, 'Has any of the following pulmonary function tests been performed? (choice=FVC)')
data$pft_tests_done___3 = ff_label(data$pft_tests_done___3, 'Has any of the following pulmonary function tests been performed? (choice=FEV1/FVC)')
data$pft_tests_done___4 = ff_label(data$pft_tests_done___4, 'Has any of the following pulmonary function tests been performed? (choice=TLCO)')
data$pft_tests_done___5 = ff_label(data$pft_tests_done___5, 'Has any of the following pulmonary function tests been performed? (choice=KCO)')
data$pft_tests_done___6 = ff_label(data$pft_tests_done___6, 'Has any of the following pulmonary function tests been performed? (choice=MIP)')
data$pft_tests_done___7 = ff_label(data$pft_tests_done___7, 'Has any of the following pulmonary function tests been performed? (choice=MEP)')
data$pft_fev1_r1a = ff_label(data$pft_fev1_r1a, 'FEV1 reading 1 actual value')
data$pft_fev1_r2a = ff_label(data$pft_fev1_r2a, 'FEV1 reading 2 actual value')
data$pft_fev1_r3a = ff_label(data$pft_fev1_r3a, 'FEV1 reading 3 actual value')
data$pft_fvc_r1a = ff_label(data$pft_fvc_r1a, 'FVC reading 1 actual value')
data$pft_fvc_r2a = ff_label(data$pft_fvc_r2a, 'FVC reading 2 actual value')
data$pft_fvc_r3a = ff_label(data$pft_fvc_r3a, 'FVC reading 3 actual value')
data$pft_fev1_fvc_r1 = ff_label(data$pft_fev1_fvc_r1, 'FEV1/FVC reading 1')
data$pft_fev1_fvc_r2 = ff_label(data$pft_fev1_fvc_r2, 'FEV1/FVC reading 2')
data$pft_fev1_fvc_r3 = ff_label(data$pft_fev1_fvc_r3, 'FEV1/FVC reading 3')
data$pft_tlco_date = ff_label(data$pft_tlco_date, 'TLCO Date complete')
data$pft_tlco_unit = ff_label(data$pft_tlco_unit, 'TLCO  Units')
data$pft_tlco_reading1 = ff_label(data$pft_tlco_reading1, 'TLCO Reading 1 - actual value')
data$pft_tlco_reading2 = ff_label(data$pft_tlco_reading2, 'TLCO Reading 2 - actual value')
data$pft_kco_date = ff_label(data$pft_kco_date, 'KCO Date complete')
data$pft_kco_unit = ff_label(data$pft_kco_unit, 'KCO  Units')
data$pft_kco_reading1 = ff_label(data$pft_kco_reading1, 'KCO Reading 1 - actual value')
data$pft_kco_reading2 = ff_label(data$pft_kco_reading2, 'KCO Reading 2 - actual value')
data$pft_mip_date = ff_label(data$pft_mip_date, 'MIP (Max inspiratory pressure) Date complete')
data$pft_mip_reading = ff_label(data$pft_mip_reading, 'MIP (Max inspiratory pressure) Reading 1 - actual value')
data$pft_mip_reading2 = ff_label(data$pft_mip_reading2, 'MIP (Max inspiratory pressure) Reading 2 - actual value')
data$pft_mep_date = ff_label(data$pft_mep_date, 'MEP (Max expiratory pressure) Date complete')
data$pft_mep_reading1 = ff_label(data$pft_mep_reading1, 'MEP (Max expiratory pressure) Reading 1 - actual value')
data$pft_mep_reading2 = ff_label(data$pft_mep_reading2, 'MEP (Max expiratory pressure) Reading 2 - actual value')
data$repeatable_pulmonary_functional_tests_complete = ff_label(data$repeatable_pulmonary_functional_tests_complete, 'Complete?')
data$wt_type = ff_label(data$wt_type, 'Type of test')
data$wt_done = ff_label(data$wt_done, 'Completed')
data$wt_visit = ff_label(data$wt_visit, 'Visit')
data$wt_date = ff_label(data$wt_date, 'Date completed')
data$wt_aid = ff_label(data$wt_aid, 'Walking aid')
data$wt_aid_detail = ff_label(data$wt_aid_detail, 'Walking aid detail')
data$wt_o2 = ff_label(data$wt_o2, 'Supplemental oxygen during test')
data$wt_o2_flow = ff_label(data$wt_o2_flow, 'Supplemental oxygen flow rate')
data$wt_pre_hr = ff_label(data$wt_pre_hr, 'Pre-test heart rate')
data$wt_pre_spo2 = ff_label(data$wt_pre_spo2, 'Pre-test pulse oximetry (SpO2)')
data$wt_pre_bp_sys = ff_label(data$wt_pre_bp_sys, 'Pre-test blood pressure - systolic')
data$wt_pre_bp_dia = ff_label(data$wt_pre_bp_dia, 'Pre-test blood pressure - diastolic')
data$wt_pre_bless = ff_label(data$wt_pre_bless, 'Pre-test BORG breathlessness (0 - 10)')
data$wt_pre_legf = ff_label(data$wt_pre_legf, 'Pre-test BORG leg fatigue (0 - 10)')
data$wt_post_hr = ff_label(data$wt_post_hr, 'Post-test heart rate')
data$wt_post_spo2 = ff_label(data$wt_post_spo2, 'Post-test pulse oximetry (SpO2)')
data$wt_post_bp_sys = ff_label(data$wt_post_bp_sys, 'Post-test blood pressure - systolic')
data$wt_post_bp_dia = ff_label(data$wt_post_bp_dia, 'Post-test blood pressure - diastolic')
data$wt_post_bless = ff_label(data$wt_post_bless, 'Post-test BORG breathlessness (0 - 10)')
data$wt_post_legf = ff_label(data$wt_post_legf, 'Post-test BORG leg fatigue (0 - 10)')
data$wt_distance = ff_label(data$wt_distance, 'Distance (m)')
data$mt_level = ff_label(data$mt_level, 'Level achieved')
data$mt_reason___1 = ff_label(data$mt_reason___1, 'Reason for termination (choice=Breathlessness)')
data$mt_reason___2 = ff_label(data$mt_reason___2, 'Reason for termination (choice=Leg fatigue)')
data$mt_reason___4 = ff_label(data$mt_reason___4, 'Reason for termination (choice=Breathlessness/Leg fatigue)')
data$mt_reason___3 = ff_label(data$mt_reason___3, 'Reason for termination (choice=Other)')
data$mt_reason_other = ff_label(data$mt_reason_other, 'Reason for termination Other - specify')
data$repeatable_walk_test_6_min_iswt_15_level_complete = ff_label(data$repeatable_walk_test_6_min_iswt_15_level_complete, 'Complete?')
data$t2ct_date_collected = ff_label(data$t2ct_date_collected, 'Date sample collected')
data$t2ct_fasting = ff_label(data$t2ct_fasting, 'Participant fasting?')
data$t2ct_gap_last_meal = ff_label(data$t2ct_gap_last_meal, 'Time since last meal')
data$t2ct_type_last_meal = ff_label(data$t2ct_type_last_meal, 'Type of last meal')
data$t2ct_blood_fbc = ff_label(data$t2ct_blood_fbc, 'FBC')
data$t2ct_blood_ues = ff_label(data$t2ct_blood_ues, 'U&Es')
data$t2ct_blood_egfr = ff_label(data$t2ct_blood_egfr, 'eGFR')
data$t2ct_blood_lfts = ff_label(data$t2ct_blood_lfts, 'LFTs')
data$t2ct_blood_crp = ff_label(data$t2ct_blood_crp, 'CRP')
data$t2ct_blood_bone = ff_label(data$t2ct_blood_bone, 'Bone profile')
data$t2ct_blood_25oh = ff_label(data$t2ct_blood_25oh, '25-Hydroxyvitamin D (25-OH)')
data$t2ct_blood_bnp = ff_label(data$t2ct_blood_bnp, 'BNP/Pro-NT BNP')
data$t2ct_blood_trop = ff_label(data$t2ct_blood_trop, 'Troponin')
data$t2ct_blood_dd = ff_label(data$t2ct_blood_dd, 'D Dimer')
data$t2ct_blood_fib = ff_label(data$t2ct_blood_fib, 'Fibrinogen')
data$t2ct_blood_inr = ff_label(data$t2ct_blood_inr, 'INR')
data$t2ct_blood_fer = ff_label(data$t2ct_blood_fer, 'Ferritin')
data$t2ct_blood_hba1c = ff_label(data$t2ct_blood_hba1c, 'HbA1C')
data$t2ct_blood_lipid = ff_label(data$t2ct_blood_lipid, 'Lipid profile (non-fasting)')
data$t2ct_link_routine_blood = ff_label(data$t2ct_link_routine_blood, 'If any blood tests performed, please enter results in the Laboratory Results Collection Log - Routine blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_routi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$t2ct_urine_albumbin = ff_label(data$t2ct_urine_albumbin, 'albumin: creatinine ratio')
data$t2ct_urine_protein = ff_label(data$t2ct_urine_protein, 'protein: creatinine ratio')
data$t2ct_urine_urinalysis = ff_label(data$t2ct_urine_urinalysis, 'Urinalysis (dipstick)')
data$t2ct_link_blood_urine = ff_label(data$t2ct_link_blood_urine, 'If Urinalysis, Urine albumin : creatinine ratio or Urine protein : creatinine ratio performed, please enter results in the Laboratory Results Collection Log - Urine Profile and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_urine:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$t2ct_fasting_date = ff_label(data$t2ct_fasting_date, 'Date fasting samples collected')
data$t2ct_fast_lipid = ff_label(data$t2ct_fast_lipid, 'Lipid profile (fasting)')
data$t2ct_fast_gluc = ff_label(data$t2ct_fast_gluc, 'Glucose (fasting)')
data$t2ct_fast_insul = ff_label(data$t2ct_fast_insul, 'Insulin (fasting)')
data$t2ct_link_fast_blood = ff_label(data$t2ct_link_fast_blood, 'If any fasting samples collected, please enter results in the Laboratory Results Collection Log - Routine blood tests and mark as Yes when completed.  [form-link:repeatable_laboratory_results_collection_log_routi:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$repeatable_tier_2_core_tests_checklist_complete = ff_label(data$repeatable_tier_2_core_tests_checklist_complete, 'Complete?')
data$t2brs_date = ff_label(data$t2brs_date, 'Date sample collected')
data$t2brs_cirate = ff_label(data$t2brs_cirate, '[1] 1 x 3.5 ml citrate tube (Light blue topped vacuette)')
data$t2brs_sst_s1 = ff_label(data$t2brs_sst_s1, '[2] 1 x 8.5 ml SST tube S1 (Gold topped vacutainer)')
data$t2brs_sst_s3 = ff_label(data$t2brs_sst_s3, '[3] 1 x 8.5 ml SST tube S2 (Gold topped vacutainer)')
data$t2brs_lithium = ff_label(data$t2brs_lithium, '[4] 1 x 6 ml lithium heparin (Light green topped vacutainer)')
data$t2brs_edta_e1 = ff_label(data$t2brs_edta_e1, '[5] 1 x 6 ml K2 EDTA tube E1 (Lavender topped vacutainer)')
data$t2brs_edta_e2 = ff_label(data$t2brs_edta_e2, '[6] 1 x 10 ml K2 EDTA tube E2 (Lavender topped vacutainer)')
data$t2brs_rna = ff_label(data$t2brs_rna, '[7] 1 x 3 ml Tempus Blood RNA Tube (Blue topped)')
data$t2brs_core_form_blood = ff_label(data$t2brs_core_form_blood, 'If any Tier 2 Blood Research Samples have been taken, please complete the Tier 2 Core Sample Notification Form - Blood  [form-link:repeatable_tier_2_core_sample_notification_form_bl:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$t2brs_other_oral_sample = ff_label(data$t2brs_other_oral_sample, '[1] Oral rinse sample')
data$t2brs_other_oral_control = ff_label(data$t2brs_other_oral_control, '[2] Oral rinse control')
data$t2brs_other_sputum = ff_label(data$t2brs_other_sputum, '[3] Sputum')
data$t2brs_other_urine = ff_label(data$t2brs_other_urine, '[4] Urine')
data$t2brs_core_form_oral = ff_label(data$t2brs_core_form_oral, 'If Tier 2 Oral Rinse Research Samples have been taken, please complete the Tier 2 Core Sample Notification Form - Oral Rinse  [form-link:repeatable_tier_2_core_sample_notification_form_or:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$t2brs_core_form_sputum = ff_label(data$t2brs_core_form_sputum, 'If Tier 2 Sputum Research Samples have been taken, please complete the Tier 2 Core Sample Notification Form - Sputum  [form-link:repeatable_tier_2_core_sample_notification_form_sp:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$t2brs_core_form_urine = ff_label(data$t2brs_core_form_urine, 'If Tier 2 Urine Research Samples have been taken, please complete the Tier 2 Core Sample Notification Form - Urine  [form-link:repeatable_tier_2_core_sample_notification_form_ur:Click here to complete]  This will open the form in a new window. Please complete it, come back and continue here.')
data$repeatable_tier_2_biological_research_samples_chec_complete = ff_label(data$repeatable_tier_2_biological_research_samples_chec_complete, 'Complete?')
data$t2c_blood_date_collect = ff_label(data$t2c_blood_date_collect, 'Date of sample collection')
data$t2c_blood_kit_label = ff_label(data$t2c_blood_kit_label, 'Kit Label')
data$t2c_blood_citrate = ff_label(data$t2c_blood_citrate, '3.5ml citrate tube x 1 (light blue topped)')
data$t2c_blood_s1 = ff_label(data$t2c_blood_s1, '8.5ml SST tube S1 (gold topped)')
data$t2c_blood_s2 = ff_label(data$t2c_blood_s2, '8.5ml SST tube S2 (gold topped)')
data$t2c_blood_heparin = ff_label(data$t2c_blood_heparin, '6 ml lithium heparin tube (green topped)')
data$t2c_blood_e1 = ff_label(data$t2c_blood_e1, '6 ml K2-EDTA tube E1 (lavender topped)')
data$t2c_blood_e2 = ff_label(data$t2c_blood_e2, '10 ml K2-EDTA tube E2 (lavender topped)')
data$t2c_blood_tempus = ff_label(data$t2c_blood_tempus, 'Tempus tube x 1')
data$t2c_blood_tube_inv_citrate = ff_label(data$t2c_blood_tube_inv_citrate, '3.5ml citrate tube x 1 (light blue topped)')
data$t2c_blood_tube_inv_s1 = ff_label(data$t2c_blood_tube_inv_s1, '8.5ml SST tube S1 (gold topped)')
data$t2c_blood_tube_inv_s2 = ff_label(data$t2c_blood_tube_inv_s2, '8.5ml SST tube S2 (gold topped)')
data$t2c_blood_tube_inv_heparin = ff_label(data$t2c_blood_tube_inv_heparin, '6 ml lithium heparin tube (green topped)')
data$t2c_blood_tube_inv_e1 = ff_label(data$t2c_blood_tube_inv_e1, '6 ml K2-EDTA tube E1 (lavender topped)')
data$t2c_blood_tube_inv_e2 = ff_label(data$t2c_blood_tube_inv_e2, '10 ml K2-EDTA tube E2 (lavender topped)')
data$t2c_blood_tube_inv_tempus = ff_label(data$t2c_blood_tube_inv_tempus, 'Tempus tube x 1')
data$t2c_blood_time_clot_s1 = ff_label(data$t2c_blood_time_clot_s1, '8.5ml SST tube S1 (gold topped) Time at which clotting activated')
data$t2c_blood_time_clot_s2 = ff_label(data$t2c_blood_time_clot_s2, '8.5ml SST tube S2 (gold topped) Time at which clotting activated')
data$t2c_blood_date_frozen = ff_label(data$t2c_blood_date_frozen, 'Date samples frozen')
data$repeatable_tier_2_core_sample_notification_form_bl_complete = ff_label(data$repeatable_tier_2_core_sample_notification_form_bl_complete, 'Complete?')
data$t2c_oral_date_collect = ff_label(data$t2c_oral_date_collect, 'Date of sample collection')
data$t2c_oral_kit_label = ff_label(data$t2c_oral_kit_label, 'Kit label')
data$t2c_oral_wash_taken = ff_label(data$t2c_oral_wash_taken, 'Oral wash')
data$t2c_oral_control_taken = ff_label(data$t2c_oral_control_taken, 'Oral wash solution negative control')
data$t2c_oral_date_frozen = ff_label(data$t2c_oral_date_frozen, 'Date samples frozen')
data$repeatable_tier_2_core_sample_notification_form_or_complete = ff_label(data$repeatable_tier_2_core_sample_notification_form_or_complete, 'Complete?')
data$t2c_sputum_date_collect = ff_label(data$t2c_sputum_date_collect, 'Date of sample collection')
data$t2c_sputum_kit_label = ff_label(data$t2c_sputum_kit_label, 'Kit label')
data$t2c_sputum_taken = ff_label(data$t2c_sputum_taken, 'Confirm sputum sample taken')
data$t2c_sputum_date_frozen = ff_label(data$t2c_sputum_date_frozen, 'Date samples frozen')
data$repeatable_tier_2_core_sample_notification_form_sp_complete = ff_label(data$repeatable_tier_2_core_sample_notification_form_sp_complete, 'Complete?')
data$t2c_urine_date_collect = ff_label(data$t2c_urine_date_collect, 'Date of sample collection')
data$t2c_urine_kit_label = ff_label(data$t2c_urine_kit_label, 'Kit label')
data$t2c_urine_taken = ff_label(data$t2c_urine_taken, 'Confirm urine sample taken')
data$t2c_urine_date_frozen = ff_label(data$t2c_urine_date_frozen, 'Date samples frozen')
data$repeatable_tier_2_core_sample_notification_form_ur_complete = ff_label(data$repeatable_tier_2_core_sample_notification_form_ur_complete, 'Complete?')
data$qrisk3_done = ff_label(data$qrisk3_done, 'Completed')
data$qrisk3_visit = ff_label(data$qrisk3_visit, 'Visit')
data$qrisk3_date = ff_label(data$qrisk3_date, 'Date completed')
data$qrisk3_eth = ff_label(data$qrisk3_eth, 'Ethnicity')
data$qrisk3_diab = ff_label(data$qrisk3_diab, 'Diabetes status')
data$qrisk3_smoke = ff_label(data$qrisk3_smoke, 'Smoking')
data$qrisk3_other_heart = ff_label(data$qrisk3_other_heart, 'Do you have a 1st degree relative who suffers from angina or who has had a heart attack before the age of 60 years?')
data$qrisk3_other_ckd = ff_label(data$qrisk3_other_ckd, 'Do you have chronic kidney disease (stage 3, 4 or 5)?')
data$qrisk3_other_af = ff_label(data$qrisk3_other_af, 'Do you have atrial fibrillation?')
data$qrisk3_other_bpt = ff_label(data$qrisk3_other_bpt, 'Do you take blood pressure treatment?')
data$qrisk3_other_migraines = ff_label(data$qrisk3_other_migraines, 'Do you have migraines?')
data$qrisk3_other_ra = ff_label(data$qrisk3_other_ra, 'Do you have rheumatoid arthritis?')
data$qrisk3_other_sle = ff_label(data$qrisk3_other_sle, 'Do you have systemic lupus erythematosus (SLE)?')
data$qrisk3_other_smi = ff_label(data$qrisk3_other_smi, 'Do you have severe mental illness? (Including schizophrenia, bipolar disorder & moderate/severe depression)')
data$qrisk3_other_aam = ff_label(data$qrisk3_other_aam, 'Do you take atypical antipsychotic medication?')
data$qrisk3_other_rst = ff_label(data$qrisk3_other_rst, 'Do you take regular steroid tablets?')
data$qrisk3_other_ed = ff_label(data$qrisk3_other_ed, 'Have you been diagnosed with or do you take treatment for erectile dysfunction?')
data$repeatable_qrisk3_complete = ff_label(data$repeatable_qrisk3_complete, 'Complete?')
data$bia_done = ff_label(data$bia_done, 'BIA performed?')
data$bia_date = ff_label(data$bia_date, 'Date completed')
data$bia_equip = ff_label(data$bia_equip, 'Equipment type')
data$bia_fat_weight = ff_label(data$bia_fat_weight, 'Body fat weight')
data$bia_fat_pc = ff_label(data$bia_fat_pc, 'Body fat %')
data$bia_dry = ff_label(data$bia_dry, 'Dry lean weight')
data$bia_lean = ff_label(data$bia_lean, 'Lean weight')
data$bia_water_pc = ff_label(data$bia_water_pc, 'Water %')
data$bia_water = ff_label(data$bia_water, 'Total body water')
data$bia_meta_rate = ff_label(data$bia_meta_rate, 'Basal metabolic rate at rest')
data$bia_bmr = ff_label(data$bia_bmr, 'BMR / Body weight')
data$bia_energy = ff_label(data$bia_energy, 'Estimated average energy required')
data$bia_imp = ff_label(data$bia_imp, 'Impedance')
data$repeatable_body_composition_measurements_bia_complete = ff_label(data$repeatable_body_composition_measurements_bia_complete, 'Complete?')
data$dxa_done = ff_label(data$dxa_done, 'DXA performed?')
data$dxa_date = ff_label(data$dxa_date, 'Date completed')
data$dxa_total_bm = ff_label(data$dxa_total_bm, 'Total body mass')
data$dxa_total_fm = ff_label(data$dxa_total_fm, 'Total fat mass weight')
data$dxa_total_fm_pc = ff_label(data$dxa_total_fm_pc, 'Total % fat')
data$dxa_total_lm = ff_label(data$dxa_total_lm, 'Total lean mass weight')
data$dxa_arms_lm = ff_label(data$dxa_arms_lm, 'Arms lean mass weight')
data$dxa_arms_fm = ff_label(data$dxa_arms_fm, 'Arms fat mass weight')
data$dxa_arms_bmc = ff_label(data$dxa_arms_bmc, 'Arms BMC')
data$dxa_legs_lm = ff_label(data$dxa_legs_lm, 'Legs lean mass weight')
data$dxa_legs_fm = ff_label(data$dxa_legs_fm, 'Legs fat mass weight')
data$dxa_legs_bmc = ff_label(data$dxa_legs_bmc, 'Legs BMC')
data$dxa_bmc = ff_label(data$dxa_bmc, 'Total bone mineral content (BMC)')
data$dxa_bmd = ff_label(data$dxa_bmd, 'Total bone mineral density (BMD)')
data$dxa_bmd_hip = ff_label(data$dxa_bmd_hip, 'Total hip BMD')
data$dxa_bmd_fem = ff_label(data$dxa_bmd_fem, 'Femoral neck BMD')
data$dxa_bmd_lum = ff_label(data$dxa_bmd_lum, 'L1 - L4 Lumbar spine BMD')
data$dxa_fracture = ff_label(data$dxa_fracture, 'As an adult, did you sustained a spontaneous or minimally traumatic fracture e.g. falling from a standing height?')
data$dxa_fracture_parent = ff_label(data$dxa_fracture_parent, 'Have either of your parents had a hip fracture?')
data$repeatable_body_composition_measurements_dxa_complete = ff_label(data$repeatable_body_composition_measurements_dxa_complete, 'Complete?')
data$ms_hs_done = ff_label(data$ms_hs_done, 'Has handgrip isometric strength been measured?')
data$ms_hs_date = ff_label(data$ms_hs_date, 'Date completed')
data$ms_hs_dom = ff_label(data$ms_hs_dom, 'Dominant hand')
data$ms_hs_pos = ff_label(data$ms_hs_pos, 'Handgrip position setting')
data$ms_hs_equip = ff_label(data$ms_hs_equip, 'Name and type of equipment')
data$ms_hs_l1 = ff_label(data$ms_hs_l1, 'Left hand reading 1')
data$ms_hs_l2 = ff_label(data$ms_hs_l2, 'Left hand reading 2')
data$ms_hs_l3 = ff_label(data$ms_hs_l3, 'Left hand reading 3')
data$ms_hs_r1 = ff_label(data$ms_hs_r1, 'Right hand reading 1')
data$ms_hs_r2 = ff_label(data$ms_hs_r2, 'Right hand reading 2')
data$ms_hs_r3 = ff_label(data$ms_hs_r3, 'Right hand reading 3')
data$ms_qs_done = ff_label(data$ms_qs_done, 'Has quadriceps isometric strength been measured?')
data$ms_qs_date = ff_label(data$ms_qs_date, 'Date completed')
data$ms_qs_dom = ff_label(data$ms_qs_dom, 'Dominant leg')
data$ms_qs_1 = ff_label(data$ms_qs_1, 'Quadriceps isometric strength reading 1')
data$ms_qs_2 = ff_label(data$ms_qs_2, 'Quadriceps isometric strength reading 2')
data$ms_qs_3 = ff_label(data$ms_qs_3, 'Quadriceps isometric strength reading 3')
data$ms_qs_4 = ff_label(data$ms_qs_4, 'Quadriceps isometric strength reading 4')
data$ms_qs_5 = ff_label(data$ms_qs_5, 'Quadriceps isometric strength reading 5')
data$ms_qs_6 = ff_label(data$ms_qs_6, 'Quadriceps isometric strength reading 6')
data$repeatable_muscle_strength_complete = ff_label(data$repeatable_muscle_strength_complete, 'Complete?')
data$sppb_visit = ff_label(data$sppb_visit, 'Visit')
data$sppb_done = ff_label(data$sppb_done, 'Has the test been completed?')
data$sppb_date = ff_label(data$sppb_date, 'Date completed')
data$sppb_balance = ff_label(data$sppb_balance, 'Balance score')
data$sppb_walk_t1 = ff_label(data$sppb_walk_t1, 'Walk score (4 meters) Time 1 (seconds)')
data$sppb_walk_t2 = ff_label(data$sppb_walk_t2, 'Walk score (4 meters) Time 2 (seconds)')
data$sppb_walk = ff_label(data$sppb_walk, 'Walk score (4 metres)')
data$sppb_chair_t = ff_label(data$sppb_chair_t, 'Chair stand score Time (seconds)')
data$sppb_chair = ff_label(data$sppb_chair, 'Chair stand score')
data$sppb_score = ff_label(data$sppb_score, 'SPPB total score (0-12)')
data$repeatable_short_physical_performance_battery_sppb_complete = ff_label(data$repeatable_short_physical_performance_battery_sppb_complete, 'Complete?')
data$pre_psq_version = ff_label(data$pre_psq_version, 'Pre-COVID Patient Symptom Questionnaire completed')
data$pre_psq_date = ff_label(data$pre_psq_date, 'Date of questionnaire completion')
data$psq_scale_blness_pre2 = ff_label(data$psq_scale_blness_pre2, 'Breathlessness')
data$psq_scale_cough_pre2 = ff_label(data$psq_scale_cough_pre2, 'Cough')
data$psq_scale_fatigue_pre2 = ff_label(data$psq_scale_fatigue_pre2, 'Fatigue')
data$psq_scale_sleep_pre2 = ff_label(data$psq_scale_sleep_pre2, 'Sleep quality')
data$psq_scale_pain_pre2 = ff_label(data$psq_scale_pain_pre2, 'Pain')
data$pre_psq_mrcds = ff_label(data$pre_psq_mrcds, 'Have you completed a MRC dyspnoea scale form?    [form-link:repeatable_mrc_dyspnoea_scale:Click here to complete]    This will open the form in a new window. Please complete it, come back and continue here.')
data$pre_psq_social = ff_label(data$pre_psq_social, 'Have you completed an Occupation and Work (Social history) form?    [form-link:repeatable_social_history:Click here to complete]    This will open the form in a new window. Please complete it, come back and continue here.')
data$pre_psq_eq5d5l = ff_label(data$pre_psq_eq5d5l, 'Have you completed a EQ-5D-5L form?    [form-link:repeatable_eq5d5l:Click here to complete]    This will open the form in a new window. Please complete it, come back and continue here.')
data$patient_sq_l_b_seeing2 = ff_label(data$patient_sq_l_b_seeing2, 'Do you have difficulty seeing, even if wearing glasses?')
data$patient_sq_l_b_hearing2 = ff_label(data$patient_sq_l_b_hearing2, 'Do you have difficulty hearing, even if using a hearing aid?')
data$patient_sq_l_b_walking2 = ff_label(data$patient_sq_l_b_walking2, 'Do you have difficulty walking or climbing steps?')
data$patient_sq_l_b_remembering2 = ff_label(data$patient_sq_l_b_remembering2, 'Do you have difficulty remembering or concentrating?')
data$patient_sq_l_b_self_care2 = ff_label(data$patient_sq_l_b_self_care2, 'Do you have difficulty (with self-care such as) washing all over or dressing?')
data$patient_sq_l_b_communicate2 = ff_label(data$patient_sq_l_b_communicate2, 'Using your usual (customary) language, do you have difficulty communicating, for example understanding or being understood?')
data$psq_tinnitus_before2 = ff_label(data$psq_tinnitus_before2, 'Have you had noises (such as ringing or buzzing) in your head or in one or both ears that lasts for more than 5 minutes at a time?')
data$psq_balance_q1_before2 = ff_label(data$psq_balance_q1_before2, 'a) Attacks of dizziness in which things seem to spin around you?')
data$psq_balance_q2_before2 = ff_label(data$psq_balance_q2_before2, 'b) Attacks of dizziness in which you seem to move?')
data$precovid_patient_symptom_questionnaire_complete = ff_label(data$precovid_patient_symptom_questionnaire_complete, 'Complete?')
data$symptom_version = ff_label(data$symptom_version, 'Symptom Assessment Version CompletedPLEASE ENSURE YOU SELECT THE CORRECT VERSION OF THE PATIENT SYMPTOM QUESTIONNAIRE COMPLETED AS THIS WILL AFFECT THE FIELDS DISPLAYED BELOW.')
data$patient_sq_date = ff_label(data$patient_sq_date, 'Date of questionnaire completion')
data$psq_recovered = ff_label(data$psq_recovered, 'a) Do you feel fully recovered from COVID-19?')
data$psq_scale_blness_pre = ff_label(data$psq_scale_blness_pre, 'b) Breathlessness')
data$psq_scale_cough_pre = ff_label(data$psq_scale_cough_pre, 'c) Cough')
data$psq_scale_fatigue_pre = ff_label(data$psq_scale_fatigue_pre, 'd) Fatigue')
data$psq_scale_sleep_pre = ff_label(data$psq_scale_sleep_pre, 'e) Sleep quality')
data$psq_scale_pain_pre = ff_label(data$psq_scale_pain_pre, 'f) Pain')
data$psq_scale_blness_since = ff_label(data$psq_scale_blness_since, 'b) Breathlessness')
data$psq_scale_cough_since = ff_label(data$psq_scale_cough_since, 'c) Cough')
data$psq_scale_fatigue_since = ff_label(data$psq_scale_fatigue_since, 'd) Fatigue')
data$psq_scale_sleep_since = ff_label(data$psq_scale_sleep_since, 'e) Sleep quality')
data$psq_scale_pain_since = ff_label(data$psq_scale_pain_since, 'f) Pain')
data$psq_scale_blness_24hrs = ff_label(data$psq_scale_blness_24hrs, 'b) Breathlessness')
data$psq_scale_cough_24hrs = ff_label(data$psq_scale_cough_24hrs, 'c) Cough')
data$psq_scale_fatigue_24hrs = ff_label(data$psq_scale_fatigue_24hrs, 'd) Fatigue')
data$psq_scale_sleep_24hrs = ff_label(data$psq_scale_sleep_24hrs, 'e) Sleep quality')
data$psq_scale_pain_24hrs = ff_label(data$psq_scale_pain_24hrs, 'f) Pain')
data$psq_traj_blness = ff_label(data$psq_traj_blness, 'b) Breathlessness')
data$psq_traj_cough = ff_label(data$psq_traj_cough, 'c) Cough')
data$psq_traj_fatigue = ff_label(data$psq_traj_fatigue, 'd) Fatigue')
data$psq_traj_sleep = ff_label(data$psq_traj_sleep, 'e) Sleep quality')
data$psq_traj_pain = ff_label(data$psq_traj_pain, 'f) Pain')
data$patient_sq_g = ff_label(data$patient_sq_g, 'g) How many hours sleep do you get in general every 24 hours?')
data$psq_blness = ff_label(data$psq_blness, 'Breathlessness')
data$psq_cough = ff_label(data$psq_cough, 'Cough')
data$psq_fatigue = ff_label(data$psq_fatigue, 'Fatigue')
data$psq_sleep = ff_label(data$psq_sleep, 'Poor sleep')
data$psq_pain = ff_label(data$psq_pain, 'Pain')
data$loss_of_sense_of_smell = ff_label(data$loss_of_sense_of_smell, 'Loss of sense of smell')
data$loss_of_taste = ff_label(data$loss_of_taste, 'Loss of taste')
data$confusion_fuzzy_head = ff_label(data$confusion_fuzzy_head, 'Confusion/fuzzy head')
data$difficulty_with_communicat = ff_label(data$difficulty_with_communicat, 'Difficulty with communication')
data$difficulty_with_concentrat = ff_label(data$difficulty_with_concentrat, 'Difficulty with concentration')
data$short_term_memory_loss = ff_label(data$short_term_memory_loss, 'Short term memory loss')
data$physical_slowing_down = ff_label(data$physical_slowing_down, 'Physical slowing down')
data$slowing_down_in_your_think = ff_label(data$slowing_down_in_your_think, 'Slowing down in your thinking')
data$headache = ff_label(data$headache, 'Headache')
data$altered_personality_behavi = ff_label(data$altered_personality_behavi, 'Altered personality/behaviour (not the same person)')
data$limb_weakness = ff_label(data$limb_weakness, 'Limb weakness')
data$problems_with_balance = ff_label(data$problems_with_balance, 'Problems with balance')
data$can_t_move_and_or_feel_one = ff_label(data$can_t_move_and_or_feel_one, 'Cant move and / or feel one side of your body or face')
data$problems_seeing = ff_label(data$problems_seeing, 'Problems seeing')
data$tingling_feeling_pins_and = ff_label(data$tingling_feeling_pins_and, 'Tingling feeling/pins and needles')
data$can_t_fully_move_or_contro = ff_label(data$can_t_fully_move_or_contro, 'Cant fully move or control movement')
data$tremor_shakiness = ff_label(data$tremor_shakiness, 'Tremor/shakiness')
data$seizures = ff_label(data$seizures, 'Seizures')
data$aching_in_your_muscles_pai = ff_label(data$aching_in_your_muscles_pai, 'Aching in your muscles (pain)')
data$joint_pain_or_swelling = ff_label(data$joint_pain_or_swelling, 'Joint pain or swelling')
data$leg_ankle_swelling = ff_label(data$leg_ankle_swelling, 'Leg/ankle swelling')
data$chest_pain = ff_label(data$chest_pain, 'Chest pain')
data$chest_tightness = ff_label(data$chest_tightness, 'Chest tightness')
data$pain_on_breathing = ff_label(data$pain_on_breathing, 'Pain on breathing')
data$palpitations = ff_label(data$palpitations, 'Palpitations')
data$dizziness_or_lightheadness = ff_label(data$dizziness_or_lightheadness, 'Dizziness or lightheadness')
data$fainting_blackouts = ff_label(data$fainting_blackouts, 'Fainting / blackouts')
data$diarrhoea = ff_label(data$diarrhoea, 'Diarrhoea')
data$constipation = ff_label(data$constipation, 'Constipation')
data$nausea_vomiting = ff_label(data$nausea_vomiting, 'Nausea/vomiting')
data$abdominal_pain = ff_label(data$abdominal_pain, 'Abdominal pain')
data$loss_of_appetite = ff_label(data$loss_of_appetite, 'Loss of appetite')
data$loss_of_control_of_passing = ff_label(data$loss_of_control_of_passing, 'Loss of control of passing urine')
data$loss_of_control_of_opening = ff_label(data$loss_of_control_of_opening, 'Loss of control of opening your bowels')
data$weight_loss = ff_label(data$weight_loss, 'Weight loss')
data$stomach_pain = ff_label(data$stomach_pain, 'Stomach pain')
data$psq_symp_ed = ff_label(data$psq_symp_ed, 'Erectile Dysfunction')
data$skin_rash = ff_label(data$skin_rash, 'Skin rash')
data$hair_loss = ff_label(data$hair_loss, 'Hair loss')
data$lumpy_lesions_purple_pink = ff_label(data$lumpy_lesions_purple_pink, 'Lumpy lesions (purple/pink/bluish) on toes')
data$bleeding = ff_label(data$bleeding, 'Bleeding')
data$patient_sq_h_skin_rash___1 = ff_label(data$patient_sq_h_skin_rash___1, 'For skin rash, please tick all body areas that apply: (choice=Face)')
data$patient_sq_h_skin_rash___2 = ff_label(data$patient_sq_h_skin_rash___2, 'For skin rash, please tick all body areas that apply: (choice=Trunk (stomach or back))')
data$patient_sq_h_skin_rash___3 = ff_label(data$patient_sq_h_skin_rash___3, 'For skin rash, please tick all body areas that apply: (choice=Arms)')
data$patient_sq_h_skin_rash___4 = ff_label(data$patient_sq_h_skin_rash___4, 'For skin rash, please tick all body areas that apply: (choice=Legs)')
data$patient_sq_h_skin_rash___5 = ff_label(data$patient_sq_h_skin_rash___5, 'For skin rash, please tick all body areas that apply: (choice=Buttocks)')
data$patient_sq_h_skin_rash___6 = ff_label(data$patient_sq_h_skin_rash___6, 'For skin rash, please tick all body areas that apply: (choice=Toes)')
data$patient_sq_h_skin_rash___7 = ff_label(data$patient_sq_h_skin_rash___7, 'For skin rash, please tick all body areas that apply: (choice=Fingers)')
data$patient_sq_h_bleeding_site = ff_label(data$patient_sq_h_bleeding_site, 'For bleeding, please specify bleeding site :')
data$patient_sq_h_other = ff_label(data$patient_sq_h_other, 'Any other ongoing symptoms?')
data$patient_sq_h_other_detail = ff_label(data$patient_sq_h_other_detail, 'Please specify any other ongoing symptom that has been included above:')
data$patient_sq_i = ff_label(data$patient_sq_i, 'i) Are you or your family concerned that you have lost significant weight (5-10%) in the past 12 months, or may now be underweight?')
data$patient_sq_j = ff_label(data$patient_sq_j, 'j) Regarding your appetite or interest in eating (since COVID-19), please rank your appetite or interest in eating on a scale of 0-5:')
data$psq_itu_admit = ff_label(data$psq_itu_admit, 'k) Were you admitted to Intensive Care (ITU) during admission?')
data$psq_itu_airway = ff_label(data$psq_itu_airway, 'k1) Laryngeal/  airway complications')
data$psq_itu_swallow = ff_label(data$psq_itu_swallow, 'k2) Swallowing')
data$psq_itu_voice = ff_label(data$psq_itu_voice, 'k3) Voice')
data$psq_itu_airway_scale = ff_label(data$psq_itu_airway_scale, 'k1) Laryngeal/airway complications')
data$psq_itu_swallow_scale = ff_label(data$psq_itu_swallow_scale, 'k2) Swallowing')
data$psq_itu_voice_scale = ff_label(data$psq_itu_voice_scale, 'k3) Voice')
data$patient_sq_l_t_seeing = ff_label(data$patient_sq_l_t_seeing, 'Do you have difficulty seeing, even if wearing glasses?')
data$patient_sq_l_t_hearing = ff_label(data$patient_sq_l_t_hearing, 'Do you have difficulty hearing, even if using a hearing aid?')
data$patient_sq_l_t_walking = ff_label(data$patient_sq_l_t_walking, 'Do you have difficulty walking or climbing steps?')
data$patient_sq_l_t_remembering = ff_label(data$patient_sq_l_t_remembering, 'Do you have difficulty remembering or concentrating?')
data$patient_sq_l_t_self_care = ff_label(data$patient_sq_l_t_self_care, 'Do you have difficulty (with self-care such as) washing all over or dressing?')
data$patient_sq_l_t_communicate = ff_label(data$patient_sq_l_t_communicate, 'Using your usual (customary) language, do you have difficulty communicating, for example understanding or being understood?')
data$patient_sq_l_b_seeing = ff_label(data$patient_sq_l_b_seeing, 'Do you have difficulty seeing, even if wearing glasses?')
data$patient_sq_l_b_hearing = ff_label(data$patient_sq_l_b_hearing, 'Do you have difficulty hearing, even if using a hearing aid?')
data$patient_sq_l_b_walking = ff_label(data$patient_sq_l_b_walking, 'Do you have difficulty walking or climbing steps?')
data$patient_sq_l_b_remembering = ff_label(data$patient_sq_l_b_remembering, 'Do you have difficulty remembering or concentrating?')
data$patient_sq_l_b_self_care = ff_label(data$patient_sq_l_b_self_care, 'Do you have difficulty (with self-care such as) washing all over or dressing?')
data$patient_sq_l_b_communicate = ff_label(data$patient_sq_l_b_communicate, 'Using your usual (customary) language, do you have difficulty communicating, for example understanding or being understood?')
data$patient_sq_m = ff_label(data$patient_sq_m, 'm) How many units of alcohol, on average, do you consume per week?')
data$patient_sq_n = ff_label(data$patient_sq_n, 'n) Do you or have you ever smoked cigarettes?')
data$patient_sq_o = ff_label(data$patient_sq_o, 'o) Do you currently use an e-cigarette or vape?')
data$patient_sq_p_smoking = ff_label(data$patient_sq_p_smoking, 'Smoking')
data$patient_sq_p_drinking = ff_label(data$patient_sq_p_drinking, 'Drinking alcohol')
data$patient_sq_p_eating = ff_label(data$patient_sq_p_eating, 'Eating healthy food')
data$patient_sq_p_activity = ff_label(data$patient_sq_p_activity, 'Physical activity (include walking, cycling, & other activities)')
data$psq_work_pre_covid = ff_label(data$psq_work_pre_covid, 'q) Before you got COVID-19, what was your occupation/working status (paid or unpaid work)')
data$patient_sq_q = ff_label(data$patient_sq_q, 'NA')
data$patient_sq_q_today = ff_label(data$patient_sq_q_today, 'NA')
data$patient_sq_q_change = ff_label(data$patient_sq_q_change, 'q) If different from before, why did your occupation/working status change?')
data$patient_sq_q_reason = ff_label(data$patient_sq_q_reason, 'q) Occupation/working status change - Other:')
data$psq_employ_pre_lockdown___1 = ff_label(data$psq_employ_pre_lockdown___1, 'q) What was your employment status?  Before COVID-19 lockdown (choice=FT employment)')
data$psq_employ_pre_lockdown___2 = ff_label(data$psq_employ_pre_lockdown___2, 'q) What was your employment status?  Before COVID-19 lockdown (choice=PT employment)')
data$psq_employ_pre_lockdown___3 = ff_label(data$psq_employ_pre_lockdown___3, 'q) What was your employment status?  Before COVID-19 lockdown (choice=Off sick)')
data$psq_employ_pre_lockdown___4 = ff_label(data$psq_employ_pre_lockdown___4, 'q) What was your employment status?  Before COVID-19 lockdown (choice=Caring for children)')
data$psq_employ_pre_lockdown___5 = ff_label(data$psq_employ_pre_lockdown___5, 'q) What was your employment status?  Before COVID-19 lockdown (choice=Caring for an adult)')
data$psq_employ_pre_lockdown___6 = ff_label(data$psq_employ_pre_lockdown___6, 'q) What was your employment status?  Before COVID-19 lockdown (choice=FT education)')
data$psq_employ_pre_lockdown___7 = ff_label(data$psq_employ_pre_lockdown___7, 'q) What was your employment status?  Before COVID-19 lockdown (choice=PT education)')
data$psq_employ_pre_lockdown___8 = ff_label(data$psq_employ_pre_lockdown___8, 'q) What was your employment status?  Before COVID-19 lockdown (choice=Unemployed)')
data$psq_employ_pre_lockdown___9 = ff_label(data$psq_employ_pre_lockdown___9, 'q) What was your employment status?  Before COVID-19 lockdown (choice=Retired)')
data$psq_employ_pre_ill___1 = ff_label(data$psq_employ_pre_ill___1, 'q) What was your employment status?  Before you became ill (choice=FT employment)')
data$psq_employ_pre_ill___2 = ff_label(data$psq_employ_pre_ill___2, 'q) What was your employment status?  Before you became ill (choice=PT employment)')
data$psq_employ_pre_ill___3 = ff_label(data$psq_employ_pre_ill___3, 'q) What was your employment status?  Before you became ill (choice=Off sick)')
data$psq_employ_pre_ill___4 = ff_label(data$psq_employ_pre_ill___4, 'q) What was your employment status?  Before you became ill (choice=Caring for children)')
data$psq_employ_pre_ill___5 = ff_label(data$psq_employ_pre_ill___5, 'q) What was your employment status?  Before you became ill (choice=Caring for an adult)')
data$psq_employ_pre_ill___6 = ff_label(data$psq_employ_pre_ill___6, 'q) What was your employment status?  Before you became ill (choice=FT education)')
data$psq_employ_pre_ill___7 = ff_label(data$psq_employ_pre_ill___7, 'q) What was your employment status?  Before you became ill (choice=PT education)')
data$psq_employ_pre_ill___8 = ff_label(data$psq_employ_pre_ill___8, 'q) What was your employment status?  Before you became ill (choice=Unemployed)')
data$psq_employ_pre_ill___9 = ff_label(data$psq_employ_pre_ill___9, 'q) What was your employment status?  Before you became ill (choice=Retired)')
data$psq_employ_pre_ill___10 = ff_label(data$psq_employ_pre_ill___10, 'q) What was your employment status?  Before you became ill (choice=Furloughed)')
data$psq_employ_pre_ill___11 = ff_label(data$psq_employ_pre_ill___11, 'q) What was your employment status?  Before you became ill (choice=Laid off due to outbreak)')
data$psq_employ_since_home___1 = ff_label(data$psq_employ_since_home___1, 'q) What was your employment status?  Since coming home (choice=FT employment)')
data$psq_employ_since_home___2 = ff_label(data$psq_employ_since_home___2, 'q) What was your employment status?  Since coming home (choice=PT employment)')
data$psq_employ_since_home___3 = ff_label(data$psq_employ_since_home___3, 'q) What was your employment status?  Since coming home (choice=Off sick)')
data$psq_employ_since_home___4 = ff_label(data$psq_employ_since_home___4, 'q) What was your employment status?  Since coming home (choice=Caring for children)')
data$psq_employ_since_home___5 = ff_label(data$psq_employ_since_home___5, 'q) What was your employment status?  Since coming home (choice=Caring for an adult)')
data$psq_employ_since_home___6 = ff_label(data$psq_employ_since_home___6, 'q) What was your employment status?  Since coming home (choice=FT education)')
data$psq_employ_since_home___7 = ff_label(data$psq_employ_since_home___7, 'q) What was your employment status?  Since coming home (choice=PT education)')
data$psq_employ_since_home___8 = ff_label(data$psq_employ_since_home___8, 'q) What was your employment status?  Since coming home (choice=Unemployed)')
data$psq_employ_since_home___9 = ff_label(data$psq_employ_since_home___9, 'q) What was your employment status?  Since coming home (choice=Retired)')
data$psq_employ_since_home___10 = ff_label(data$psq_employ_since_home___10, 'q) What was your employment status?  Since coming home (choice=Furloughed)')
data$psq_employ_since_home___11 = ff_label(data$psq_employ_since_home___11, 'q) What was your employment status?  Since coming home (choice=Laid off due to outbreak)')
data$psq_shift_work = ff_label(data$psq_shift_work, 'q) Prior to COVID did your work involve shift work?')
data$psq_shift_night = ff_label(data$psq_shift_night, 'q) Prior to COVID did your work involve night shifts?')
data$psq_feel_lonely = ff_label(data$psq_feel_lonely, 'Do you feel lonely?')
data$psq_bereavement = ff_label(data$psq_bereavement, 'q) Have you experienced a close bereavement due to COVID-19?')
data$psq_bereave_relation = ff_label(data$psq_bereave_relation, 'q) Relationship in the bereavement')
data$psq_furlough_yn = ff_label(data$psq_furlough_yn, 'Have you ever been furloughed?')
data$psq_furlough_when___1 = ff_label(data$psq_furlough_when___1, 'When were you furloughed? (Select all that apply) (choice=Before you were admitted to hospital with COVID-19)')
data$psq_furlough_when___2 = ff_label(data$psq_furlough_when___2, 'When were you furloughed? (Select all that apply) (choice=Since you were discharged from hospital after COVID-19)')
data$psq_furlough_months = ff_label(data$psq_furlough_months, 'For how long have you been/were you furloughed in total?')
data$psq_ability_work = ff_label(data$psq_ability_work, 'q) Has your illness affected your ability to do your usual work?')
data$psq_lack_companion = ff_label(data$psq_lack_companion, 'How often do you feel that you lack companionship?')
data$psq_left_out = ff_label(data$psq_left_out, 'How often do you feel left out?')
data$psq_isolated = ff_label(data$psq_isolated, 'How often do you feel isolated from others?')
data$psq_lonely = ff_label(data$psq_lonely, 'How often do you feel lonely?')
data$psq_satisfied_life = ff_label(data$psq_satisfied_life, 's) Overall, how satisfied are you with your life nowadays, where 0 means not at all and 10 means completely?')
data$psq_not_mentioned = ff_label(data$psq_not_mentioned, 's) Are you experiencing any new problems that we havent mentioned?')
data$psq_new_problems = ff_label(data$psq_new_problems, 's) Please specify new problem(s) that we have not mentioned  One per line')
data$psq_help_info = ff_label(data$psq_help_info, 's) What information would have been helpful to receive at discharge?')
data$psq_feverish = ff_label(data$psq_feverish, 't1) Have you felt feverish recently?')
data$psq_feverish_time = ff_label(data$psq_feverish_time, 't2) Roughly when did you last feel feverish?')
data$psq_feverish_reason = ff_label(data$psq_feverish_reason, 't3) What was the cause of your most recent feverish illness?')
data$psq_feverish_reason_other = ff_label(data$psq_feverish_reason_other, 't4) Please specify the cause of your most recent feverish illness')
data$psq_tinnitus_since = ff_label(data$psq_tinnitus_since, 'u) Since your COVID-19 illnessHave you had noises (such as ringing or buzzing) in your head or in one or both ears that lasts for more than 5 minutes at a time?')
data$psq_tinnitus_before = ff_label(data$psq_tinnitus_before, 'u) Before your COVID-19 illnessHave you had noises (such as ringing or buzzing) in your head or in one or both ears that lasts for more than 5 minutes at a time?')
data$psq_balance_q1_since = ff_label(data$psq_balance_q1_since, 'a) Attacks of dizziness in which things seem to spin around you?')
data$psq_balance_q2_since = ff_label(data$psq_balance_q2_since, 'b) Attacks of dizziness in which you seem to move?')
data$psq_balance_q1_before = ff_label(data$psq_balance_q1_before, 'a) Attacks of dizziness in which things seem to spin around you?')
data$psq_balance_q2_before = ff_label(data$psq_balance_q2_before, 'b) Attacks of dizziness in which you seem to move?')
data$psq_vac_first_yn = ff_label(data$psq_vac_first_yn, 'Have you received a SARS-CoV-2 (Coronavirus) vaccine first dose?')
data$psq_vac_first_date_yn = ff_label(data$psq_vac_first_date_yn, 'Is date of SARS-CoV-2 (Coronavirus) vaccine first dose known?')
data$psq_vac_first_date = ff_label(data$psq_vac_first_date, 'Date of SARS-CoV-2 (Coronavirus) vaccine first dose')
data$psq_vac_first_type_yn = ff_label(data$psq_vac_first_type_yn, 'Do you know which SARS-CoV-2 (Coronavirus) vaccine first dose you received?')
data$psq_vac_first_type = ff_label(data$psq_vac_first_type, 'SARS-CoV-2 (Coronavirus) vaccine first dose received')
data$psq_vac_first_type_other = ff_label(data$psq_vac_first_type_other, 'SARS-CoV-2 (Coronavirus) vaccine first dose received - Other')
data$psq_vac_sec_yn = ff_label(data$psq_vac_sec_yn, 'Have you received a SARS-CoV-2 (Coronavirus) vaccine second dose?')
data$psq_vac_sec_date_yn = ff_label(data$psq_vac_sec_date_yn, 'Is date of SARS-CoV-2 (Coronavirus) vaccine second dose known?')
data$psq_vac_sec_date = ff_label(data$psq_vac_sec_date, 'Date of SARS-CoV-2 (Coronavirus) vaccine second dose')
data$psq_vac_sec_type_yn = ff_label(data$psq_vac_sec_type_yn, 'Do you know which SARS-CoV-2 (Coronavirus) vaccine second dose you received?')
data$psq_vac_sec_type = ff_label(data$psq_vac_sec_type, 'SARS-CoV-2 (Coronavirus) vaccine second dose received')
data$psq_vac_sec_type_other = ff_label(data$psq_vac_sec_type_other, 'SARS-CoV-2 (Coronavirus) vaccine second dose received - Other')
data$repeatable_symptoms_assessment_complete = ff_label(data$repeatable_symptoms_assessment_complete, 'Complete?')
data$blood_date = ff_label(data$blood_date, 'Date')
data$fbc_done___1 = ff_label(data$fbc_done___1, 'Please tick all tests that have been DONE (choice=Haemoglobin)')
data$fbc_done___2 = ff_label(data$fbc_done___2, 'Please tick all tests that have been DONE (choice=WBC Count)')
data$fbc_done___3 = ff_label(data$fbc_done___3, 'Please tick all tests that have been DONE (choice=Neutrophil Count)')
data$fbc_done___4 = ff_label(data$fbc_done___4, 'Please tick all tests that have been DONE (choice=Lymphocyte Count)')
data$fbc_done___5 = ff_label(data$fbc_done___5, 'Please tick all tests that have been DONE (choice=Eosinophils)')
data$fbc_done___6 = ff_label(data$fbc_done___6, 'Please tick all tests that have been DONE (choice=Haematocrit)')
data$fbc_done___7 = ff_label(data$fbc_done___7, 'Please tick all tests that have been DONE (choice=Platelets)')
data$haemo_less_greater = ff_label(data$haemo_less_greater, 'Haemoglobin Please select if test result provided is not an exact value and enter the value in the field below.')
data$haemo_result = ff_label(data$haemo_result, 'Haemoglobin Result (g/L)')
data$haemo_other_unit = ff_label(data$haemo_other_unit, 'Haemoglobin If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$wbc_less_greater = ff_label(data$wbc_less_greater, 'WBC Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$wbc_result = ff_label(data$wbc_result, 'WBC count Result (109/L)')
data$wbc_other_unit = ff_label(data$wbc_other_unit, 'WBC count If using a different unit other than 109/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$neutro_less_greater = ff_label(data$neutro_less_greater, 'Neutrophil Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$neut_result = ff_label(data$neut_result, 'Neutrophil count Result (109/L)')
data$neut_other_unit = ff_label(data$neut_other_unit, 'Neutrophil count If using a different unit other than 109/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$lympho_less_greater = ff_label(data$lympho_less_greater, 'Lymphocyte Count Please select if test result provided is not an exact value and enter the value in the field below.')
data$lymp_result = ff_label(data$lymp_result, 'Lymphocyte count Result (109/L)')
data$lymp_other_unit = ff_label(data$lymp_other_unit, 'Lymphocyte count If using a different unit other than 109/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$eos_less_greater = ff_label(data$eos_less_greater, 'Eosinophils Please select if test result provided is not an exact value and enter the value in the field below.')
data$eos_result = ff_label(data$eos_result, 'Eosinophils Result (109/L)')
data$eos_other_unit = ff_label(data$eos_other_unit, 'Eosinophils If using a different unit other than 109/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$haema_less_greater = ff_label(data$haema_less_greater, 'Haematocrit Please select if test result provided is not an exact value and enter the value in the field below.')
data$haema_result = ff_label(data$haema_result, 'Haematocrit Result (%)')
data$haema_other_unit = ff_label(data$haema_other_unit, 'Haematocrit If using a different unit other than % - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$plat_less_greater = ff_label(data$plat_less_greater, 'Platelets Please select if test result provided is not an exact value and enter the value in the field below.')
data$plat_result = ff_label(data$plat_result, 'Platelets Result (109/L)')
data$plat_other_unit = ff_label(data$plat_other_unit, 'Platelets If using a different unit other than 109/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ues_done___1 = ff_label(data$ues_done___1, 'Please tick all tests that have been DONE (choice=Urea)')
data$ues_done___2 = ff_label(data$ues_done___2, 'Please tick all tests that have been DONE (choice=Creatinine)')
data$ues_done___3 = ff_label(data$ues_done___3, 'Please tick all tests that have been DONE (choice=Sodium)')
data$ues_done___4 = ff_label(data$ues_done___4, 'Please tick all tests that have been DONE (choice=Potassium)')
data$ues_done___5 = ff_label(data$ues_done___5, 'Please tick all tests that have been DONE (choice=eGFR)')
data$urea_less_greater = ff_label(data$urea_less_greater, 'Urea Please select if test result provided is not an exact value and enter the value in the field below.')
data$urea_result = ff_label(data$urea_result, 'Urea Result (mmol/L)')
data$urea_other_unit = ff_label(data$urea_other_unit, 'Urea If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$crea_less_greater = ff_label(data$crea_less_greater, 'Creatinine Please select if test result provided is not an exact value and enter the value in the field below.')
data$crea_result = ff_label(data$crea_result, 'Creatinine Result (μmol/L)')
data$crea_other_unit = ff_label(data$crea_other_unit, 'Creatinine If using a different unit other than μmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$na_less_greater = ff_label(data$na_less_greater, 'Sodium Please select if test result provided is not an exact value and enter the value in the field below.')
data$na_result = ff_label(data$na_result, 'Sodium Result (mmol/L)')
data$na_other_unit = ff_label(data$na_other_unit, 'Sodium If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$k_less_greater = ff_label(data$k_less_greater, 'Potassium Please select if test result provided is not an exact value and enter the value in the field below.')
data$k_result = ff_label(data$k_result, 'Potassium Result (mmol/L)')
data$k_other_unit = ff_label(data$k_other_unit, 'Potassium If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$egfr_less_greater = ff_label(data$egfr_less_greater, 'eGFR Please select if test result provided is not an exact value and enter the value in the field below.')
data$egfr_result = ff_label(data$egfr_result, 'eGFR Result (ml/min/1.73m2)')
data$egfr_other_unit = ff_label(data$egfr_other_unit, 'eGFR If using a different unit other than ml/min/1.73m2- Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$lft_done___1 = ff_label(data$lft_done___1, 'Please tick all tests that have been DONE (choice=Total bilirubin)')
data$lft_done___2 = ff_label(data$lft_done___2, 'Please tick all tests that have been DONE (choice=ALT (alanine transaminase))')
data$lft_done___3 = ff_label(data$lft_done___3, 'Please tick all tests that have been DONE (choice=ALP (alkaline phosphatase))')
data$lft_done___4 = ff_label(data$lft_done___4, 'Please tick all tests that have been DONE (choice=GGT (gamma-GT))')
data$lft_done___5 = ff_label(data$lft_done___5, 'Please tick all tests that have been DONE (choice=Albumin)')
data$lft_done___6 = ff_label(data$lft_done___6, 'Please tick all tests that have been DONE (choice=Total protein)')
data$bili_less_greater = ff_label(data$bili_less_greater, 'Total Bilirubin Please select if test result provided is not an exact value and enter the value in the field below.')
data$bili_result = ff_label(data$bili_result, 'Total bilirubin Result (μmol/L)')
data$bili_other_unit = ff_label(data$bili_other_unit, 'Total bilirubin If using a different unit other than μmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$alt_less_greater = ff_label(data$alt_less_greater, 'ALT (alanine transaminase) Please select if test result provided is not an exact value and enter the value in the field below.')
data$alt_result = ff_label(data$alt_result, 'ALT (alanine transaminase) Result (U/L)')
data$alt_other_unit = ff_label(data$alt_other_unit, 'ALT (alanine transaminase) If using a different unit other than U/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$alp_less_greater = ff_label(data$alp_less_greater, 'ALP (alanine phosphatase) Please select if test result provided is not an exact value and enter the value in the field below.')
data$alp_result = ff_label(data$alp_result, 'ALP (alanine phosphatase) Result (U/L)')
data$alp_other_unit = ff_label(data$alp_other_unit, 'ALP (alanine phosphatase) If using a different unit other than U/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ggt_less_greater = ff_label(data$ggt_less_greater, 'GGT (gamma-GT) Please select if test result provided is not an exact value and enter the value in the field below.')
data$ggt_result = ff_label(data$ggt_result, 'GGT (gamma-GT) Result (U/L)')
data$ggt_other_unit = ff_label(data$ggt_other_unit, 'GGT (gamma-GT) If using a different unit other than U/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$alb_less_greater = ff_label(data$alb_less_greater, 'Albumin Please select if test result provided is not an exact value and enter the value in the field below.')
data$alb_result = ff_label(data$alb_result, 'Albumin Result (g/L)')
data$alb_other_unit = ff_label(data$alb_other_unit, 'Albumin If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$prot_less_greater = ff_label(data$prot_less_greater, 'Total protein Please select if test result provided is not an exact value and enter the value in the field below.')
data$prot_result = ff_label(data$prot_result, 'Total protein Result (g/L)')
data$prot_other_unit = ff_label(data$prot_other_unit, 'Total protein If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$crp_done___1 = ff_label(data$crp_done___1, 'Please tick all tests that have been DONE (choice=CRP)')
data$crp_less_greater = ff_label(data$crp_less_greater, 'CRP Please select if test result provided is not an exact value and enter the value in the field below.')
data$crp_result = ff_label(data$crp_result, 'CRP Result (mg/L)')
data$crp_other_unit = ff_label(data$crp_other_unit, 'CRP If using a different unit other than mg/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$bp_done___1 = ff_label(data$bp_done___1, 'Please tick all tests that have been DONE (choice=Adjusted calcium)')
data$bp_done___2 = ff_label(data$bp_done___2, 'Please tick all tests that have been DONE (choice=Phosphate)')
data$bp_done___3 = ff_label(data$bp_done___3, 'Please tick all tests that have been DONE (choice=Magnesium)')
data$bp_done___4 = ff_label(data$bp_done___4, 'Please tick all tests that have been DONE (choice=25-Hydroxyvitamin D (25-OH))')
data$cal_less_greater = ff_label(data$cal_less_greater, 'Adjusted calcium Please select if test result provided is not an exact value and enter the value in the field below.')
data$cal_result = ff_label(data$cal_result, 'Adjusted calcium Result (mmol/L)')
data$cal_other_unit = ff_label(data$cal_other_unit, 'Adjusted calcium If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$pho_less_greater = ff_label(data$pho_less_greater, 'Phosphate Please select if test result provided is not an exact value and enter the value in the field below.')
data$pho_result = ff_label(data$pho_result, 'Phosphate Result (mmol/L)')
data$pho_other_unit = ff_label(data$pho_other_unit, 'Phosphate If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$mg_less_greater = ff_label(data$mg_less_greater, 'Magnesium Please select if test result provided is not an exact value and enter the value in the field below.')
data$mg_result = ff_label(data$mg_result, 'Magnesium Result (mmol/L)')
data$mg_other_unit = ff_label(data$mg_other_unit, 'Magnesium If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$oh_less_greater = ff_label(data$oh_less_greater, '25-Hydroxyvitamin D (25-OH) Please select if test result provided is not an exact value and enter the value in the field below.')
data$oh_result = ff_label(data$oh_result, '25-Hydroxyvitamin D (25-OH) Result (nmol/L)')
data$oh_other_unit = ff_label(data$oh_other_unit, '25-Hydroxyvitamin D (25-OH) If using a different unit other than nmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$lp_done___1 = ff_label(data$lp_done___1, 'Please tick all tests that have been DONE (choice=Cholesterol)')
data$lp_done___2 = ff_label(data$lp_done___2, 'Please tick all tests that have been DONE (choice=Triglycerides)')
data$lp_done___3 = ff_label(data$lp_done___3, 'Please tick all tests that have been DONE (choice=HDL cholesterol)')
data$lp_done___4 = ff_label(data$lp_done___4, 'Please tick all tests that have been DONE (choice=LDL cholesterol)')
data$cho_less_greater = ff_label(data$cho_less_greater, 'Cholesterol Please select if test result provided is not an exact value and enter the value in the field below.')
data$cho_result = ff_label(data$cho_result, 'Cholesterol Result (mmol/L)')
data$cho_other_unit = ff_label(data$cho_other_unit, 'Cholesterol If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$tri_less_greater = ff_label(data$tri_less_greater, 'Triglycerides  Please select if test result provided is not an exact value and enter the value in the field below.')
data$tri_result = ff_label(data$tri_result, 'Triglycerides  Result (mmol/L)')
data$tri_other_unit = ff_label(data$tri_other_unit, 'Triglycerides If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$hdl_less_greater = ff_label(data$hdl_less_greater, 'HDL cholesterol Please select if test result provided is not an exact value and enter the value in the field below.')
data$hdl_result = ff_label(data$hdl_result, 'HDL cholesterol   Result (mmol/L)')
data$hdl_other_unit = ff_label(data$hdl_other_unit, 'HDL cholesterol If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ldl_less_greater = ff_label(data$ldl_less_greater, 'LDL cholesterol Please select if test result provided is not an exact value and enter the value in the field below.')
data$ldl_result = ff_label(data$ldl_result, 'LDL cholesterol   Result (mmol/L)')
data$ldl_other_unit = ff_label(data$ldl_other_unit, 'LDL cholesterol If using a different unit other than mmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$cp_done___1 = ff_label(data$cp_done___1, 'Please tick all tests that have been DONE (choice=Troponin - cTnT)')
data$cp_done___2 = ff_label(data$cp_done___2, 'Please tick all tests that have been DONE (choice=Troponin - hs-cTnT)')
data$cp_done___3 = ff_label(data$cp_done___3, 'Please tick all tests that have been DONE (choice=Troponin - cTnI)')
data$cp_done___4 = ff_label(data$cp_done___4, 'Please tick all tests that have been DONE (choice=Troponin - hs-cTnI)')
data$cp_done___5 = ff_label(data$cp_done___5, 'Please tick all tests that have been DONE (choice=BNP)')
data$cp_done___6 = ff_label(data$cp_done___6, 'Please tick all tests that have been DONE (choice=Pro-NT-BNP)')
data$trop_ctnt_less_greater = ff_label(data$trop_ctnt_less_greater, 'Troponin - cTnT Please select if test result provided is not an exact value and enter the value in the field below.')
data$trop_ctnt_result = ff_label(data$trop_ctnt_result, 'Troponin - cTnT Result (ng/L)')
data$trop_ctnt_other_unit = ff_label(data$trop_ctnt_other_unit, 'Troponin - cTnT If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$trop_hsctnt_less_greater = ff_label(data$trop_hsctnt_less_greater, 'Troponin - hs-cTnT Please select if test result provided is not an exact value and enter the value in the field below.')
data$trop_hsctnt_result = ff_label(data$trop_hsctnt_result, 'Troponin - hs-cTnT Result (ng/L)')
data$trop_hsctnt_other_unit = ff_label(data$trop_hsctnt_other_unit, 'Troponin - hs-cTnT If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$trop_ctni_less_greater = ff_label(data$trop_ctni_less_greater, 'Troponin - cTnI Please select if test result provided is not an exact value and enter the value in the field below.')
data$trop_ctni_result = ff_label(data$trop_ctni_result, 'Troponin - cTnI Result (ng/L)')
data$trop_ctni_other_unit = ff_label(data$trop_ctni_other_unit, 'Troponin - cTnI If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$trop_hsctni_less_greater = ff_label(data$trop_hsctni_less_greater, 'Troponin - hs-cTnI Please select if test result provided is not an exact value and enter the value in the field below.')
data$trop_hsctni_result = ff_label(data$trop_hsctni_result, 'Troponin - hs-cTnI Result (ng/L)')
data$trop_hsctni_other_unit = ff_label(data$trop_hsctni_other_unit, 'Troponin - hs-cTnI If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$bnp_less_greater = ff_label(data$bnp_less_greater, 'BNP Please select if test result provided is not an exact value and enter the value in the field below.')
data$bnp_result = ff_label(data$bnp_result, 'BNP Result (ng/L)')
data$bnp_other_unit = ff_label(data$bnp_other_unit, 'BNP If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$pnbnp_less_greater = ff_label(data$pnbnp_less_greater, 'Pro-NT-BNP Please select if test result provided is not an exact value and enter the value in the field below.')
data$pnbnp_result = ff_label(data$pnbnp_result, 'Pro-NT-BNP Result (ng/L)')
data$pnbnp_other_unit = ff_label(data$pnbnp_other_unit, 'Pro-NT-BNP If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$hp_done___1 = ff_label(data$hp_done___1, 'Please tick all tests that have been DONE (choice=D-Dimer)')
data$hp_done___2 = ff_label(data$hp_done___2, 'Please tick all tests that have been DONE (choice=Fibrinogen)')
data$hp_done___3 = ff_label(data$hp_done___3, 'Please tick all tests that have been DONE (choice=INR)')
data$hp_done___4 = ff_label(data$hp_done___4, 'Please tick all tests that have been DONE (choice=Ferritin)')
data$ddi_unit = ff_label(data$ddi_unit, 'D-DimerPlease select unit of measurement used')
data$ddi_assay = ff_label(data$ddi_assay, 'D-DimerPlease select unit of measurement used')
data$ddi_less_greater = ff_label(data$ddi_less_greater, 'D-Dimer Please select if test result provided is not an exact value and enter the value in the field below.')
data$ddi_result = ff_label(data$ddi_result, 'D-Dimer Result')
data$ddi_other_unit = ff_label(data$ddi_other_unit, 'D-Dimer If using a different unit other than mg/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$fib_less_greater = ff_label(data$fib_less_greater, 'Fibrinogen Please select if test result provided is not an exact value and enter the value in the field below.')
data$fib_result = ff_label(data$fib_result, 'Fibrinogen Result (g/L)')
data$fib_other_unit = ff_label(data$fib_other_unit, 'Fibrinogen If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$inr_less_greater = ff_label(data$inr_less_greater, 'INR Please select if test result provided is not an exact value and enter the value in the field below.')
data$inr_result = ff_label(data$inr_result, 'INR Result')
data$inr_other_unit = ff_label(data$inr_other_unit, 'INR If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$fer_less_greater = ff_label(data$fer_less_greater, 'Ferritin Please select if test result provided is not an exact value and enter the value in the field below.')
data$fer_result = ff_label(data$fer_result, 'Ferritin Result (μg/L)')
data$fer_other_unit = ff_label(data$fer_other_unit, 'Ferritin If using a different unit other than μg/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$dp_done___1 = ff_label(data$dp_done___1, 'Please tick all tests that have been DONE (choice=HbA1C)')
data$dp_done___2 = ff_label(data$dp_done___2, 'Please tick all tests that have been DONE (choice=Glucose)')
data$dp_done___3 = ff_label(data$dp_done___3, 'Please tick all tests that have been DONE (choice=Insulin)')
data$hba1c_less_greater = ff_label(data$hba1c_less_greater, 'HbA1C Please select if test result provided is not an exact value and enter the value in the field below.')
data$hba1c_result = ff_label(data$hba1c_result, 'HbA1C Result (%)')
data$hba1c_other_unit = ff_label(data$hba1c_other_unit, 'HbA1C If using a different unit other than % - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$glu_less_greater = ff_label(data$glu_less_greater, 'Glucose Please select if test result provided is not an exact value and enter the value in the field below.')
data$glu_result = ff_label(data$glu_result, 'Glucose Result (mmol/L)')
data$glu_other_unit = ff_label(data$glu_other_unit, 'Glucose If using a different unit other than % - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ins_less_greater = ff_label(data$ins_less_greater, 'Insulin Please select if test result provided is not an exact value and enter the value in the field below.')
data$ins_result = ff_label(data$ins_result, 'Insulin Result (uIU/mL)')
data$ins_other_unit = ff_label(data$ins_other_unit, 'Insulin If using a different unit other than uIU/mL - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$repeatable_laboratory_results_collection_log_routi_complete = ff_label(data$repeatable_laboratory_results_collection_log_routi_complete, 'Complete?')
data$urine_date = ff_label(data$urine_date, 'Date')
data$up_done___1 = ff_label(data$up_done___1, 'Please tick all tests that have been DONE (choice=Urine albumin: creatinine ratio ACR)')
data$up_done___2 = ff_label(data$up_done___2, 'Please tick all tests that have been DONE (choice=Protein: creatinine ratio PCR)')
data$acr_less_greater = ff_label(data$acr_less_greater, 'Albumin: creatinine ratio (ACR) Please select if test result provided is not an exact value and enter the value in the field below.')
data$acr_result = ff_label(data$acr_result, 'Albumin: creatinine ratio (ACR)Result (mg/mmol)')
data$acr_other_unit = ff_label(data$acr_other_unit, 'Albumin: creatinine ratio (ACR)If using a different unit other than mg/mmol - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$pcr_less_greater = ff_label(data$pcr_less_greater, 'Protein: creatinine ratio (PCR) Please select if test result provided is not an exact value and enter the value in the field below.')
data$pcr_result = ff_label(data$pcr_result, 'Protein: creatinine ratio (PCR) Result (mg/mmol)')
data$pcr_other_unit = ff_label(data$pcr_other_unit, 'Protein: creatinine ratio (PCR) If using a different unit other than mg/mmol - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$urina_done___1 = ff_label(data$urina_done___1, 'Please tick all tests that have been DONE (choice=pH)')
data$urina_done___2 = ff_label(data$urina_done___2, 'Please tick all tests that have been DONE (choice=Specific gravity)')
data$urina_done___3 = ff_label(data$urina_done___3, 'Please tick all tests that have been DONE (choice=Protein)')
data$urina_done___4 = ff_label(data$urina_done___4, 'Please tick all tests that have been DONE (choice=RBCs)')
data$urina_done___5 = ff_label(data$urina_done___5, 'Please tick all tests that have been DONE (choice=Leukocytes)')
data$urina_done___6 = ff_label(data$urina_done___6, 'Please tick all tests that have been DONE (choice=Nitrates)')
data$urina_done___7 = ff_label(data$urina_done___7, 'Please tick all tests that have been DONE (choice=Glucose)')
data$urina_done___8 = ff_label(data$urina_done___8, 'Please tick all tests that have been DONE (choice=Ketones)')
data$urina_done___9 = ff_label(data$urina_done___9, 'Please tick all tests that have been DONE (choice=Bilirubin)')
data$urina_ph_less_greater = ff_label(data$urina_ph_less_greater, 'Urinalysis - pH Please select if test result provided is not an exact value and enter the value in the field below.')
data$urina_ph = ff_label(data$urina_ph, 'Urinalysis - pH')
data$urina_grav_less_greater = ff_label(data$urina_grav_less_greater, 'Urinalysis - Specific gravity Please select if test result provided is not an exact value and enter the value in the field below.')
data$urina_grav = ff_label(data$urina_grav, 'Urinalysis - Specific gravity')
data$urina_pro = ff_label(data$urina_pro, 'Urinalysis - Protein')
data$urina_rbc = ff_label(data$urina_rbc, 'Urinalysis - RBCs')
data$urina_leu = ff_label(data$urina_leu, 'Urinalysis - Leukocytes')
data$urina_nit = ff_label(data$urina_nit, 'Urinalysis - Nitrates')
data$urina_glu = ff_label(data$urina_glu, 'Urinalysis - Glucose')
data$urina_ket = ff_label(data$urina_ket, 'Urinalysis - Ketones')
data$urina_urina_bili = ff_label(data$urina_urina_bili, 'Urinalysis - Bilirubin')
data$urina_pro_detail = ff_label(data$urina_pro_detail, 'Urinalysis - ProteinNumber of crosses')
data$urina_rbc_detail = ff_label(data$urina_rbc_detail, 'Urinalysis - RBCsNumber of crosses')
data$repeatable_laboratory_results_collection_log_urine_complete = ff_label(data$repeatable_laboratory_results_collection_log_urine_complete, 'Complete?')
data$immu_date = ff_label(data$immu_date, 'Date')
data$auto_imm_done___1 = ff_label(data$auto_imm_done___1, 'Please tick all tests that have been DONE (choice=Antinuclear antibody (ANA) titre)')
data$auto_imm_done___2 = ff_label(data$auto_imm_done___2, 'Please tick all tests that have been DONE (choice=Anti-glomerular basement membrane antibody (Anti-GBM) titre)')
data$auto_imm_done___3 = ff_label(data$auto_imm_done___3, 'Please tick all tests that have been DONE (choice=ENA screen)')
data$auto_imm_done___4 = ff_label(data$auto_imm_done___4, 'Please tick all tests that have been DONE (choice=ANCA screen)')
data$auto_imm_done___5 = ff_label(data$auto_imm_done___5, 'Please tick all tests that have been DONE (choice=MPO-ANCA antibody level)')
data$auto_imm_done___6 = ff_label(data$auto_imm_done___6, 'Please tick all tests that have been DONE (choice=PR3-ANCA antibody level)')
data$auto_imm_done___7 = ff_label(data$auto_imm_done___7, 'Please tick all tests that have been DONE (choice=dsDNA)')
data$auto_imm_done___8 = ff_label(data$auto_imm_done___8, 'Please tick all tests that have been DONE (choice=Anticardiolipin (aCL) antibodies)')
data$auto_imm_done___9 = ff_label(data$auto_imm_done___9, 'Please tick all tests that have been DONE (choice=Anti-β2-Glycoprotein I (Anti-β2GPI) antibodies)')
data$auto_imm_done___10 = ff_label(data$auto_imm_done___10, 'Please tick all tests that have been DONE (choice=Lupus anticoagulant antibodies)')
data$auto_imm_done___11 = ff_label(data$auto_imm_done___11, 'Please tick all tests that have been DONE (choice=Anti-CCP)')
data$auto_imm_done___12 = ff_label(data$auto_imm_done___12, 'Please tick all tests that have been DONE (choice=Rheumatoid Factor (RF))')
data$ana = ff_label(data$ana, 'Antinuclear antibody (ANA) titreResult')
data$agbm = ff_label(data$agbm, 'Anti-glomerular basement membrane antibody (Anti-GBM) titreResult')
data$ena = ff_label(data$ena, 'ENA screen')
data$anca = ff_label(data$anca, 'ANCA screen')
data$ena_detail = ff_label(data$ena_detail, 'ENA screenPredominant proteins (anti - Ro/SS-A, La/SS-B, Sm, RNP, Scl-70 and Jo1)')
data$manca_less_greater = ff_label(data$manca_less_greater, 'MPO-ANCA antibody level Please select if test result provided is not an exact value and enter the value in the field below.')
data$manca = ff_label(data$manca, 'MPO-ANCA antibody level Result (IU/ml)')
data$manca_other_unit = ff_label(data$manca_other_unit, 'MPO-ANCA antibody level If using a different unit other than IU/ml - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$panca_less_greater = ff_label(data$panca_less_greater, 'PR3-ANCA antibody level Please select if test result provided is not an exact value and enter the value in the field below.')
data$panca = ff_label(data$panca, 'PR3-ANCA antibody levelResult (IU/ml)')
data$panca_other_unit = ff_label(data$panca_other_unit, 'PR3-ANCA antibody level If using a different unit other than IU/ml - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$dsdna_less_greater = ff_label(data$dsdna_less_greater, 'dsDNA Please select if test result provided is not an exact value and enter the value in the field below.')
data$dsdna = ff_label(data$dsdna, 'dsDNAResult')
data$dsdna_other_unit = ff_label(data$dsdna_other_unit, 'dsDNA If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$acl_less_greater = ff_label(data$acl_less_greater, 'Anticardiolipin (aCL) antibodies Please select if test result provided is not an exact value and enter the value in the field below.')
data$acl = ff_label(data$acl, 'Anticardiolipin (aCL) antibodiesResult')
data$acl_other_unit = ff_label(data$acl_other_unit, 'Anticardiolipin (aCL) antibodies If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ab2gpi_less_greater = ff_label(data$ab2gpi_less_greater, 'Anti-β2-Glycoprotein I (Anti-β2GPI) antibodies Please select if test result provided is not an exact value and enter the value in the field below.')
data$ab2gpi = ff_label(data$ab2gpi, 'Anti-β2-Glycoprotein I (Anti-β2GPI) antibodiesResult')
data$ab2gpi_other_unit = ff_label(data$ab2gpi_other_unit, 'Anti-β2-Glycoprotein I (Anti-β2GPI) antibodies If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$lag_less_greater = ff_label(data$lag_less_greater, 'Lupus anticoagulant antibodies Please select if test result provided is not an exact value and enter the value in the field below.')
data$lag = ff_label(data$lag, 'Lupus anticoagulant antibodies Result')
data$lag_other_unit = ff_label(data$lag_other_unit, 'Lupus anticoagulant antibodies If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$accp_less_greater = ff_label(data$accp_less_greater, 'Anti-CCP Please select if test result provided is not an exact value and enter the value in the field below.')
data$accp = ff_label(data$accp, 'Anti-CCP Result (u/ml)')
data$accp_other_unit = ff_label(data$accp_other_unit, 'Anti-CCP If using a different unit other than u/ml - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$rf_less_greater = ff_label(data$rf_less_greater, 'Rheumatoid Factor (RF) Please select if test result provided is not an exact value and enter the value in the field below.')
data$rf = ff_label(data$rf, 'Rheumatoid Factor (RF)  Result (u/ml)')
data$rf_other_unit = ff_label(data$rf_other_unit, 'Rheumatoid Factor (RF) If using a different unit other than u/ml - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$imm_done___1 = ff_label(data$imm_done___1, 'Please tick all tests that have been DONE (choice=C3)')
data$imm_done___2 = ff_label(data$imm_done___2, 'Please tick all tests that have been DONE (choice=C4)')
data$imm_done___3 = ff_label(data$imm_done___3, 'Please tick all tests that have been DONE (choice=IgA)')
data$imm_done___4 = ff_label(data$imm_done___4, 'Please tick all tests that have been DONE (choice=IgM)')
data$imm_done___5 = ff_label(data$imm_done___5, 'Please tick all tests that have been DONE (choice=IgG)')
data$c3_less_greater = ff_label(data$c3_less_greater, 'C3 Please select if test result provided is not an exact value and enter the value in the field below.')
data$c3 = ff_label(data$c3, 'C3 Result')
data$c3_other_unit = ff_label(data$c3_other_unit, 'C3 If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$c4_less_greater = ff_label(data$c4_less_greater, 'C4 Please select if test result provided is not an exact value and enter the value in the field below.')
data$c4 = ff_label(data$c4, 'C4 Result')
data$c4_other_unit = ff_label(data$c4_other_unit, 'C4 If using a different unit - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$iga_less_greater = ff_label(data$iga_less_greater, 'IgA Please select if test result provided is not an exact value and enter the value in the field below.')
data$iga = ff_label(data$iga, 'IgA Result (g/L)')
data$iga_other_unit = ff_label(data$iga_other_unit, 'IgA If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$igm_less_greater = ff_label(data$igm_less_greater, 'IgM Please select if test result provided is not an exact value and enter the value in the field below.')
data$igm = ff_label(data$igm, 'IgM Result (g/L)')
data$igm_other_unit = ff_label(data$igm_other_unit, 'IgM If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$igg_less_greater = ff_label(data$igg_less_greater, 'IgG Please select if test result provided is not an exact value and enter the value in the field below.')
data$igg = ff_label(data$igg, 'IgG Result (g/L)')
data$igg_other_unit = ff_label(data$igg_other_unit, 'IgG If using a different unit other than g/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$blood_virus_done___1 = ff_label(data$blood_virus_done___1, 'Please tick all tests that have been DONE (choice=HIV)')
data$blood_virus_done___2 = ff_label(data$blood_virus_done___2, 'Please tick all tests that have been DONE (choice=Hepatitis B)')
data$blood_virus_done___3 = ff_label(data$blood_virus_done___3, 'Please tick all tests that have been DONE (choice=Hepatitis C)')
data$hiv = ff_label(data$hiv, 'HIV')
data$hepb = ff_label(data$hepb, 'Hepatitis B')
data$hepc = ff_label(data$hepc, 'Hepatitis C')
data$repeatable_laboratory_results_collection_log_immun_complete = ff_label(data$repeatable_laboratory_results_collection_log_immun_complete, 'Complete?')
data$add_blood_date = ff_label(data$add_blood_date, 'Date')
data$haema_done___1 = ff_label(data$haema_done___1, 'Please tick all tests that have been DONE (choice=Folate)')
data$haema_done___2 = ff_label(data$haema_done___2, 'Please tick all tests that have been DONE (choice=Vitamin B12)')
data$haema_done___3 = ff_label(data$haema_done___3, 'Please tick all tests that have been DONE (choice=Iron)')
data$haema_done___4 = ff_label(data$haema_done___4, 'Please tick all tests that have been DONE (choice=LDH)')
data$folate_less_greater = ff_label(data$folate_less_greater, 'FolatePlease select if test result provided is not an exact value and enter the value in the field below.')
data$folate = ff_label(data$folate, 'Folate Result (μg/L)')
data$folate_other_unit = ff_label(data$folate_other_unit, 'Folate If using a different unit other than μg/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$b12_less_greater = ff_label(data$b12_less_greater, 'Vitamin B12 Please select if test result provided is not an exact value and enter the value in the field below.')
data$b12 = ff_label(data$b12, 'Vitamin B12 Result (ng/L)')
data$b12_other_unit = ff_label(data$b12_other_unit, 'Vitamin B12 If using a different unit other than ng/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$iron_less_greater = ff_label(data$iron_less_greater, 'IronPlease select if test result provided is not an exact value and enter the value in the field below.')
data$iron = ff_label(data$iron, 'Iron Result (μmol/L)')
data$iron_other_unit = ff_label(data$iron_other_unit, 'Iron If using a different unit other than μmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$ldh_less_greater = ff_label(data$ldh_less_greater, 'LDHPlease select if test result provided is not an exact value and enter the value in the field below.')
data$ldh = ff_label(data$ldh, 'LDH Result (U/L)')
data$ldh_other_unit = ff_label(data$ldh_other_unit, 'LDH If using a different unit other than U/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$tft_done___1 = ff_label(data$tft_done___1, 'Please tick all tests that have been DONE (choice=TSH)')
data$tft_done___2 = ff_label(data$tft_done___2, 'Please tick all tests that have been DONE (choice=Free thyroxine (T4))')
data$tsh_less_greater = ff_label(data$tsh_less_greater, 'TSHPlease select if test result provided is not an exact value and enter the value in the field below.')
data$tsh = ff_label(data$tsh, 'TSH Result (miu/L)')
data$miu_other_unit = ff_label(data$miu_other_unit, 'TSH If using a different unit other than miu/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$t4_less_greater = ff_label(data$t4_less_greater, 'Free Thyroxine (T4)Please select if test result provided is not an exact value and enter the value in the field below.')
data$t4 = ff_label(data$t4, 'Free thyroxine (T4) Result (pmol/L)')
data$t4_other_unit = ff_label(data$t4_other_unit, 'Free thyroxine (T4) If using a different unit other than pmol/L - Please only enter other unit of measurement used here, the numerical value of the test should be entered in the result field above.')
data$other_done___1 = ff_label(data$other_done___1, 'Please tick all tests that have been DONE (choice=SARS-Cov-2 Serology)')
data$sars_cov2_result = ff_label(data$sars_cov2_result, 'SARS-CoV-2 SerologyResult')
data$covid19 = ff_label(data$covid19, 'SARS-Cov-2 Serology Result')
data$repeatable_laboratory_results_collection_log_addit_complete = ff_label(data$repeatable_laboratory_results_collection_log_addit_complete, 'Complete?')
data$swab_pcr_date = ff_label(data$swab_pcr_date, 'Sample date')
data$swab_pcr_result = ff_label(data$swab_pcr_result, 'Result')
data$repeatable_sarscov2_swab_pcr_test_result_complete = ff_label(data$repeatable_sarscov2_swab_pcr_test_result_complete, 'Complete?')