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

VERSION 10.0
POSITION . . 370 190

DIALOG main, label("TRISS (A TRAUMA AND INJURY SEVERITY SCORE)") tabtitle("Main") 
BEGIN
   GROUPBOX gb_in_out_files 10 10  350 90,                              ///
            label("Select Input and Output Files")
   FILE     fn_in           20 35 330 20,                               ///
            label("Browse Input File")                                  ///
            error("Input File Name")                                    ///
            buttonwidth(100)                                            ///
            filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*") 
   FILE     fn_out          20 65 330 20,                               ///
            label("Browse Output File")                                 ///
            error("Output File Name")                                   ///
			buttonwidth(100)                                            ///
            save                                                        ///
            filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*")
END

DIALOG triss_var_names, label("TRISS Variable Names") tabtitle("TRISS Variable Names") 
BEGIN
   GROUPBOX gb_triss_var_names 10 10  350 130,                ///
            label("TRISS Variable Names")
   EDIT     ed_rts             20 30  50  20,                 ///
            error("RTS Variable Name")                        ///
            default("rts")
   TEXT     tx_rts             75 30  200 20,                 ///
            label("Revised Trauma Score")
   EDIT     ed_iss             20 55  50  20,                 ///
            error("Injury Severity Score Variable Name")      ///
            default("xiss")
   TEXT     tx_iss             75 55  200 20,                 ///
            label("Injury Severity Score")
   EDIT     ed_age             20 80  50  20,                 ///
            error("Age Variable Name")
   TEXT     tx_age             75 80  200 20,                 ///
            label("Age")
   EDIT     ed_blunt_pen       20 105 50  20,                 ///
            label("Blunt\Penetrating Trauma Variable Name")   ///
            default("bluntpen")
   TEXT     tx_blunt_pen       75 105 200 20,                 ///
            label("Blunt\Pen Trauma")
END

DIALOG triss_coefficients, label("TRSS Coefficients") tabtitle("TRISS Coefficients") 
BEGIN
   GROUPBOX gb_triss_coefficients 10  10 350 160,         ///
            label("TRISS Coefficients")
   TEXT     tx_blunt_coeff_cat    83  35 60  20,          ///
            label("BLUNT")
   TEXT     tx_pen_coeff_cat      165 35 60  20,          ///
            label("PEN")
   TEXT     tx_constant           20  60 50  20,          ///
            label("Constant")
   EDIT     ed_blunt_constant     75  60 50  20,          ///
            error("Blunt Trauma Constant")                ///
            default("-1.2470")                            ///
            numonly
   EDIT     ed_pen_constant       150 60 50  20,          ///
            error("Penetrating Trauma Constant")          ///
            default("-0.6029")                            ///
            numonly
   TEXT     tx_rts_coeff          20  85 50  20,          ///
            label("RTS")
   EDIT     ed_blunt_rts_coeff    75  85 50  20,          ///
            error("Blunt Trauma RTS Coefficient")         ///
            default("0.9544")                             ///
            numonly
   EDIT     ed_pen_rts_coeff      150 85 50  20,          ///
            error("Penetrating Trauma RTS Coefficient")   ///
            default("1.1430")                             ///
            numonly
   TEXT     tx_iss_coeff          20  110 50 20,          ///
            label("ISS")
   EDIT     ed_blunt_iss_coeff    75  110 50 20,          ///
            error("Blunt Trauma ISS Coefficient")         ///
            default("-0.0768")                            ///
            numonly                                       ///
            nomemory
   EDIT     ed_pen_iss_coeff      150 110 50 20,          ///
            error("Penetrating Trauma ISS Coefficient")   ///
            default("-0.1516")                            ///
            numonly
   TEXT     tx_age_coeff          20  135 50 20,          ///
            label("Age")
   EDIT     ed_blunt_age_coeff    75  135 50 20,          ///
            error("Blunt Trauma Age Coefficient")         ///
            default("-1.9052")                            ///
            numonly
   EDIT     ed_pen_age_coeff      150 135 50 20,          ///
            error("Penetrating Trauma Age Coefficient")   ///
            default("-2.6676")                            ///
            numonly
END

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

PROGRAM command
BEGIN
   require main.fn_in
   require main.fn_out
   require triss_var_names.ed_rts
   require triss_var_names.ed_iss
   require triss_var_names.ed_age
   require triss_var_names.ed_blunt_pen
   require triss_coefficients.ed_blunt_constant
   require triss_coefficients.ed_blunt_rts_coeff
   require triss_coefficients.ed_blunt_iss_coeff
   require triss_coefficients.ed_blunt_age_coeff
   require triss_coefficients.ed_pen_constant
   require triss_coefficients.ed_pen_rts_coeff
   require triss_coefficients.ed_pen_iss_coeff
   require triss_coefficients.ed_pen_age_coeff
   put "triss "
   put `"""'
   put main.fn_in
   put `"""'
   put " "
   put `"""'
   put main.fn_out
   put `"""'
   put " "
   put triss_var_names.ed_rts
   put " "
   put triss_var_names.ed_iss
   put " "
   put triss_var_names.ed_age
   put " "
   put triss_var_names.ed_blunt_pen
   put " "
   put triss_coefficients.ed_blunt_constant
   put " "
   put triss_coefficients.ed_blunt_rts_coeff
   put " "
   put triss_coefficients.ed_blunt_iss_coeff
   put " "
   put triss_coefficients.ed_blunt_age_coeff
   put " "
   put triss_coefficients.ed_pen_constant
   put " "
   put triss_coefficients.ed_pen_rts_coeff
   put " "
   put triss_coefficients.ed_pen_iss_coeff
   put " "
   put triss_coefficients.ed_pen_age_coeff
END