// Revised 10/24/2010
// Version 3.0

VERSION 10.0
POSITION . . 490 270

DIALOG main, label("ICD-9-CM TMPM (ICD-9-CM TRAUMA MORTALITY PREDICTION MODEL)") tabtitle("Main")
BEGIN
   GROUPBOX gb_dx_format      10 10  470 70,                            ///
            label("Diagnosis Code Format")
   RADIO    rd_without_dec_pt 20 30  150 20,                            ///
            first                                                       ///
            label("Without Decimal Point ")
   RADIO    rd_with_dec_pt    20 50  150 20,                            ///
            last                                                        ///
            label("With Decimal Point ")
   GROUPBOX gb_dx_prefix      10 90  470 60,                            ///
            label("Diagnosis Code Variable Name Prefix")
   EDIT     ed_dx_prefix      20 115 50  20,                            ///
            error("Diagnosis Code Variable Name Prefix")
   TEXT     tx_dx_prefix      75 115 365 20,                            ///
            label("Enter diagnosis code prefix")
   GROUPBOX gb_in_out_files   10 160 470 90,                            ///
            label("Select Input and Output Files")
   FILE     fn_in             20 185 450 20,                            ///
            label("Browse Input File")                                  ///
            error("Input File Name")                                    ///
            buttonwidth(100)                                            ///
            filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*") 
   FILE     fn_out            20 215 450 20,                            ///
            label("Browse Output File")                                 ///
            error("Output File Name")                                   ///
		    buttonwidth(100)                                            ///
            save                                                        ///
            filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*")
END

OK ok1, label("OK")
CANCEL can1, label("Cancel")
SUBMIT sub1, label("Submit")
HELP hlp1, view("help icd9tmpm")
RESET res1
COPY copy1

PROGRAM command
BEGIN
   require main.ed_dx_prefix
   require main.fn_in
   require main.fn_out
   put "icd9tmpm "
   put `"""'
   put main.fn_in
   put `"""'
   put " "
   put `"""'
   put main.fn_out
   put `"""'
   put " "
   if main.rd_without_dec_pt {
      put "1"
   }
   put " "
   if main.rd_with_dec_pt {
      put "2"
   }
   put " "
   put main.ed_dx_prefix
END