Quarterly Revenue InfoPanel

//@version=4

StudyName = "Quarterly Revenue InfoPanel"
study(StudyName, shorttitle=StudyName, overlay=true, precision=2)


lapos_x = timenow + round(change(time)*50)
lapos_y = close
plot(lapos_y)

TotalRev = financial(syminfo.tickerid, "TOTAL_REVENUE", "FQ")
DisRev=TotalRev/1000000000
plot(TotalRev)
newQ = change(time("3M"))
var float dr1 = na
var float dr2 = na
var float dr3 = na
var float dr4 = na
if newQ
    dr4 := dr3
    dr3 := dr2
    dr2 := dr1
    dr1 := DisRev
// Drawing function designed by RicardoSantos.
f_draw_infopanel(_x, _y, _color, _line, _text)=>
    _rep_text = ""
    for _l = 0 to _line
        _rep_text := _rep_text + "\n"
    _rep_text := _rep_text + _text

    var label _la = na
    label.delete(_la)
    _la := label.new(x=_x, y=_y, text=_rep_text, xloc=xloc.bar_time, yloc=yloc.price,
     color=#C1CADE, style=label.style_labelup, textcolor=_color, size=size.normal)

// Using the JustUncleL reverse order trick
f_draw_infopanel(lapos_x, lapos_y, color.olive,                 9, "╚═══════════════════════╝")
f_draw_infopanel(lapos_x, lapos_y, color.new(color.red, 20),    8,  "4th Quarter : " + tostring(dr4))
f_draw_infopanel(lapos_x, lapos_y, color.new(color.purple, 20), 6,  "3rd Quarter : " + tostring(dr3))
f_draw_infopanel(lapos_x, lapos_y, color.new(color.green, 20),  4,  "Previous Qtr: " + tostring(dr2))
f_draw_infopanel(lapos_x, lapos_y, color.new(color.blue, 20),   2,  "Current Qtr : " + tostring(dr1))
f_draw_infopanel(lapos_x, lapos_y, color.olive,                 0,  "╔═════ Quarterly Revenues ═════╗")