Add codelist and codelist creation do files

emilyherrett · Jun 15, 2022 · 9757a25 · 9757a25
1 parent b7e4921
commit 9757a25
Show file tree

Hide file tree

Showing 23 changed files with 111 additions and 0 deletions.
diff --git a/cr_codelist_ED.dta b/cr_codelist_ED.dta
diff --git a/cr_codelist_ED_drugs.dta b/cr_codelist_ED_drugs.dta
diff --git a/cr_codelist_antihypertensives.dta b/cr_codelist_antihypertensives.dta
diff --git a/cr_codelist_antipsychotics.dta b/cr_codelist_antipsychotics.dta
diff --git a/cr_codelist_bipolar.dta b/cr_codelist_bipolar.dta
diff --git a/cr_codelist_corticosteroids.dta b/cr_codelist_corticosteroids.dta
diff --git a/cr_codelist_fh_cvd_60.dta b/cr_codelist_fh_cvd_60.dta
diff --git a/cr_codelist_hiv.dta b/cr_codelist_hiv.dta
diff --git a/cr_codelist_migraine.dta b/cr_codelist_migraine.dta
diff --git a/cr_codelist_psychosis.dta b/cr_codelist_psychosis.dta
diff --git a/cr_codelist_qof_cod.dta b/cr_codelist_qof_cod.dta
diff --git a/cr_codelist_qrisk_ethnicity.dta b/cr_codelist_qrisk_ethnicity.dta
diff --git a/cr_codelist_renal_qrisk2.dta b/cr_codelist_renal_qrisk2.dta
diff --git a/cr_codelist_renal_qrisk3.dta b/cr_codelist_renal_qrisk3.dta
diff --git a/cr_codelist_schizophrenia.dta b/cr_codelist_schizophrenia.dta
diff --git a/cr_codelist_severe_mental_illness.dta b/cr_codelist_severe_mental_illness.dta
diff --git a/cr_codelist_sle.dta b/cr_codelist_sle.dta
diff --git a/cr_codelist_smi.dta b/cr_codelist_smi.dta
diff --git a/cr_codelist_statins.dta b/cr_codelist_statins.dta
diff --git a/globals.do b/globals.do
@@ -0,0 +1,20 @@
+clear
+capture set more off
+
+global database "GOLD"
+global version "2018_07"
+
+if "$database" == "GOLD" {
+	global Dictionarydir "J:\EHR Share\3 Database guidelines and info\GPRD_Gold\Medical & Product Browsers\\${version}_Browsers"
+	global Productdic "$Dictionarydir\product"
+	global Medicaldic "$Dictionarydir\medical"
+	}
+
+global Projectdir "J:\EHR-Working\QRISK\qrisk_bundle\codelists\codelist_creation"
+
+global Dodir "$Projectdir\dofiles"
+global Logdir "$Projectdir\logfiles\\${database} ${version}"
+global Datadir "$Projectdir\datafiles\\${database} ${version}"
+global Textdir "$Projectdir\textfiles\\${database} ${version}"
+global Sourcedir "$Projectdir\sourcefiles\\"
+
diff --git a/inc_importgoldmedicaldictionary.do b/inc_importgoldmedicaldictionary.do
@@ -0,0 +1,23 @@
+import delimited using "$Medicaldic.txt", clear
+
+drop in 1
+
+rename _05 medcode
+rename v2 readcode
+rename v3 clinev
+rename v4 immunev
+rename v5 refev
+rename v6 testev
+rename v7 readterm
+rename v8 build
+
+sort medcode
+
+
+* Make all descriptions lower case
+foreach var of varlist readterm {
+	generate Z=lower(`var')
+	drop `var'
+	rename Z `var'
+}
+
diff --git a/inc_importgoldproddictonary.do b/inc_importgoldproddictonary.do
@@ -0,0 +1,33 @@
+
+clear
+set more off
+set linesize 100
+
+
+
+*rename variables
+import delimited using "$Productdic.txt", clear
+drop v2 v12
+rename _05 prodcode
+rename v3 therapyev
+rename v4 productname
+rename v5 drugsubstance
+rename v6 strength
+rename v7 formulation
+rename v8 route
+rename v9 bnfcode
+rename v10 bnfchapter
+rename v11 build
+
+sort prodcode
+
+
+* Make all descriptions lower case
+foreach var of varlist productname drugsubstance formulation route bnfchapter {
+	generate Z=lower(`var')
+	drop `var'
+	rename Z `var'
+}
+
+order prodcode productname drugsubstance strength formulation route bnfcode bnfchapter build
+
diff --git a/searchProductDict.do b/searchProductDict.do
@@ -0,0 +1,35 @@
+
+clear
+set more off
+set linesize 100
+
+/*******************************************************************************
+#1. OPEN DATA AND PREP FOR SEARCH
+*******************************************************************************/
+
+*rename variables
+import delimited using "$Productdictionary.txt", clear
+drop v2 v12
+rename _08 prodcode
+rename v3 therapyev
+rename v4 productname
+rename v5 drugsubstance
+rename v6 strength
+rename v7 formulation
+rename v8 route
+rename v9 bnfcode
+rename v10 bnfchapter
+rename v11 build
+
+sort prodcode
+
+
+* Make all descriptions lower case
+foreach var of varlist productname drugsubstance formulation route bnfchapter {
+	generate Z=lower(`var')
+	drop `var'
+	rename Z `var'
+}
+
+order prodcode productname drugsubstance strength formulation route bnfcode bnfchapter build
+