pears.GetCompanyGroupHead

CREATE FUNCTION "pears"."GetCompanyGroupHead"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "CompID" CHAR(20) ) 
RETURNS CHAR(20)
BEGIN
  DECLARE "coid" CHAR(20);
  DECLARE "oldcoid" CHAR(20);
  DECLARE "lc" INTEGER;
  SELECT "parentcompanyid" INTO "coid" FROM "company" WHERE "companyid" = "compid";
  IF "coid" IS NULL THEN
    RETURN "compid"
  END IF;
  SET "oldcoid" = NULL;
  SET "lc" = 1;
  while("coid" IS NOT NULL) AND("lc" < 1000) loop
    SET "oldcoid" = "coid";
    SET "lc" = "lc"+1;
    SELECT "parentcompanyid" INTO "coid" FROM "company" WHERE "companyid" = "coid"
  END loop;
  RETURN "oldcoid"
END