-
Notifications
You must be signed in to change notification settings - Fork 1
/
16_estrogens_expR.do
127 lines (126 loc) · 3.51 KB
/
16_estrogens_expR.do
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
di "$S_TIME"
clear
set more off
tempfile pde_2013 pde_2014 pde2013bc pde2014bc
use usrds_id srvc_dt gnn using "/dcs01/igm/segevlab/data/usrds2015/claims/pd/pde2013",clear
save `pde_2013',replace
use usrds_id srvc_dt gnn using "/dcs01/igm/segevlab/data/usrds2016/claims/pd/pde2014",clear
save `pde_2014',replace
local year "y=2013/2014"
forvalues `year' {
capture use `pde_`y'',clear
if _rc==0 {
di "processing pde_`y'.dta ..."
gen estro1=(strpos(gnn,"ANORDIOL")!=0)
gen estro2=(strpos(gnn,"ANORDRIN")!=0)
gen estro3=(strpos(gnn,"BAZEDOXIFENE")!=0)
gen estro4=(strpos(gnn,"BIOCHANIN A")!=0)
gen estro5=(strpos(gnn,"BISPHENOL A")!=0)
gen estro6=(strpos(gnn,"BROPARESTROL")!=0)
gen estro7=(strpos(gnn,"CATECHOL ESTROGEN")!=0)
gen estro8=(strpos(gnn,"CHLOROTRIANISENE")!=0)
gen estro9=(strpos(gnn,"CONJUGATED ESTROGENS")!=0)
gen estro10=(strpos(gnn,"CONJUGATED ESTROGENS SYNTHETIC A")!=0)
gen estro11=(strpos(gnn,"CONJUGATED ESTROGENS SYNTHETIC B")!=0)
gen estro12=(strpos(gnn,"COUMESTROL")!=0)
gen estro13=(strpos(gnn,"COUMESTROL DERIVATIVE")!=0)
gen estro14=(strpos(gnn,"DAIDZEIN")!=0)
gen estro15=(strpos(gnn,"DEPOSISTON")!=0)
gen estro16=(strpos(gnn,"DIARYLPROPIONITRILE")!=0)
gen estro17=(strpos(gnn,"DIENESTROL")!=0)
gen estro18=(strpos(gnn,"DIETHYLSTILBESTROL")!=0)
gen estro19=(strpos(gnn,"EPIMESTROL")!=0)
gen estro20=(strpos(gnn,"EQUOL")!=0)
gen estro21=(strpos(gnn,"ESTETROL")!=0)
gen estro22=(strpos(gnn,"ESTRADIOL")!=0)
gen estro23=(strpos(gnn,"ESTRAMUSTINE")!=0)
gen estro24=(strpos(gnn,"ESTRIOL")!=0)
gen estro25=(strpos(gnn,"ESTROGEN DERIVATIVE")!=0)
gen estro26=(strpos(gnn,"ESTROGENIC STEROIDS, ALKYLATED")!=0)
gen estro27=(strpos(gnn,"ESTROGENS, ESTERIFIED (USP)")!=0)
gen estro28=(strpos(gnn,"ESTRONE")!=0)
gen estro29=(strpos(gnn,"ESTROPIPATE")!=0)
gen estro30=(strpos(gnn,"FORMONONETIN")!=0)
gen estro31=(strpos(gnn,"GENISTEIN")!=0)
gen estro32=(strpos(gnn,"GLYCITEIN")!=0)
gen estro33=(strpos(gnn,"GLYCITIN")!=0)
gen estro34=(strpos(gnn,"HEXESTROL")!=0)
gen estro35=(strpos(gnn,"INDENESTROL A")!=0)
gen estro36=(strpos(gnn,"INDENESTROL B")!=0)
gen estro37=(strpos(gnn,"INFECUNDIN")!=0)
gen estro38=(strpos(gnn,"LASOFOXIFENE")!=0)
gen estro39=(strpos(gnn,"MESTRANOL")!=0)
gen estro40=(strpos(gnn,"METHALLENESTRIL")!=0)
gen estro41=(strpos(gnn,"OSPEMIFENE")!=0)
gen estro42=(strpos(gnn,"PHYTOESTROGEN")!=0)
gen estro43=(strpos(gnn,"PROLAME")!=0)
gen estro44=(strpos(gnn,"PROMESTRIENE")!=0)
gen estro45=(strpos(gnn,"QUINESTRADOL")!=0)
gen estro46=(strpos(gnn,"SECOISOLARICIRESINOL")!=0)
gen estro47=(strpos(gnn,"TIBOLONE")!=0)
gen estro48=(strpos(gnn,"TROPHIGIL")!=0)
gen estro49=(strpos(gnn,"ZEARALENONE")!=0)
gen estro50=(strpos(gnn,"ZERANOL")!=0)
gen estro_rx=( ///
estro1+ ///
estro2+ ///
estro3+ ///
estro4+ ///
estro5+ ///
estro6+ ///
estro7+ ///
estro8+ ///
estro9+ ///
estro10+ ///
estro11+ ///
estro12+ ///
estro13+ ///
estro14+ ///
estro15+ ///
estro16+ ///
estro17+ ///
estro18+ ///
estro19+ ///
estro20+ ///
estro21+ ///
estro22+ ///
estro23+ ///
estro24+ ///
estro25+ ///
estro26+ ///
estro27+ ///
estro28+ ///
estro29+ ///
estro30+ ///
estro31+ ///
estro32+ ///
estro33+ ///
estro34+ ///
estro35+ ///
estro36+ ///
estro37+ ///
estro38+ ///
estro39+ ///
estro40+ ///
estro41+ ///
estro42+ ///
estro43+ ///
estro44+ ///
estro45+ ///
estro46+ ///
estro47+ ///
estro48+ ///
estro49+ ///
estro50 ///
>0)
keep usrds_id srvc_dt estro_rx
duplicates drop
quietly compress
save `pde`y'bc', replace
}
}
forvalues `year' {
capture append using `pde`y'bc'
}
save 16_estrogens_expR.dta,replace
di "$S_TIME"