pears.GetCompanyGroup [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.GetCompanyGroup ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create function "pears"."GetCompanyGroup"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "coid" char(20) ) 
returns long varchar
begin
  declare "res" long varchar;
  declare "pid" char(20);
  declare "I" integer;
  set "I" = 1;
  select "GetCompanyMainParent"("coid") into "pid";
  if "pid" is not null then
    set "res" = ''''+"pid"+''''
  else set "res" = ''''+"coid"+''''
  end if;
  if "pid" is not null then
    call "GetLinkedCompanyList"("pid","res","I")
  else call "GetLinkedCompanyList"("coid","res","I")
  end if;
  return "res"
exception
  when others then
    return '''error'''
end
</code>