static int cvd_female_validation(
int b_AF,int b_ra,int b_renal,int b_treatedhyp,int b_type2,double bmi,int ethrisk,int fh_cvd,double rati,double sbp,int smoke_cat,double town,char *errorBuf,int errorBufSize
)
{
int ok=1;
*errorBuf=0;
if (!is_boolean(b_AF)) {
ok=0;
strlcat(errorBuf,"error: b_AF must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_ra)) {
ok=0;
strlcat(errorBuf,"error: b_ra must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_renal)) {
ok=0;
strlcat(errorBuf,"error: b_renal must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_treatedhyp)) {
ok=0;
strlcat(errorBuf,"error: b_treatedhyp must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_type2)) {
ok=0;
strlcat(errorBuf,"error: b_type2 must be in range (0,1)\n",errorBufSize);
}
if (!d_in_range(bmi,20,40)) {
ok=0;
strlcat(errorBuf,"error: bmi must be in range (20,40)\n",errorBufSize);
}
if (!i_in_range(ethrisk,1,9)) {
ok=0;
strlcat(errorBuf,"error: ethrisk must be in range (1,9)\n",errorBufSize);
}
if (!is_boolean(fh_cvd)) {
ok=0;
strlcat(errorBuf,"error: fh_cvd must be in range (0,1)\n",errorBufSize);
}
if (!d_in_range(rati,1,12)) {
ok=0;
strlcat(errorBuf,"error: rati must be in range (1,12)\n",errorBufSize);
}
if (!d_in_range(sbp,70,210)) {
ok=0;
strlcat(errorBuf,"error: sbp must be in range (70,210)\n",errorBufSize);
}
if (!i_in_range(smoke_cat,0,4)) {
ok=0;
strlcat(errorBuf,"error: smoke_cat must be in range (0,4)\n",errorBufSize);
}
if (!d_in_range(town,-7,11)) {
ok=0;
strlcat(errorBuf,"error: town must be in range (-7,11)\n",errorBufSize);
}
return ok;
}
static int cataract_female_validation(
int age,int b_AF,int b_corticosteroids,int b_cvd,int b_ra,int b_type1,int b_type2,double bmi,int ethrisk,int smoke_cat,int statin_user,int surv,char *errorBuf,int errorBufSize
)
{
int ok=1;
*errorBuf=0;
if (!i_in_range(age,30,84)) {
ok=0;
strlcat(errorBuf,"error: age must be in range (30,84)\n",errorBufSize);
}
if (!is_boolean(b_AF)) {
ok=0;
strlcat(errorBuf,"error: b_AF must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_corticosteroids)) {
ok=0;
strlcat(errorBuf,"error: b_corticosteroids must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_cvd)) {
ok=0;
strlcat(errorBuf,"error: b_cvd must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_ra)) {
ok=0;
strlcat(errorBuf,"error: b_ra must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_type1)) {
ok=0;
strlcat(errorBuf,"error: b_type1 must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_type2)) {
ok=0;
strlcat(errorBuf,"error: b_type2 must be in range (0,1)\n",errorBufSize);
}
if (!d_in_range(bmi,20,40)) {
ok=0;
strlcat(errorBuf,"error: bmi must be in range (20,40)\n",errorBufSize);
}
if (!i_in_range(ethrisk,1,9)) {
ok=0;
strlcat(errorBuf,"error: ethrisk must be in range (1,9)\n",errorBufSize);
}
if (!i_in_range(smoke_cat,0,4)) {
ok=0;
strlcat(errorBuf,"error: smoke_cat must be in range (0,4)\n",errorBufSize);
}
if (!is_boolean(statin_user)) {
ok=0;
strlcat(errorBuf,"error: statin_user must be in range (0,1)\n",errorBufSize);
}
if (!i_in_range(surv,1,5)) {
ok=0;
strlcat(errorBuf,"error: surv must be in range (1,5)\n",errorBufSize);
}
return ok;
}
static int fracture4_female_validation(
int age,int alcohol_cat6,int b_antidepressant,int b_anycancer,int b_asthmacopd,int b_corticosteroids,int b_cvd,int b_dementia,int b_endocrine,int b_epilepsy2,int b_falls,int b_fracture4,int b_hrt_oest,int b_liver,int b_malabsorption,int b_parkinsons,int b_ra_sle,int b_renal,int b_type1,int b_type2,double bmi,int ethrisk,int fh_osteoporosis,int smoke_cat,int surv,char *errorBuf,int errorBufSize
)
{
int ok=1;
*errorBuf=0;
if (!i_in_range(age,30,100)) {
ok=0;
strlcat(errorBuf,"error: age must be in range (30,100)\n",errorBufSize);
}
if (!i_in_range(alcohol_cat6,0,5)) {
ok=0;
strlcat(errorBuf,"error: alcohol_cat6 must be in range (0,5)\n",errorBufSize);
}
if (!is_boolean(b_antidepressant)) {
ok=0;
strlcat(errorBuf,"error: b_antidepressant must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_anycancer)) {
ok=0;
strlcat(errorBuf,"error: b_anycancer must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_asthmacopd)) {
ok=0;
strlcat(errorBuf,"error: b_asthmacopd must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_corticosteroids)) {
ok=0;
strlcat(errorBuf,"error: b_corticosteroids must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_cvd)) {
ok=0;
strlcat(errorBuf,"error: b_cvd must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_dementia)) {
ok=0;
strlcat(errorBuf,"error: b_dementia must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_endocrine)) {
ok=0;
strlcat(errorBuf,"error: b_endocrine must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_epilepsy2)) {
ok=0;
strlcat(errorBuf,"error: b_epilepsy2 must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_falls)) {
ok=0;
strlcat(errorBuf,"error: b_falls must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_fracture4)) {
ok=0;
strlcat(errorBuf,"error: b_fracture4 must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_hrt_oest)) {
ok=0;
strlcat(errorBuf,"error: b_hrt_oest must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_liver)) {
ok=0;
strlcat(errorBuf,"error: b_liver must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_malabsorption)) {
ok=0;
strlcat(errorBuf,"error: b_malabsorption must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_parkinsons)) {
ok=0;
strlcat(errorBuf,"error: b_parkinsons must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_ra_sle)) {
ok=0;
strlcat(errorBuf,"error: b_ra_sle must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_renal)) {
ok=0;
strlcat(errorBuf,"error: b_renal must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_type1)) {
ok=0;
strlcat(errorBuf,"error: b_type1 must be in range (0,1)\n",errorBufSize);
}
if (!is_boolean(b_type2)) {
ok=0;
strlcat(errorBuf,"error: b_type2 must be in range (0,1)\n",errorBufSize);
}
if (!d_in_range(bmi,20,40)) {
ok=0;
strlcat(errorBuf,"error: bmi must be in range (20,40)\n",errorBufSize);
}
if (!i_in_range(ethrisk,1,9)) {
ok=0;
strlcat(errorBuf,"error: ethrisk must be in range (1,9)\n",errorBufSize);
}
if (!is_boolean(fh_osteoporosis)) {
ok=0;
strlcat(errorBuf,"error: fh_osteoporosis must be in range (0,1)\n",errorBufSize);
}
if (!i_in_range(smoke_cat,0,4)) {
ok=0;
strlcat(errorBuf,"error: smoke_cat must be in range (0,4)\n",errorBufSize);
}
if (!i_in_range(surv,1,18)) {
ok=0;
strlcat(errorBuf,"error: surv must be in range (1,18)\n",errorBufSize);
}
return ok;
}
