====== pears.GetPlacementTheirRef ======
<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>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetPlacementTheirRef" IS 
{create function GetPlacementTheirRef 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in persid char(20),in vacid char(20))
returns char(50)
begin
  declare rv char(50);
  set rv=null;
  forstat: for forlab as curs no scroll cursor for
    select placement.theirref from placement key join employment where
      placement.vacancyid = vacid and employment.personid = persid and
      placement.temp <> 0 order by isnull(employment.leavedate,current date+3650) desc for read only do
    set rv=theirref;
    leave forstat end for;
  if trim(isnull(rv,'')) = '' then
    select theirref into rv from vacancy where vacancyid = vacid
  end if;
  return(rv)
end
}
</code>