*! version 5.0   02/02/00        (STB-56: gr44)
program define gorciv
	version 5.0
	local varlist "req ex min(1)"
	local options "Eform YScale(string)POINT TItle(string)Level(int 95)"
	parse "`*'"
	parse "`varlist'", parse(" ")
	local i 1
	while "``i''"~="" {
		local b`i'=_b[``i'']
		local s`i'=_se[``i'']
		local i=`i' + 1
	}
	preserve
	clear
	qui gen est=.
	qui gen error=.
	qui gen vars=.
	qui set obs `i'
	local j 1
	label define lyaxis 0" "
	local x ""
	while "``j''" ~= "" {
		qui replace est=`b`j'' in `j'
		qui replace error=`s`j'' in `j'
		qui replace vars=`j' in `j'
		label define lyaxis `j'"``j''", add
		local x "`x'`j',"
		local j=`j' +1
	}
	local xsl=length("`x'")-1
	local xs=substr("`x'",1,`xsl')
	label value vars lyaxis
	local z=invnorm((1-`level'/100)/2)
	qui gen lci=est - `z'*error
	qui gen uci=est + `z'*error
	if "`yscale'"=="" {local yscale "-2,2"}
	if "`eform'"=="eform" {
		qui replace est=exp(est) 
		qui replace lci=exp(lci) 
		qui replace uci=exp(uci) 
		if "`point'"~="" {
			qui replace est=round(est,.01)
			graph est lci uci vars, sy([est]ii) c(.II) ys(`yscale')yline(1) l1(" ") l2(" e^(Estimate)") xla(`xs')b2(" ") b1("`title'")
			}
		else {
			graph est lci uci vars, sy(Oii) c(.II) ys(`yscale')yline(1) l1(" ")l2(" e^(Estimate)") xla(`xs')b2(" ")b1("`title'")
			}
	}
	else {
		if "`point'"~="" {
			qui replace est=round(est,.01)
			graph est lci uci vars, sy([est]ii) c(.II) ys(`yscale')yline(0) l1(" ")l2("Estimate") xla(`xs')b2(" ") b1("`title'")
			}
		else {
			graph est lci uci vars, sy(Oii) c(.II) ys(`yscale')yline(0) l1(" ")l2("Estimate") xla(`xs')b2(" ") b1("`title'")
			}
	}	
end