Unnamed

    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)) {
            %oldep = $gettok($gettok($hget(series_old,%i),2,9),2,45)
          }
          else {
            %oldep = $gettok($hget(series_old,%i),2,9)
          }

          if ($chr(45) isin $gettok($hget(series,%i),2,9)) {
            %newep = $gettok($gettok($hget(series,%i),2,9),2,45)
          }
          else {
            %newep = $gettok($hget(series,%i),2,9)
          }

          if ($strip(%newep) > $strip(%oldep)) {
            %new = $hget(series,%i)
            %newid = %i
          }

          %found = 1
        }
      }
      inc %j
    }