program define cifunction_ex

	if "`1'" == "1" {
		cifunction 5.736638 2.138812 1.46824 1.35606, se(4.181258 .6520701 .295728 .2748845) eform ///
			fig(xscale(log) xlabel(.3 .5 1 2 5 10 20 50 100) legend(label(1 "35-44") label(2 "45-54") label(3 "55-64") label(4 "65-74") ///
			title("Age Group", size(small))) xtitle("Rate Ratio (Log Scale)")))
	}
	if "`1'" == "2" {
		cifunction 2.222222  2.835165, se(1.319891 1.33843) eform fig(xscale(log) xlabel(.2 .5 1 2 5 10 20) ///
			legend(label(1 "Crude") label(2 "Pooled")) xtitle(Odds Ratio (Log Scale))))
	}
	if "`1'" == "3" {
		cifunction .7 1.2 1.3 3.6, se(.4474236 .2482485 .6337692 1.870876) eform fig(xscale(log) xlabel(.05 .1 .2 .5 1 2 5 10 30) ///
			legend(label(1 "Finland") label(2 "NO/LA") label(3 "Denmark") label(4 "Upstate NY")) xtitle("Relative Ratio (Log Scale)")))
	}
	if "`1'" == "4" {
	cifunction 0.87 0.88, se(.0965065 .0658232) eform fig( xlab(.5(.1)1.3) xtitle("Odds Ratio") legend(label(1 "Eisenberger et al (1998)") ///
			label(2 "Summary of 10 studies") ring(0) position(11))) sav(figdata, replace)
	}

end