chui | Declarative containerized chisel for punching holes | Dependency Injection library

*Start by converting date to Stata date
gen stata_date = date(orderdate,"DM20Y")
format stata_date %td

*Sort data and product code as stop conditions in while loop expect them to be sorted
sort productcode stata_date

*Create varialbe to store result
gen count_less = .

*Loop over all rows
count 
forvalue row = 1/`r(N)' {
    
    *Only applicable to 
    if sale_at_or_above_refprice[`row'] == 1 {
        
        *Set result variable to 0 for this row
        replace count_less = 0 if _n == `row'
        
        *Initate locals used in while loop
        local true = 1
        local row_skip = 1
        local count = 0
        local last_date = stata_date[`row']
        
        *Loop until any stop condition sets local true to 0
        while `true' == 1 {
           
            *Test if row_skip hits top of data set (i.e row 0)
            if `row'-`row_skip' == 0                                        local true = 0
            *Test that product is same in compare row
            else if productcode[`row'] != productcode[`row'-`row_skip']     local true = 0
            *Test that previous order is within 90 days
            else if stata_date[`row'] - stata_date[`row'-`row_skip'] > 90   local true = 0

            *Test if actualsoldprice is less thatn old websiteprice
            else if websiteprice[`row'] <= actualsoldprice[`row'-`row_skip'] {
                
                * Each date can only be counted once, so test if date is last date counted 
                if `last_date' != stata_date[`row'-`row_skip'] {
                    *Compare row fits condition, add 1 to counter
                    local count = `count' + 1   
                    
                    *Update last counted date
                    local last_date = stata_date[`row'-`row_skip']
                }
            }
            *Skip one more prevuous row
            local row_skip = `row_skip' + 1
        }
        *Add the count result to the result varaible for this row
        replace count_less = `count' if _n == `row'
    }
}