*! version 2.0 dgc/mh Sep 1997   STB-41 ssa10.1
*! This is an st wrapper for dyrate

program define strate
    version 5.0
    st_is
    local varlist "optional ex none"
    local if "opt"
    local in "opt"
    local using "opt"
    local options "Jack CLuster(string) FCodes(string) SCale(real 1) *"
    parse "`*'"
    local ev `varlist'
    confirm ex var `ev'
    if "`cluster'" == "" {
       if "`jack'" != "" {
          local cluster : char _dta[st_id]
       }
    }
    else {
       local jack "jack"
       confirm var `cluster'
    }            
    local aw : char _dta[st_w]
    st_show
    if "`fcodes'"!="" {
       di
       di in gr "   failure codes:  " in ye "`fcodes'"
    }
    if `scale' !=1 {
       di in gr "    time scaling:  " in ye "`scale'"
    }
    * Calculate whether failed and duration of follow-up
    local t : char _dta[st_t]
    local ttype : type `t' 
    local timin : char _dta[st_t0]
    tempvar d y
    gen `ttype' `y' = `t'
    if "`timin'"!="" {
       qui replace `y' = `y' - `timin'
    }
    local fail : char _dta[st_d]
    local ftype : type `fail'
    if "`fcodes'"=="" {
       gen byte `d' = (`fail'!=0)
    }
    else {
       gen `ftype' `d' = `fail'
       qui recode `d'  `fcodes' = 1 * = 0
       qui recast byte `d' 
    }
    if "`jack'"!="" & "`cluster'"=="" {
       local cluster : char _dta[st_id]
    }
    if "`cluster'"!="" {
       local cluster "cl(`cluster')"
    }
    dyrate `d' `ev' `if' `in' `using' `aw', /*
       */ e(`y') `jack' `cluster' sc(`scale') `options'
    end