%HI_SetGraphTimeZone(
 INT in _refId,
 INT in _zoneId,
 TIME in _od,
 TIME in _do
 )

 ENTRY   TimeZones_OnClick
 TIME _gbt
  TIME _get
 
 _get := %NextTime(3600, 3600, 0)
 _gbt := %SubTime(_get,8*3600)

 
 %HI_SetGraphTimes(_Graph, _gbt, _get, @TRUE)
 %HI_SetGraphTimeZone(_Graph,1, %AddTime(_gbt,%StrToRelTime("01:00:00")), %AddTime(_gbt,%StrToRelTime("02:00:00")))
 %HI_SetGraphTimeZone(_Graph,2, %AddTime(_gbt,%StrToRelTime("03:00:00")), %AddTime(_gbt,%StrToRelTime("04:00:00")))
 %HI_SetGraphTimeZone(_Graph,3, %AddTime(_gbt,%StrToRelTime("05:00:00")), %AddTime(_gbt,%StrToRelTime("06:00:00")))
 %HI_SetGraphTimeZoneColor(_Graph,1, %MakeRGB(0, 127, 0))
  %HI_SetGraphTimeZoneColor(_Graph,3, %MakeRGB(255, 0, 0))
 %HI_SetGraphTimeZoneVisible(_Graph,2, @FALSE)
  
 END TimeZones_OnClick