pears.GetPlacementTheirRef

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
}