alias checkseries {
  var %i, %j, %found, %newep
  var %newid, %new = 0

  %i = 1
  while (%i <= $checksize(series)) {
    %found = 0
    %j = 1

    while (%j <= $checksize(series_old)) {
      if (%new == 0) {
        if ($gettok($hget(series,%i),1,9) == $gettok($hget(series_old,%j),1,9)) {
          if ($chr(45) isin $gettok($hget(series_old,%i),2,9)) {
            %newep = $gettok($gettok($hget(series_old,%i),2,9),2,45)
          }
          else {
            %newep = $gettok($hget(series_old,%i),2,9)
          }

          if ($gettok($hget(series,%i),2,9) > %newep) {
            %new = $hget(series,%i)
            %newid = %i
          }

          %found = 1
        }
      }
      inc %j
    }