forked from jhutrc/criteria
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path17_growthhormones_expR.do
147 lines (146 loc) · 4.08 KB
/
17_growthhormones_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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
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 growth1=(strpos(gnn,"ACCRETROPIN")!=0)
gen growth2=(strpos(gnn,"ALBUSOMATROPIN")!=0)
gen growth3=(strpos(gnn,"ASELLACRIN")!=0)
gen growth4=(strpos(gnn,"BIO TROPIN")!=0)
gen growth5=(strpos(gnn,"BIOSYNTHETIC HUMAN GROWTH HORMONE")!=0)
gen growth6=(strpos(gnn,"BIOTROPIN")!=0)
gen growth7=(strpos(gnn,"CORPORMON")!=0)
gen growth8=(strpos(gnn,"CRESCORMON")!=0)
gen growth9=(strpos(gnn,"CRYO TROPIN")!=0)
gen growth10=(strpos(gnn,"CRYO-TROPIN")!=0)
gen growth11=(strpos(gnn,"CRYOTROPIN")!=0)
gen growth12=(strpos(gnn,"EFPEGSOMATROPIN")!=0)
gen growth13=(strpos(gnn,"EFTANSOMATROPIN ALFA")!=0)
gen growth14=(strpos(gnn,"GENOTONORM")!=0)
gen growth15=(strpos(gnn,"GENOTROPIN")!=0)
gen growth16=(strpos(gnn,"GROWJECT BC")!=0)
gen growth17=(strpos(gnn,"GROWTH HORMONE")!=0)
gen growth18=(strpos(gnn,"H.G.H.")!=0)
gen growth19=(strpos(gnn,"HGH")!=0)
gen growth20=(strpos(gnn,"HORMONE, HUMAN GROWTH")!=0)
gen growth21=(strpos(gnn,"HUMAN GROWTH HORMONE")!=0)
gen growth22=(strpos(gnn,"HUMAN SOMATOTROPIN")!=0)
gen growth23=(strpos(gnn,"HUMATROP")!=0)
gen growth24=(strpos(gnn,"HUMATROPE")!=0)
gen growth25=(strpos(gnn,"JINTROPIN")!=0)
gen growth26=(strpos(gnn,"LONAPEGSOMATROPIN")!=0)
gen growth27=(strpos(gnn,"MAXOMAT")!=0)
gen growth28=(strpos(gnn,"NEUTROPIN")!=0)
gen growth29=(strpos(gnn,"NORDITROPIN")!=0)
gen growth30=(strpos(gnn,"NORDITROPINE")!=0)
gen growth31=(strpos(gnn,"NOVOTROPIN")!=0)
gen growth32=(strpos(gnn,"NUTROPIN")!=0)
gen growth33=(strpos(gnn,"OMNITROPE")!=0)
gen growth34=(strpos(gnn,"PEGVISOMANT")!=0)
gen growth35=(strpos(gnn,"PROLEASE")!=0)
gen growth36=(strpos(gnn,"SAIZEN")!=0)
gen growth37=(strpos(gnn,"SALZEN")!=0)
gen growth38=(strpos(gnn,"SCITROPIN")!=0)
gen growth39=(strpos(gnn,"SEROSTIM")!=0)
gen growth40=(strpos(gnn,"SEROTIM")!=0)
gen growth41=(strpos(gnn,"SOMAGREBOVE")!=0)
gen growth42=(strpos(gnn,"SOMALAPOR")!=0)
gen growth43=(strpos(gnn,"SOMAPACITAN")!=0)
gen growth44=(strpos(gnn,"SOMATOSALM")!=0)
gen growth45=(strpos(gnn,"SOMATOTROPIN (HUMAN)")!=0)
gen growth46=(strpos(gnn,"SOMATREM")!=0)
gen growth47=(strpos(gnn,"SOMATROPIN")!=0)
gen growth48=(strpos(gnn,"SOMAVARATAN")!=0)
gen growth49=(strpos(gnn,"SOMAVUBOVE")!=0)
gen growth50=(strpos(gnn,"SOMENOPOR")!=0)
gen growth51=(strpos(gnn,"SOMETRIPOR")!=0)
gen growth52=(strpos(gnn,"SOMFASEPOR")!=0)
gen growth53=(strpos(gnn,"SUBTROPIN")!=0)
gen growth54=(strpos(gnn,"TEV TROPIN")!=0)
gen growth55=(strpos(gnn,"TEV-TROPIN")!=0)
gen growth56=(strpos(gnn,"TEVTROPIN")!=0)
gen growth57=(strpos(gnn,"UMATROPE")!=0)
gen growth58=(strpos(gnn,"VALTROPIN")!=0)
gen growth59=(strpos(gnn,"ZOMACTON")!=0)
gen growth60=(strpos(gnn,"ZORBTIVE")!=0)
gen growth_rx=( ///
growth1+ ///
growth2+ ///
growth3+ ///
growth4+ ///
growth5+ ///
growth6+ ///
growth7+ ///
growth8+ ///
growth9+ ///
growth10+ ///
growth11+ ///
growth12+ ///
growth13+ ///
growth14+ ///
growth15+ ///
growth16+ ///
growth17+ ///
growth18+ ///
growth19+ ///
growth20+ ///
growth21+ ///
growth22+ ///
growth23+ ///
growth24+ ///
growth25+ ///
growth26+ ///
growth27+ ///
growth28+ ///
growth29+ ///
growth30+ ///
growth31+ ///
growth32+ ///
growth33+ ///
growth34+ ///
growth35+ ///
growth36+ ///
growth37+ ///
growth38+ ///
growth39+ ///
growth40+ ///
growth41+ ///
growth42+ ///
growth43+ ///
growth44+ ///
growth45+ ///
growth46+ ///
growth47+ ///
growth48+ ///
growth49+ ///
growth50+ ///
growth51+ ///
growth52+ ///
growth53+ ///
growth54+ ///
growth55+ ///
growth56+ ///
growth57+ ///
growth58+ ///
growth59+ ///
growth60 ///
>0)
keep usrds_id srvc_dt growth_rx
duplicates drop
quietly compress
save `pde`y'bc', replace
}
}
forvalues `year' {
capture append using `pde`y'bc'
}
save 17_growthhormones_expR.dta,replace
di "$S_TIME"