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

VERSION 10.0
POSITION . . 440 295

DIALOG main, label("CHARLSON SCORE & COMORBIDITIES (ALTERNATE VERSION)") tabtitle("Main")
BEGIN
   GROUPBOX gb_dx_format        10 10  420 70,                          ///
            label("Diagnosis\Procedure 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_and_px_prefix 10 90  420 85,                          ///
            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 265 20,                          ///
            label("Enter diagnosis code prefix")
   EDIT     ed_px_prefix        20 140 50  20,                          ///
            error("Procedure Code Variable Name Prefix")
   TEXT     tx_px_prefix        75 140 265 20,                          ///
            label("Enter procedure code prefix")
   GROUPBOX gb_in_out_files     10 185 420 90,                          ///
            label("Select Input and Output Files")
   FILE     fn_in               20 210 400 20,                          ///
            label("Browse Input File")                                  ///
            error("Input File Name")                                    ///
            buttonwidth(100)                                            ///
            filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*") 
   FILE     fn_out              20 240 400 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 altcharl")
RESET res1
COPY copy1

PROGRAM command
BEGIN
   require main.ed_dx_prefix
   require main.ed_px_prefix
   require main.fn_in
   require main.fn_out
   put "altcharl "
   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
   put " "
   put main.ed_px_prefix
END