*!  version 1.0.0  28aug1997     (STB-56: sbe35)
program define calcmcci
version 5.0

global D_run "1"
global DB_note 
global DB_aval 
global DB_bval 
global DB_cval
global DB_dval 
global DB_level "$S_level"
global DB_tb = 0

global DB_note "(enter number of pairs)"
window control static DB_note 5 8 80 9

global DB_a "Case exp/cont exp"
window control static DB_a 5 20 80 9
window control edit 90 20 25 10 DB_aval

global DB_b "Case exp/cont unexp"
window control static DB_b 5 35 80 9
window control edit 90 35 25 10 DB_bval

global DB_c "Case unexp/cont exp"
window control static DB_c 5 50 80 9
window control edit 90 50 25 10 DB_cval

global DB_d "Case unexp/cont unexp"
window control static DB_d 5 65 80 9
window control edit 90 65 25 10 DB_dval

global DB_ci "Confidence level"
window control static DB_ci 5 80 80 9
window control edit 90 80 15 10 DB_level

window control check "Test-based CI's" 20 95 80 9 DB_tb

window control button "Run" 10 110 30 18 DB_run
window control button "Cancel" 50 110 30 18 DB_can
window control button "Help" 90 110 30 18 DB_help help
global DB_run "runmcci"
global DB_can "exit 3000"
global DB_help "whelp calcmenu"
cap noi window dialog "Matched case-control" . . 130 150

global D_run

end

program define runmcci
	
  if trim("$DB_aval") == "" | trim("$DB_bval") == "" | /*
  */ trim("$DB_cval") == "" | trim("$DB_dval") == "" {
	window stopbox stop "Missing values not allowed."
	exit
  	}
  if $DB_aval < 0 | $DB_bval < 0 | $DB_cval < 0 | $DB_dval < 0 {
	window stopbox stop "Number must be >= 0."
	exit
	}
  if $DB_aval == . | $DB_bval == . | $DB_cval == . | $DB_dval == . {
	window stopbox stop "Missing values not allowed."
	exit
	}
 
  if $DB_level < 10 | $DB_level > 99 {
	dis in re "'$DB_level' is an invalid confidence level"
	exit
	}
global S_level $DB_level

local D_tb ""

  if $DB_tb {
	local D_tb "tb"
	}

  if "$D_run"~="" {
	di in wh "mcci $DB_aval $DB_bval $DB_cval $DB_dval, level($S_level) `D_tb'"
		  }
  else {
	di
	di in wh ". mcci $DB_aval $DB_bval $DB_cval $DB_dval, level($S_level) `D_tb'"
		  }

global D_run
mcci $DB_aval $DB_bval $DB_cval $DB_dval, level($S_level) `D_tb'
window push mcci $DB_aval $DB_bval $DB_cval $DB_dval, level($S_level) `D_tb'

end